net::smtp and date field

smackdab has asked for the wisdom of the Perl Monks concerning the following question:

I have found a few posts on this topic...

Folks seems to say that Mail::SendMail works, but it is off by a hour on my 2 machines (win32).

The relevant snipit: 
my $offset  = sprintf "%.1f", (timegm(localtime) - time) / 3600; 
my $minutes = sprintf "%02d", ( $offset - int($offset) ) * 60; 
$TZ  = sprintf("%+03d", int($offset)) . $minutes;
[download]

This takes the diff between GMT and my localtime. I can check if 'isdst' is set (from localtime) and then subtract an hour. This works in North America...but probably won't elseware... ;-)

Is this just a windows issue or does it work diff in Unix?

What do other people do to create dates in RFC822 format?

THANKS!!!

Comment on net::smtp and date field Download Code

Replies are listed 'Best First'.
Re: net::smtp and date field by PodMaster (Abbot) on Jul 23, 2002 at 09:46 UTC
What is timegm? ( What makes a bad question? Before You Post ... How (Not) To Ask A Question ) Are you aware of gmtime (perldoc perlfunc)? Are you aware of POSIX's strftime? ~~What exactly is RFC822 date-time format? (i looked, so what is your date supposed to look like)~~ Isn't int redundant in `sprintf("%+03d", int($offset))` ? (i think so) `perl -MPOSIX=strftime -e die~~strftime('%Z',gmtime)` [download] `____________________________________________________` ** The Third rule of perl club is a statement of fact: pod is sexy.	[reply] [d/l]

Replies are listed 'Best First'.

Re: net::smtp and date field
by PodMaster (Abbot) on Jul 23, 2002 at 09:46 UTC

What makes a bad question?

Before You Post ...

How (Not) To Ask A Question

Are you aware of gmtime (perldoc perlfunc)?

Are you aware of POSIX's strftime?

~~What exactly is RFC822 date-time format? (i looked, so what is your date supposed to look like)~~

Isn't int redundant in sprintf("%+03d", int($offset)) ? (i think so)

perl -MPOSIX=strftime -e die~~strftime('%Z',gmtime)
[download]

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]