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 /bin/sqlradius-nas.import | |
| parent | 70e31cdfd01949235897035ad818e9a7b2d0c958 (diff) | |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'bin/sqlradius-nas.import')
| -rwxr-xr-x | bin/sqlradius-nas.import | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/sqlradius-nas.import b/bin/sqlradius-nas.import index 0583272db..1a34c8a2b 100755 --- a/bin/sqlradius-nas.import +++ b/bin/sqlradius-nas.import @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use DBI; +use FS::DBI; use FS::UID qw(adminsuidsetup); #datasrc use FS::Record qw(qsearch qsearchs dbh); use FS::nas; @@ -22,7 +22,7 @@ my $part_export = qsearchs('part_export', { exportnum => $exportnum }) $part_export->isa('FS::part_export::sqlradius') or die "export $exportnum is not an sqlradius export.\n"; -my $raddbh = DBI->connect( +my $raddbh = FS::DBI->connect( $part_export->option('datasrc'), $part_export->option('username'), $part_export->option('password') |