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 |