Bug#651

15 years ago · bfc3914775
parent 213298f41a
commit bfc3914775
1 changed files with 1 additions and 1 deletions
--- a/CommModule/client.pl
+++ b/CommModule/client.pl
@ -660,7 +660,7 @@ sub sendmail($$$$$$$)
  #SysLog("NewSubj: --".$newsubj."--\n") if($debug);
  $newsubj=~s/\n*$//;
  #SysLog("NewSubj: --".$newsubj."--\n") if($debug);
-  print $smtp "Subject: =?utf-8?B?$newsubj?=\r\n";
+  print $smtp trim($subject)=~m/[^a-zA-Z0-9 ,.\[\]-]/?"Subject: =?utf-8?B?$newsubj?=\r\n":"Subject: $subject\r\n";
  print $smtp "Mime-Version: 1.0\r\n";
  if($extra eq "")
  {