#!/usr/bin/perl -w

$baseurl = "ftp://ftp.funet.fi/pub/misc/openoffice/localized/finnish/stable/2.0.2/latest";

#$dirname = "OOo_2.0.2_native_LinuxIntel_langpacks_rpm";
#$dirname = "OOo_2.0.2_native_LinuxIntel_langpacks_deb";
#$dirname = "OOo_2.0.2_native_Win32Intel_langpacks";
$dirname = "OOo_2.0.2_native_MacOSXPPC_langpacks";

@packs = split '\n', `ls $dirname`;

for ($i=0; $i<=$#packs; $i++) {
    $filename = $packs[$i];
    $langid = $filename;
    $langid =~ s/^.+install_(.+).exe/$1/;
    $langid =~ s/^openofficeorg-(.+).tar.gz/$1/;
    $langid =~ s/^openoffice.org-([^0-9]+)-.+/$1/;

    if ($langid eq "af") {$langid = "afrikaans";}
    if ($langid eq "ar") {$langid = "arabia";}
    if ($langid eq "bg") {$langid = "bulgaria";}
    if ($langid eq "br") {$langid = "bretoni";}
    if ($langid eq "cs") {$langid = "tsekki";}
    if ($langid eq "da") {$langid = "tanska";}
    if ($langid eq "de") {$langid = "saksa";}
    if ($langid eq "en-GB") {$langid = "brittienglanti";}
    if ($langid eq "en-US") {$langid = "<b>amerikanenglanti</b>";}
    if ($langid eq "bn" || $langid eq "en-US_bn") {$langid = "bengali";}
    if ($langid eq "cy" || $langid eq "en-US_cy") {$langid = "kymri";}
    if ($langid eq "ga" || $langid eq "en-US_ga") {$langid = "iiri";}
    if ($langid eq "km" || $langid eq "en-US_km") {$langid = "khmer";}
    if ($langid eq "lo" || $langid eq "en-US_lo") {$langid = "lao";}
    if ($langid eq "ne" || $langid eq "en-US_ne") {$langid = "nepali";}
    if ($langid eq "nr" || $langid eq "en-US_nr") {$langid = "nr";}
    if ($langid eq "ns" || $langid eq "en-US_ns") {$langid = "pohjois-sotho";}
    if ($langid eq "tn" || $langid eq "en-US_st") {$langid = "etela-sotho";}
    if ($langid eq "tn" || $langid eq "en-US_tn") {$langid = "tswana";}
    if ($langid eq "ts" || $langid eq "en-US_ts") {$langid = "tsonga";}
    if ($langid eq "xh" || $langid eq "en-US_xh") {$langid = "xhosa";}
    if ($langid eq "zu" || $langid eq "en-US_zu") {$langid = "zulu";}
    if ($langid eq "el") {$langid = "kreikka";}
    if ($langid eq "et") {$langid = "viro";}
    if ($langid eq "fa") {$langid = "farsi";}
    if ($langid eq "fi") {$langid = "<b>suomi</b>";}
    if ($langid eq "fr") {$langid = "ranska";}
    if ($langid eq "hr") {$langid = "kroatia";}
    if ($langid eq "hu") {$langid = "unkari";}
    if ($langid eq "it") {$langid = "italia";}
    if ($langid eq "lt") {$langid = "liettua";}
    if ($langid eq "lv") {$langid = "latvia";}
    if ($langid eq "mk") {$langid = "makedonia";}
    if ($langid eq "nb") {$langid = "norja (bokmal)";}
    if ($langid eq "nl") {$langid = "hollanti";}
    if ($langid eq "nn") {$langid = "norja (nynorsk)";}
    if ($langid eq "sh-YU") {$langid = "serbokroaatti";}
    if ($langid eq "sk") {$langid = "slovakki";}
    if ($langid eq "sl") {$langid = "sloveeni";}
    if ($langid eq "sr-CS") {$langid = "serbia";}
    if ($langid eq "sv") {$langid = "<b>ruotsi</b>";}
    if ($langid eq "th") {$langid = "thai";}

    #print "    if (\$langid eq \"$langid\") {\$langid = \"\";}\n";
    print "        <a href=\"$baseurl/$dirname/$filename\">$langid</a>";
    if ($i < $#packs) {print ",";}
    print "\n";
}