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:53:52 -0500 |
commit | d417ecbed3d356919ae80317c33a9143e20646ef (patch) | |
tree | dae9e8e397baba64f43852eedbcd8cfd3250776c /bin/sqlradius-norealm.reimport | |
parent | 863879eae9bc840432b09750eae6e552e9bbe205 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'bin/sqlradius-norealm.reimport')
-rwxr-xr-x | bin/sqlradius-norealm.reimport | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/sqlradius-norealm.reimport b/bin/sqlradius-norealm.reimport index b7d016609..7ac7465f8 100755 --- a/bin/sqlradius-norealm.reimport +++ b/bin/sqlradius-norealm.reimport @@ -3,7 +3,7 @@ use strict; use vars qw(%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); @@ -53,8 +53,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 FROM radcheck') or die $dbh->errstr; |