X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fstatus_shellcommands.pm;h=c5200ec507b32f61a0176d49e04b509ae2efe280;hb=674cb2d9d7105f4cc2871539b2e9f7088cdaa750;hp=50e24f8677d6baafc10ffd4186bb16842b49d59b;hpb=c2753925b08b2cded5cb7e858497b5b177b97730;p=freeside.git

diff --git a/FS/FS/part_export/status_shellcommands.pm b/FS/FS/part_export/status_shellcommands.pm
index 50e24f867..c5200ec50 100644
--- a/FS/FS/part_export/status_shellcommands.pm
+++ b/FS/FS/part_export/status_shellcommands.pm
@@ -13,9 +13,13 @@ tie my %options, 'Tie::IxHash',
   'spam_tag2_level'  => { label=>'Spam set tag2 level command', },
   'spam_kill_level' => { label=>'Spam set kill level command', },
 
-  'ignore_all_output' => {
-    label => 'Ignore all output and errors from the command',
-    type  => 'checkbox',
+  'fail_on_output' => {
+      label => 'Treat any output from the command as an error',
+      type  => 'checkbox',
+  },
+  'ignore_all_errors' => {
+      label => 'Ignore all errors from the command',
+      type  => 'checkbox',
   },
 ;
 
@@ -39,12 +43,17 @@ sub _export_unsuspend {}
 sub export_setstatus {
   my($self, $svc_acct, $hashref) = @_;
 
+  for (qw( spam_tag2_level spam_kill_level )) {
+    $hashref->{$_} =~ /^\d+(\.\d+)?$/ or return "illegal $_";
+  }
+
   my @shellargs = (
     $svc_acct->svcnum,
     user          => $self->option('user') || 'root',
     host          => $self->machine,
     #stdin_string  => $stdin_string,
-    ignore_all_output => $self->option('ignore_all_output'),
+    fail_on_output    => $self->option('fail_on_output'),
+    ignore_all_errors => $self->option('ignore_all_errors'),
     #ignored_errors    => $self->option('ignored_errors') || '',
   );