X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fshell.export;h=146a0fd4e16548e71a401e471433280ec56911c0;hp=064d56e6396e3960abe4af9e55c0358cb78c2386;hb=7f7fb08833dd4a006adc45fe5deb9931f3aee94e;hpb=c189704fb7f1c2dce5362b5210fa957e274b3f55

diff --git a/bin/shell.export b/bin/shell.export
index 064d56e63..146a0fd4e 100755
--- a/bin/shell.export
+++ b/bin/shell.export
@@ -8,6 +8,8 @@ use Net::SSH qw(ssh);
 use FS::UID qw(adminsuidsetup datasrc);
 use FS::Record qw(qsearch qsearchs);
 use FS::part_export;
+use FS::cust_svc;
+use FS::svc_acct;
 
 my @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
 
@@ -26,6 +28,9 @@ my $rsync = File::Rsync->new({
 });
 
 foreach my $export ( @sysv_exports ) {
+}
+
+foreach my $export ( @bsd_exports ) {
   my $machine = $export->machine;
   my $prefix = "$spooldir/$machine";
   mkdir $prefix, 0700 unless -d $prefix;
@@ -49,6 +54,8 @@ foreach my $export ( @sysv_exports ) {
         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
           $export->export_svc;
 
+  next unless @svc_acct;
+
   foreach my $svc_acct ( sort { $a->uid <=> $b->uid } @svc_acct ) {
 
     my $password = $svc_acct->_password;