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

46
lib/WebGUI/Session/DateTime.pm
View file

@ -17,6 +17,7 @@ use strict;
use DateTime;
use DateTime::Format::Strptime;
use DateTime::Format::Mail;
use DateTime::TimeZone;
use Tie::IxHash;
use WebGUI::International;
@ -275,6 +276,26 @@ sub epochToHuman {
#-------------------------------------------------------------------
=head2 epochToMail ( [ epoch ] )
Formats an epoch date as an RFC2822/822 date, which is what is used in SMTP emails.
=head3 epoch
The date to format. Defaults to now.
=cut
sub epochToMail {
my $self = shift;
my $epoch = shift || time();
my $timeZone = $self->session->user->profileField("timeZone") || "America/Chicago";
my $dt = DateTime->from_epoch( epoch =>$epoch, time_zone=>$timeZone);
return DateTime::Format::Mail->format_datetime($dt);
}
#-------------------------------------------------------------------
=head2 epochToSet ( epoch, withTime )
Returns a set date (used by WebGUI::HTMLForm->date) in the format of YYYY-MM-DD.
@ -566,6 +587,31 @@ sub localtime {
}
#-------------------------------------------------------------------
=head2 mailToEpoch ( [ date ] )
Converts a mail formatted date into an epoch.
=head3 date
A date formatted according to RFC2822/822.
=cut
sub mailToEpoch {
my $self = shift;
my $mail = shift;
my $parser = DateTime::Format::Mail->new->loose;
my $dt = eval { $parser->parse_datetime($mail)};
if ($@) {
$self->session->errorHandler->warn($mail." is not a vaild date for email, and is so poorly formatted, we can't even guess what it is.");
return undef;
}
return $dt->epoch;
}
#-------------------------------------------------------------------
=head2 monthCount ( startEpoch, endEpoch )
Returns the number of months between the start and end dates (inclusive).