2 #use wml::debian::language_names
5 # Add your language directory along with its ISO abbreviation here.
6 # Do not translate the directory names
8 my %langs = (english => "en",
26 <define-tag langtext whitespace=delete>
27 [EN:This page is also available in the following languages:]
28 [TR:Bu sayfa a$aGdaki dillerde de mevcuttur:]
29 [FI:Tämä sivu on on olemassa myös seuraavilla kielillä:]
30 [PT:Esta página está disponível nas seguintes línguas:]
31 [HR:Ova stranica je takoðer dostupna na slijedeæim jezicima:]
32 [FR:Cette page est aussi disponible dans les langues suivantes:]
33 [DE:Diese Seite gibt es auch in den folgenden Sprachen:]
34 [IT:Questa pagina è disponibile anche nelle lingue seguenti:]
35 [JA:¤³¤Î¥Ú¡¼¥¸¤Ï°Ê²¼¤Î¸À¸ì¤Ç¤â¤´Í÷¤Ë¤Ê¤ì¤Þ¤¹:]
36 [PL:Ta strona jestrównie¿ dostêpna w nastêpuj±cych jêzykach:]
37 [ES:Esta página también está disponible en los siguientes idiomas:]
38 [DA:Denne side findes også på følgende sprog:]
39 [NO:Denne siden fins også på følgende språk:]
40 [ZH:¥»¶¨ä¥L»y¨¥ª©¥»¦p¤U:]
41 [SV:Denna sida finns även på följande språk:]
42 [KO:ÀÌ ÆäÀÌÁö´Â ´ÙÀ½ ¾ð¾î·Îµµ º¼ ¼ö ÀÖ½À´Ï´Ù:]
44 <define-tag setlang whitespace=delete>
45 [EN:How to set the default document language:]
46 [TR:VarsayIlan belge dili nasIl ayarlanIr:]
47 [FI:Oletuskielen asettamisohjeet:]
48 [PT:Como configurar a língua default dos documentos:]
49 [HR:Kako postaviti predodreðeni jezik dokumenata:]
50 [FR:Comment configurer le langage par défaut du document:]
51 [DE:Wie stellt man die Standardsprache ein:]
52 [IT:Come configure il linguaggio predefinito per i documenti:]
53 [JA:¥Ç¥Õ¥©¥ë¥È¤Î¸À¸ì¤òÀßÄꤹ¤ë¤Ë¤Ï:]
54 [PL:Jak ustawiæ domy¶lny jêzyk dokumentu:]
55 [ES:Como modificar el idioma por defecto de los documentos:]
56 [DA:Sådan sætter du standard sprogvalg for dokumenter:]
57 [NO:Slik setter du standard språkvalg:]
58 [ZH:¦p¦ó³]¸m¹w³]»y¨¥:]
59 [SV:Så ställer du in standardspråkval för dokument:]
60 [KO:¿øÇÏ´Â ¾ð¾î·Î º¸·Á¸é ¾î¶»°Ô ÇØ¾ß Çϴ°¡?:]
63 # DO NOT translate anything below here.
64 # If you feel something needs to be modified, write to debian-www first.
69 $base_url = "$(HOME)";
70 $file = "$(WML_SRC_BASENAME)";
71 $cur_lang = "$(CUR_LANG)";
73 $full_base_url = &canonpath("$cwd/$base_url");
74 $rel_dir = &relpath($full_base_url, $cwd);
75 chop $rel_dir; chop $rel_dir;
77 # printf STDERR "base=$base_url rel_dir=$rel_dir file=$file cur_lang=$cur_lang\n";
79 foreach(keys %langs) {
80 # printf STDERR "$base_url/../$_/$rel_dir/$file.wml\n";
81 if ( -f "$base_url/../$_/$rel_dir/$file.wml" ) {
82 if ($_ ne lc($cur_lang) or $cur_lang eq "Chinese") {
84 # printf STDERR "found file in $_\n";
88 # printf STDERR join(', ', @used_langs);
90 $str = "<HR>\n<langtext>:<BR>\n";
91 # Poor man's language sorting. create a hash going from the translation back to
92 # the english orig. Then work with the sorted keys.
93 foreach (@used_langs) {
94 $sorted_langs{$trans{$CUR_ISO_LANG}{$_}} = $_;
96 foreach (sort keys %sorted_langs) {
97 $cur_lang = $sorted_langs{$_};
98 if ($cur_lang ne "chinese") {
99 $str .= "<A href=\"$file.$langs{$cur_lang}.html\">$trans{$CUR_ISO_LANG}{$cur_lang}</A> \n";
101 $str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\">$trans{$CUR_ISO_LANG}{$cur_lang} (GB)</A> \n";
102 $str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\">$trans{$CUR_ISO_LANG}{$cur_lang} (Big5)</A> \n";
105 $str .= "\n<BR><A href=\"$base_url/intro/cn\"><setlang></A>\n";