diff options
author | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 20:34:23 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 20:34:23 -0500 |
commit | fcce61390d750f98bd82e84d4664ae9c03202be2 (patch) | |
tree | 2907bbfc0b65d09d0e15255c0d260f227746e70f /FS/bin/freeside-sqlradius-dedup-group | |
parent | 83eb68cd59af488d57c23b653f44a7ae9aa4a753 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'FS/bin/freeside-sqlradius-dedup-group')
-rwxr-xr-x | FS/bin/freeside-sqlradius-dedup-group | 3 |
1 files changed, 2 insertions, 1 deletions
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 |