version 1.180, 2020/10/16 23:27:45
|
version 1.182, 2020/12/18 15:23:03
|
Line 469 sub handler {
|
Line 469 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 604 ENDSCRIPT
|
Line 605 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 847 sub check_loginvia {
|
Line 848 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 {
|