#use wml::sup::path
# md5sum:d03304d9847e77a89bd61955d91c14d7 webwml/english/template/debian/languages.wml:
<perl>

# Do not translate the directory names
#             Directory     Abbrev Language
my %langs = ("english"  => ["en", "英語"],
             "danish"   => ["da", "オランダ語"],
             "french"   => ["fr", "フランス語"],
             "german"   => ["de", "ドイツ語"],
             "italian"  => ["it", "イタリア語"],
             "spanish"  => ["es", "スペイン語"],
             "korean"   => ["kr", "韓国語"],
             "japanese" => ["ja", "日本語"]);

sub languages {
  # my ($base_url, $file, $cur_lang) = @_;
  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)) {
           push @used_langs, $_;
           # printf STDERR "found file in $_\n";
        }
     }
  }
  # printf STDERR join(', ', @used_langs);
  if (@used_langs) {
     $str = "<hr>\nこのページは以下の言語でもご覧になれます:<BR>\n";
     foreach (@used_langs) {
        $str .= "<a href=\"$file.html.$langs{$_}[0]\">$langs{$_}[1]</a>&nbsp;\n";
     }
     $str .= "\n<BR><a href=\"$base_url/intro/cn.html.en\">デフォルトの言語を".
             "設定するには</a>\n";
  }

  return $str;
}

</perl>