spam settings, RT#15987

diff --git a/FS/FS/part_export/status_shellcommands.pm b/FS/FS/part_export/status_shellcommands.pm
index 6b18909..3f6bd95 100644 (file)
--- a/FS/FS/part_export/status_shellcommands.pm
+++ b/FS/FS/part_export/status_shellcommands.pm
@@ -51,19 +51,18 @@ sub export_setstatus {
   $self->shellcommands_queue( @shallargs, 'command' =>
     $self->option('spam_enable'). ' '.
     shell_quote($svc_acct->email)
-  );
-
-  $self->shellcommands_queue( @shallargs, 'command' =>
-    $self->option('spam_tag2_level'). ' '.
-    shell_quote($svc_acct->email). ' '.
-    $hashref->{'spam_tag2_level'}
-  );
-
-  $self->shellcommands_queue( @shallargs, 'command' =>
-    $self->option('spam_kill_level'). ' '.
-    shell_quote($svc_acct->email). ' '.
-    $hashref->{'spam_kill_level'}
-  );
+  )
+    || $self->shellcommands_queue( @shallargs, 'command' =>
+         $self->option('spam_tag2_level'). ' '.
+         shell_quote($svc_acct->email). ' '.
+         $hashref->{'spam_tag2_level'}
+       )
+    || $self->shellcommands_queue( @shallargs, 'command' =>
+         $self->option('spam_kill_level'). ' '.
+         shell_quote($svc_acct->email). ' '.
+         $hashref->{'spam_kill_level'}
+       )
+  ;
 
 }