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