1 |
vip-ire |
1.1 |
--- smeserver-sme7admin-1.1.1/root/etc/e-smith/web/functions/sme7admin.detect_locale 2009-03-09 20:05:49.000000000 +0100 |
2 |
|
|
+++ smeserver-sme7admin-1.1.1/root/etc/e-smith/web/functions/sme7admin 2009-03-09 20:08:57.000000000 +0100 |
3 |
|
|
@@ -92,9 +92,27 @@ |
4 |
|
|
my $i18n = new esmith::I18N; |
5 |
|
|
my $http_lang = $i18n->preferredLanguage( $ENV{HTTP_ACCEPT_LANGUAGE} ); |
6 |
|
|
|
7 |
|
|
-if ($http_lang =~ /^fr.*/) {$http_lang="fr_FR";} |
8 |
|
|
+if ($http_lang =~ /^be.*/) {$http_lang="be_BY";} |
9 |
|
|
+elsif ($http_lang =~ /^da.*/) {$http_lang="da_DK";} |
10 |
|
|
+elsif ($http_lang =~ /^de.*/) {$http_lang="de_DE";} |
11 |
|
|
+elsif ($http_lang =~ /^el.*/) {$http_lang="el_GR";} |
12 |
|
|
+elsif ($http_lang =~ /^es.*/) {$http_lang="es_ES";} |
13 |
|
|
+elsif ($http_lang =~ /^fr.*/) {$http_lang="fr_FR";} |
14 |
|
|
+elsif ($http_lang =~ /^hu.*/) {$http_lang="hu_HU";} |
15 |
|
|
+elsif ($http_lang =~ /^id.*/) {$http_lang="id_ID";} |
16 |
|
|
+elsif ($http_lang =~ /^it.*/) {$http_lang="it_IT";} |
17 |
|
|
+elsif ($http_lang =~ /^ja.*/) {$http_lang="ja_JP";} |
18 |
|
|
+elsif ($http_lang =~ /^nb.*/) {$http_lang="nb_NO";} |
19 |
|
|
+elsif ($http_lang =~ /^nl.*/) {$http_lang="nl_NL";} |
20 |
|
|
+elsif ($http_lang =~ /^pt-br.*/) {$http_lang="pt_BR";} |
21 |
|
|
+elsif ($http_lang =~ /^pt.*/) {$http_lang="pt_PT";} |
22 |
|
|
+elsif ($http_lang =~ /^ru.*/) {$http_lang="ru_RU";} |
23 |
|
|
+elsif ($http_lang =~ /^sl.*/) {$http_lang="sl_SI";} |
24 |
|
|
+elsif ($http_lang =~ /^sv.*/) {$http_lang="sv_SE";} |
25 |
|
|
+elsif ($http_lang =~ /^tr.*/) {$http_lang="tr_TR";} |
26 |
|
|
+elsif ($http_lang =~ /^zh-cn.*/) {$http_lang="zh_CN";} |
27 |
|
|
+else {$http_lang="en_US";} |
28 |
|
|
|
29 |
|
|
-else {$http_lang="en_US";} |
30 |
|
|
|
31 |
|
|
$ENV{LC_MESSAGES} = "$http_lang"; |
32 |
|
|
setlocale(LC_MESSAGES, ""); |