Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Nigel Kukard
smradius
Commits
85814f63
Commit
85814f63
authored
Sep 10, 2016
by
Nigel Kukard
Browse files
Fixed new CLASS to CLASS->new
parent
57bded4d
Changes
1
Show whitespace changes
Inline
Side-by-side
smradius/modules/system/mod_config_sql.pm
View file @
85814f63
# SQL config database support
# Copyright (C) 2007-201
1
, AllWorldIT
# Copyright (C) 2007-201
6
, AllWorldIT
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
...
...
@@ -264,7 +264,6 @@ sub getConfig
# Grab peer address object
my
$peerAddrObj
=
AWITPT::
NetIP
->
new
(
$server
->
{'
server
'}{'
peeraddr
'});
# Check if we know this client
my
@accessList
;
while
(
my
$row
=
$sth
->
fetchrow_hashref
())
{
...
...
@@ -274,7 +273,7 @@ sub getConfig
@accessList
=
split
('
,
',
$res
->
{'
AccessList
'});
# Loop with what we get and check if we have match
foreach
my
$range
(
@accessList
)
{
my
$rangeObj
=
new
AWITPT::
NetIP
->
new
(
$range
);
my
$rangeObj
=
AWITPT::
NetIP
->
new
(
$range
);
# Check for match
if
(
$peerAddrObj
->
is_within
(
$rangeObj
))
{
$clientID
=
$res
->
{'
ID
'};
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment