remove cruft that joy told me to....

[mirror/userdir-ldap.git] / web / template / debian / languages.wml

diff --git a/web/template/debian/languages.wml b/web/template/debian/languages.wml
deleted file mode 100644 (file)
index c30fb6f..0000000
--- a/web/template/debian/languages.wml
+++ /dev/null
@@ -1,111 +0,0 @@
-#use wml::sup::path
-#use wml::debian::language_names
-<perl>
-
-# Add your language directory along with its ISO abbreviation here.
-# Do not translate the directory names
-#            Directory   Abbrev
-my %langs = (english    => "en",
-            turkish    => "tr",                
-            finnish    => "fi",
-             portuguese => "pt",
-             danish     => "da",
-             french     => "fr",
-             german     => "de",
-             italian    => "it",
-             spanish    => "es",
-             korean     => "ko",
-             japanese   => "ja",
-             croatian   => "hr",
-             chinese    => "zh",
-             swedish    => "sv",
-             polish     => "pl",
-             norwegian  => "no",
-);
-
-<define-tag langtext whitespace=delete>
-       [EN:This page is also available in the following languages:]
-       [TR:Bu sayfa a$aGdaki dillerde de mevcuttur:]
-       [FI:Tämä sivu on on olemassa myös seuraavilla kielillä:]
-       [PT:Esta página está disponível nas seguintes línguas:]
-       [HR:Ova stranica je takoðer dostupna na slijedeæim jezicima:]
-       [FR:Cette page est aussi disponible dans les langues suivantes:]
-       [DE:Diese Seite gibt es auch in den folgenden Sprachen:]
-       [IT:Questa pagina è disponibile anche nelle lingue seguenti:]
-       [JA:¤³¤Î¥Ú¡¼¥¸¤Ï°Ê²¼¤Î¸À¸ì¤Ç¤â¤´Í÷¤Ë¤Ê¤ì¤Þ¤¹:]
-       [PL:Ta strona jestrównie¿ dostêpna w nastêpuj±cych jêzykach:]
-       [ES:Esta página también está disponible en los siguientes idiomas:]
-       [DA:Denne side findes ogs&aring; p&aring; f&oslash;lgende sprog:]
-       [NO:Denne siden fins også på følgende språk:]
-       [ZH:¥»­¶¨ä¥L»y¨¥ª©¥»¦p¤U:]
-       [SV:Denna sida finns även på följande språk:]
-       [KO:ÀÌ ÆäÀÌÁö´Â ´ÙÀ½ ¾ð¾î·Îµµ º¼ ¼ö ÀÖ½À´Ï´Ù:]
-</define-tag>
-<define-tag setlang whitespace=delete>
-       [EN:How to set the default document language:]
-       [TR:VarsayIlan belge dili nasIl ayarlanIr:]
-       [FI:Oletuskielen asettamisohjeet:]
-       [PT:Como configurar a língua default dos documentos:]
-       [HR:Kako postaviti predodreðeni jezik dokumenata:]
-       [FR:Comment configurer le langage par défaut du document:]
-       [DE:Wie stellt man die Standardsprache ein:]
-       [IT:Come configure il linguaggio predefinito per i documenti:]
-       [JA:¥Ç¥Õ¥©¥ë¥È¤Î¸À¸ì¤òÀßÄꤹ¤ë¤Ë¤Ï:]
-       [PL:Jak ustawiæ domy¶lny jêzyk dokumentu:]
-       [ES:Como modificar el idioma por defecto de los documentos:]
-       [DA:S&aring;dan s&aelig;tter du standard sprogvalg for dokumenter:]
-       [NO:Slik setter du standard språkvalg:]
-       [ZH:¦p¦ó³]¸m¹w³]»y¨¥:]
-       [SV:Så ställer du in standardspråkval för dokument:]
-       [KO:¿øÇÏ´Â ¾ð¾î·Î º¸·Á¸é ¾î¶»°Ô ÇØ¾ß Çϴ°¡?:]
-</define-tag>
-
-# DO NOT translate anything below here.
-# If you feel something needs to be modified, write to debian-www first.
-
-sub languages {
-  my $str = "";
-
-  $base_url = "$(HOME)";
-  $file = "$(WML_SRC_BASENAME)";
-  $cur_lang = "$(CUR_LANG)";
-  $cwd = `pwd`;
-  $full_base_url = &canonpath("$cwd/$base_url");
-  $rel_dir = &relpath($full_base_url, $cwd);
-  chop $rel_dir; chop $rel_dir;
-
-  # printf STDERR "base=$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) {
-     $str = "<HR>\n<langtext>:<BR>\n";
-     # Poor man's language sorting. create a hash going from the translation back to
-     # the english orig. Then work with the sorted keys.
-     foreach (@used_langs) {
-        $sorted_langs{$trans{$CUR_ISO_LANG}{$_}} = $_;
-     }
-     foreach (sort keys %sorted_langs) {
-        $cur_lang = $sorted_langs{$_};
-        if ($cur_lang ne "chinese") {
-           $str .= "<A href=\"$file.$langs{$cur_lang}.html\">$trans{$CUR_ISO_LANG}{$cur_lang}</A>&nbsp;\n";
-        } else {
-           $str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\">$trans{$CUR_ISO_LANG}{$cur_lang}&nbsp;(GB)</A>&nbsp;\n";
-           $str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\">$trans{$CUR_ISO_LANG}{$cur_lang}&nbsp;(Big5)</A>&nbsp;\n";
-        }
-     }
-     $str .= "\n<BR><A href=\"$base_url/intro/cn\"><setlang></A>\n";
-  }
-
-  return $str;
-}
-
-</perl>