#!/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_obecny(); } elsif($pole{hra} eq "obecne") { prostredek_obecny(); } elsif($pole{hra} eq "slevy") { prostredek_slevy(); } elsif($pole{hra} eq "cenik") { prostredek_cenik(); } 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 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"); 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"); print("

\n"); print <

Klub deskových her Paluba

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

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č

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. Pokud jste taková organizace, 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á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ží

Cena

"); print($cenik[$i]{"nazev"}."

".$cenik[$i]{"internetova 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 npř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

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("

\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"); #!!! Chtělo by to kontrolu, ŐĄ 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("Přidat do košíku.

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

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

Seznam her na prodej:

Obchod s hrami

Klub deskových her Paluba

Slevy

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

Hry na prodej

Ceník her

Obsah vašeho košíku

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:

Vyplňte kontaktní údaje:

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

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

Závazná objednávka

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

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.

Objednat výše uvedené zboží:

$nazev

Při objednávce
nad 2 000 Kč je poštovné zdarma.

nad 5 000 Kč sleva 3%.