projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8fbc05b
)
make sqlradius-reexport-group functional
author
Mark Wells
<mark@freeside.biz>
Thu, 11 Jul 2013 20:40:13 +0000
(13:40 -0700)
committer
Mark Wells
<mark@freeside.biz>
Thu, 11 Jul 2013 20:40:13 +0000
(13:40 -0700)
bin/sqlradius-reexport-group
patch
|
blob
|
history
diff --git
a/bin/sqlradius-reexport-group
b/bin/sqlradius-reexport-group
index
a60e471
..
70a517c
100644
(file)
--- a/
bin/sqlradius-reexport-group
+++ b/
bin/sqlradius-reexport-group
@@
-1,11
+1,16
@@
#!/usr/bin/perl
use FS::UID 'adminsuidsetup';
#!/usr/bin/perl
use FS::UID 'adminsuidsetup';
-use FS::Record qw( qsearch );
+use FS::Record qw( qsearch
qsearchs
);
use FS::part_export;
use FS::radius_group;
my ($user, $exportnum, $group) = @ARGV;
use FS::part_export;
use FS::radius_group;
my ($user, $exportnum, $group) = @ARGV;
+die "usage:
+sqlradius-reexport-group <username> <exportnum> <group>
+" unless $user and $exportnum and $group;
+
+
my $dbh = adminsuidsetup($user) or die;
$FS::UID::AutoCommit = 0;
my $radius_group;
my $dbh = adminsuidsetup($user) or die;
$FS::UID::AutoCommit = 0;
my $radius_group;
@@
-16,6
+21,9
@@
if ( $group =~ /^\d+$/ ) {
}
die "no radius group $group" unless $radius_group;
}
die "no radius group $group" unless $radius_group;
+my $export = FS::part_export->by_key($exportnum)
+ or die "no export with exportnum '$exportnum'";
+
my @attrs = qsearch('radius_attr', {groupnum => $radius_group->groupnum});
foreach my $attr (@attrs) {
print $attr->attrname."\n";
my @attrs = qsearch('radius_attr', {groupnum => $radius_group->groupnum});
foreach my $attr (@attrs) {
print $attr->attrname."\n";
@@
-23,3
+31,4
@@
foreach my $attr (@attrs) {
die $error if $error;
}
die $error if $error;
}
+$dbh->commit;