package paluba; require 5.000; # (c) únor 2004 Dan a Klára Zemanovi # Říci Perlu, že tento zdroják je v UTF-8. use utf8; use Encode; require("../access.pm"); #------------------------------------------------------------------------------ # Vypíše neměnnou část palubních stránek. #------------------------------------------------------------------------------ sub vypsat_zacatek { my $akce=shift; # 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}; $koren_cgi = $konfig{scesta_cgi}; # Poslat začátek stránky. print < Deskove hry EOF ; } # Vypsat závěr stránky. sub vypsat_konec { print < EOF ; } # Tohle tu musí být jako důkaz, že inicializace modulu proběhla dobře. 1;

Klub deskových her Paluba

Praha, Lidická 40 u Anděla

Paluba je klub otevřený nejširší veřejnosti, který představuje hry ze všech kontinentů, dob a kultur. Kdo přijde, ten hraje!

Nejbližší akce

$akce