fixed an ip filter problem

This commit is contained in:
JT Smith 2003-06-06 15:12:25 +00:00
parent 1e3c97a477
commit 4c5886503f

View file

@ -241,6 +241,7 @@ sub isInGroup {
$group{ipFilter} =~ s/\r//g;
$group{ipFilter} =~ s/\n//g;
$group{ipFilter} =~ s/\s//g;
$group{ipFilter} =~ s/\./\\\./g;
my @ips = split(";",$group{ipFilter});
foreach my $ip (@ips) {
if ($session{env}{REMOTE_ADDR} =~ /^$ip/) {