Re: Timezone information

[email protected] (Chris Nandor) Tue, 06 May 2003 07:44:54 -0400

Newsgroups	perl.macperl,perl.macperl.toolbox
Organization	Pudge.Net
Message-ID	<[email protected]>

In article <BADC383D.47B%[email protected]>,
 [email protected] (Rick Measham) wrote:

> I figure that as I've set my timezone in the system, there must be some way
> to get it back using MacPerl.
> 
> I figure there's either an OSA hook that will tell me what it is, or there's
> a toolbox call that I can (somehow) make.

   #!perl
   use Time::Local;
   $diff = (timelocal(localtime) - timelocal(gmtime)) / 36;
   $diff = sprintf "%+0.4d", $diff;  # add sign, leading zero(es)
   print $diff;

That will give you the standard TZ offset (e.g., "-0400").

-- 
Chris Nandor                      [email protected]    http://pudge.net/
Open Source Development Network    [email protected]     http://osdn.com/