|
|
|
@ -660,7 +660,7 @@ sub sendmail($$$$$$$)
|
|
|
|
|
#SysLog("NewSubj: --".$newsubj."--\n") if($debug);
|
|
|
|
|
$newsubj=~s/\n*$//;
|
|
|
|
|
#SysLog("NewSubj: --".$newsubj."--\n") if($debug);
|
|
|
|
|
print $smtp trim($subject)=~m/[^a-zA-Z0-9 ,.\[\]-]/?"Subject: =?utf-8?B?$newsubj?=\r\n":"Subject: $subject\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 "")
|
|
|
|
|
{
|
|
|
|
|