Return to lonhomework.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.232, 2005/12/22 22:06:54 | version 1.233, 2006/02/10 18:36:37 |
---|---|
Line 198 sub check_ip_acc { | Line 198 sub check_ip_acc { |
my $ip=$ENV{'REMOTE_ADDR'}; | my $ip=$ENV{'REMOTE_ADDR'}; |
my $name; | my $name; |
foreach my $pattern (split(',',$acc)) { | foreach my $pattern (split(',',$acc)) { |
$pattern =~ s/^\s*//; | |
$pattern =~ s/\s*$//; | |
if ($pattern =~ /\*$/) { | if ($pattern =~ /\*$/) { |
#35.8.* | #35.8.* |
$pattern=~s/\*//; | $pattern=~s/\*//; |