oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bad angle bracket handling in messageIds in Main/Send.pm

Browse source 
Extend Mail/Send.t to test messageId generation.
This commit is contained in:
Colin Kuskie 2009-04-26 03:05:22 +00:00
parent 4f5a010faa
commit 70845fd9e8
4 changed files with 134 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Mail/Send.pm
View file

@ -294,11 +294,13 @@ sub create {
my $id = $headers->{messageId} || "WebGUI-" . $session->id->generate;
if ($id !~ m/\@/) {
my $domain = $from;
$domain =~ s/.*\@//msx;
$domain =~ s/^.*\@//msx;
$domain =~ s/>$//msx;
$id .= '@' . $domain;
}
if ($id !~ m/[<>]/msx) {
$id = "<$id>";
if ($id !~ m/^<.+?>$/msx) {
$id =~ s/(^<)|(>$)//msxg;
$id = "<".$id.">";
}
my $message = MIME::Entity->build(
Type=>$type,