1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
#use wml::std::tags
#use wml::sup::path
#use wml::debian::language_names
<define-tag langtext whitespace=delete>
[EN:This page is also available in the following languages:]
[AR:åÐå ÇáÕøÝÍÉ ãÊÇÍÉ ÈÇááÛÇÊ ÇáÊÇáíÉ ÃíÖÇ:]
[CA:Disposeu també d'aquesta pàgina en les llengües següents:]
[DA:Denne side findes også på følgende sprog:]
[DE:Diese Seite gibt es auch in den folgenden Sprachen:]
[EL:Ç óåëßäá áõôÞ åßíáé äéáèÝóéìç êáé óôéò áêüëïõèåò ãëþóóåò:]
[EO:Tiu æi paøo estas ankaý legebla en la jenaj lingvoj:]
[ES:Esta página también está disponible en los siguientes idiomas:]
[FI:Tämä sivu on on olemassa myös seuraavilla kielillä:]
[FR:Cette page est aussi disponible dans les langues suivantes :]
[HR:Ova stranica je takoðer dostupna na sljedeæim jezicima:]
[HU:Az oldal az alábbi nyelveken is olvasható:]
[IT:Questa pagina è disponibile anche nelle lingue seguenti:]
[JA:¤³¤Î¥Ú¡¼¥¸¤Ï°Ê²¼¤Î¸À¸ì¤Ç¤â¤´Í÷¤Ë¤Ê¤ì¤Þ¤¹:]
[KO:ÀÌ ÆäÀÌÁö´Â ´ÙÀ½ ¾ð¾î·Îµµ º¼ ¼ö ÀÖ½À´Ï´Ù:]
[NL:Deze pagina is ook beschikbaar in de volgende talen:]
[NO:Denne siden fins også på følgende språk:]
[PL:Ta strona jest równie¿ dostêpna w nastêpuj±cych jêzykach:]
[PT:Esta página também está disponível nos seguintes idiomas:]
[RO:Aceastã paginã este disponibilã în urmãtoarele limbi:]
[RU:üÔÁ ÓÔÒÁÎÉÃÁ ÔÁËÖÅ ÄÏÓÔÕÐÎÁ ÎÁ ÓÌÅÄÕÀÝÉÈ ÑÚÙËÁÈ:]
[SV:Denna sida finns även på följande språk:]
[TR:Bu sayfa aþaðýdaki dillerde de mevcuttur:]
[ZH:¥»¶¨ä¥L»y¨¥ª©¥»¦p¤U:]
</define-tag>
<define-tag setlang whitespace=delete>
[EN:How to set the default document language:]
[AR:ßíÝ ÊåíøÆ ÇááøÛÉ ÇáÊÚÐøÑíÉ ááÕÝÍÉ:]
[CA:Com configurar la llengua per defecte als documents:]
[DA:Sådan opsætter du standardsprogvalg for dokumenter:]
[DE:Wie stellt man die Standardsprache ein:]
[EL:Ðùò íá ïñßóåôå ôçí ðñïêáèïñéóìÝíç ãëþóóá:]
[EO:Kiel elekti la dokumentan lingvon:]
[ES:Cómo modificar el idioma por defecto de los documentos:]
[FI:Oletuskielen asettamisohjeet:]
[FR:Comment configurer le langage par défaut du document:]
[HR:Kako postaviti predodreðeni jezik dokumenata:]
[HU:Hogyan állítsd be az alapértelmezett nyelvet?:]
[IT:Come configurare la lingua predefinita per i documenti:]
[JA:¥Ç¥Õ¥©¥ë¥È¤Î¸À¸ì¤òÀßÄꤹ¤ë¤Ë¤Ï:]
[KO:¿øÇÏ´Â ¾ð¾î·Î º¸·Á¸é ¾î¶»°Ô ÇØ¾ß Çϴ°¡?:]
[NL:Hoe zet je de standaard taal voor documenten:]
[NO:Slik setter du standard språkvalg:]
[PL:Jak ustawiæ domy¶lny jêzyk dokumentu:]
[PT:Como configurar o idioma padrão dos documentos:]
[RO:Cum sã configuraþi limba predefinitã a documentului.:]
[RU:ëÁË ÕÓÔÁÎÏ×ÉÔØ ÑÚÙË ÐÏ ÕÍÏÌÞÁÎÉÀ:]
[SV:Så ställer du in standardspråkval för dokument:]
[TR:Varsayýlan belge dili nasýl ayarlanýr:]
[ZH:¦p¦ó³]¸m[CN:¯Ê¬Ù:][HKTW:¹w³]:]»y¨¥:]
</define-tag>
<perl>
# Add your language directory along with its ISO abbreviation here.
# Do _not_ translate the directory names.
# Directory Abbrev
my %langs = ( english => "en",
arabic => "ar",
catalan => "ca",
danish => "da",
german => "de",
greek => "el",
esperanto => "eo",
spanish => "es",
finnish => "fi",
french => "fr",
croatian => "hr",
hungarian => "hu",
italian => "it",
japanese => "ja",
korean => "ko",
dutch => "nl",
norwegian => "no",
polish => "pl",
portuguese => "pt",
romanian => "ro",
russian => "ru",
swedish => "sv",
turkish => "tr",
chinese => "zh",
);
# If your language name contains entirely of non-latin characters, you
# might wish to give a latin transliteration of the name here, to aid
# those that have browser that cannot show different character sets at
# once.
my %translit = (
arabic => "Arbytm",
chinese => "Zhongzu",
greek => "Ellynika",
japanese => "Nihongo",
korean => "Hangul", # Not sure. "Hanguk-Mal" (=Spoken Korean)?
russian => "Russkij",
);
</perl>
# DO NOT translate anything below here.
# If you feel something needs to be modified, write to debian-www first.
<when "$(CUR_LOCALE)">
<perl>
use locale;
use POSIX;
setlocale(LC_ALL, "$(CUR_LOCALE)");
</perl>
</when>
<perl>
sub langcmp {
my ($first, $second) = ($a, $b);
# Handle sorting of non-latin characters
# If there is a transliteration for this language available, use it
$first = $translit{$sorted_langs{$a}} if defined $translit{$sorted_langs{$a}};
$second = $translit{$sorted_langs{$b}} if defined $translit{$sorted_langs{$b}};
# Put remaining entity-only names last in the list
if (substr($first,0,1) eq '&')
{
$first =~ s/^&/ZZZ&/;
}
if (substr($second,0,1) eq '&')
{
$second =~ s/^&/ZZZ&/;
}
# There seems to be a bug with localization in
# Perl 5.005 so we need those extra variables.
my ($ufirst, $usecond) = (uc($first), uc($second));
return $ufirst cmp $usecond;
}
sub languages {
my $str = "";
$base_url = "$(HOME)";
$file = "$(WML_SRC_BASENAME)";
$cur_lang = "$(CUR_LANG)";
$cwd = $WML_SRC_DIRNAME;
$full_base_url = &canonpath("$cwd/$base_url");
$rel_dir = &relpath($full_base_url, $cwd);
$rel_dir =~ s,/$,,;
# printf STDERR "base_url=$base_url rel_dir=$rel_dir file=$file cur_lang=$cur_lang\n";
foreach(keys %langs) {
# printf STDERR "$base_url/../$_/$rel_dir/$file.wml\n";
if ( -f "$base_url/../$_/$rel_dir/$file.wml" ) {
if ($_ ne lc($cur_lang) or $cur_lang eq "Chinese") {
push @used_langs, $_;
# printf STDERR "found file in $_\n";
}
}
}
# printf STDERR join(', ', @used_langs);
if (@used_langs) {
unless ($rel_dir eq "" && $file eq "index") {
$str = '<hrline>';
$str .= "\n";
}
$str .= "<!--UdmComment-->\n";
$str .= "<langtext>:\n<BR>\n";
# Language sorting. Create a hash going from the language's own name
# for itself to the language's ISO keys. Then work with the sorted
# keys.
foreach (@used_langs) {
$sorted_langs{$trans{$langs{$_}}{$_}} = $_;
}
# Sort on uppercase to work with languages which use lowercase initial
# letters.
foreach (sort langcmp keys %sorted_langs) {
$cur_lang = $sorted_langs{$_};
$tooltip = $trans{$CUR_ISO_LANG}{$cur_lang};
if ($cur_lang ne "chinese") {
$str .= "<A href=\"$file.$langs{$cur_lang}.html\" title=\"$tooltip\">$_";
$str .= " ($translit{$cur_lang})" if defined $translit{$cur_lang};
$str .= "</A> \n";
} else {
$str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\" title=\"$tooltip (<CNc>)\">$_ (CN)</A> \n";
$str .= "<A href=\"$file.$langs{$cur_lang}-hk.html\" title=\"$tooltip (<HKc>)\">$_ (HK)</A> \n";
$str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\" title=\"$tooltip (<TWc>)\">$_ (TW)</A> \n";
}
}
$str .= "\n<BR><A href=\"$base_url/intro/cn\"><setlang></A>\n";
$str .= "<!--/UdmComment-->\n";
}
if ($rel_dir eq "" && $file eq "sitemap") {
$str = '<hrline>';
$str .= "\n";
$str .= "<!--UdmComment-->\n";
$str .= "<langtext>:\n<BR>\n";
foreach (keys %langs) {
if ($_ ne lc($cur_lang) or $cur_lang eq "Chinese") {
$sorted_langs{$trans{$langs{$_}}{$_}} = $_;
}
}
foreach (sort langcmp keys %sorted_langs) {
$cur_lang = $sorted_langs{$_};
$tooltip = $trans{$CUR_ISO_LANG}{$cur_lang};
if ($cur_lang ne "chinese") {
$str .= "<A href=\"$file.$langs{$cur_lang}.html\" title=\"$tooltip\">$_";
$str .= " ($translit{$cur_lang})" if defined $translit{$cur_lang};
$str .= "</A> \n";
} else {
$str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\" title=\"$tooltip (<CNc>)\">$_ (CN)</A> \n";
$str .= "<A href=\"$file.$langs{$cur_lang}-hk.html\" title=\"$tooltip (<HKc>)\">$_ (HK)</A> \n";
$str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\" title=\"$tooltip (<TWc>)\">$_ (TW)</A> \n";
}
}
$str .= "<!--/UdmComment-->\n";
}
return $str;
}
</perl>
|
