1DateTime::TimeZone::LocUasle:r:WCionn3t2r(i3b)uted PerlDDaotceuTmiemnet:a:tTiiomneZone::Local::Win32(3)
2
3
4
6 DateTime::TimeZone::Local::Win32 - Determine the local system's time
7 zone on Windows
8
10 my $tz = DateTime::TimeZone->new( name => 'local' );
11
12 my $tz = DateTime::TimeZone::Local->TimeZone();
13
15 This module provides methods for determining the local time zone on a
16 Windows platform.
17
19 This class tries the following methods of determining the local time
20 zone:
21
22 * $ENV{TZ}
23 It checks $ENV{TZ} for a valid time zone name.
24
25 * Windows Registry
26 We check for a registry key called "HKEY_LOCAL_MACHINE\SYSTEM\Cur‐
27 rentControlSet\Control\TimeZoneInformation\StandardName".
28
29 If this exists, it contains a Windows name for the time zone. We
30 use a lookup table to translate this into an equivalent time zone
31 name.
32
33 This lookup table was borrowed from the Chronos Smalltalk library.
34
36 Dave Rolsky, <autarch@urth.org>
37
39 Copyright (c) 2003-2007 David Rolsky. All rights reserved. This pro‐
40 gram is free software; you can redistribute it and/or modify it under
41 the same terms as Perl itself.
42
43 The full text of the license can be found in the LICENSE file included
44 with this module.
45
46
47
48perl v5.8.8 2007-04-02DateTime::TimeZone::Local::Win32(3)