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

added new mail retrieval subsystemm

Browse source
This commit is contained in:
JT Smith 2006-04-09 15:14:07 +00:00
parent c0225f6b35
commit 2b02f055f9
6 changed files with 250 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -201,6 +201,7 @@ sub create {
Bcc=>$headers->{bcc},
"Reply-To"=>$headers->{replyTo},
Subject=>$headers->{subject},
"Message-Id"=>$headers->{messageId} || "WebGUI-".$session->id->generate,
Date=>$session->datetime->epochToHuman("","%W, %d %C %y %j:%n:%s %O"),
"X-Mailer"=>"WebGUI"
);
@ -275,7 +276,7 @@ sub retrieve {
$session->db->deleteRow("mailQueue","messageId", $messageId);
my $parser = MIME::Parser->new;
$parser->output_to_core(1);
bless {_session=>$session, _message=>$parser->parse_data($data->{messageId}), _toGroup=>$data->{toGroup}}, $class;
bless {_session=>$session, _message=>$parser->parse_data($data->{message}), _toGroup=>$data->{toGroup}}, $class;
}