-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
use strict;
use FS::UID qw(adminsuidsetup);
#my $machine = shift or die &usage;
my @exports = ();
-if ( @_ ) {
- foreach my $exportnum ( @_ ) {
+if ( @ARGV ) {
+ foreach my $exportnum ( @ARGV ) {
foreach my $exporttype (qw( sqlradius sqlradius_withdomain )) {
push @exports, qsearch('part_export', { exportnum => $exportnum,
exporttype => $exporttype, } );
foreach my $svc_acct ( @svc_acct ) {
+ $svc_acct->check; #set any fixed usergroup so it'll export even if all
+ #svc_acct records don't have the group yet
+
#false laziness with FS::svc_acct::insert (like it matters)
my $error = $export->export_insert($svc_acct);
die $error if $error;