bin/sqlradius-reexport-group

   1 #!/usr/bin/perl
   2
   3 use FS::UID 'adminsuidsetup';
   4 use FS::Record qw( qsearch );
   5 use FS::part_export;
   6 use FS::radius_group;
   7
   8 my ($user, $exportnum, $group) = @ARGV;
   9 my $dbh = adminsuidsetup($user) or die;
  10 $FS::UID::AutoCommit = 0;
  11 my $radius_group;
  12 if ( $group =~ /^\d+$/ ) {
  13   $radius_group = FS::radius_group->by_key($group);
  14 } else {
  15   $radius_group = qsearchs('radius_group',{'groupname' => $group});
  16 }
  17 die "no radius group $group" unless $radius_group;
  18
  19 my @attrs = qsearch('radius_attr', {groupnum => $radius_group->groupnum});
  20 foreach my $attr (@attrs) {
  21   print $attr->attrname."\n";
  22   my $error = $export->export_attr_insert($attr);
  23   die $error if $error;
  24 }
  25