![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to lonhomework.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.157, 2003/11/08 10:44:58 | version 1.158, 2003/12/08 20:33:30 |
|---|---|
| Line 174 sub check_ip_acc { | Line 174 sub check_ip_acc { |
| use Socket; | use Socket; |
| my $netaddr=inet_aton($ip); | my $netaddr=inet_aton($ip); |
| ($name)=gethostbyaddr($netaddr,AF_INET); | ($name)=gethostbyaddr($netaddr,AF_INET); |
| } | } |
| if ($name =~ /\Q$pattern\E$/i) { $allowed=1; } | if ($name =~ /\Q$pattern\E$/i) { $allowed=1; } |
| } elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) { | } elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) { |
| #127.0.0.1 | #127.0.0.1 |