loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;