RE: PerlResponseHandler ignored

[Cristi Barladeanu]

 
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: 'modperl@perl.apache.org'
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