version 1.34, 2004/02/02 18:50:21
|
version 1.35, 2004/08/23 18:57:16
|
Line 79 sub handler {
|
Line 79 sub handler {
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $lonid=$cookies{'lonID'}; |
my $lonid=$cookies{'lonID'}; |
my $cookie; |
my $cookie; |
|
&Apache::lonnet::logthis("Wha? cookie"); |
if ($lonid) { |
if ($lonid) { |
|
&Apache::lonnet::logthis("Valid cookie"); |
my $handle=$lonid->value; |
my $handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
Line 118 sub handler {
|
Line 120 sub handler {
|
|
|
return OK; |
return OK; |
} else { |
} else { |
|
&Apache::lonnet::logthis("Invalid cookie"); |
$r->log_reason("Cookie $handle not valid", $r->filename) |
$r->log_reason("Cookie $handle not valid", $r->filename) |
}; |
}; |
} |
} |