use Email::Date::Format qw(email_date);
my $header = email_date($date->epoch);
header => [
Date => $header,
body => '...',
DESCRIPTIONThis module provides a simple means for generating an RFC 2822 compliant datetime string. (In case you care, they're not RFC 822 dates, because they use a four digit year, which is not allowed in RFC 822.)
my $date = email_date; # now my $date = email_date( time - 60*60 ); # one hour ago
"email_date" accepts an epoch value, such as the one returned by "time". It returns a string representing the date and time of the input, as specified in RFC 2822. If no input value is provided, the current value of "time" is used.
"email_date" is exported only if requested.
my $date = email_gmdate;
"email_gmdate" is identical to "email_date", but it will return a string indicating the time in Greenwich Mean Time, rather than local time.
"email_gmdate" is exported only if requested.
- Casey West
- Ricardo SIGNES <[email protected]>
COPYRIGHT AND LICENSEThis software is copyright (c) 2004 by Casey West.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.