projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 83122 Fix update tool to properly display caught error
[freeside.git]
/
FS
/
bin
/
freeside-sqlradius-dedup-group
diff --git
a/FS/bin/freeside-sqlradius-dedup-group
b/FS/bin/freeside-sqlradius-dedup-group
index
441d50f
..
c6497a0
100755
(executable)
--- 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 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;
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 ) {
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
qw ( datasrc username password ) );
my $sth = $dbh->prepare("SELECT id,username,groupname