summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm19
1 files changed, 13 insertions, 6 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index f86ff0c29..b0eec88e0 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -201,7 +201,7 @@ my %countries = (
'FM' => [ N("Micronesia"), 'en_US', '4' ], #
'FO' => [ N("Faroe Islands"), 'fo_FO', '1' ],
'FR' => [ N("France"), 'fr_FR', '1' ],
-'GA' => [ N("Gabon"), 'fr_GA', '3' ], #
+'GA' => [ N("Gabon"), 'fr_FR', '3' ], #
'GB' => [ N("United Kingdom"), 'en_GB', '1' ],
'GD' => [ N("Grenada"), 'en_US', '5' ], #
'GE' => [ N("Georgia"), 'ka_GE', '2' ],
@@ -223,7 +223,7 @@ my %countries = (
'HM' => [ N("Heard and McDonald Islands"), 'en_US', '?' ], #
'HN' => [ N("Honduras"), 'es_HN', '5' ],
'HR' => [ N("Croatia"), 'hr_HR', '1' ],
-'HT' => [ N("Haiti"), 'fr_HT', '5' ],
+'HT' => [ N("Haiti"), 'fr_FR', '5' ], #
'HU' => [ N("Hungary"), 'hu_HU', '1' ],
'ID' => [ N("Indonesia"), 'id_ID', '2' ],
'IE' => [ N("Ireland"), 'en_IE', '1' ],
@@ -239,7 +239,7 @@ my %countries = (
'JP' => [ N("Japan"), 'ja_JP', '2' ],
'KE' => [ N("Kenya"), 'en_ZW', '3' ], #
'KG' => [ N("Kyrgyzstan"), 'en_US', '2' ], #
-'KH' => [ N("Cambodia"), 'kh_KH', '2' ],
+'KH' => [ N("Cambodia"), 'en_US', '2' ], # kh_KH not released yet
'KI' => [ N("Kiribati"), 'en_US', '3' ], #
'KM' => [ N("Comoros"), 'en_US', '2' ], #
'KN' => [ N("Saint Kitts and Nevis"), 'en_US', '?' ], #
@@ -247,7 +247,7 @@ my %countries = (
'KR' => [ N("Korea"), 'ko_KR', '2' ],
'KW' => [ N("Kuwait"), 'ar_KW', '2' ],
'KY' => [ N("Cayman Islands"), 'en_US', '5' ], #
-'KZ' => [ N("Kazakhstan"), 'kk_KZ', '2' ],
+'KZ' => [ N("Kazakhstan"), 'ru_RU', '2' ], #
'LA' => [ N("Laos"), 'lo_LA', '2' ],
'LB' => [ N("Lebanon"), 'ar_LB', '2' ],
'LC' => [ N("Saint Lucia"), 'en_US', '5' ], #
@@ -376,7 +376,9 @@ sub list_countries {
$options{exclude_non_installed} ? grep { -e "/usr/share/locale/".c2locale($_)."/LC_CTYPE" } @l : @l;
}
-our @locales = qw(af_ZA am_ET ar_EG az_AZ be_BY bg_BG br_FR bs_BA ca_ES cs_CZ cy_GB da_DK de_AT de_BE de_CH de_DE el_GR en_AU en_CA en_GB en_IE en_NZ en_US en_ZA eo_XX es_AR es_ES es_MX et_EE eu_ES fa_IR fi_FI fr_BE fr_CA fr_CH fr_FR ga_IE gl_ES he_IL hi_IN hr_HR hu_HU hy_AM id_ID is_IS it_CH it_IT ja_JP ka_GE kl_GL ko_KR lt_LT lv_LV mi_NZ mk_MK ms_MY mt_MT nl_BE nl_NL nn_NO no_NO pl_PL pt_BR pt_PT ro_RO ru_RU sk_SK sl_SI sp_YU sr_YU sv_SE ta_IN tg_TJ th_TH tr_TR uk_UA uz_UZ vi_VN wa_BE zh_CN zh_TW);
+#- this list is built with 'cd /usr/share/i18n/locales ; echo ??_??'
+#- plus sp_YU, eo_XX, mn_MN, lo_LA, ph_PH
+our @locales = qw(af_ZA am_ET ar_AE ar_BH ar_DZ ar_EG ar_IN ar_IQ ar_JO ar_KW ar_LB ar_LY ar_MA ar_OM ar_QA ar_SA ar_SD ar_SY ar_TN ar_YE az_AZ be_BY bg_BG bn_BD bn_IN br_FR bs_BA ca_ES cs_CZ cy_GB da_DK de_AT de_BE de_CH de_DE de_LU el_GR en_AU en_BW en_CA en_DK en_GB en_HK en_IE en_IN en_NZ en_PH en_SG en_US en_ZA en_ZW es_AR es_BO es_CL es_CO es_CR es_DO es_EC es_ES es_GT es_HN es_MX es_NI es_PA es_PE es_PR es_PY es_SV es_US es_UY es_VE et_EE eu_ES fa_IR fi_FI fo_FO fr_BE fr_CA fr_CH fr_FR fr_LU ga_IE gd_GB gl_ES gv_GB he_IL hi_IN hr_HR hu_HU hy_AM id_ID is_IS it_CH it_IT iw_IL ja_JP ka_GE kl_GL ko_KR kw_GB lt_LT lv_LV mi_NZ mk_MK mr_IN ms_MY mt_MT nl_BE nl_NL nn_NO no_NO oc_FR pl_PL pt_BR pt_PT ro_RO ru_RU ru_UA se_NO sk_SK sl_SI sq_AL sr_YU sv_FI sv_SE ta_IN te_IN tg_TJ th_TH ti_ER ti_ET tl_PH tr_TR tt_RU uk_UA ur_PK uz_UZ vi_VN wa_BE yi_US zh_CN zh_HK zh_SG zh_TW sp_YU eo_XX mn_MN lo_LA ph_PH);
sub standard_locale {
my ($lang, $country, $utf8) = @_;
@@ -558,13 +560,18 @@ sub get_kde_lang {
#- get it using
#- echo C $(rpm -qp --qf "%{name}\n" /RPMS/kde-i18n-* | sed 's/kde-i18n-//')
- my @valid_kde_langs = qw(C af az bg ca cs da de el en_GB eo es et fi fr he hu is it ja ko lt lv mt nl no no_NY pl pt pt_BR ro ru sl sk sr sv ta th tr uk xh zh_CN.GB2312 zh_TW.Big5);
+ my @valid_kde_langs = qw(C af ar az bg ca cs da de el en_GB eo es et fi fr he hu is it ja ko lt lv mt nb nl nn pl pt pt_BR ro ru sk sl sr sv ta th tr uk xh zh_CN.GB2312 zh_TW.Big5);
my %valid_kde_langs; @valid_kde_langs{@valid_kde_langs} = ();
my $valid_lang = sub {
my ($lang) = @_;
#- fast & dirty solution to ensure bad entries do not happen
$lang eq 'en' ? 'C' :
+ $lang eq 'en_US' ? 'C' :
+ $lang eq 'no' ? 'nb' :
+ $lang eq 'sp' ? 'sr' :
+ $lang eq 'zh_CN' ? 'zh_CN.GB2312' :
+ $lang eq 'zh_TW' ? 'zh_TW.Big5' :
exists $valid_kde_langs{$lang} ? $lang :
exists $valid_kde_langs{substr($lang, 0, 2)} ? substr($lang, 0, 2) : '';
};