Home  |  Linux  | Mysql  | PHP  | XML
 
From:Chris Nandor Date:Tue May  6 05:44:54 2003
Subject:Re: Timezone information
In article <BADC383D.47B%rickm@iSite.net.au>,
 rickm@iSite.net.au (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                      pudge@pobox.com    http://pudge.net/
Open Source Development Network    pudge@osdn.com     http://osdn.com/
Navigate in group perl.macperl.toolbox at sever nntp.perl.org
Previous Next




  
© No Copyright
You are free to use Anything 		Site Maintained by PHP Developer
Powered By PHP Consultants