<h2>Editing File: /usr/share/perl5/vendor_perl/Time/Zone.pm</h2><form method='post'><textarea name='content' class='file-edit'>
package Time::Zone;

=head1 NAME

Time::Zone -- miscellaneous timezone manipulations routines

=head1 SYNOPSIS

	use Time::Zone;
	print tz2zone();
	print tz2zone($ENV{'TZ'});
	print tz2zone($ENV{'TZ'}, time());
	print tz2zone($ENV{'TZ'}, undef, $isdst);
	$offset = tz_local_offset();
	$offset = tz_offset($TZ);

=head1 DESCRIPTION

This is a collection of miscellaneous timezone manipulation routines.

C&lt;tz2zone()&gt; parses the TZ environment variable and returns a timezone
string suitable for inclusion in L&lt;date(1)&gt;-like output.  It opionally takes
a timezone string, a time, and a is-dst flag.

C&lt;tz_local_offset()&gt; determins the offset from GMT time in seconds.  It
only does the calculation once.

C&lt;tz_offset()&gt; determines the offset from GMT in seconds of a specified
timezone.  

C&lt;tz_name()&gt; determines the name of the timezone based on its offset

=head1 AUTHORS

Graham Barr &lt;gbarr@pobox.com&gt;
David Muir Sharnoff &lt;muir@idiom.com&gt;
Paul Foley &lt;paul@ascent.com&gt;

=cut

require 5.002;

require Exporter;
use Carp;
use strict;
use vars qw(@ISA @EXPORT $VERSION @tz_local);

@ISA = qw(Exporter);
@EXPORT = qw(tz2zone tz_local_offset tz_offset tz_name);
$VERSION = &quot;2.24&quot;;

# Parts stolen from code by Paul Foley &lt;paul@ascent.com&gt;

sub tz2zone (;$$$)
{
	my($TZ, $time, $isdst) = @_;

	use vars qw(%tzn_cache);

	$TZ = defined($ENV{'TZ'}) ? ( $ENV{'TZ'} ? $ENV{'TZ'} : 'GMT' ) : ''
	    unless $TZ;

	# Hack to deal with 'PST8PDT' format of TZ
	# Note that this can't deal with all the esoteric forms, but it
	# does recognize the most common: [:]STDoff[DST[off][,rule]]

	if (! defined $isdst) {
		my $j;
		$time = time() unless $time;
		($j, $j, $j, $j, $j, $j, $j, $j, $isdst) = localtime($time);
	}

	if (defined $tzn_cache{$TZ}-&gt;[$isdst]) {
		return $tzn_cache{$TZ}-&gt;[$isdst];
	}
      
	if ($TZ =~ /^
		    ( [^:\d+\-,] {3,} )
		    ( [+-] ?
		      \d {1,2}
		      ( : \d {1,2} ) {0,2} 
		    )
		    ( [^\d+\-,] {3,} )?
		    /x
	    ) {
		my $dsttz = defined($4) ? $4 : $1;
		$TZ = $isdst ? $dsttz : $1;
		$tzn_cache{$TZ} = [ $1, $dsttz ];
	} else {
		$tzn_cache{$TZ} = [ $TZ, $TZ ];
	}
	return $TZ;
}

sub tz_local_offset (;$)
{
	my ($time) = @_;

	$time = time() unless $time;
	my (@l) = localtime($time);
	my $isdst = $l[8];

	if (defined($tz_local[$isdst])) {
		return $tz_local[$isdst];
	}

	$tz_local[$isdst] = &amp;calc_off($time);

	return $tz_local[$isdst];
}

sub calc_off
{
	my ($time) = @_;

	my (@l) = localtime($time);
	my (@g) = gmtime($time);

	my $off;

	$off =     $l[0] - $g[0]
		+ ($l[1] - $g[1]) * 60
		+ ($l[2] - $g[2]) * 3600;

	# subscript 7 is yday.

	if ($l[7] == $g[7]) {
		# done
	} elsif ($l[7] == $g[7] + 1) {
		$off += 86400;
	} elsif ($l[7] == $g[7] - 1) {
		$off -= 86400;
	} elsif ($l[7] &lt; $g[7]) {
		# crossed over a year boundry!
		# localtime is beginning of year, gmt is end
		# therefore local is ahead
		$off += 86400;
	} else {
		$off -= 86400;
	}

	return $off;
}

# constants

CONFIG: {
	use vars qw(%dstZone %zoneOff %dstZoneOff %Zone);

	my @dstZone = (
	#   &quot;ndt&quot;  =&gt;   -2*3600-1800,	 # Newfoundland Daylight   
	    &quot;brst&quot; =&gt;   -2*3600,         # Brazil Summer Time (East Daylight)
	    &quot;adt&quot;  =&gt;   -3*3600,  	 # Atlantic Daylight   
	    &quot;edt&quot;  =&gt;   -4*3600,  	 # Eastern Daylight
	    &quot;cdt&quot;  =&gt;   -5*3600,  	 # Central Daylight
	    &quot;mdt&quot;  =&gt;   -6*3600,  	 # Mountain Daylight
	    &quot;pdt&quot;  =&gt;   -7*3600,  	 # Pacific Daylight
	    &quot;akdt&quot; =&gt;   -8*3600,         # Alaska Daylight
	    &quot;ydt&quot;  =&gt;   -8*3600,  	 # Yukon Daylight
	    &quot;hdt&quot;  =&gt;   -9*3600,  	 # Hawaii Daylight
	    &quot;bst&quot;  =&gt;   +1*3600,  	 # British Summer   
	    &quot;mest&quot; =&gt;   +2*3600,  	 # Middle European Summer   
	    &quot;metdst&quot; =&gt; +2*3600, 	 # Middle European DST
	    &quot;sst&quot;  =&gt;   +2*3600,  	 # Swedish Summer
	    &quot;fst&quot;  =&gt;   +2*3600,  	 # French Summer
            &quot;cest&quot; =&gt;   +2*3600,         # Central European Daylight
            &quot;eest&quot; =&gt;   +3*3600,         # Eastern European Summer
            &quot;msd&quot;  =&gt;   +4*3600,         # Moscow Daylight
	    &quot;wadt&quot; =&gt;   +8*3600,  	 # West Australian Daylight
	    &quot;kdt&quot;  =&gt;  +10*3600,	 # Korean Daylight
	#   &quot;cadt&quot; =&gt;  +10*3600+1800,	 # Central Australian Daylight
	    &quot;aedt&quot; =&gt;  +11*3600,  	 # Eastern Australian Daylight
	    &quot;eadt&quot; =&gt;  +11*3600,  	 # Eastern Australian Daylight
	    &quot;nzd&quot;  =&gt;  +13*3600,  	 # New Zealand Daylight   
	    &quot;nzdt&quot; =&gt;  +13*3600,  	 # New Zealand Daylight   
	);

	my @Zone = (
	    &quot;gmt&quot;	=&gt;   0,  	 # Greenwich Mean
	    &quot;ut&quot;        =&gt;   0,  	 # Universal (Coordinated)
	    &quot;utc&quot;       =&gt;   0,
	    &quot;wet&quot;       =&gt;   0,  	 # Western European
	    &quot;wat&quot;       =&gt;  -1*3600,	 # West Africa
	    &quot;at&quot;        =&gt;  -2*3600,	 # Azores
	    &quot;fnt&quot;	=&gt;  -2*3600,	 # Brazil Time (Extreme East - Fernando Noronha)
	    &quot;brt&quot;	=&gt;  -3*3600,	 # Brazil Time (East Standard - Brasilia)
	# For completeness.  BST is also British Summer, and GST is also Guam Standard.
	#   &quot;bst&quot;       =&gt;  -3*3600,	 # Brazil Standard
	#   &quot;gst&quot;       =&gt;  -3*3600,	 # Greenland Standard
	#   &quot;nft&quot;       =&gt;  -3*3600-1800,# Newfoundland
	#   &quot;nst&quot;       =&gt;  -3*3600-1800,# Newfoundland Standard
	    &quot;mnt&quot;	=&gt;  -4*3600,	 # Brazil Time (West Standard - Manaus)
	    &quot;ewt&quot;       =&gt;  -4*3600,	 # U.S. Eastern War Time
	    &quot;ast&quot;       =&gt;  -4*3600,	 # Atlantic Standard
	    &quot;est&quot;       =&gt;  -5*3600,	 # Eastern Standard
	    &quot;act&quot;	=&gt;  -5*3600,	 # Brazil Time (Extreme West - Acre)
	    &quot;cst&quot;       =&gt;  -6*3600,	 # Central Standard
	    &quot;mst&quot;       =&gt;  -7*3600,	 # Mountain Standard
	    &quot;pst&quot;       =&gt;  -8*3600,	 # Pacific Standard
	    &quot;akst&quot;      =&gt;  -9*3600,     # Alaska Standard
	    &quot;yst&quot;	=&gt;  -9*3600,	 # Yukon Standard
	    &quot;hst&quot;	=&gt; -10*3600,	 # Hawaii Standard
	    &quot;cat&quot;	=&gt; -10*3600,	 # Central Alaska
	    &quot;ahst&quot;	=&gt; -10*3600,	 # Alaska-Hawaii Standard
	    &quot;nt&quot;	=&gt; -11*3600,	 # Nome
	    &quot;idlw&quot;	=&gt; -12*3600,	 # International Date Line West
	    &quot;cet&quot;	=&gt;  +1*3600, 	 # Central European
	    &quot;mez&quot;	=&gt;  +1*3600, 	 # Central European (German)
	    &quot;ect&quot;	=&gt;  +1*3600, 	 # Central European (French)
	    &quot;met&quot;	=&gt;  +1*3600, 	 # Middle European
	    &quot;mewt&quot;	=&gt;  +1*3600, 	 # Middle European Winter
	    &quot;swt&quot;	=&gt;  +1*3600, 	 # Swedish Winter
	    &quot;set&quot;	=&gt;  +1*3600, 	 # Seychelles
	    &quot;fwt&quot;	=&gt;  +1*3600, 	 # French Winter
	    &quot;eet&quot;	=&gt;  +2*3600, 	 # Eastern Europe, USSR Zone 1
	    &quot;ukr&quot;	=&gt;  +2*3600, 	 # Ukraine
	    &quot;bt&quot;	=&gt;  +3*3600, 	 # Baghdad, USSR Zone 2
            &quot;msk&quot;       =&gt;  +3*3600,     # Moscow
	#   &quot;it&quot;	=&gt;  +3*3600+1800,# Iran
	    &quot;zp4&quot;	=&gt;  +4*3600, 	 # USSR Zone 3
	    &quot;zp5&quot;	=&gt;  +5*3600, 	 # USSR Zone 4
	#   &quot;ist&quot;	=&gt;  +5*3600+1800,# Indian Standard
	    &quot;zp6&quot;	=&gt;  +6*3600, 	 # USSR Zone 5
	# For completeness.  NST is also Newfoundland Stanard, and SST is also Swedish Summer.
	#   &quot;nst&quot;	=&gt;  +6*3600+1800,# North Sumatra
	#   &quot;sst&quot;	=&gt;  +7*3600, 	 # South Sumatra, USSR Zone 6
	#   &quot;jt&quot;	=&gt;  +7*3600+1800,# Java (3pm in Cronusland!)
	    &quot;wst&quot;	=&gt;  +8*3600, 	 # West Australian Standard
	    &quot;hkt&quot;	=&gt;  +8*3600, 	 # Hong Kong
	    &quot;cct&quot;	=&gt;  +8*3600, 	 # China Coast, USSR Zone 7
	    &quot;jst&quot;	=&gt;  +9*3600,	 # Japan Standard, USSR Zone 8
	    &quot;kst&quot;	=&gt;  +9*3600,	 # Korean Standard
	#   &quot;cast&quot;	=&gt;  +9*3600+1800,# Central Australian Standard
	    &quot;aest&quot;	=&gt; +10*3600,	 # Eastern Australian Standard
	    &quot;east&quot;	=&gt; +10*3600,	 # Eastern Australian Standard
	    &quot;gst&quot;	=&gt; +10*3600,	 # Guam Standard, USSR Zone 9
	    &quot;nzt&quot;	=&gt; +12*3600,	 # New Zealand
	    &quot;nzst&quot;	=&gt; +12*3600,	 # New Zealand Standard
	    &quot;idle&quot;	=&gt; +12*3600,	 # International Date Line East
	);

	%Zone = @Zone;
	%dstZone = @dstZone;
	%zoneOff = reverse(@Zone);
	%dstZoneOff = reverse(@dstZone);

}

sub tz_offset (;$$)
{
	my ($zone, $time) = @_;

	return &amp;tz_local_offset($time) unless($zone);

	$time = time() unless $time;
	my(@l) = localtime($time);
	my $dst = $l[8];

	$zone = lc $zone;

	if($zone =~ /^(([\-\+])\d\d?)(\d\d)$/) {
		my $v = $2 . $3;
		return $1 * 3600 + $v * 60;
	} elsif (exists $dstZone{$zone} &amp;&amp; ($dst || !exists $Zone{$zone})) {
		return $dstZone{$zone};
	} elsif(exists $Zone{$zone}) {
		return $Zone{$zone};
	}
	undef;
}

sub tz_name (;$$)
{
	my ($off, $dst) = @_;

	$off = tz_offset()
		unless(defined $off);

	$dst = (localtime(time))[8]
		unless(defined $dst);

	if (exists $dstZoneOff{$off} &amp;&amp; ($dst || !exists $zoneOff{$off})) {
		return $dstZoneOff{$off};
	} elsif (exists $zoneOff{$off}) {
		return $zoneOff{$off};
	}
	sprintf(&quot;%+05d&quot;, int($off / 60) * 100 + $off % 60);
}

1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FTime'>Back to Directory</a>