diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 18:56:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 18:56:58 +0000 |
| commit | b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac (patch) | |
| tree | 41dee19ea5321514d7b99e472ba6706f2cca484a /perl-install/timezone.pm | |
| parent | 0a0d5a1f290319b767e7078c8173f013a5bb842f (diff) | |
| download | drakx-b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac.tar drakx-b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac.tar.gz drakx-b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac.tar.bz2 drakx-b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac.tar.xz drakx-b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac.zip | |
no_comment
Diffstat (limited to 'perl-install/timezone.pm')
| -rw-r--r-- | perl-install/timezone.pm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm new file mode 100644 index 000000000..8ff037a0f --- /dev/null +++ b/perl-install/timezone.pm @@ -0,0 +1,51 @@ +package timezone; + +use diagnostics; +use strict; + + + +sub getTimeZones { + my ($prefix) = @_; + local *F; + open F, "cd $prefix/usr/share/zoneinfo && find [A-Z]* -type f |"; + my @l = sort map { chop; $_ } <F>; + close F or die "cannot list the available zoneinfos"; + @l; +} + +my %l2t = ( +'Danish (Denmark)' => 'Europe/Copenhagen', +'English (USA)' => 'America/New_York', +'English (UK)' => 'Europe/London', +'Estonian (Estonia)' => 'Europe/Tallinn', +'Finnish (Finland)' => 'Europe/Helsinki', +'French (France)' => 'Europe/Paris', +'French (Belgium)' => 'Europe/Brussels', +'French (Canada)' => 'Canada/Atlantic', # or Newfoundland ? or Eastern ? +'German (Germany)' => 'Europe/Berlin', +'Hungarian (Hungary)' => 'Europe/Budapest', +'Icelandic (Iceland)' => 'Atlantic/Reykjavik', +'Indonesian (Indonesia)' => 'Asia/Jakarta', +'Italian (Italy)' => 'Europe/Rome', +'Italian (San Marino)' => 'Europe/San_Marino', +'Italian (Vatican)' => 'Europe/Vatican', +'Italian (Switzerland)' => 'Europe/Zurich', +'Japanese' => 'Asia/Tokyo', +'Latvian (Latvia)' => 'Europe/Riga', +'Lithuanian (Lithuania)' => 'Europe/Vilnius', +'Norwegian (Bokmaal)' => 'Europe/Oslo', +'Norwegian (Nynorsk)' => 'Europe/Oslo', +'Polish (Poland)' => 'Europe/Warsaw', +'Portuguese (Brazil)' => 'Brazil/East', # most people live on the east coast +'Portuguese (Portugal)' => 'Europe/Lisbon', +'Romanian (Rumania)' => 'Europe/Bucharest', +'Russian (Russia)' => 'Europe/Moscow', +'Slovak (Slovakia)' => 'Europe/Bratislava', +'Spanish (Spain)' => 'Europe/Madrid', +'Swedish (Finland)' => 'Europe/Helsinki' +'Swedish (Sweden)' => 'Europe/Stockholm', +'Turkish (Turkey)' => 'Europe/Istanbul', +'Ukrainian (Ukraine)' => 'Europe/Kiev', +'Walon (Belgium)' => 'Europe/Brussels', +); |