loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.171, 2017/09/25 00:36:30	version 1.173, 2018/07/04 16:58:19
Line 51 sub handler {	Line 51 sub handler {
if (!defined($env{'form.firsturl'})) {	if (!defined($env{'form.firsturl'})) {
&Apache::lonacc::get_posted_cgi($r,['firsturl']);	&Apache::lonacc::get_posted_cgi($r,['firsturl']);
}	}
	if (!defined($env{'form.firsturl'})) {
	if ($ENV{'REDIRECT_URL'} =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$}) {
	$env{'form.firsturl'} = $ENV{'REDIRECT_URL'};
	}
	}

# -- check if they are a migrating user	# -- check if they are a migrating user
if (defined($env{'form.token'})) {	if (defined($env{'form.token'})) {
Line 81 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;