Return to lonhomework.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.268.2.1, 2007/09/06 14:41:00 | version 1.268.2.2, 2007/09/21 17:25:58 |
---|---|
Line 196 sub check_ip_acc { | Line 196 sub check_ip_acc { |
return 1; | return 1; |
} | } |
my $allowed=0; | my $allowed=0; |
my $ip=$ENV{'REMOTE_ADDR'}; | my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
my $name; | my $name; |
foreach my $pattern (split(',',$acc)) { | foreach my $pattern (split(',',$acc)) { |
$pattern =~ s/^\s*//; | $pattern =~ s/^\s*//; |