version 1.158.2.10, 2020/10/24 19:49:06
|
version 1.158.2.12, 2021/01/04 03:49:10
|
Line 372 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.'://'. |
Line 502 ENDSCRIPT
|
Line 503 ENDSCRIPT
|
my $omitextra; |
my $omitextra; |
if ($headextra_exempt ne '') { |
if ($headextra_exempt ne '') { |
my @exempt = split(',',$headextra_exempt); |
my @exempt = split(',',$headextra_exempt); |
my $ip = $ENV{'REMOTE_ADDR'}; |
my $ip = &Apache::lonnet::get_requestor_ip(); |
if (grep(/^\Q$ip\E$/,@exempt)) { |
if (grep(/^\Q$ip\E$/,@exempt)) { |
$omitextra = 1; |
$omitextra = 1; |
} |
} |
Line 745 sub check_loginvia {
|
Line 746 sub check_loginvia {
|
my $output; |
my $output; |
if ($loginvia ne '') { |
if ($loginvia ne '') { |
my $noredirect; |
my $noredirect; |
my $ip = $ENV{'REMOTE_ADDR'}; |
my $ip = &Apache::lonnet::get_requestor_ip(); |
if ($ip eq '127.0.0.1') { |
if ($ip eq '127.0.0.1') { |
$noredirect = 1; |
$noredirect = 1; |
} else { |
} else { |