version 1.172, 2018/01/12 15:26:39
|
version 1.173, 2018/07/04 16:58:19
|
Line 86 sub handler {
|
Line 86 sub handler {
|
-expires => '-10y',);
|
-expires => '-10y',);
|
$r->header_out('Set-cookie' => $c);
|
$r->header_out('Set-cookie' => $c);
|
} elsif (($handle eq '') && ($userdom ne '')) {
|
} elsif (($handle eq '') && ($userdom ne '')) {
|
my $c = new CGI::Cookie(-name => 'lonID',
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
|
-value => '',
|
foreach my $name (keys(%cookies)) {
|
-expires => '-10y',);
|
next unless ($name =~ /^lon(|S|Link|Pub)ID$/);
|
$r->headers_out->add('Set-cookie' => $c);
|
my $c = new CGI::Cookie(-name => $name,
|
|
-value => '',
|
|
-expires => '-10y',);
|
|
$r->headers_out->add('Set-cookie' => $c);
|
|
}
|
}
|
}
|
$r->send_http_header;
|
$r->send_http_header;
|
return OK if $r->header_only;
|
return OK if $r->header_only;
|