use warnings;
use strict;
-use locale;
use POSIX qw(strftime locale_h);
setlocale(LC_TIME, "C");
$ref= $tryref;
} else {
&sendmessage(create_mime_message(
- [From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ [From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => "Unknown problem report $gBug#$tryref ($subject)",
'Message-ID' => "<handler.x.$nn.unknown\@$gEmailDomain>",
}
if ($ref<0) {
&sendmessage(create_mime_message(
- [From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ [From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => "Message with no $gBug number ignored by $receivedat ($subject)",
'Message-ID' => "<handler.x.$nn.warnignore\@$gEmailDomain>",
&htmllog("Reply","sent",$replyto,"You have marked $gBug as forwarded.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => "$replyto",
Subject => "$gBug#$ref: marked as forwarded ($data->{subject})",
"Message-ID" => "<header.$ref.$nn.ackfwdd\@$gEmailDomain>",
&htmllog("Reply","sent",$replyto,"You have taken responsibility.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => "$gBug#$ref: marked as done ($data->{subject})",
"Message-ID" => "<handler.$ref.$nn.ackdone\@$gEmailDomain>",
"$gBug acknowledged by developer.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => "$data->{originator}",
Subject => "$gBug#$ref closed by $markedby ($header{'subject'})",
"Message-ID" => "<handler.$ref.$nn.notifdone\@$gEmailDomain>",
if ($codeletter eq 'U') { # -submitter
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => "Message with no $gBug number cannot be sent to submitter! ($subject)",
'Message-ID' => "<handler.x.$nn.nonumnosub\@$gEmailDomain>",
);
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => "Message with no Package: tag cannot be processed! ($subject)",
"Message-ID" => "<handler.x.$nn.nonumnosub\@$gEmailDomain>",
);
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
Subject => $t_h{subject},
"Message-ID" => $t_h{messageid},
my $error_text = $errors > 0 ? " (with $errors error" . ($errors > 1 ? "s" : "") . ")" : "";
my $reply =
create_mime_message(['X-Loop' => $gMaintainerEmail,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
@maintccs ? (Cc => join(', ',@maintccs)):(),
Subject => "Processed${error_text}: $header{subject}",