Mailing List Archive

wald@library.ho.lucent.com wrote:
>
> (Believe this has come up but can't find/figure it - sorry)

Here is my handler that solves it:

use it in a FilesMatch or whatever you want...

PerlModule Apache::EmbperlFilter Apache::SSI
<FilesMatch "\.epl">
PerlSetVar Filter On
PerlHandler Apache::EmbperlFilter Apache::SSI
</FilesMatch>

package Apache::EmbperlFilter;

use Apache::Util qw(parsedate);
use HTML::Embperl;
use Apache::SSI ();
use Apache::Constants;

use strict;
use vars qw($VERSION);

$VERSION = '0.03';
my ($r, %param, $input, $output);

sub handler {
$r = shift;
my ($fh, $status) = $r->filter_input();
unless ($status == OK) {
return $status
}
local $/ = undef;
$input = scalar(<$fh>);
%param = ();
$param{input} = \$input;
$param{req_rec} = $r;
$param{output} = \$output;
$param{mtime} = mtime();
$param{inputfile} = $r->filename();
HTML::Embperl::ScanEnvironement(\%param);
HTML::Embperl::Execute(\%param);
print $output;
return OK;
}

sub mtime {
my $mtime = undef;
if (my $last_modified = $r->headers_out->{'Last-Modified'}) {
$mtime = parsedate $last_modified;
}
$mtime;
}

1;

__END__

>
> Here is my handler that solves it:
>
> use it in a FilesMatch or whatever you want...
>
> PerlModule Apache::EmbperlFilter Apache::SSI
> <FilesMatch "\.epl">
> PerlSetVar Filter On
> PerlHandler Apache::EmbperlFilter Apache::SSI
> </FilesMatch>

Thanks Michael - this looks very much like what I needed. As I set this up
it raises a question:
why not use the Apache::SSI for the SSI files (*.shtml) instead of the
mod_include module? And remove that module totally from the Apache build?

Any down side to this (beyond that it failed the ssi "make test").

thanks, Bob Waldstein wald@lucent.com

wald@library.ho.lucent.com (PDS[A]-Robert Waldstein(MT5458)m055) wrote:
>
>Thanks Michael - this looks very much like what I needed. As I set this up
>it raises a question:
> why not use the Apache::SSI for the SSI files (*.shtml) instead of the
> mod_include module? And remove that module totally from the Apache build?
>
>Any down side to this (beyond that it failed the ssi "make test").

Yeah, mod_include is quite a bit faster. I haven't benchmarked anything, but a
couple people have told me they've seen a difference.

Of course, Apache::SSI is a bit more forgiving with syntax and more friendly
when you make errors, and a LOT more flexible and extendible. If all you need
is mod_include though, that's probably what you should use.

Obviously I like Apache::SSI, since I wrote it, but I must confess I don't
actually use it very much. Kind of a hobby module. =) But for lots of people
it's just the ticket when they need to tweak the way SSI works, or chain
filters, or whatever.


------------------- -------------------
Ken Williams Last Bastion of Euclidity
ken@forum.swarthmore.edu The Math Forum

>
> PerlModule Apache::EmbperlFilter Apache::SSI
> <FilesMatch "\.epl">
> PerlSetVar Filter On
> PerlHandler Apache::EmbperlFilter Apache::SSI
> </FilesMatch>

Okay - I give. I think I may be hitting a bug in Apache::SSI, or something.
I turned of Filter and removed the chained handlers so had just
PerlHandler Apache::SSI

and still the line in my file that looks like
<!--#perl sub="Apache::Peopledata" arg="name" arg="Unknown person"-->

fails and give the following error (I turned on Debug in SSI):

returning $self->ssi_perl(sub="Apache::Peopledata" arg="name" arg="Unknown person") at /opt1/perl/lib/site_perl/Apache/SSI.pm line 117.
args are sub,Apache::Peopledata,arg,name,arg,Unknown person at /opt1/perl/lib/site_perl/Apache/SSI.pm line 119.
sub is Apache::Peopledata, args are name Unknown person & at /opt1/perl/lib/site_perl/Apache/SSI.pm line 287.
sub is CODE(0x55d75c), args are Apache=SCALAR(0x1d3c20) name Unknown person & at /opt1/perl/lib/site_perl/Apache/SSI.pm line 303.
[Fri Feb 18 16:40:57 2000] [error] Undefined subroutine &Apache::Peopledata called at /opt1/perl/lib/site_perl/Apache/SSI.pm line 304.


Same construct works under mod_include. THe Peopledata.pm has a
sub handler {

which is not exported or anything - is that my problem??

Help? THanks much,
Bob Waldstein wald@lucent.com

Yes, that's the problem. You can change the line to:

<!--#perl sub="Apache::Peopledata::handler" arg="name" arg="Unknown person"-->



wald@library.ho.lucent.com (PDS[A]-Robert Waldstein(MT5458)m055) wrote:
>
>>
>> PerlModule Apache::EmbperlFilter Apache::SSI
>> <FilesMatch "\.epl">
>> PerlSetVar Filter On
>> PerlHandler Apache::EmbperlFilter Apache::SSI
>> </FilesMatch>
>
>Okay - I give. I think I may be hitting a bug in Apache::SSI, or something.
>I turned of Filter and removed the chained handlers so had just
> PerlHandler Apache::SSI
>
>and still the line in my file that looks like
> <!--#perl sub="Apache::Peopledata" arg="name" arg="Unknown person"-->
>
>fails and give the following error (I turned on Debug in SSI):
>
>returning $self->ssi_perl(sub="Apache::Peopledata" arg="name" arg="Unknown person")
>at /opt1/perl/lib/site_perl/Apache/SSI.pm line 117.
>args are sub,Apache::Peopledata,arg,name,arg,Unknown person at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 119.
>sub is Apache::Peopledata, args are name Unknown person & at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 287.
>sub is CODE(0x55d75c), args are Apache=SCALAR(0x1d3c20) name Unknown person & at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 303.
>[Fri Feb 18 16:40:57 2000] [error] Undefined subroutine &Apache::Peopledata called
>at /opt1/perl/lib/site_perl/Apache/SSI.pm line 304.
>
>
>Same construct works under mod_include. THe Peopledata.pm has a
> sub handler {
>
>which is not exported or anything - is that my problem??
>
> Help? THanks much,
> Bob Waldstein wald@lucent.com
>

------------------- -------------------
Ken Williams Last Bastion of Euclidity
ken@forum.swarthmore.edu The Math Forum

Yes, that's the problem. You can change the line to:

<!--#perl sub="Apache::Peopledata::handler" arg="name" arg="Unknown person"-->



wald@library.ho.lucent.com (PDS[A]-Robert Waldstein(MT5458)m055) wrote:
>
>>
>> PerlModule Apache::EmbperlFilter Apache::SSI
>> <FilesMatch "\.epl">
>> PerlSetVar Filter On
>> PerlHandler Apache::EmbperlFilter Apache::SSI
>> </FilesMatch>
>
>Okay - I give. I think I may be hitting a bug in Apache::SSI, or something.
>I turned of Filter and removed the chained handlers so had just
> PerlHandler Apache::SSI
>
>and still the line in my file that looks like
> <!--#perl sub="Apache::Peopledata" arg="name" arg="Unknown person"-->
>
>fails and give the following error (I turned on Debug in SSI):
>
>returning $self->ssi_perl(sub="Apache::Peopledata" arg="name" arg="Unknown person")
>at /opt1/perl/lib/site_perl/Apache/SSI.pm line 117.
>args are sub,Apache::Peopledata,arg,name,arg,Unknown person at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 119.
>sub is Apache::Peopledata, args are name Unknown person & at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 287.
>sub is CODE(0x55d75c), args are Apache=SCALAR(0x1d3c20) name Unknown person & at
>/opt1/perl/lib/site_perl/Apache/SSI.pm line 303.
>[Fri Feb 18 16:40:57 2000] [error] Undefined subroutine &Apache::Peopledata called
>at /opt1/perl/lib/site_perl/Apache/SSI.pm line 304.
>
>
>Same construct works under mod_include. THe Peopledata.pm has a
> sub handler {
>
>which is not exported or anything - is that my problem??
>
> Help? THanks much,
> Bob Waldstein wald@lucent.com
>

------------------- -------------------
Ken Williams Last Bastion of Euclidity
ken@forum.swarthmore.edu The Math Forum