#!/usr/bin/perl
# Zobrazí propozice turnaje předaného parametrem.
use dancgi; # čtení parametrů z webu nebo z ARGV
use access; # funkce pro čtení textových tabulek vyexportovaných z MS Accessu
use jazyky; # jazykové verze textů
use mso; # funkce pro generování stránek o olympiádě
use utf8; # říct Perlu, že konstantní řetězce ve zdrojáku jsou v UTF
binmode(STDOUT, ":utf8"); # říct Perlu, že UTF chceme i na výstupu
do("cesta.pl"); # Načíst vnější i vnitřní cesty k dokumentům, jak platí na tomto počítači.
# Cesty jsou načteny do hashe %konfig, kam budeme chtít dát i jiné věci, ale nebudeme
# chtít, aby se cesty objevily v nových odkazech jako parametry skriptu. Proto
# musíme přejmenovat jejich klíče. (Zatím si netroufám upravit přímo cesta.pl,
# protože ho používá i řada jiných skriptů a musel bych je všechny projít a opravit.)
$cesta = $konfig{ccesta_html_www};
undef(%konfig);
$konfig{_cesta} = $cesta;



# Načíst parametry z URL.
dancgi::cist_parametry(\%konfig);
# Umožnit volat skript z příkazového řádku a předat parametry tam (např. perl partie.pl zdroj=cas).
dancgi::rozebrat_parametry($ARGV[0], \%konfig);
# Opsat z parametrů jazyk a pak doplnit jazykově závislé hodnoty.
$konfig{jazyk} = "cs" if($konfig{jazyk} eq "");
$jazyky::jazyk = $konfig{jazyk};

# Přečíst tabulku akcí.
$akce = access::cist_tabulku_access("akce.txt");

# Do proměnné data přiřadí data z databáze příslušného turnaje.

for($i = 0; $i<=$#{$akce}; $i++)
{
    if($akce->[$i]{"rok"}==$konfig{rok} &&
       $akce->[$i]{"kod hry"} eq $konfig{hra} &&
       $akce->[$i]{"kod turnaje"} eq $konfig{turnaj})
    {
        $data = $akce->[$i];
        last;
    }
}

# Vypsat propozice.
mso::vypsat_stranku(
{
    "nazev"  => "MSO: $konfig{rok}: Propozice",
    "nadpis" => $data->{jazyky::zjistit("klic_nazev")},
    "telo"   => mso::propozice($data),
    "rok"  => $konfig{rok},
});