|
version 1.181, 2020/10/26 01:52:15
|
version 1.182, 2020/12/18 15:23:03
|
|
Line 605 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 848 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