Hi,
I don't have used EmbperlChain on my own, so I can't tell you what's wrong,
but you can use Embperl's Execute method to get the same result:
>....
> unless(-r _){
> $r->log_error("File Access Denied to $filename");
> return FORBIDDEN;
> }
>
$r->send_http_header;
my $out ;
HTML::Embperl::Execute({inputfile => $filename, output => \$out}) ;
$out =~ s{www\.inns\.net}{inns\.mrbrklyn\.com}io;
print $out ;
>
> return OK;
> }
>
> 1;
>
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
