diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:42:10 -0500 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:49:20 -0500 |
| commit | 01776c9e52c63662403dcb19155ffe3bc8a035ee (patch) | |
| tree | 53d6e06b849ae5089f43e3b61998dc9b4d627760 /FS/bin/freeside-sqlradius-reset | |
| parent | 70e31cdfd01949235897035ad818e9a7b2d0c958 (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 ) |