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-reset | |
parent | 83eb68cd59af488d57c23b653f44a7ae9aa4a753 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'FS/bin/freeside-sqlradius-reset')
-rwxr-xr-x | FS/bin/freeside-sqlradius-reset | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/bin/freeside-sqlradius-reset b/FS/bin/freeside-sqlradius-reset index b04c640d8..225de15be 100755 --- a/FS/bin/freeside-sqlradius-reset +++ b/FS/bin/freeside-sqlradius-reset @@ -3,6 +3,7 @@ use strict; use vars qw( $opt_n ); use Getopt::Std; +use FS::DBI; use FS::UID qw(adminsuidsetup); use FS::Record qw(qsearch qsearchs); use FS::part_export; @@ -31,9 +32,9 @@ if ( @ARGV ) { unless ( $opt_n ) { foreach my $export ( @exports ) { - my $icradius_dbh = DBI->connect( + my $icradius_dbh = FS::DBI->connect( map { $export->option($_) } qw( datasrc username password ) - ) or die $DBI::errstr; + ) or die $FS::DBI::errstr; my $usergroup = $export->option('usergroup') || 'usergroup'; my @attr_tables; @attr_tables = qw( radgroupcheck radgroupreply ) |