oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed ip groups to support more ip addresses and be more forgiving about formatting.

Browse source
This commit is contained in:
JT Smith 2003-02-21 04:20:25 +00:00
parent 73ff7fb959
commit de1d5834ac
3 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Privilege.pm
View file

@ -236,6 +236,10 @@ sub isInGroup {
%group = WebGUI::SQL->quickHash("select karmaThreshold,ipFilter from groups where groupId='$gid'");
### Check IP Address
if ($group{ipFilter} ne "") {
$group{ipFilter} =~ s/\t//g;
$group{ipFilter} =~ s/\r//g;
$group{ipFilter} =~ s/\n//g;
$group{ipFilter} =~ s/\s//g;
my @ips = split(";",$group{ipFilter});
foreach my $ip (@ips) {
if ($session{env}{REMOTE_ADDR} =~ /^$ip/) {