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

getting rid of carriage returns at the end of fields

Browse source
This commit is contained in:
JT Smith 2006-04-09 17:00:45 +00:00
parent b080d6f10a
commit 4c3d3c68e1
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -151,12 +151,22 @@ sub getNextMessage {
return undef;
}
my $head = $parsedMessage->head;
my $to = $head->get("To") || undef;
chomp($to);
my $from = $head->get("From") || undef;
chomp($from);
my $cc = $head->get("Cc") || undef;
chomp($cc);
my $subject = $head->get("Subject") || undef;
chomp($subject);
my $inReplyTo = $head->get("In-Reply-To") || undef;
chomp($inReplyTo);
my %data = (
to => $head->get("To") || undef,
from => $head->get("From") || undef,
cc => $head->get("Cc") || undef,
subject => $head->get("Subject") || undef,
inReplyTo => $head->get("In-Reply-To") || undef,
to => $to,
from => $from,
cc => $cc,
subject => $subject,
inReplyTo => $inReplyTo,
date => $self->session->datetime->mailToEpoch($head->get("Date")),
);
my @segments = ();