Hello,
I come back with more details. This is my complete conf in Apache's
sites-enabled:
--------------------------------------------------
NameVirtualHost *
<VirtualHost *>
ServerAdmin [EMAIL PROTECTED]
DocumentRoot /var/www/
<Directory />
Options FollowSymLinks
AllowOverride None
</Directory>
ErrorLog /var/log/apache2/error.log
# Possible values include: debug, info, notice, warn, error, crit,
# alert, emerg.
LogLevel warn
CustomLog /var/log/apache2/access.log combined
ServerSignature On
PerlTransHandler +Dacia::RewriteURI
<Location "/">
Order deny,allow
allow from all
SetHandler perl-script
PerlResponseHandler Dacia::Response
</Location>
RewriteEngine On
RewriteMap vhostmatch txt:/etc/apache2/vhostmatch.map
RewriteMap vhostRW txt:/etc/apache2/vhostRW.map
RewriteMap lowercase int:tolower
RewriteCond ${vhostmatch:${lowercase:%{SERVER_NAME}}} ^(/.*)$
RewriteRule ^/(.*)
http://10.10.10.249:10000/VirtualHostBase/http/%{HTTP_HOST}:80/${vhostRW:${lowercase:%{SERVER_NAME}}}/VirtualHostRoot/$1
[L,P]
</VirtualHost>
-------------------------------------------------------------
Thank you,
Cristi
--
Cristi Barladeanu
Developer
GRAPEFRUIT
tel/fax: +40 232 233066, 233068
mobile: +40 724 363640
www.grapefruit.ro
-----Original Message-----
From: Cristi Barladeanu [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 03, 2006 6:40 PM
To: '[email protected]'
Subject: PerlResponseHandler ignored
Hello,
I've tried to use one of the examples found in the mod_perl docs, but the
PerlResponseHandler is not taken into consideration.
My Perl module is:
---------------------------------------------------
package Testing::Response;
use strict;
use Apache2::RequestRec (); # for $r->content_type use Apache2::RequestIO ();
# for $r->print
use Apache2::Const -compile => ':common';
sub handler {
my $r = shift;
$r->content_type('text/plain');
$r->subprocess_env;
for (sort keys %ENV){
$r->print("$_ => $ENV{$_}\n");
}
return Apache2::Const::OK;
}
1;
-----------------------------------------------------
With the httpd config:
-----------------------------------------------------
<Location />
Order deny,allow
allow from all
SetHandler perl-script
PerlResponseHandler Testing::Response </Location>
-----------------------------------------------------
Still, my Apache sends it's content as the filter doesn't even exists.
What am I missing here?
Thank you,
Cristi
--
Cristi Barladeanu
Developer
GRAPEFRUIT
tel/fax: +40 232 233066, 233068
mobile: +40 724 363640
www.grapefruit.ro
