summaryrefslogtreecommitdiff
path: root/FS/bin/freeside-sqlradius-reset
diff options
context:
space:
mode:
authorMitch Jackson <mitch@freeside.biz>2019-03-03 20:34:23 -0500
committerMitch Jackson <mitch@freeside.biz>2019-03-03 20:34:23 -0500
commitfcce61390d750f98bd82e84d4664ae9c03202be2 (patch)
tree2907bbfc0b65d09d0e15255c0d260f227746e70f /FS/bin/freeside-sqlradius-reset
parent83eb68cd59af488d57c23b653f44a7ae9aa4a753 (diff)
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'FS/bin/freeside-sqlradius-reset')
-rwxr-xr-xFS/bin/freeside-sqlradius-reset5
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 )