#!/usr/bin/perl -w

$version = "2.4.0";

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

print "base: $baseurl\n";

%systemnames = ("deb", 0, "rpm", 1, "win", 2, "mac", 3);
$packsystem = -1;
if ($#ARGV>0 && $ARGV[0] eq "-t") {
    $packsystem = $systemnames{$ARGV[1]};
    shift;
    shift;
} else {
    print "Must give system with -t [deb|rpm|win|mac]\n";
    exit 1;
}

if ($packsystem == 0) {
    $dirname = "OOo_${version}_native_LinuxX86_langpacks_deb";
} elsif ($packsystem == 1) {
    $dirname = "OOo_${version}_native_LinuxX86_langpacks_rpm";
} elsif ($packsystem == 2) {
    $dirname = "OOo_${version}_native_Win32X86_langpacks";
} elsif ($packsystem == 3) {
    $dirname = "OOo_${version}_native_MacOSXPPC_langpacks";
}

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

for ($i=0; $i<=$#packs; $i++) {
    $filename = $packs[$i];
    $langid = $filename;
    $langid =~ s/^.+langpack_(.+).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 "be-BY") {$langid = "valkovenaja";}
    if ($langid eq "cs") {$langid = "tsekki";}
    if ($langid eq "da") {$langid = "tanska";}
    if ($langid eq "de") {$langid = "saksa";}
    if ($langid eq "dz") {$langid = "dzongkha";}
    if ($langid eq "en-GB") {$langid = "<b>brittienglanti</b>";}
    if ($langid eq "en-US") {$langid = "<b>amerikanenglanti</b>";}
    if ($langid eq "eo") {$langid = "esperanto";}
    if ($langid eq "es") {$langid = "espanja";}
    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 = "ndebele";}
    if ($langid eq "ns" || $langid eq "en-US_ns") {$langid = "pohjoissotho";}
    if ($langid eq "st" || $langid eq "en-US_st") {$langid = "etelasotho";}
    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 "gl") {$langid = "galicia";}
    if ($langid eq "hr") {$langid = "kroatia";}
    if ($langid eq "hu") {$langid = "unkari";}
    if ($langid eq "it") {$langid = "italia";}
    if ($langid eq "ka") {$langid = "gruusia";}
    if ($langid eq "ku") {$langid = "kurdi";}
    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 "nr") {$langid = "ndebele";}
    if ($langid eq "pt") {$langid = "portugali";}
    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 "st") {$langid = "<b>etelasotho</b>";}
    if ($langid eq "sv") {$langid = "<b>ruotsi</b>";}
    if ($langid eq "tg") {$langid = "tadzikki";}
    if ($langid eq "th") {$langid = "thai";}
    if ($langid eq "vi") {$langid = "vietnam";}

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