develooper Front page | perl.beginners | Postings from January 2003

Re: Sent time in a Net::SMTP mail

Thread Previous | Thread Next
From:
John W. Krahn
Date:
January 5, 2003 19:21
Subject:
Re: Sent time in a Net::SMTP mail
Message ID:
3E18F5A4.8A85C9CE@acm.org
Jenda Krynicky wrote:
> 
> From: "John W. Krahn" <krahnj@acm.org>
> > Or, you could do it the "correct" way.  :-)
> >
> > use POSIX 'strftime';
> >
> > my $date = strftime '%a, %d %b %Y %H:%M:%S %z', localtime;
> > $smtp->datasend( "Date: $date\n" );
> 
> I'm not sure this is the correct way.
> This prints
>         Sun, 05 Jan 2003 18:42:54 Central Europe Standard Time
> on my computer (Win2k, ActivePerl 5.5.1 build 631 as well as
> ActivePerl 5.8.0 build 804).
> Which is NOT understood properly by my mailer (Pegasus Mail 4.02a).

On my system the manpage for strftime says:

man 3 strftime
[snip]
       %z     The time-zone as hour offset from GMT.  Required to
              emit RFC822-conformant dates (using "%a, %d  %b  %Y
              %H:%M:%S %z"). (GNU)

As I don't have a Windows system to test this on I'm not sure why this
is happening.
However the POSIX manpage states:

man 3pm POSIX
[snip]
                                                           If
               you want your code to be portable, your format
               (`fmt') argument should use only the conversion
               specifiers defined by the ANSI C standard.  These
               are `aAbBcdHIjmMpSUwWxXyYZ%'.

So it looks like the %z format is not portable.
If it doesn't work on your machine you can calculate it like this:

$ perl -MPOSIX -MTime::Local -e'
$local = time;
$gm = timelocal( gmtime $local );
$sign = qw( + + - )[ $local <=> $gm ];
$calc = sprintf "%s%02d%02d", $sign, (gmtime abs( $local - $gm ))[2,1];

print "Calculated: $calc\n", strftime( "strftime: %z\n", localtime );
'
Calculated: -0800
strftime: -0800




John
-- 
use Perl;
program
fulfillment

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About