loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;