Web プロジェクト用の perl ベースの cgi ページを使用しています。sendmail
モジュールでランダムに発生する奇妙な問題に遭遇しています。
問題: Sendmail は、最後に追加されたユーザーの電子メールを切り捨てます。しかし、常にではなく、ランダムに発生します。メールを送信する直前にメーリング リストをログに記録しましたが、何も問題はありません。
画像の例 (Karl の姓が名前の後に「.」で切り捨てられているのを参照してください。)
メールのヘッダー。
Message-ID: <201305221503.r4MF3dYf022792@pazmo.internal.company.com>
Subject: < ...>
MIME-Version: 1.0
Content-Type: text/plain
To: <biradavolu.ln@company.com>, <dessimira.ln@company.com>,
<yun.ln@company.com>, karl.
Date: Wed, 22 May 2013 10:03:39 -0500
From: <tool@company.com>
Return-Path: tool@company.com
X-MS-Exchange-Organization-AuthSource: eusaamw0712.domain.company.com
X-MS-Exchange-Organization-AuthAs: Internal
X-MS-Exchange-Organization-AuthMechanism: 10
X-MS-Exchange-Organization-AVStamp-Mailbox: MSFTFF;1;0;0 0 0
電子メールを送信する前にログに記録された入力: (形式に問題はありません) biradavolu.ln@company.com;dessimira.ln@company.com;yun.lastName@company.com;karl.LastName@company.com ;
use Mail::Sendmail;
# Step 1: Declare the mail variable
%mail = (
from => 'test@company.com',
to => 'user1FN.user1LN@company.com;user2FN.user2LN@company.com;user3FN.user3LN@company.com;' . "$requester_email; $responsible_email",
subject => ... ,
'content-type' => "multipart/alternative; "
);
my $toList='user1FN.user1LN@company.com;user2FN.user2LN@company.com;user3FN.user3LN@company.com;' . "$requester_email;";
# Step 2: Add members to toList based on different conditions
if(condition1)
$toList= $toList.'user4FN.user4LN@company.com;';
if(condition2)
$toList= $toList.'user5FN.user5LN@company.com;';
... # few other similar condition statement
...
# Step 3: Assign toList based on different conditions
$mail{ 'to' } = $toList;
# Step 4: Set Body of the $mail
if(sendmail(%mail)){
print LOGFILE "Mail send successfully to $mail{\"to\"}: ";
}else{
print LOGFILE "Mail was not send : Mail list was $mail{\"to\"} : ";
}