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

remove WebGUI::Utility::isInSubnet

Browse source
This commit is contained in:
Graham Knop 2010-08-24 16:00:16 -05:00
parent a3e08c3b8e
commit ca7321f068
8 changed files with 15 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Group.pm
View file

@ -23,6 +23,7 @@ require WebGUI::Asset;
use WebGUI::International;
use WebGUI::DatabaseLink;
use Scalar::Util qw( weaken );
use Net::CIDR::Lite;
=head1 NAME
@ -773,7 +774,7 @@ sub getIpUsers {
my @ipUsers = ();
while (my ($userId, $lastIP) = $sth->array() ) {
if (!exists $localCache{$lastIP}) {
$localCache{$lastIP} = isInSubnet($lastIP, \@filters);
$localCache{$lastIP} = Net::CIDR::Lite->new(@filters)->find($lastIP);
}
push @ipUsers, $userId if $localCache{$lastIP};
}
@ -1082,7 +1083,7 @@ sub hasIpUser {
);
foreach my $ip (@ips) {
return 1 if (isInSubnet($ip,\@filters));
return 1 if Net::CIDR::Lite->new(@filters)->find($ip);
}
return 0;