3 use FS::UID 'adminsuidsetup';
4 use FS::Record qw( qsearch );
8 my ($user, $exportnum, $group) = @ARGV;
9 my $dbh = adminsuidsetup($user) or die;
10 $FS::UID::AutoCommit = 0;
12 if ( $group =~ /^\d+$/ ) {
13 $radius_group = FS::radius_group->by_key($group);
15 $radius_group = qsearchs('radius_group',{'groupname' => $group});
17 die "no radius group $group" unless $radius_group;
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);