X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fstatus_shellcommands.pm;h=c5200ec507b32f61a0176d49e04b509ae2efe280;hb=2aa7cfda6c3936e1850d845e25ed88cf0a09330f;hp=53d2b3754f177f221958c6de1a9a7b4e4139f142;hpb=08b3d5f072bc2852a687b8fe9d6819fea8440a54;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',