X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fstatus_shellcommands.pm;h=c5200ec507b32f61a0176d49e04b509ae2efe280;hb=c2746333f313511c6f7e19bdbef5622d1e4014e0;hp=53d2b3754f177f221958c6de1a9a7b4e4139f142;hpb=d6abfe4e240cc8b9994390e956d109663ee898a1;p=freeside.git

diff --git a/FS/FS/part_export/status_shellcommands.pm b/FS/FS/part_export/status_shellcommands.pm
index 53d2b3754..c5200ec50 100644
--- a/FS/FS/part_export/status_shellcommands.pm
+++ b/FS/FS/part_export/status_shellcommands.pm
@@ -43,6 +43,10 @@ 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',