|
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 {
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth