summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/timezone.pm31
1 files changed, 28 insertions, 3 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index cd0486138..0e434500d 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -38,27 +38,43 @@ sub write {
}
my %l2t = (
+'Afrikaans (South Africa)' => 'Africa/Johannesburg',
+'Arabic' => 'Africa/Cairo',
+'Armenian (Armenia)' => 'Asia/Yerevan',
+'Azeri (Azerbaijan)' => 'Asia/Baku',
+'Belarussian (Belarus)' => 'Europe/Minsk',
+'Bosnian (Bosnia)' => 'Europe/Sarajevo',
'Brezhoneg (Brittany)' => 'Europe/Paris',
+'Bulgarian (Bulgaria)' => 'Europe/Sofia',
+'Catalan' => 'Europe/Madrid',
'Chinese (China)' => 'Asia/Shanghai',
'Croatian (Bosnia)' => 'Europe/Sarajevo',
'Croatian (Croatia)' => 'Europe/Zagreb',
+'Cymraeg (Welsh)' => 'Europe/London',
+'Czech' => 'Europe/Prague',
'Danish (Denmark)' => 'Europe/Copenhagen',
'Dutch (Netherlands)' => 'Europe/Amsterdam',
'English (USA)' => 'America/New_York',
'English (UK)' => 'Europe/London',
'Esperanto' => 'Europe/Warsaw',
'Estonian (Estonia)' => 'Europe/Tallinn',
+'Euskara (Basque)' => 'Europe/Madrid',
'Finnish (Finland)' => 'Europe/Helsinki',
'French (France)' => 'Europe/Paris',
'French (Belgium)' => 'Europe/Brussels',
'French (Canada)' => 'Canada/Atlantic', # or Newfoundland ? or Eastern ?
'Gaeilge (Ireland)' => 'Europe/Dublin',
+'Galego' => 'Europe/Madrid',
+'Georgian (Georgia)' => 'Asia/Yerevan',
'German (Austria)' => 'Europe/Vienna',
'German (Germany)' => 'Europe/Berlin',
'Greek (Greece)' => 'Europe/Athens',
+'Greenlandic' => 'Arctic/Longyearbyen',
+'Hebrew (Israel)' => 'Asia/Tel_Aviv',
'Hungarian (Hungary)' => 'Europe/Budapest',
'Icelandic (Iceland)' => 'Atlantic/Reykjavik',
'Indonesian (Indonesia)' => 'Asia/Jakarta',
+'Iranian (Iran)' => 'Asia/Tehran',
'Italian (Italy)' => 'Europe/Rome',
#-'Italian (San Marino)' => 'Europe/San_Marino',
#-'Italian (Vatican)' => 'Europe/Vatican',
@@ -67,6 +83,8 @@ my %l2t = (
'Korean (Korea)' => 'Asia/Seoul',
'Latvian (Latvia)' => 'Europe/Riga',
'Lithuanian (Lithuania)' => 'Europe/Vilnius',
+'Macedonian (Macedonia)' => 'Europe/Skopje',
+'Maori (New Zealand)' => 'Australia/Sydney',
'Norwegian (Bokmaal)' => 'Europe/Oslo',
'Norwegian (Nynorsk)' => 'Europe/Oslo',
'Polish (Poland)' => 'Europe/Warsaw',
@@ -76,20 +94,27 @@ my %l2t = (
'Russian (Russia)' => 'Europe/Moscow',
'Serbian (Serbia)' => 'Europe/Belgrade',
'Slovak (Slovakia)' => 'Europe/Bratislava',
+'Slovenian (Slovenia)' => 'Europe/Ljubljana',
'Spanish (Argentina)' => 'America/Buenos_Aires',
'Spanish (Mexico)' => 'America/Mexico_City',
'Spanish (Spain)' => 'Europe/Madrid',
'Swedish (Sweden)' => 'Europe/Stockholm',
+'Tajik (Tajikistan)' => 'Asia/Dushanbe',
+'Tamil (Sri Lanka)' => 'Asia/Colombo',
+'Tatar' => 'Europe/Minsk',
'Thai (Thailand)' => 'Asia/Bangkok',
'Turkish (Turkey)' => 'Europe/Istanbul',
'Ukrainian (Ukraine)' => 'Europe/Kiev',
+'Uzbek (Uzbekistan)' => 'Asia/Tashkent',
+'Vietnamese (Vietnam)' => 'Asia/Saigon',
'Walon (Belgium)' => 'Europe/Brussels',
);
-sub bestTimezone {
- my ($langtext) = @_;
- $l2t{common::bestMatchSentence($langtext, keys %l2t)};
+sub fuzzyChoice {
+ my ($b, $count) = common::bestMatchSentence($_[0], keys %l2t);
+ $count ? $b : '';
}
+sub bestTimezone { $l2t{fuzzyChoice($_[0])} || 'GMT' }
my %sex = (
fr_FR => { '[iln]a$' => 1, '[cdilnst]e$' => 1, 'e$' => .8, 'n$' => .1, 'd$' => .05, 't$' => 0 },