#!/usr/bin/perl # CGI přístup k databázi her. Generuje jak seznamy, tak stránky o konkrétních hrách. # (c) prosinec 2002 Daniel Zeman # 30.12.2003: přechod na UTF-8 # Rict Perlu, ze tento zdrojak je v UTF-8. use utf8; use Encode; require("../access.pm"); # Přinutit Perl, aby UTF8 vypisoval jako UTF8 a nevymýšlel pro mě "vhodné" osmibitové kódování. binmode(STDOUT, ":utf8"); # Kvůli sestavení parametrů; čtení parametrů zatím probíhá nějak pravěce. #use dancgi; require("./dancgi.pm"); # Přečíst parametry. dancgi::cist_parametry(\%pole); dancgi::cist_formular_post(\%pole) if($pole{formular}); # Robotům odmítnout přístup, jestliže si chtějí něco strčit do košíku. use norobot; if(!norobot::proverit() && exists($pole{kosik})) { norobot::ohlasit_chybu(); exit(0); } zacatek(); if($pole{hra} eq "") { prostredek_novinky(); } elsif($pole{hra} eq "obecne") { prostredek_obecny(); } elsif($pole{hra} eq "novinky") { prostredek_novinky(); } elsif($pole{hra} eq "poradna") { prostredek_poradna(); } elsif($pole{hra} eq "deti") { prostredek_poradna_deti(); } elsif($pole{hra} eq "rodina") { prostredek_poradna_rodina(); } elsif($pole{hra} eq "pro2") { prostredek_poradna_pro2(); } elsif($pole{hra} eq "experti") { prostredek_poradna_experti(); } elsif($pole{hra} eq "mejdan") { prostredek_poradna_mejdan(); } elsif($pole{hra} eq "slevy") { prostredek_slevy(); } elsif($pole{hra} eq "cenik") { prostredek_cenik(); } elsif($pole{hra} eq "cenikk") { prostredek_cenik_klubovy(); } elsif($pole{hra} eq "objednavka") { prostredek_objednavka(); } else { prostredek_hra($pole{hra}); } if($pole{kosik} eq "") { kraj_obecny(); } else { kraj_kosik(); } # Vypsat závěr stránky. print < EOF ; ############################################################################### # Podprogramy ############################################################################### #------------------------------------------------------------------------------ # Provede počáteční úkony, nezávislé na tom, jaký pohled uživatel zvolil. # Načte parametry a vypíše začátek HTML stránky. #------------------------------------------------------------------------------ sub zacatek { # Zjistit cestu pro odkazování na statické stránky hrejsi. open(KONFIG, "../cgi.cfg"); while() { if(m/(\S+)\s*=\s*([^\r\n]*)/) { $konfig{$1} = $2; } } close(KONFIG); $koren_hrejsi = $konfig{ccesta_html_www}; $koren_system = $konfig{scesta_html_www}; # Pro ladící účely si nachystat výpis parametrů na výstup. $ladeni = 0; if($ladeni) { foreach($key, sort(keys(%pole))) { $dbg_parametry .= "$key = $pole{$key}\n"; } $dbg_parametry = "
$dbg_parametry
\n"; } # V režimu "objednavka" se o obsahu košíku smí dozvědět jen zasvěcení. # Ale např. ti, co konstruují odkazy na stránky s hrami, si musí myslet, # že košík je momentálně prázdný! if($pole{hra} eq "objednavka") { $objednany_kosik = $pole{kosik}; # globální proměnná delete($pole{kosik}); } # Načíst procedury na čtení tabulky her. do "cist.pl"; # Načíst tabulku her. precist_hry("hry.txt"); zjistit_pocet_exemplaru("exemplare.txt"); zjistit_pocet_na_prodej("prodej.txt"); # Poslat MIME záhlaví dokumentu. print("Content-Type: text/html; charset=utf-8\n\n"); # Nachystat si proměnné části začátku stránky. # Poslat začátek stránky. print < Deskové hry \n"); my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=obecne"); print <

Seznam her na prodej:

EOF ; print("

\n"); for($i = 0; $i<=$#kody; $i++) { vypsat_odkaz_na_hru_do_seznamu($kody[$i]); } print("

\n"); print("
EOF ; } #------------------------------------------------------------------------------ # Vypíše obecný prostředek, když není vybrána konkrétní hra. #------------------------------------------------------------------------------ sub prostredek_obecny { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek novinky, když není vybrána konkrétní hra. #------------------------------------------------------------------------------ sub prostredek_novinky { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když není vybrána konkrétní hra. #------------------------------------------------------------------------------ sub prostredek_poradna { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když jsou vybrány rodinné hry. #------------------------------------------------------------------------------ sub prostredek_poradna_rodina { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když jsou vybrány hry pro malé děti. #------------------------------------------------------------------------------ sub prostredek_poradna_deti { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když jsou vybrány hry pro dva hráče. #------------------------------------------------------------------------------ sub prostredek_poradna_pro2 { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když jsou vybrány hry pro fajnšmekry. #------------------------------------------------------------------------------ sub prostredek_poradna_experti { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek Vánoční poradna, když jsou vybrány hry na mejdan. #------------------------------------------------------------------------------ sub prostredek_poradna_mejdan { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek slevy, když není vybrána konkrétní hra. #------------------------------------------------------------------------------ sub prostredek_slevy { print < EOF ; } #------------------------------------------------------------------------------ # Vypíše obecný kraj, když není vybrána konkrétní hra. #------------------------------------------------------------------------------ sub kraj_obecny { my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=obecne"); print <

Hry na prodej

Všechny vlevo uvedené hry i mnohé dalších si můžete zakoupit v Klubu deskových her Paluba (Praha, Lidická 40 u Anděla, po, st 16 - 22 hod., út, čt 17 - 21 hod.). Všechny hry, které jsou na prodej, si v klubu můžete vyzkoušet, takže nebudete kupovat zajíce v pytli. Odborná rada také nebude chybět!

Také můžeme tyto hry zaslat na dobírku. Pak k ceně připočteme poštovné 79 Kč. Od 2000 Kč můžete využít naše EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=slevy"); print("SLEVY\n"); print("

\n"); print <Organizace pracující s dětmi a mládeží obdrží slevu nezávisle na výši odběru! Pokud jste taková organizace, nezapomeňte to uvést při objednávce!

Při předplatbě na účet platíte poštovné jen 49 Kč.

Dobírku lze zaslat i na Slovensko, ale pouze do 2 kg a poštovné je bohužel mnohem dražší (kolem 250 Kč, dle sazebníku české pošty).

U některých her je také možné
EXPRESNÍ DODÁNÍ, které obdržíte do 48 hodin.
Je třeba si nejlépe telefonicky či mailem ověřit, zda je to u dané hry zrovna možné. U expresnich dodávek připočítáváme expresní příplatek 50 Kč, tedy celé poštovné a balné vyjde na 129 Kč

Objednávky vyřizujeme zhruba do 14 dnů, je-li hra skladem.
Je-li u hry uvedeno, že jde o hru na objdnávku, mohou být dodací lhůty delší.

Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777552729.

EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek, když je vybrán ceník. #------------------------------------------------------------------------------ sub prostredek_cenik { $zbozi = access::cist_tabulku_access("zbozi.txt", "utf-8"); print <

Obchod s hrami

Všechny hry můžete koupit jak v Klubu Paluba, tak také přímo zde na dobírku. Pak připočítáváme poštovné 79 Kč.

EOF ; print("

\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=novinky"); print("NOVINKY | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=obecne"); print("Dodací podmínky | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=slevy"); print("SLEVY | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=cenik"); print("Ceník (řazen dle cen)\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=poradna"); print("

VÁNOČNÍ PORADNA: hry pro \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=rodina"); print("celou rodinu | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=deti"); print("děti | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=experti"); print("fajnšmekry | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=pro2"); print("dva | \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=mejdan"); print("párty a mejdany\n"); print("

\n"); print <

Klub deskových her Paluba

Program Paluby, Stránka Paluby
(klepnutím na tyto odkazy ztratíte obsah košíku)

Všechny vlevo uvedené hry i mnohé dalších si můžete zakoupit v Klubu deskových her Paluba (Praha, Lidická 40 u Anděla, po, st 16 - 22 hod., út, čt 17 - 21 hod.). Všechny hry, které jsou na prodej, si v klubu můžete vyzkoušet, takže nebudete kupovat zajíce v pytli. Odborná rada také nebude chybět!

Také můžeme tyto hry zaslat na dobírku.
Pak k ceně připočteme poštovné 79 Kč.

    Při objednávce:

  • nad 2 000 Kč je poštovné ZDARMA.
  • nad 5 000 Kč sleva 3%

Při předplatbě na účet platíte poštovné jen 49 Kč. Chcete-li využít předplatbu, napište to do poznámky při objednávce.

Organizace pracující s dětmi a mládeží také obdrží slevu.
Pokud jste taková organizace, nezapomeňte to uvést při objednávce!

Dobírku lze zaslat i na Slovensko, ale pouze do 2 kg a poštovné je bohužel mnohem dražší (kolem 250 Kč, dle sazebníku české pošty).

Chcete-li zaslat hry na dobírku, stačí si je objednat zde případně mailem: paluba\@hrejsi.cz nebo telefonicky na 777552729 (Klára Zemanová).

Objednávky vyřizujeme zhruba do 14 dnů, je-li hra skladem.
Je-li u hry uvedeno, že jde o hru na objdnávku, mohou být dodací lhůty delší.

U některých her je také možné
EXPRESNÍ DODÁNÍ, které obdržíte do 48 hodin.
Je třeba si nejlépe telefonicky či mailem ověřit, zda je to u dané hry zrovna možné.
U expresnich dodávek připočítáváme expresní příplatek 50 Kč, tedy celé poštovné a balné vyjde na 129 Kč

Novinky

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Neues Land Samotatná hra. Letošní carcassonnová novinka. Poprvé na českém trhu. Zatím budeme mít pouze omezený počet kusů! \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Řeka II Rozšíření k oblíbené hře. Nelze hrát samostatně, pouze se základní sadou. Lze kombinovat s jinými rozšířeními. Máme pouze omezený počet!\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Hrabě Opět budeme mít pár kusů tohoto rozšíření k oblíbené hře. Nelze hrát samostatně, pouze se základní sadou. Lze kombinovat s jinými rozšířeními. Budeme mít pouze omezený počet!\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Město Samotatná hra pro 2 - 4 hráče. Je nejen herně zajímavá, ale také luxusně provedená: v dřevěné krabičce, dřevěné hradby a věže.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=lui"); print("
  • Ludvík XIV. Velice zajímavá hra pro 2 - 4 hráče od 12 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=haf"); print("
  • Haf haf! Vhodné pro děti od 3 let. Hra částečně na paměť, částečně závisí na náhodě. Psí máma uprostřed opravdu štěká a kolikrát štěkne, o tolik políček popojdou štěňátka, která hledají kostičku své barvy. Kosti se pejskům přichytávají k čumáčkům magnetem.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=mys"); print("
  • Myšky Vhodné pro děti od 4 let. Hra je částečně na paměť a na postřeh. Zaujme i starší, je u ní spousta legrace.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=zkv"); print("
  • Žabák Kvak Vhodné pro děti od 5 let. Zábavná hra na postřeh.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=hll"); print("
  • Halali Velice zajímavá hra pro 2 hráče. Hra je neobvyklá tím, že hráči mají odlišné možnosti tahů. \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=spe"); print("
  • Sankt Petersburg Velice zajímavá hra pro 2 - 4 hráče od 10 let. Byla nominována na cenu německé kritiky Spiel des Jahres 2004.\n"); print("

Podívejte se také na naše tipy pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Chcete někomu koupit jako vánoční dárek nějakou hru a vůbec nevíte jakou? V obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?

Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V Klubu deskových her Paluba si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!

Pokud nemáte tuto možnost, pokusíme se Vám zde dát pár užitečných tipů. Jsou členěny podle toho, pro koho jsou hry určeny. Někdy také chcete koupit hru jen do určitého cenového limitu. Pak Vám určitě ve výběru pomůže EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=cenik"); print("ceník (řazený dle cen).

\n"); print("

Vyberte si z následujících odkazů podle toho, komu chcete hru koupit:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Hry pro celou rodinu

Chcete někomu koupit jako vánoční dárek nějakou hru a vůbec nevíte jakou? V obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?

Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V Klubu deskových her Paluba si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!

Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.

Jsou zde hry, které nemají složitá pravidla, dají se hrát i bez "zkušeností s hraním" a kromě toho jsou "osvědčené". Tedy většině lidí (od dětí přes teenagery a dospěláky až po babičky) se líbí.

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Ideální rodinná hra (pro 2 - 5 hráčů od 6 let). Jednoduchá, zábavná, oceněná mnoha cenami, oblíbená po celém světě. Má řadu rozšíření a variant, takže pokud vás chytne, můžete rozšiřovat a zesložiťovat.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=car"); print("
  • Carcassonne Město NOVINKA! Samostatná hra pro 2 - 4 hráče. Je nejen herně zajímavá, ale také luxusně provedená: v dřevěné krabičce, dřevěné hradby a věže.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=osa"); print("
  • Osadníci z Katanu O malinko složitější rodinná hra (pro 3 - 4 hráče od 8 let), která vás chytne a nepustí. Oceněná mnoha cenami (Hra roku 2004), oblíbená po celém světě. Má řadu rozšíření a variant, takže pokud vás chytne, můžete rozšiřovat a zesložiťovat.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=trn"); print("
  • Trans America Ideální rodinná hra (pro 2 - 6 hráčů od 7 let). Jednoduchá, rychlá a zábavná, nominovaná na cenu německé kritiky Spiel des Jahres 2002, oblíbená po celém světě.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=eme"); print("
  • Emerald Ideální rodinná hra (pro 2 - 5 hráčů). Určitě svým námětem zaujme i mladší hráče. Kradete totiž drakovi zlato a drahokamy.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=crt"); print("
  • Cartagena Dobrodružná rodinná hra (pro 2 - 5 hráčů od 8 let). Hra s netradičním vtipně řešeným herním systémem na motivy útěku z vězení.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=act"); print("
  • Activity Zábavná hra pro vetší skupinu lidí (pro 3 - 16 hráčů). Hra prohlubující komunikační schopnosti. Vylosujete si pojem, který musíte namalovat, popsat či předvést. Má několik variant pro různé věkové skupiny.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=spe"); print("
  • Sankt Petersburg Novinka. Trochu složitější, ale velice zajímavá hra pro 2 - 4 hráče od 10 let. Byla nominována na cenu německé kritiky Spiel des Jahres 2004.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=psi"); print("
  • Psí život Zábavná a vtipná hra hra pro 2 - 6 hráčů od 10 let.\n"); print("

Kromě rodinných her se můžete podívat na zajímavé hry pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Hry pro děti ve věku 2 - 7 let

Deskové hry jsou nejen zábava, ale také rozvíjejí mnohé schopnosti (paměť, logické myšlení, koncentraci, pozorovací schopnosti, komunikační dovednosti, jemnou motoriku, postřeh...). Kromě toho je pro vývoj dítěte velmi důležité, když se sejde celá rodina a něco aktivního dělá pohromadě. Žádný sebedražší dárek nenahradí příjemnou a láskyplnou rodinnou atmosféru! Půl hodinky denně "celorodinného hraní" je pro dítě mnohem cennější, než jakýkoliv dárek.

Hrajeme s dětmi Pexeso či Člověče, nezlob se! A ani nevíme, že her pro tuto věkovou skupinu jsou desítky a velké množství z nich stojí za to. Her je mnoho a v obchodě podle krabice poznáte málo…

Nejlepší je si hry vyzkoušet. Můžete tak učinit například v Klubu deskových her Paluba, kde si hry zahrajete i si je můžete rovnou koupit. Odborná rada zde nikdy nechybí!

Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů:

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=mme"); print("
  • Medoví Medvídci Baví všechny děti od 3 let. Moc dobře udělaný strom (55 cm vysoký), skrz který propadávají medové kuličky i sami medvídci.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=mte"); print("
  • Mám tě! Zábavná hra na postřeh pro děti od 4 let. Kdo pochytá plácačkou víc much?\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=kuo"); print("
  • Kuřecí olympiáda Kvalitní hra na paměť pro děti od 4 let, určitě bude bavit i 8 leté a rodičům taky protáhne mozkové závity. \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=mdn"); print("
  • Měsíčkova hra na dobrou noc Rychlá hra (na cca 10 min.) s fosforeskujícími hvězdičkami, vhodná na večerní zklidnění. V první půlce hry hvězdičky věšíte na oblohu a v druhé půlce je zhasínáte. Pro děti od 3 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=vst"); print("
  • Veselý statek Velice hezky vyrobená hra s dřevěnými zvířátky a papírovým domečkem. Trochu složitější hra na paměť i trochu taktiky. Vhodná od 4 či 5 let, dle vyspělosti dítěte. \n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=act"); print("
  • Activity děti Zdařilá modifikace hry pro děti od 4 let. Předvádíte, malujete či popisujete, co je na obrázku, aby to ostatní uhodli. Má kromě verze Activity Original i verzi Junior, která je ideální pro hráče od 8 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=duh"); print("
  • Duha Hra na paměť. Pamatované předměty se neustále mění, což dělá problém skoro víc dospělým než dětem. Hra má i jednoduchou variantu na poznávání barev, která je vhodná už od 2 let. Varianta na paměť od cca 3 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=pan"); print("
  • Panáčci Zaujme každou holčičku. Jde o oblékání panáčků. Hra s velkým prvkem náhody, která procvičuje jemnou motoriku. Pro děti od 2,5 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=kvi"); print("
  • Hádanky dráčka Fráčka Pěkně udělané hádanky v básničkách vhodné od 4 let.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=haf"); print("
  • Haf haf! Novinka, která se dětem velice líbí. Je částečně na paměť a částečně na náhodě. Psí máma uprostřed opravdu štěká, kolikrát štěkne, o tolik políček popojdou štěňátka, která hledají kostičku své barvy. Kosti se pejskům přichytávají k čumáčkům magnetem.\n"); print("

Kromě dětských her se můžete podívat na zajímavé hry pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Hry pro dva

Chcete někomu koupit jako vánoční dárek nějakou hru a vůbec nevíte jakou? V obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?

Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V Klubu deskových her Paluba si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!

Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=hll"); print("
  • Halali Novinka. Velice zajímavá hra pro 2 hráče. Hra je neobvyklá tím, že hráči mají odlišné možnosti tahů.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=qor"); print("
  • Quoridor Velice zajímavá a svižná hra pro 2 nebo 4 hráče. Snažíte se dostat na druhou stranu hracího plánu a místo tahu můžete také postavit překážku. Jestli to bude překážka pro protivníka nebo nakonec vaše, záleží na vašich schopnostech.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=kup"); print("
  • Kupferkessel Co. (Čarodějnický kotlík) Hra, kde si procvičíte paměť. Při vaření kouzelných lektvarů si musíte pamatovat, co jste do kotlíku dali.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=aba"); print("
  • Abalone Jednoduchá svižná hra.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=oth"); print("
  • Othello Hra s velice jednoduchými pravidly, ale velkou hloubkou. Její kvality jsou prověřeny časem (pochází z viktoriánské Anglie).\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=qar"); print("
  • Quarto! Rychlá, zajímavě řešená logická hra.\n"); print("

Kromě her pro 2 se můžete podívat na zajímavé hry pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Hry pro fajnšmekry

Chcete někomu koupit jako vánoční dárek nějakou hru a vůbec nevíte jakou? V obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?

Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V Klubu deskových her Paluba si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!

Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=pur"); print("
  • Puerto Rico Velice kvalitní hra, která právem vyhrála Hru roku 2005. Jde o velice propracovanou hru, která potěší i náročné hráče.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=tik"); print("
  • Tikal Pěkná hra střední obtížnosti pro 2 - 4 hráče od 12 let. Získala cenu německé kritiky Spiel des Jahres 1999.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=amu"); print("
  • Amun-Re Zajímavá hra známého autora kvalitních her Reinera Knizii. Získala několik ocenění.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=spe"); print("
  • Sankt Petersburg Novinka. Velice zajímavá hra pro 2 - 4 hráče od 10 let. Byla nominována na cenu německé kritiky Spiel des Jahres 2004.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=lui"); print("
  • Ludvík XIV. Novinka. Velice zajímavá hra pro 2 - 4 hráče od 12 let.\n"); print("

Můžete se také podívat na zajímavé hry pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Vánoční poradna

Hry na párty a mejdany

Chcete někomu koupit jako vánoční dárek nějakou hru a vůbec nevíte jakou? V obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?

Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V Klubu deskových her Paluba si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!

Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.

    EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=ban"); print("
  • Bang! Královna mejdanů. Hra, ktará nezkazí žádnou legraci. Vhodná pro větší skupinku hráčů (4 - 7, ideální 6 či 7). Má i rozšíření.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=rpo"); print("
  • Rodinný podnik Bezvadná hra na večírky, mejdany, Silvestra... zkrátka do společnosti pro pobavení.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=fif"); print("
  • Finstere Flure (Dvorana děsu) Hráči se snaží přeběhnout Dvoranu děsu, aby je nechytla zlá obluda zvaná Furunkulus. Ale pozor, ať neuklouznete po krvi. Zábavná hra pro 2 - 7 hráčů.\n"); $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=jun"); print("
  • Jungle Speed Zábavná hra na postřeh, která rozehřeje každou společnost.\n"); print("

Kromě mejdanových her se můžete podívat na zajímavé hry pro:

\n"); print("\n"); print <Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777 552 729 (Klára Zemanová).

Slevy

Při objednávce
  • nad 2 000 Kč je poštovné zdarma.
  • nad 5 000 Kč sleva 3%.

Při předplatbě na účet platíte poštovné jen 49 Kč.

Organizace pracující s dětmi a mládeží také obdrží slevu EOF ; $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=cenikk"); print("(Klubový ceník)\n"); print <nezapomeňte to uvést při objednávce!

U některých her je také možné EXPRESNÍ DODÁNÍ, které obdržíte do 48 hodin. Je třeba si nejlépe telefonicky či mailem ověřit, zda je to u dané hry zrovna možné. U expresnich dodávek připočítáváme expresní příplatek 50 Kč, tedy celé poštovné a balné vyjde na 129 Kč

Máte-li jakékoliv dotazy, obraťte se na nás: paluba\@hrejsi.cz nebo telefonicky na 777552729 (Klára Zemanová).

Ceník her

Hry jsou řazeny dle cen od nejlevnějších po nejdražší. Všechny hry jsou zároveň odkazy na informace o dané hře se všemi variantami na prodej.

EOF ; @cenik=sort{$a->{"internetova cena"} <=> $b->{"internetova cena"}}(@{$zbozi}); for(my $i=0; $i<=$#cenik; $i++) { if (not $cenik[$i]{"nelze koupit"}) { print(" \n"); print("\n"); } } print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek, když je vybrán ceník pro kluby. #------------------------------------------------------------------------------ sub prostredek_cenik_klubovy { $zbozi = access::cist_tabulku_access("zbozi.txt", "utf-8"); print <
Název zboží Cena
"); print($cenik[$i]{"nazev"}."".$cenik[$i]{"internetova cena"}." Kč

Ceník her pro organizace pracující s mládeží

Hry jsou řazeny dle cen od nejlevnějších po nejdražší. Všechny hry jsou zároveň odkazy na informace o dané hře se všemi variantami na prodej.

EOF ; @cenik=sort{$a->{"clenska cena"} <=> $b->{"clenska cena"}}(@{$zbozi}); for(my $i=0; $i<=$#cenik; $i++) { if (not $cenik[$i]{"nelze koupit"}) { print(" \n"); print("\n"); print("\n"); } } print < EOF ; } #------------------------------------------------------------------------------ # Vypíše prostředek, když je vybrána konkrétní hra. #------------------------------------------------------------------------------ sub prostredek_hra { my $hra = shift; $zbozi = access::cist_tabulku_access("zbozi.txt", "utf-8"); generovat_stranku_hry($hra); } #------------------------------------------------------------------------------ # Vypíše kraj, když je něco v košíku. #------------------------------------------------------------------------------ sub kraj_kosik { print("\n"); } #------------------------------------------------------------------------------ # Vypíše prostředek, když došlo k objednávce. #------------------------------------------------------------------------------ sub prostredek_objednavka { print("\n"); } #------------------------------------------------------------------------------ # Vypíše HTML odkaz na hru. Čte globální proměnné s cestami do kořene. #------------------------------------------------------------------------------ sub vypsat_odkaz_na_hru_do_seznamu { # Zjistit třípísmenný kód hry. my $hra = shift; # Vynechat hry, které nemáme na prodej. return if(!$hry{"$hra: prodej"}); # Odkaz musí obsahovat i parametry, které jsme dostali my sami, zejména obsah košíku! my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=$hra"); # Začátek odkazu. # U všech her přednostně nabízet dynamickou stránku. print(" ".$hry{"$hra: nazev"}.""); # Závěr. print("
\n"); } #------------------------------------------------------------------------------ # Zobrazí kořenovou stránku hry. #------------------------------------------------------------------------------ sub generovat_stranku_hry { my $hra = shift; # kód hry, jejíŐ stránka se má generovat #### print("

".$zbozi->[$i]{"bez ceskych pravidel"}."

\n"); #### print("

".$hry->{"aba:pocet hracu"}."

\n"); my $slozka = $hry{"$hra: slozka hrejsi"}; my $text = $hry{"$hra: htmltext"}; my $link = $hry{"$hra: htmllink"}; my $vlink = $hry{"$hra: htmlvlink"}; my $alink = $hry{"$hra: htmlalink"}; my $nazev = $hry{"$hra: nazev"}; my $dalsi_nazvy = $hry{"$hra: dalsi nazvy"}; print("\n"); }
Název zboží "Klubová" cena Běžná cena
"); print($cenik[$i]{"nazev"}."".$cenik[$i]{"clenska cena"}." Kč".$cenik[$i]{"bezna cena"}." Kč
\n"); print("

Obsah vašeho košíku

\n"); # Načíst informace o zboží. $zbozi = access::cist_tabulku_access("zbozi.txt", "utf-8"); # Oindexovat zboží. my %zindex; foreach my $z (@{$zbozi}) { $zindex{$z->{kod}} = $z; } # Dekódovat košík. my @kosik = split(/a/, $pole{kosik}); if($#kosik<0) { print("

Váš nákupní košík je zatím prázdný. Chcete-li si do něj něco vložit, zvolte si hru v levém sloupci.

\n"); } else { my $celkem = 0; foreach my $radek (@kosik) { my ($pocet, $vec) = split(/x/, $radek); $koshash{$vec} = $pocet; my $cena = $zindex{$vec}{"internetova cena"}; my $rcelkem = $pocet*$cena; $celkem += $rcelkem; print("

$pocet x $zindex{$vec}{nazev} (po $cena Kč) = $rcelkem Kč \n"); # Umožnit uživateli změnit v objednávce počet kusů každého zboží. $radek = ($pocet+1)."x$vec"; my $novy_kosik = join("a", @kosik); my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "kosik=$novy_kosik"); print("
[o 1 víc]\n"); $radek = $pocet>1 ? ($pocet-1)."x$vec" : ""; my $novy_kosik = join("a", @kosik); # Odebráním prvku mohla vzniknout prázdná položka v košíku, opravit. $novy_kosik =~ s/aa/a/; $novy_kosik =~ s/^a//; $novy_kosik =~ s/a$//; my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "kosik=$novy_kosik"); print("[o 1 míň]\n"); $radek = $pocet."x$vec"; # Pro pořádek uvést do původního stavu. print("
\n"); } print("

Celkem $celkem Kč.
\n"); if ($celkem >= 2000) { print("

Poštovné ZDARMA.
\n"); } else { print("

Poštovné a balné 79 Kč.

Poštovné a balné při předplatbě 49 Kč.
Při nákupu nad 2000 Kč poštovné ZDARMA.
\n"); $celkem += 79 ; } if ($celkem >= 5000) { print("

Sleva 3%
\n"); my $sleva = int($celkem * 0.03); print("- $sleva Kč
\n"); $celkem -= $sleva } print("

Dobírka celkem $celkem Kč .
\n"); print("

Chcete-li do košíku něco přidat, zvolte si hru v levém sloupci. Pokud jste již s obsahem košíčku spokojeni, vyplňte prosím následující údaje:

\n"); # Vytisknout objednávkový formulář. my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=objednat"); print("
\n"); print("

Zboží:
\n"); my %checked; $pole{prevzeti} = "dobirka" if(!exists($pole{prevzeti})); $checked{$pole{prevzeti}} = "checked"; print(" chci zaslat na dobírku
\n"); print(" si vyzvednu osobně na Palubě u Anděla
\n"); print(" si vyzvednu osobně ve skladu na Černém Mostě

\n"); print("

Zaplatím:
\n"); $pole{platba} = "hotove" if(!exists($pole{platba})); $checked{$pole{platba}} = "checked"; print(" hotově (dobírkou či osobně při převzetí)
\n"); print(" předplatbou (bezhotovostním převodem)

\n"); print("

Vyplňte kontaktní údaje:

\n"); # print("

Upozornění: Z důvodu dovolených bude objednávka, kterou teď odešlete, zpracována až v týdnu od 22.8.2005.

\n"); print("

Jméno:
\n"); print("Příjmení:
\n"); print("E-mail:
\n"); print("(E-mailem vám zašleme jak potvrzení objednávky, tak upřesnění dodání.)
\n"); print("Tel:
\n"); print("Poznámka: \n"); print("

Vyplňte adresu při zaslání na dobírku:

\n"); print("

Ulice a dům:
\n"); print("Obec:
\n"); print("PSČ:
\n"); print("

Chcete-li jiné fakturační údaje než zasílací, použijte poznámku:

\n"); print("

Poznámka 2: \n"); print("

jsme organizace pracující z mládeží a žádáme o slevu. Naše IČO je: \n"); print("

Tímto způsobem lze objednat zboží k dodání na území Česka. Máte-li zájem o dodání do jiných zemí, kontaktujte nás na e-mailu paluba\@hrejsi.cz.
\n"); print("\n"); print("\n"); print("
\n"); print("

\n"); } # Ukončit prostřední buňku. print("		\n"); print("

Závazná objednávka

\n"); # Načíst informace o zboží. $zbozi = access::cist_tabulku_access("zbozi.txt", "utf-8"); # Oindexovat zboží. my %zindex; foreach my $z (@{$zbozi}) { $zindex{$z->{kod}} = $z; } # Dekódovat košík. my @kosik = split(/a/, $objednany_kosik); if($#kosik<0) { print("

Váš nákupní košík je zatím prázdný. Chcete-li si do něj něco vložit, zvolte si hru v levém sloupci.

\n"); } else { my $mail; print("

Děkujeme, že jste si objednali níže uvedené zboží. Objednávku vám do dvou pracovních dnů potvrdíme e-mailem. Současně vám sdělíme, kdy můžete zásilku očekávat.

\n"); # print("

Děkujeme, že jste si objednali níže uvedené zboží.
Upozornění: Z důvodu dovolených bude vaše objednávka zpracována až v týdnu od 22.8.2005.
Poté se vám ozveme a sdělíme, kdy můžete zásilku očekávat.

\n"); my $celkem = 0; foreach my $radek (@kosik) { my ($pocet, $vec) = split(/x/, $radek); $koshash{$vec} = $pocet; my $cena = $zindex{$vec}{"internetova cena"}; my $rcelkem = $pocet*$cena; $celkem += $rcelkem; print("$pocet x $zindex{$vec}{nazev}, tj. $pocet x $cena Kč = $rcelkem Kč \n"); $mail .= "$zindex{$vec}{nazev}: $pocet ks x $cena = $rcelkem Kč\n"; # Umožnit uživateli změnit v objednávce počet kusů každého zboží. $radek = ($pocet+1)."x$vec"; my $novy_kosik = join("a", @kosik); my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "kosik=$novy_kosik"); $radek = $pocet>1 ? ($pocet-1)."x$vec" : ""; my $novy_kosik = join("a", @kosik); # Odebráním prvku mohla vzniknout prázdná položka v košíku, opravit. $novy_kosik =~ s/aa/a/; $novy_kosik =~ s/^a//; $novy_kosik =~ s/a$//; my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "kosik=$novy_kosik"); $radek = $pocet."x$vec"; # Pro pořádek uvést do původního stavu. print("
\n"); } if ($celkem >= 2000 and $pole{prevzeti} eq "dobirka") { print("

Poštovné ZDARMA.
\n"); } else { if ($pole{prevzeti} eq "dobirka") { if ($pole{platba} eq "prevodem") { print("

Poštovné a balné 49 Kč.
\n"); $celkem += 49 ; } else { print("

Poštovné a balné 79 Kč.
\n"); $celkem += 79 ; } } } if ($celkem >= 5000) { print("

Sleva 3%
\n"); my $sleva = int($celkem * 0.03); print("- $sleva Kč
\n"); $mail .= "Sleva: $sleva \n"; $celkem -= $sleva } print("Celkem $celkem Kč.
\n"); $mail .= "Celkem $celkem Kč.\n"; # Zkontrolovat úplnost vyplněných údajů. if( $pole{jmeno} eq "" or $pole{prijmeni} eq "" or $pole{email} !~ m/(\w|[-\._])+\@(\w|[-\._])+\.(\w\w|com|org|edu|mil|gov|biz|info)$/i or $pole{prevzeti} eq "dobirka" and ( $pole{ulice} eq "" or $pole{obec} eq "" or $pole{psc} eq "" ) ) { print("

vaše objednávka NEBYLA ODESLÁNA!!!

\n"); print("

Nezadali jste všechny údaje potřebné k zaslání. Je také možné, že jste zadali neplatnou e-mailovou adresu. Vyplňte prosím údaje znovu a pečlivě, abychom vám mohli dobírku zaslat. Děkujeme.

\n"); my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "hra=objednat"); print("
\n"); print("

Objednat výše uvedené zboží:

\n"); # print("

Upozornění: Z důvodu dovolených bude objednávka, kterou teď odešlete, zpracována až v týdnu od 22.8.2005.

\n"); print("Jméno:
\n"); print("Příjmení:
\n"); print("E-mail:
\n"); print("(E-mailem vám zašleme jak potvrzení objednávky, tak upřesnění dodání dobírky.)
\n"); print("Tel:
\n"); print("Poznámka:
\n"); print("Poznámka 2:
\n"); my %checked; $pole{prevzeti} = "dobirka" if(!exists($pole{prevzeti})); $checked{$pole{prevzeti}} = "checked"; print(" chci zaslat na dobírku
\n"); print(" si vyzvednu osobně na Palubě u Anděla
\n"); print(" si vyzvednu osobně ve skladu na Černém Mostě

\n"); print("

Zaplatím:
\n"); $pole{platba} = "hotove" if(!exists($pole{platba})); $checked{$pole{platba}} = "checked"; print(" hotově (dobírkou či osobně při převzetí)
\n"); print(" předplatbou (bezhotovostním převodem)

\n"); if ($pole{prevzeti} eq "dobirka") { print("

Zboží chci zaslat dobírkou na adresu:
\n"); print("Ulice a dům:
\n"); print("Obec:
\n"); print("PSČ:
\n"); } else { if ($pole{prevzeti} eq "paluba") { print("

Zboží si vyzvednu osobně na Černém Mostě.
\n"); } else { print("

Zboží si vyzvednu osobně na Palubě.
\n"); } } if ($pole{platba} eq "prevodem") { print("

Zaplatím předem převodem na účet.
\n"); } else { if ($pole{prevzeti} eq "dobirka") { print("

Zaplatím dobírkou.
\n"); } else { print("

Zaplatím hotově při převzetí.
\n"); } } if ($pole{organizace} eq "ano") { print("

Organizace pracující s mládeží. IČO:
\n"); print("Dáme Vám klubové ceny. Jsou o cca 5% nižší než internetové.

\n"); } print("

Tímto způsobem lze objednat zboží k dodání na území Česka. Máte-li zájem o dodání do jiných zemí, kontaktujte nás na e-mailu paluba\@hrejsi.cz.
\n"); print("\n"); my $kosik = join("a", @kosik); print("\n"); print("


\n"); print("

\n"); } else { # Vypsat dodací adresu. if ($pole{prevzeti} eq "dobirka") { print("

Zboží bude zasláno dobírkou České pošty na následující adresu:

\n"); $mail .= "Zaslání na dobírku na adresu:\n"; print("Jméno: $pole{jmeno}
\n"); $mail .= "Jméno: $pole{jmeno} $pole{prijmeni}\n"; print("Příjmení: $pole{prijmeni}
\n"); print("Ulice a dům: $pole{ulice}
\n"); $mail .= "Ulice a dům: $pole{ulice}\n"; print("Obec: $pole{psc} $pole{obec}
\n"); $mail .= "Obec: $pole{psc} $pole{obec}\n"; } else { if($pole{prevzeti} eq "cm") { print("

Až bude zboží pro Vás připravené na Černém Mostě, dáme Vám vědět, včetně podrobností kdy (otvírací hodiny) a kde (přesná adresa).
\n"); $mail .= "Osobní odběr: Černý Most ($pole{prevzeti}) \n"; } else { print("

Až bude zboží pro Vás připravené na Palubě (www.paluba.cz), dáme Vám vědět, včetně podrobností kdy (otvírací hodiny) a kde (přesná adresa).
\n"); $mail .= "Osobní odběr: Paluba ($pole{prevzeti}) \n"; } print("Jméno: $pole{jmeno}
\n"); $mail .= "Jméno: $pole{jmeno} $pole{prijmeni}\n"; print("Příjmení: $pole{prijmeni}
\n"); $mail .= "Ulice a dům: $pole{ulice}\n"; $mail .= "Obec: $pole{psc} $pole{obec}\n"; } print("

Objednávka bude potvrzena e-mailem na následující adresu:
\n"); print("E-mail: $pole{email}
\n"); $mail .= "E-mail: $pole{email}\n"; print("

Telefon: $pole{tel}
\n"); $mail .= "Telefon: $pole{tel}\n"; print("

Poznámka: $pole{poznamka}
\n"); $mail .= "Poznámka: $pole{poznamka} \n"; print("Poznámka 2: $pole{poznamka2}
\n"); $mail .= "Poznámka 2: $pole{poznamka2} \n"; my $platba = $pole{platba}; $platba =~ s/prevodem/převodem/; $platba =~ s/hotove/hotově/; print("

Platba: $platba
\n"); $mail .= "Platba: $platba\n"; if($pole{organizace} eq "ano") { print("Dáme Vám slevu pro organizace pracující s mládeží. Vaše IČO: $pole{ico}
\n"); $mail .= "Organizace pracující s mládeží: $pole{ico} \n"; } if($pole{jmeno} eq "test") { $adresat = "klara\@hrejsi.cz"; $kopie = "zeman\@ufal.mff.cuni.cz"; } else { $adresat = "klara\@hrejsi.cz"; $kopie = $pole{email}; $skopie = "zeman\@ufal.mff.cuni.cz"; } if(-e "/usr/lib/sendmail") { $sendmail = "|/usr/lib/sendmail -oi -t"; } else { $sendmail = ">>posledni-objednavka.txt"; } open(SENDMAIL, $sendmail) or print "Nemůžu najít sendmail: $!\n"; print SENDMAIL ("From: Robot Hrejsi \n"); my $jmeno_subject = "$pole{jmeno} $pole{prijmeni}"; $jmeno_subject =~ tr/ÁÄĂÂĄČĆÇĎĐÉĚËĘÍĂŽĽĹŁŇŃÓÖŐÔŘŔŠĹšĹžŤÚŮÜŰÝŽŹŻáäăâąčćçďđéěëęíîľĺłňńóöőôřŕšśşťúůüűýžźż/AAAAACCCDDEEEEIILLLNNOOOORRSSSTUUUUYZZZaaaaacccddeeeeiilllnnoooorrssstuuuuyzzz/; print SENDMAIL ("Reply-to: \"$jmeno_subject\" <$pole{email}>\n"); print SENDMAIL ("To: $adresat\n"); print SENDMAIL ("Cc: $kopie\n"); print SENDMAIL ("Bcc: $skopie\n"); print SENDMAIL ("Subject: Objednavka her: $jmeno_subject\n"); print SENDMAIL ("Content-Type: text/plain; charset=\"utf-8\"\n"); print SENDMAIL ("\n"); print SENDMAIL ($mail); } } # Ukončit prostřední buňku. print("

\n"); print("\n"); } print("\n"); print("\n"); for (my $i=0;$i<=$#{$zbozi};$i++) { if ($zbozi->[$i]{"kod hry"} eq $hra and not $zbozi->[$i]{"nelze koupit"}) { print("\n"); print("\n"); print("Přidat do košíku.

\n"); #!!! Chtělo by to kontrolu, že soubor s fotkou existuje!!! if($slozka ne "" && -f "$koren_system/$slozka/obr/zbo".$zbozi->[$i]{"kod hry"}.$zbozi->[$i]{"kod"}.".jpg") { print("\n"); } if($slozka ne "" && -f "$koren_system/$slozka/obr/zbo".$zbozi->[$i]{"kod hry"}.$zbozi->[$i]{"kod"}.".gif") { print("\n"); } } } print("
\n"); #!!! Chtělo by to kontrolu, ŐĄ soubor s fotkou existuje!!! if($slozka ne "" && -f "$koren_system/$slozka/obr/fotka.jpg") { print("\"fotografie\"

$nazev

\n"); my $neboli; if($dalsi_nazvy) { $neboli = $dalsi_nazvy; $neboli = "
neboli $neboli
"; } print("$neboli\n"); print("

".$hry{"$hra: upoutavka"}."

Počet hráčů: ".$hry{"$hra: pocet hracu"}.".\n"); print("
Minimální věk: ".$hry{"$hra: min vek"}." let.\n"); print("
Délka hry: ".$hry{"$hra: min delka"}." - ".$hry{"$hra: max delka"}." min.

\n"); # Vypsat odkazy na stránky o této hře. # Zatím předpokládáme, že funkce generovat_stranku_hry() se volá jen jednou během jednoho běhu skriptu, jinak by bylo # efektivnější načíst tabulku odkazů dopředu! my $odkazy = access::cist_tabulku_access("odkazy.txt"); print("Základní informace o hře
\n"); for(my $i = 0; $i<=$#{$odkazy}; $i++) { if($odkazy->[$i]{hra} eq $hra) { my $odkaz; unless($odkazy->[$i]{adresa} =~ m/^(\/|http:)/) { $odkaz = "$koren_hrejsi/$slozka/"; } $odkaz .= $odkazy->[$i]{adresa}; print("$odkazy->[$i]{text}
\n"); } } print("

".$zbozi->[$i]{"nazev"}."
\n"); print("Cena zde: ".$zbozi->[$i]{"internetova cena"}." Kč
\n"); print("Cena na Palubě: ".$zbozi->[$i]{"prodejni cena"}." Kč
\n"); print("Běžná cena: ".$zbozi->[$i]{"bezna cena"}." Kč

".$zbozi->[$i]{"poznamka"}."
\n"); print($zbozi->[$i]{"popis zbozi"}."
\n"); # Vytvořit odkaz na košík, v němž je o 1 ks tohoto zboží víc. my @kosik = split(/a/, $pole{kosik}); my $nalezeno = 0; foreach my $polozka (@kosik) { my ($pocet, $vec) = split(/x/, $polozka); if($vec==$zbozi->[$i]{kod}) { $nalezeno = 1; $polozka = ($pocet+1)."x$vec"; last; } } unless($nalezeno) { push(@kosik, "1x$zbozi->[$i]{kod}"); } my $novy_kosik = join("a", @kosik); my $parametry = dancgi::sestavit_parametry_odkaz(\%pole, "kosik=$novy_kosik"); # print("Objednat e-mailem.

[$i]{"kod hry"}.$zbozi->[$i]{"kod"}.".jpg\" width=150 alt=\"fotografie\">
[$i]{"kod hry"}.$zbozi->[$i]{"kod"}.".gif\" width=150 alt=\"fotografie\">