don't export empty files
authorivan <ivan>
Tue, 11 Jun 2002 18:32:07 +0000 (18:32 +0000)
committerivan <ivan>
Tue, 11 Jun 2002 18:32:07 +0000 (18:32 +0000)
bin/shell.export

index 798bee3..146a0fd 100755 (executable)
@@ -54,6 +54,8 @@ foreach my $export ( @bsd_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;