version 1.158.2.8, 2019/08/01 14:21:37
|
version 1.158.2.9, 2019/08/04 12:18:44
|
Line 76 sub handler {
|
Line 76 sub handler {
|
&Apache::lonlocal::get_language_handle($r); |
&Apache::lonlocal::get_language_handle($r); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
if ($expirepub) { |
if ($expirepub) { |
my $c = new CGI::Cookie(-name => 'lonID', |
my $c = new CGI::Cookie(-name => 'lonPubID', |
-value => '', |
-value => '', |
-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; |