From fcce61390d750f98bd82e84d4664ae9c03202be2 Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Sun, 3 Mar 2019 20:34:23 -0500 Subject: RT# 82942 Replace DBI->connect() with FS::DBI->connect() --- bin/sqlradius.import | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin/sqlradius.import') diff --git a/bin/sqlradius.import b/bin/sqlradius.import index e75f65b17..69361e864 100755 --- 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 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