#!/usr/bin/perl
# Zobrazí pruh menu po levé straně.
# © 2004-2006, 2011 Dan Zeman <zeman@ufal.mff.cuni.cz>
# 2010 rozbil Jakub...
# Licence: GNU GPL

use utf8; # říct Perlu, že konstantní řetězce ve zdrojáku jsou v UTF
use jakubcgi;
use dancgi; # čtení parametrů z webu nebo z ARGV
# Říct Perlu, kde najde Danovy sdílené knihovny.
# CGI skripty běží pod uživatelem apache, který nemá tyto knihovny v cestě.
use lib '/s/w/lib/dan';
use cas; # práce s daty a časem
use jazyky; # jazykové verze textů
use mso; # funkce pro generování stránek o olympiádě
binmode(STDOUT, ":utf8"); # říct Perlu, že UTF chceme i na výstupu

# Připojit se k databázi.
$databaze = mso::pripojit_se_k_databazi();

# Zjistit aktuální rok.
my $aktualni_rok = cas::ted()->{rok};
my $prihlasovani_otevreno = 1; # lze už se přihlašovat na turnaje?
my $festival_probiha = 0; # jestli festival právě probíhá, nebo už je po

# Jakub způsobil, že tento skript přestal být samostatným cgi skriptem, ale volá se z index.pl pomocí require.
# V tom případě ale nemá číst znova parametry CGI, které už načetl index.pl.
# Místo toho si má vzít upravené parametry z %konfig_menu!
my %konfig;
if(%main::konfig_menu)
{
    %konfig = %konfig_menu;
}
else
{
    # Výchozí nastavení parametrů. Může být přebito parametry z URL/ARGV.
    mso::provest_vychozi_nastaveni_parametru(\%konfig, $databaze);
    dancgi::cist_parametry(\%konfig);
}
$jazyky::jazyk = $konfig{jazyk} ne "" ? $konfig{jazyk} : "cs";
$title = jazyky::zjistit("title");

# Hrubé zabezpečení proti útokům a zneužívání: parametr telo smí odkazovat jen na námi schválené stránky. Žádná lomítka nebo svislítka!
die if($konfig{telo} !~ m/^[-a-z_\.]*$/);

# Vypsat vlastní menu.
print("  <ul id=\"menu\">\n");

$param_uvodni_strana = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=text.pl", "text=uvod.htm", "rok=$aktualni_rok");
if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl", "text=uvod.htm", "rok=$aktualni_rok")) {$class= " class=\"active\""} else {$class=''};
print("    <li$class><a href=\"index.pl?$param_uvodni_strana\" target=\"_top\">", jazyky::zjistit("uvodni_strana"), "</a></li>\n");

if($konfig{rok}==$aktualni_rok) {
    $param_aktuality = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=text.pl", "text=aktuality.htm", "rok=$aktualni_rok");
    if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl", "text=aktuality.htm", "rok=$aktualni_rok")) {$class= " active"} else {$class=''};
    print("    <li class=\"important_menu2$class\"><a href=\"index.pl?$param_aktuality\" target=\"_top\">", jazyky::zjistit("aktuality"), "</a></li>\n");
};

#if(($konfig{rok}==$aktualni_rok) and ($festival_probiha == 0)) {
#  $param_kde = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=fotogalerie.pl", "text=index.html", "rok=$aktualni_rok");
#  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=fotogalerie.pl", "text=index.html", "rok=$aktualni_rok")) {$class= " class=\"active\""} else {$class=''};
#  print("    <li$class><a href=\"index.pl?$param_kde\" target=\"_top\">", jazyky::zjistit("fotogalerie"), "</a></li>\n");
#};

if($konfig{rok}==$aktualni_rok) {
  $param_kde = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=text.pl", "text=kde.htm", "rok=$aktualni_rok");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl", "text=kde.htm", "rok=$aktualni_rok")) {$class= " class=\"active\""} else {$class=''};
  print("    <li$class><a href=\"index.pl?$param_kde\" target=\"_top\">", jazyky::zjistit("kde_kdy_jak"), "</a></li>\n");
};

$param_globalni_tabulka = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=globtabl.pl");
if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=globtabl.pl")) {$class= " class=\"important_menu2 active\""} else {$class= " class=\"important_menu2\""};
print("    <li$class><a href=\"index.pl?$param_globalni_tabulka\" target=\"_top\">", jazyky::zjistit("globalni_tabulka"), "</a></li>\n");


$propozice = jazyky::zjistit("menu_prehled_turnaju");
$param_propozice = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=akce.pl");
if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=akce.pl")) {$class= " active"} else {$class=''};
$propozice =~ s/<a>/<a href=\"index\.pl\?$param_propozice\"  target=\"_top\">/g;
print("    <li class=\"$class\">$propozice</li>\n");


if($konfig{rok}==$aktualni_rok)
{
  $param_ludoteka = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=text.pl", "text=ludoteka.htm", "rok=$aktualni_rok");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl", "text=ludoteka.htm", "rok=$aktualni_rok")) {$class= " active"} else {$class=''};
  print("    <li class=\"distant important_menu2$class\"><a href=\"index.pl?$param_ludoteka\" target=\"_top\">", jazyky::zjistit("volne_hrani"), "</a></li>\n");

  $param = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=doprogram.pl", "rok=$aktualni_rok");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=doprogram.pl", "rok=$aktualni_rok")) {$class= " active"} else {$class=''};
  print("    <li class=\"$class\"><a href=\"index.pl?$param\" target=\"_top\">", jazyky::zjistit("rychlokurzy_her"), "</a></li>\n");
}


if(($konfig{rok}==$aktualni_rok) and ($prihlasovani_otevreno == 1))
{
  $param_prihlaska = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=prihlaska.pl");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=prihlaska.pl")) {$class= " class=\"active distant\""} else {$class= " class=\"distant\""};
  print("    <li$class><a href=\"index.pl?$param_prihlaska\" target=\"_top\">", jazyky::zjistit("prihlaska"), "</a></li>\n");

  $param_prihlaseni = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=prihlaseni.pl", "hra", "turnaj");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=prihlaseni.pl", "hra", "turnaj")) {$class= " class=\"active\""} else {$class=''};
  print("    <li$class><a href=\"index.pl?$param_prihlaseni\" target=\"_top\">", jazyky::zjistit("prihlaseni"), "</a></li>\n");
};


if($konfig{rok}==$aktualni_rok)
{
  $param_proskoly = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=skoly.pl");
  if (jakubcgi::jsou_schodne_parametry(\%konfig,"telo=skoly.pl")) {$class= " class=\"active\""} else {$class=''};
  print("    <li$class><a href=\"index.pl?$param_proskoly\" target=\"_top\">", jazyky::zjistit("skoly"), "</a></li>\n");
  
  $param_partneri = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=text.pl","text=sponzori.htm");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl","text=sponzori.htm")) {$class= " active"} else {$class=''};
  print("    <li class=\"distant $class\"><a href=\"index.pl?$param_partneri\" target=\"_top\">", jazyky::zjistit("partneri"), "</a></li>\n");

  $param_organizatori = dancgi::sestavit_parametry_odkaz(\%konfig,"telo=text.pl","text=organizatori.htm");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl","text=organizatori.htm")) {$class= " active"} else {$class=''};
  print("    <li class=\"$class\"><a href=\"index.pl?$param_organizatori\" target=\"_top\">", jazyky::zjistit("organizatori"), "</a></li>\n");
  
  $param_predchozi = dancgi::sestavit_parametry_odkaz(\%konfig, "telo=text.pl", "text=predchozi_rocniky.htm", "rok=$aktualni_rok");
  if (jakubcgi::jsou_schodne_parametry(\%konfig, "telo=text.pl", "text=predchozi_rocniky.htm", "rok=$aktualni_rok")) {$class= " class=\"active\""} else {$class=''};
  print("    <li$class><a href=\"index.pl?$param_predchozi\" target=\"_top\">", jazyky::zjistit("predchozi"), "</a></li>\n");
}

print("  </ul>\n");
