use 5.006; use strict; use warnings; package Email::Date::Format; our $VERSION = '1.002'; our @EXPORT_OK = qw[email_date email_gmdate]; use Exporter; BEGIN { our @ISA = 'Exporter' } use Time::Local (); =head1 NAME Email::Date::Format - produce RFC 2822 date strings =head1 SYNOPSIS use Email::Date::Format qw(email_date); my $header = email_date($date->epoch); Email::Simple->create( header => [ Date => $header, ], body => '...', ); =head1 DESCRIPTION This 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.) =head2 FUNCTIONS =over 4 =item email_date my $date = email_date; # now my $date = email_date( time - 60*60 ); # one hour ago C accepts an epoch value, such as the one returned by C. 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 C is used. C is exported only if requested. =item email_gmdate my $date = email_gmdate; C is identical to C, but it will return a string indicating the time in Greenwich Mean Time, rather than local time. C is exported only if requested. =cut sub _tz_diff { my ($time) = @_; my $diff = Time::Local::timegm(localtime $time) - Time::Local::timegm(gmtime $time); my $direc = $diff < 0 ? '-' : '+'; $diff = abs $diff; my $tz_hr = int( $diff / 3600 ); my $tz_mi = int( $diff / 60 - $tz_hr * 60 ); return ($direc, $tz_hr, $tz_mi); } sub _format_date { my ($local) = @_; sub { my ($time) = @_; $time = time unless defined $time; my ($sec, $min, $hour, $mday, $mon, $year, $wday) = $local ? (localtime $time) : (gmtime $time); my $day = (qw[Sun Mon Tue Wed Thu Fri Sat])[$wday]; my $month = (qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec])[$mon]; $year += 1900; my ($direc, $tz_hr, $tz_mi) = $local ? _tz_diff($time) : ('+', 0, 0); sprintf "%s, %d %s %d %02d:%02d:%02d %s%02d%02d", $day, $mday, $month, $year, $hour, $min, $sec, $direc, $tz_hr, $tz_mi; } } BEGIN { *email_date = _format_date(1); *email_gmdate = _format_date(0); }; 1; __END__ =back =head1 PERL EMAIL PROJECT This module is maintained by the Perl Email Project L =head1 AUTHOR Ricardo SIGNES, >. Adapted from Email::Date, by Casey West. =head1 COPYRIGHT Copyright (c) 2007, Ricarod SIGNES. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut