![[BACK]](/icons/back.gif){kind=icon}
Return to lonauthcgi.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi|
Return to lonauthcgi.pm CVS log | Up to [LON-CAPA] / loncom / cgi |
| version 1.14.2.1, 2019/02/03 22:10:43 | version 1.14.2.2, 2021/01/04 03:57:04 |
|---|---|
| Line 92 sub check_ipbased_access { | Line 92 sub check_ipbased_access { |
| my ($page,$ip) = @_; | my ($page,$ip) = @_; |
| my $allowed; | my $allowed; |
| if (!defined($ip)) { | if (!defined($ip)) { |
| $ip = $ENV{'REMOTE_ADDR'}; | $ip = &Apache::lonnet::get_requestor_ip(); |
| } | } |
| if ($ip eq '127.0.0.1') { | if ($ip eq '127.0.0.1') { |
| $allowed = 1; | $allowed = 1; |