On Fri, 5 Jan 2001, James Hall wrote:
> [snip]
>     $user=$query->param('login');
>     $password=$query->param('pass');

Okay, there's your problem. You may want to try it this way:

use CGI::Cookie;
...
    my %cookies = CGI::Cookie->parse($r->header_in('Cookie')):
    my $user = $cookies{'login'};
    my $password = $cookies{'pass'};

For more info on how to work with cookies in mod_perl, check the eagle
book. Also note that if you're going to do a redirect and set cookies at
the same time, you have to put the cookies into $r->err_header, since
$r->header doesn't get sent for "error" conditions like redirects.

HTH,

Steve

Reply via email to