loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.188, 2021/02/10 11:35:40	version 1.190, 2021/05/04 18:47:37
Line 349 sub sso_login {	Line 349 sub sso_login {
my $lowest_load;	my $lowest_load;
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain);	($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain);
if ($lowest_load > 100) {	if ($lowest_load > 100) {
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$domain);	$otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$domain);
}	}
if ($otherserver ne '') {	if ($otherserver ne '') {
my @hosts = &Apache::lonnet::current_machine_ids();	my @hosts = &Apache::lonnet::current_machine_ids();
Line 559 sub handler {	Line 559 sub handler {
my $hostname = $r->hostname();	my $hostname = $r->hostname();
my $lonhost = &Apache::lonnet::host_from_dns($hostname);	my $lonhost = &Apache::lonnet::host_from_dns($hostname);
if ($lonhost) {	if ($lonhost) {
my $actual = &Apache::lonnet::absolute_url($hostname);	my $actual = &Apache::lonnet::absolute_url($hostname,1,1);
my $exphostname = &Apache::lonnet::hostname($lonhost);	my $exphostname = &Apache::lonnet::hostname($lonhost);
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;	my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;
unless ($actual eq $expected) {	unless ($actual eq $expected) {