web/template/debian/languages.wml

   1 #use wml::sup::path
   2 #use wml::debian::language_names
   3 <perl>
   4
   5 # Add your language directory along with its ISO abbreviation here.
   6 # Do not translate the directory names
   7 #            Directory   Abbrev
   8 my %langs = (english    => "en",
   9              turkish    => "tr",
  10              finnish    => "fi",
  11              portuguese => "pt",
  12              danish     => "da",
  13              french     => "fr",
  14              german     => "de",
  15              italian    => "it",
  16              spanish    => "es",
  17              korean     => "ko",
  18              japanese   => "ja",
  19              croatian   => "hr",
  20              chinese    => "zh",
  21              swedish    => "sv",
  22              polish     => "pl",
  23              norwegian  => "no",
  24 );
  25
  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&aring; p&aring; f&oslash;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:ÀÌ ÆäÀÌÁö´Â ´ÙÀ½ ¾ð¾î·Îµµ º¼ ¼ö ÀÖ½À´Ï´Ù:]
  43 </define-tag>
  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&aring;dan s&aelig;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:¿øÇÏ´Â ¾ð¾î·Î º¸·Á¸é ¾î¶»°Ô ÇØ¾ß ÇÏ´Â°¡?:]
  61 </define-tag>
  62
  63 # DO NOT translate anything below here.
  64 # If you feel something needs to be modified, write to debian-www first.
  65
  66 sub languages {
  67   my $str = "";
  68
  69   $base_url = "$(HOME)";
  70   $file = "$(WML_SRC_BASENAME)";
  71   $cur_lang = "$(CUR_LANG)";
  72   $cwd = `pwd`;
  73   $full_base_url = &canonpath("$cwd/$base_url");
  74   $rel_dir = &relpath($full_base_url, $cwd);
  75   chop $rel_dir; chop $rel_dir;
  76
  77   # printf STDERR "base=$base_url rel_dir=$rel_dir file=$file cur_lang=$cur_lang\n";
  78
  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") {
  83            push @used_langs, $_;
  84            # printf STDERR "found file in $_\n";
  85         }
  86      }
  87   }
  88   # printf STDERR join(', ', @used_langs);
  89   if (@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}{$_}} = $_;
  95      }
  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>&nbsp;\n";
 100         } else {
 101            $str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\">$trans{$CUR_ISO_LANG}{$cur_lang}&nbsp;(GB)</A>&nbsp;\n";
 102            $str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\">$trans{$CUR_ISO_LANG}{$cur_lang}&nbsp;(Big5)</A>&nbsp;\n";
 103         }
 104      }
 105      $str .= "\n<BR><A href=\"$base_url/intro/cn\"><setlang></A>\n";
 106   }
 107
 108   return $str;
 109 }
 110
 111 </perl>