From 01776c9e52c63662403dcb19155ffe3bc8a035ee Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Sun, 3 Mar 2019 19:42:10 -0500 Subject: RT# 82942 Replace DBI->connect() with FS::DBI->connect() --- bin/sqlradius.reimport | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin/sqlradius.reimport') 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; -- cgit v1.2.1