Hello everyone

I've just started learning modperl and I started with a simple module
for apache httpd 1.3.22.
This simple module (see below) sets & gets a cookie at every request.
I thought it wasn't too difficult. I put it into the fixup phase (any 
problem with it?).
First it seemed to work, but when I put a 'print STDERR' line in it, I
saw that my script ran many times on one request.

Thanks in advance

czinkos

ps: I've searched the archives but I didn't find anything.



--------
Here's my config in httpd.conf

...

PerlFreshRestart On
PerlModule SetMyCookies
PerlFixupHandler SetMyCookies

...

-------
Here's my simple script:

package SetMyCookies;

use Apache;
use Apache::Constants;
use Apache::Cookie();

sub handler {

my $r = shift;

     $c = $r->header_in("Cookie");

    local(@rawCookies) = split (/; /,$c);
    local(%cookies);
    foreach(@rawCookies){
        ($key, $val) = split (/=/,$_);
        $cookies{$key} = $val;
    }
            
    foreach $name (keys %cookies) {
        print STDERR "$name = $cookies{$name}\n";
    }

    my $cookie = Apache::Cookie->new($r,
        -name   => 'lofos',
        -value  => 'lofos13',
        -expires=> '+24M',
        -path => '/'
    );

    $r->header_out("Set-Cookie",$cookie->as_string);

    return OK;
}
1;

---------------
And here's the error_log on one request:

kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534
kakukk = kukka234534

Reply via email to