diff options
author | Mark Wells <mark@freeside.biz> | 2013-07-03 10:53:51 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-07-03 10:53:51 -0700 |
commit | 17e015204a59378ef243e685b5dd849835ee1b4f (patch) | |
tree | 7d900149ba565f1ab4866eec2ba6b631b1c820f2 /bin/sqlradius-reexport-group | |
parent | 2a95a4cd4d79dcf1450e8ff3ee63b82c1416cc8d (diff) |
sqlradius-reexport-group tool
Diffstat (limited to 'bin/sqlradius-reexport-group')
-rwxr-xr-x | bin/sqlradius-reexport-group | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/bin/sqlradius-reexport-group b/bin/sqlradius-reexport-group new file mode 100755 index 000000000..a60e47126 --- /dev/null +++ b/bin/sqlradius-reexport-group @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use FS::UID 'adminsuidsetup'; +use FS::Record qw( qsearch ); +use FS::part_export; +use FS::radius_group; + +my ($user, $exportnum, $group) = @ARGV; +my $dbh = adminsuidsetup($user) or die; +$FS::UID::AutoCommit = 0; +my $radius_group; +if ( $group =~ /^\d+$/ ) { + $radius_group = FS::radius_group->by_key($group); +} else { + $radius_group = qsearchs('radius_group',{'groupname' => $group}); +} +die "no radius group $group" unless $radius_group; + +my @attrs = qsearch('radius_attr', {groupnum => $radius_group->groupnum}); +foreach my $attr (@attrs) { + print $attr->attrname."\n"; + my $error = $export->export_attr_insert($attr); + die $error if $error; +} + |