diff options
author | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:42:10 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:49:20 -0500 |
commit | 01776c9e52c63662403dcb19155ffe3bc8a035ee (patch) | |
tree | 53d6e06b849ae5089f43e3b61998dc9b4d627760 /bin/sqlradius.reimport | |
parent | 70e31cdfd01949235897035ad818e9a7b2d0c958 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'bin/sqlradius.reimport')
-rwxr-xr-x | bin/sqlradius.reimport | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/sqlradius.reimport b/bin/sqlradius.reimport index 2218a3f13..2ae78df82 100755 --- a/bin/sqlradius.reimport +++ b/bin/sqlradius.reimport @@ -3,7 +3,7 @@ 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); @@ -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; |