|
version 1.1075.2.127.6.1, 2019/03/02 16:25:45
|
version 1.1075.2.127.6.2, 2020/02/19 23:36:09
|
|
Line 4946 sub check_ip_acc {
|
Line 4946 sub check_ip_acc {
|
| if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) { |
if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) { |
| return 1; |
return 1; |
| } |
} |
| my $allowed; |
my ($ip,$allowed); |
| my $ip=$ENV{'REMOTE_ADDR'} || $clientip || $env{'request.host'}; |
if (($ENV{'REMOTE_ADDR'} eq '127.0.0.1') || |
| |
($ENV{'REMOTE_ADDR'} eq &Apache::lonnet::get_host_ip($Apache::lonnet::perlvar{'lonHostID'}))) { |
| |
$ip = $env{'request.host'} || $ENV{'REMOTE_ADDR'} || $clientip; |
| |
} else { |
| |
$ip = $ENV{'REMOTE_ADDR'} || $env{'request.host'} || $clientip; |
| |
} |
| |
|
| my $name; |
my $name; |
| my %access = ( |
my %access = ( |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface