projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
[freeside.git]
/
bin
/
sqlradius.import
diff --git
a/bin/sqlradius.import
b/bin/sqlradius.import
old mode 100644
(file)
new mode 100755
(executable)
index
587d828
..
69361e8
--- a/
bin/sqlradius.import
+++ b/
bin/sqlradius.import
@@
-3,7
+3,7
@@
use strict;
use vars qw(%part_svc %domain_part_svc);
#use Date::Parse;
use strict;
use vars qw(%part_svc %domain_part_svc);
#use Date::Parse;
-use DBI;
+use
FS::
DBI;
use Term::Query qw(query);
use FS::UID qw(adminsuidsetup); #datasrc
use FS::Record qw(qsearch qsearchs);
use Term::Query qw(query);
use FS::UID qw(adminsuidsetup); #datasrc
use FS::Record qw(qsearch qsearchs);
@@
-74,8
+74,8
@@
print "\n\n";
###
###
-my $dbh = DBI->connect( $datasrc, $db_user, $db_pass )
- or die $DBI::errstr;
+my $dbh =
FS::
DBI->connect( $datasrc, $db_user, $db_pass )
+ or die $
FS::
DBI::errstr;
my $sth = $dbh->prepare('SELECT DISTINCT UserName, Realm FROM radcheck')
or die $dbh->errstr;
my $sth = $dbh->prepare('SELECT DISTINCT UserName, Realm FROM radcheck')
or die $dbh->errstr;
@@
-116,8
+116,8
@@
while ( defined ( $row = $sth->fetchrow_arrayref ) ) {
$rc_sth->execute($r_username, $realm) or die $rc_sth->errstr;
foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
$rc_sth->execute($r_username, $realm) or die $rc_sth->errstr;
foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
- my($attribute, $value, $name, $groupname) = @$row;
- if ( $attribute =~ /^(
Crypt
-)?Password$/ ) {
+ my($attribute, $value, $name, $groupname) = @$r
c_r
ow;
+ if ( $attribute =~ /^(
(User|Crypt)
-)?Password$/ ) {
$password = $value;
$finger = $name;
$group = $groupname;
$password = $value;
$finger = $name;
$group = $groupname;