Re: Need some help hijacking the page output pipe
[prev] [thread] [next] [Date index for 2004/11/11]
From: Mark S Lowe
Subject: Re: Need some help hijacking the page output pipe
Date: 22:36 on 11 Nov 2004
Subject: Re: Need some help hijacking the page output pipe
Date: 22:36 on 11 Nov 2004
--B_3183028587_8628640
Content-type: text/plain;
charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable
Thank you. This worked perfectly. I was also able to add test code from
chapter 4 of Writing Apache Modules with Perl and C, and add file tests.
I knew my first post to this mailing list had to be stupid. ;-)
On 11/11/04 2:21 PM, "Tom Schindl" <tomAtLinux@xxx.xx> wrote:
> Mark S Lowe wrote:
>=20
>> > I have a need to create my own suffix and hijack the output for page
>> > rendering code, and then re-output the page with my own OK. I have the
>> > O=B9Reilly book =B3Practical mod_perl=B2 and there is a great example of
>> > this on page 114 in Chapter 4. However, the example is incomplete. The
>> > example suggests that we can intercept the request for a page, remove
>> > all the HTML tags, and re-output the page. This isn=B9t exactly what I
>> > want to do, but it will server as a great architecture for my needs.
>> >
>> > I=B9ve got my <Files> directive working perfectly in httpd.conf, but now
>> > I need some help intercepting the page request event, re-rendering the
>> > page, and then outputting it. I imagine this is like a three line
>> > explanation, but I can=B9t seem to find it anywhere. I imagine it
>> > something like this:
>> >
>> > PerlModule MyPlatform::Converter
>> > <Files ~ "\.(pla)$">
>> > SetHandler perl-script
>> > PerlHandler MyPlatform::HTML2TextConverter MyPlatform::
>> > HTMLContentGenerator
>> > </Files>
>> >
>> > I just don=B9t know how to grab the HTML page text once it gets to my
>> > module. STDIN doesn=B9t have it. So where is it?
>> >
>> > Suggestions?
>> >
>> > Thanks!
>> >
>> > Mark=20
>=20
> Well you have to read the file yourself:
>=20
> package MyPlatform::HTML2TextConverter MyPlatform:: HTMLContentGenerator;
>=20
> sub handler {
> # .....
> my $content;
>=20
> local $/ =3D undef;
> open( READFILE, |$r->filename| );
> $content =3D <READFILE>;
> close( READFILE );
> # ...
>=20
> }
--B_3183028587_8628640
Content-type: text/html;
charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable
<HTML>
<HEAD>
<TITLE>Re: Need some help hijacking the page output pipe</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:12.0px'>Thank=
you. This worked perfectly. I was also able to add test code from chapter 4=
of Writing Apache Modules with Perl and C, and add file tests. <BR>
<BR>
I <I>knew</I> my first post to this mailing list had to be stupid. ;-)<BR>
<BR>
<BR>
On 11/11/04 2:21 PM, "Tom Schindl" <tomAtLinux@xxx.xx> wrot=
e:<BR>
<BR>
</SPAN></FONT><BLOCKQUOTE><FONT SIZE=3D"1"><FONT FACE=3D"Monaco, Courier New"><=
SPAN STYLE=3D'font-size:9.0px'>Mark S Lowe wrote:<BR>
<BR>
> I have a need to create my own suffix and hijack the output for page <=
BR>
> rendering code, and then re-output the page with my own OK. I have the=
<BR>
> O’Reilly book “Practical mod_perl” and there is a gr=
eat example of <BR>
> this on page 114 in Chapter 4. However, the example is incomplete. The=
<BR>
> example suggests that we can intercept the request for a page, remove =
<BR>
> all the HTML tags, and re-output the page. This isn’t exactly wh=
at I <BR>
> want to do, but it will server as a great architecture for my needs.<B=
R>
><BR>
> I’ve got my <Files> directive working perfectly in httpd.c=
onf, but now <BR>
> I need some help intercepting the page request event, re-rendering the=
<BR>
> page, and then outputting it. I imagine this is like a three line <BR>
> explanation, but I can’t seem to find it anywhere. I imagine it =
<BR>
> something like this:<BR>
><BR>
> PerlModule MyPlatform::Converter<BR>
> <Files ~ "\.(pla)$"><BR>
> SetHandler perl-script<BR>
> PerlHandler MyPlatform::HTML2TextConverter MyPlatform:: <BR>
> HTMLContentGenerator<BR>
> </Files><BR>
><BR>
> I just don’t know how to grab the HTML page text once it gets to=
my <BR>
> module. STDIN doesn’t have it. So where is it?<BR>
><BR>
> Suggestions?<BR>
><BR>
> Thanks!<BR>
><BR>
> Mark <BR>
<BR>
Well you have to read the file yourself:<BR>
<BR>
package MyPlatform::HTML2TextConverter MyPlatform:: HTMLContentGenerator;<B=
R>
<BR>
sub handler {<BR>
# .....<BR>
my $content;<BR>
<BR>
local $/ =3D undef;<BR>
open( READFILE, |$r->filename| );<BR>
$content =3D <READFILE>;<BR>
close( READFILE );<BR>
# ...<BR>
<BR>
}<BR>
</SPAN></FONT></FONT></BLOCKQUOTE><FONT SIZE=3D"1"><FONT FACE=3D"Monaco, Courie=
r New"><SPAN STYLE=3D'font-size:9.0px'><BR>
</SPAN></FONT></FONT>
</BODY>
</HTML>
--B_3183028587_8628640--
 |
Need some help hijacking the page output pipe
|
|
 |
Re: Need some help hijacking the page output pipe
|
|
|
|
Re: Need some help hijacking the page output pipe
|