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

started adding email processing capabilities to cs

Browse source
This commit is contained in:
JT Smith 2006-04-09 22:36:49 +00:00
parent 4c3d3c68e1
commit 504de54d61
10 changed files with 352 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Mail/Get.pm
View file

@ -116,6 +116,7 @@ Retrieves the next available message from the server. Returns undef if there are
cc => 'joe@example.com',
subject => 'This is my message subject',
inReplyTo => 'some-message-id',
messageId => 'some-message-id',
date => 1144536119,
parts => [
{
@ -161,12 +162,15 @@ sub getNextMessage {
chomp($subject);
my $inReplyTo = $head->get("In-Reply-To") || undef;
chomp($inReplyTo);
my $messageId = $head->get("Message-Id") || undef;
chomp($messageId);
my %data = (
to => $to,
from => $from,
cc => $cc,
subject => $subject,
inReplyTo => $inReplyTo,
messageId => $messageId,
date => $self->session->datetime->mailToEpoch($head->get("Date")),
);
my @segments = ();