loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.158.2.9.2.2, 2020/10/26 02:06:16	version 1.158.2.10, 2020/10/24 19:49:06
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 377 sub handler {	Line 372 sub handler {
next if ($hostid eq $lonhost);	next if ($hostid eq $lonhost);
my $hostname = &Apache::lonnet::hostname($hostid);	my $hostname = &Apache::lonnet::hostname($hostid);
next if (($hostname eq '') \|\| ($spareservers{$hostname}));	next if (($hostname eq '') \|\| ($spareservers{$hostname}));
$spareservers{$hostname} = 1;
my $protocol = $Apache::lonnet::protocol{$hostid};	my $protocol = $Apache::lonnet::protocol{$hostid};
$protocol = 'http' if ($protocol ne 'https');	$protocol = 'http' if ($protocol ne 'https');
$spares.='<br /><a href="'.$protocol.'://'.	$spares.='<br /><a href="'.$protocol.'://'.