![[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|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.1075.2.110, 2016/08/31 20:54:41 | version 1.1075.2.111, 2016/09/01 01:27:25 |
|---|---|
| Line 4691 sub check_ip_acc { | Line 4691 sub check_ip_acc { |
| return 1; | return 1; |
| } | } |
| my $allowed=0; | my $allowed=0; |
| my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'} || $clientip; | my $ip=$ENV{'REMOTE_ADDR'} || $clientip || $env{'request.host'}; |
| my $name; | my $name; |
| foreach my $pattern (split(',',$acc)) { | foreach my $pattern (split(',',$acc)) { |