#!/usr/bin/perl
# Vytáhne z databáze her informace ve tvaru, o který si řekl Jakub.
# Jako parametr požaduje třípísmenný databázový kód hry.
require("../access.pm");
# Zjistit cestu pro odkazování na statické stránky hrejsi.
open(KONFIG, "../cgi.cfg");
while(<KONFIG>)
{
    if(m/(\S+)\s*=\s*([^\r\n]*)/)
    {
        $konfig{$1} = $2;
    }
}
close(KONFIG);
# Načíst tabulku her.
$hry = access::cist_tabulku_access("hry.txt");
# Tabulku zboží na prodej je nutné načíst, abychom se dozvěděli, zda lze tuto hru koupit.
$prodej = access::cist_tabulku_access("prodej.txt");
# Najít hru s požadovaným kódem.
for(my $i = 0; $i<=$#{$hry}; $i++)
{
    if($hry->[$i]{kod} eq $ARGV[0])
    {
        $hra = $hry->[$i];
        last;
    }
}
# Najít zboží na prodej spadající pod daný kód hry.
for(my $i = 0; $i<=$#{$prodej}; $i++)
{
    if($prodej->[$i]{"kod hry"} eq $ARGV[0])
    {
        $lzekoupit = "<li><a href=\"prodej.pl?hra=$hra->{kod}\">Hru lze koupit</a></li>";
        last;
    }
}
# Upravit některá pole z databáze.
if($hra->{"dalsi nazvy"} ne "")
{
    $dalsinazvy = "<li><em>Další názvy:</em> ".$hra->{"dalsi nazvy"}."</li>";
}
if($hra->{autor} ne "")
{
    $autor = "<li><em>Autor:</em> ".$hra->{"autor"}."</li>";
}
if($hra->{vydavatel} ne "")
{
    $vydavatel = "<li><em>Vydavatel:</em> ".$hra->{"vydavatel"}."</li>";
}
if($hra->{"rok vydani"} ne "")
{
    $rokvydani = "<li><em>Rok vydání:</em> ".$hra->{"rok vydani"}."</li>";
}
if($hra->{"oceneni"} ne "")
{
    $oceneni = "<li><em>Ocenění:</em> ".$hra->{"oceneni"}."</li>";
}
$pocethracu = "<li><em>Hráčů:</em> ".join(", ", split(/\s*,\s*/, $hra->{"pocet hracu"}))."</li>";
if($hra->{"min vek"}>0)
{
    $hra->{vek} = "alespoň ".$hra->{"min vek"}." let";
}
else
{
    $hra->{vek} = "neznámý";
}
$vek = "<li><em>Věk:</em> ".$hra->{vek}."</li>";
if($hra->{"min delka"}>0 && $hra->{"max delka"}>$hra->{"min delka"})
{
    $hra->{delka} = $hra->{"min delka"}." až ".$hra->{"max delka"}." minut";
}
elsif($hra->{"min delka"}>0)
{
    $hra->{delka} = "asi ".$hra->{"min delka"}." minut";
}
else
{
    $hra->{delka} = "neznámá";
}
$delkahry = "<li><em>Délka:</em> ".$hra->{delka}."</li>";
if($hra->{"slozka hrejsi"} ne "")
{
    $odkazobr = "<div class=\"info\"><h2>Foto</h2><img class=\"foto\" alt=fotografie src=\"".$konfig{ccesta_html_www}."/".$hra->{"slozka hrejsi"}."/obr/fotka.jpg\" width=\"160\"/></div>\n";
}
# Vypsat požadované informace.
print <<EOF
<div class="sloupec1">
  <div class="info">
    <h2>Odkazy</h2>
    <ul>
      <li><a href="index.html"><b>Hlavní strana <?=$hra->{nazev} ?></b></a></li>
      <li><a href="pravidla.html">Pravidla</a></li>
      <li><a href="strateg.html">Strategie</a></li>
      $lzekoupit
    </ul>
  </div>

</div>

<div class="sloupec2">
  <div class="info">
    <h2>Charakteristika</h2>
    <ul>
      $dalsinazvy
      $autor
      $vydavatel
      $rokvydani
      $oceneni
      $pocethracu
      $vek
      $delkahry
    </ul>
  </div>
  $odkazobr
</div>
EOF
;