diff options
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 |