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() --- FS/bin/freeside-sqlradius-dedup-group | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'FS/bin/freeside-sqlradius-dedup-group') diff --git a/FS/bin/freeside-sqlradius-dedup-group b/FS/bin/freeside-sqlradius-dedup-group index 441d50f62..c6497a051 100755 --- a/FS/bin/freeside-sqlradius-dedup-group +++ b/FS/bin/freeside-sqlradius-dedup-group @@ -3,6 +3,7 @@ use strict; use vars qw( %seen @dups ); use Getopt::Std; +use FS::DBI; use FS::UID qw(adminsuidsetup); use FS::Record qw(qsearch qsearchs); use FS::part_export; @@ -28,7 +29,7 @@ if ( !defined($export_x) ) { or die "No sqlradius exports specified."; foreach my $part_export ( @part_export ) { - my $dbh = DBI->connect( map $part_export->option($_), + my $dbh = FS::DBI->connect( map $part_export->option($_), qw ( datasrc username password ) ); my $sth = $dbh->prepare("SELECT id,username,groupname -- cgit v1.2.1