#!/usr/bin/perl # Zobrazí pruh záhlaví. # (c) 2006 Dan Zeman # Licence: GNU GPL use utf8; # říct Perlu, že konstantní řetězce ve zdrojáku jsou v UTF # Říct Perlu, kde najde Danovy sdílené knihovny. # CGI skripty běží pod uživatelem apache, který nemá tyto knihovny v cestě. BEGIN {unshift(@INC, '/s/w/lib/dan') unless(grep {$_ eq '/s/w/lib/dan'} @INC)}use dancgi; # čtení parametrů z webu nebo z ARGV 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(); # 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); # Umožnit volat skript z příkazového řádku a předat parametry tam (např. perl prihlaseni.pl akce=caroly). dancgi::rozebrat_parametry($ARGV[0], \%konfig); # Nastavit výchozí hodnoty parametrů. if($konfig{jazyk} eq "") { $konfig{jazyk} = "cs"; } # Zjistit, kolikátý je tohle ročník a od kdy do kdy se koná. $roky = mso::dotazat_se_databaze($databaze, "rok", "zacatek", "konec", "rocniky ORDER BY rok"); for($i = 0; $i<=$#{$roky}; $i++) { if($roky->[$i]{rok}==$konfig{rok}) { $termin = "$roky->[$i]{zacatek} - $roky->[$i]{konec}"; last; } } $i_rocnik = $i+1; # Jestliže je začátek i konec ve stejném roce, upravit termín, aby v něm byl rok jenom jednou. $termin =~ s/^(\d+\.\d+\.)(\d+) - (\d+\.\d+\.)\2$/$1 - $3$2/; # Jestliže je navíc začátek i konec ve stejném měsíci, upravit termín, aby v něm byl měsíc jenom jednou. $termin =~ s/^(\d+\.)(\d+\.) - (\d+\.)\2(\d+)$/$1 - $3$2$4/; # Zjistit, zda je tohle aktuální ročník, a podle toho vybrat styl. if($konfig{rok} == cas::ted()->{rok}) { $styly = "main_aktual.css"; } else { $styly = "main_minule.css"; } print < Mezinárodní festival her

$i_rocnik. ročník mezinárodního festivalu her

Deskohraní $konfig{rok}

Central European Mind Sports Olympiad

$termin, Praha - Malá Strana, denně 9 - 22 hod.

EOF ;