loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.121.2.19, 2020/05/02 15:29:40	version 1.121.2.20, 2020/10/23 21:21:44
Line 538 sub handler {	Line 538 sub handler {
($is_balancer,$otherserver) =	($is_balancer,$otherserver) =
&Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'},'login');	&Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'},'login');
if ($is_balancer) {	if ($is_balancer) {
	# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer)
	my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r);
	if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) {
	$otherserver = $found_server;
	}
if ($otherserver eq '') {	if ($otherserver eq '') {
my $lowest_load;	my $lowest_load;
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($form{'udom'});	($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($form{'udom'});
Line 570 sub handler {	Line 575 sub handler {
}	}
$r->internal_redirect($switchto);	$r->internal_redirect($switchto);
} else {	} else {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
$r->print(&noswitch());	$r->print(&noswitch());
}	}
return OK;	return OK;
Line 591 sub handler {	Line 598 sub handler {
}	}
$r->internal_redirect($switchto);	$r->internal_redirect($switchto);
} else {	} else {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
$r->print(&noswitch());	$r->print(&noswitch());
}	}
return OK;	return OK;