Re: Timezone information

In article <[email protected]>,
 [email protected] (Chris Nandor) wrote:

> 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").

Sorry Chris, I didn't explain myself too well. I'm looking for the name 
of the zone. It seems to be stored in the resource fork of 'Date & Time 
Preferences' (possibly ID256 of the 'pref' resources), but it's not in 
plain text. Maybe its an offset. Any ideas? Is it anywhere useful, or do 
I have to work out how this preferences file is encoded?

Cheers!
Rick