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

3
lib/WebGUI/User.pm
View file

@ -22,6 +22,7 @@ use JSON ();
use WebGUI::ProfileField;
use Tie::CPHash;
use Scalar::Util qw( weaken );
use Net::CIDR::Lite;
=head1 NAME
@ -299,7 +300,7 @@ sub canUseAdminMode {
my $pass = 1;
my $subnets = $self->session->config->get("adminModeSubnets") || [];
if (scalar(@$subnets)) {
$pass = WebGUI::Utility::isInSubnet($self->session->request->address, $subnets);
$pass = Net::CIDR::Lite->new(@$subnets)->find($self->session->request->address);
}
return $pass && $self->isInGroup(12)