+ if (!isset($head))
+ $head="";
+ if (!isset($energie_base))
+ $energie_base="";
+
+ unset($have_ent);
+ if (isset($HTTP_GET_VARS[ "have_ent"]))
+ $have_ent=true;
+ if (isset($HTTP_GET_VARS["amp;have_ent"]))
+ $have_ent=false;
+ if ((!isset($detect_ent) || $detect_ent) && !isset($have_ent) && $HTTP_SERVER_VARS["REQUEST_METHOD"]=="GET")
+ $head.='<meta http-equiv="Refresh" content="0; URL='
+ .htmlspecialchars("http://".$HTTP_SERVER_VARS["HTTP_HOST"].$HTTP_SERVER_VARS["PHP_SELF"]
+ ."?".(strlen($HTTP_SERVER_VARS["QUERY_STRING"]) ? $HTTP_SERVER_VARS["QUERY_STRING"] : "detect_ent_glue=1")
+ ."&have_ent=detect")
+ .'" />'."\n";
+ fixampvars();
+
+ $have_js=(isset($HTTP_GET_VARS["have_js"]) || isset($HTTP_POST_VARS["have_js"])
+ ? "?have_js=1" : "");
+ if (isset($detect_js) && !$have_js)
+ $head.='<script type="text/javascript" src="'.$energie_base.'have_js.js"></script>'."\n";
+
+ $user_agent=(!isset($HTTP_SERVER_VARS["HTTP_USER_AGENT"]) ? "" : $HTTP_SERVER_VARS["HTTP_USER_AGENT"]);
+ if (ereg("[[:<:]]MSIE ([0-9]+)\\.",$user_agent,$msie_major_a))
+ $msie_major=$msie_major_a[1];
+ else if (ereg("[[:<:]]Mozilla/([0-9]+)\\.",$user_agent,$mozilla_major_a))
+ $mozilla_major=$mozilla_major_a[1];
+
+ $have_style=!isset($mozilla_major) || $mozilla_major!=4;
+ $have_css=true; // doesn't hurt anybody AFAIK
+
+function fixampvars()
+{
+ $ars=array("HTTP_GET_VARS","HTTP_POST_VARS");
+ foreach ($ars as $ar) {
+ foreach ($GLOBALS[$ar] as $key=>$val) {
+ if (substr($key,0,4)!="amp;")
+ continue;
+ unset($GLOBALS[$ar][$key]);
+ $GLOBALS[$ar][substr($key,4)]=$val;
+ }
+ }
+}
+
+function fatal($msg="UNKNOWN")
+{
+ global $admin_mail;
+
+ heading(false/*title*/,false/*indexme*/); // notitle is always safe, don't index the error message
+ print("\n<p> <br /> </p><hr /><h1 class=\"error\">Nastala chyba pøi zpracování: $msg!</h1>\n"
+ ."<p>Mù¾ete tento problém nahlásit <a href=\"mailto:$admin_mail\">správci tohoto webu</a>.</p>\n");
+ footer();
+}
+
+function prepvar($name,$regex=".*",$require=true)
+{
+ global $HTTP_GET_VARS,$HTTP_POST_VARS;
+
+ if (isset($HTTP_GET_VARS[$name]))
+ $v=$HTTP_GET_VARS[$name];
+ else if (isset($HTTP_POST_VARS[$name]))
+ $v=$HTTP_POST_VARS[$name];
+ else
+ unset($v);
+
+ $name_html="Parametr <span class=\"quote\">".htmlspecialchars($name)."</span>";
+
+ $regex="^$regex\$";
+ if (isset($v) && !ereg($regex,$v))
+ fatal("$name_html nevyhovuje po¾adovanému regexu <span class=\"quote\">".htmlspecialchars($regex)."</span>");
+ if (!isset($v) && $require)
+ fatal("$name_html je vy¾adován");
+
+ if (!isset($v))
+ return(0);
+
+ $GLOBALS[$name]=$v;
+ return($v);
+}
+
+function db_connect()
+{
+ global $db_host,$db_user,$db_pwd,$db_name;
+ global $db_link;
+
+ if (isset($db_link))
+ return;
+ if (!($db_link=mysql_connect($db_host,$db_user,$db_pwd)))
+ fatal("MySQL connect: ".mysql_error());
+ if (!mysql_select_db($db_name,$db_link))
+ fatal("MySQL database select: ".mysql_error());
+}
+
+function db_query($query)
+{
+ global $db_link;
+
+ db_connect();
+ if (!($r=mysql_query($query,$db_link)))
+ fatal("MySQL query \"$query\": ".mysql_error());
+ return($r);
+}
+
+function db_row($query) // pure indexes
+{
+ $q=db_query($query);
+ $r=mysql_fetch_row($q);
+ mysql_free_result($q);
+ return($r);
+}
+
+function db_array($query) // field-names associative
+{
+ $q=db_query($query);
+ $r=mysql_fetch_array($q);
+ mysql_free_result($q);
+ return($r);
+}
+
+function db_item($query)
+{
+ $row=db_row($query);
+ return($row[0]);
+}
+
+function num2greg($num)
+{
+ $r="";
+ $vals=array(1=>"I",5=>"V",10=>"X",50=>"L",100=>"C",500=>"D",1000=>"M");
+ krsort($vals,SORT_NUMERIC);
+ foreach($vals as $val=>$sym) {
+ while ($num<0 && $num+$val<-$num) {
+ $r=substr($r,0,-1).$sym.substr($r,-1,1);
+ $num+=$val;
+ }
+ while (10*$num>=8*$val+(substr($val,0,1)=="1")) {
+ $r=$r.$sym;
+ $num-=$val;
+ }
+ }
+ return($r);
+}
+
+function month_a($year,$month,$month_last=0,$sequential=0)
+{
+ global $tb_obsah,$obsah_year_base;
+
+ if (!$month_last || !$sequential)
+ list($month_last,$sequential)=db_row("select month_last,sequential from $tb_obsah where year='$year' and month='$month'");
+ $month_full=sprintf("%02d".($month==$month_last ? "" : "-%02d"),$month,$month_last);
+
+ $r=array("year"=>$year,"month"=>$month,"month_last"=>$month_last,"month_full"=>$month_full,
+ "name"=>"$month" .($month==$month_last ? "" : "-$month_last")."/$year",
+ "img" =>"img/eap-$year-${month_full}.jpeg",
+ "icon"=>"img/eap-$year-${month_full}s.jpeg",
+ );
+ $r["name_full"]=$r["name"]
+ ." ($sequential".($month==$month_last ? "" : "-".($sequential+$month_last-$month)).")"
+ ." - ".num2greg($year-$obsah_year_base+1).". roèník";
+ return($r);
+}
+
+function img_size($width,$height)
+{
+ global $have_style;
+
+ return(($have_style ? "style=\"border:0;width:${width}px;height:${height}px\"" : "border=\"0\"")
+ ." width=\"$width\" height=\"$height\"");
+}
+
+function img($file,$alt,$attrs="")
+{
+ list($width,$height)=getimagesize(ereg_replace("\\.mng\$",".gif",$file));
+ $alt=htmlspecialchars($alt);
+ return("<img src=\"$file\" alt=\"$alt\" title=\"$alt\" ".img_size($width,$height)
+ .($attrs=="" ? "" : " ".$attrs)." />");
+}
+
+function gsm_banking()
+{
+ global $energie_base;
+
+ return(img($energie_base."img/sluzby_bankovni_pggsm.".(image_supported("video/x-mng") ? "mng" : "gif"),
+ "Paegas GSM banking","class=\"img-align\""));
+}
+
+function price_a()
+{
+ if (!($f=fopen("objednavka.js","r")))
+ fatal("Nepodaøilo se naèíst seznam dostupného zbo¾í");
+ $r=array();
+ while (($s=fgets($f,0x1000))) {
+ if (!($s=trim($s)))
+ break;
+ if (!(ereg("^want_price\\[ *'([^']*)'\\]=([0-9]*);$",$s,$matched)))
+ continue;
+ $r[$matched[1]]=$matched[2];
+ }
+ fclose($f);
+ return($r);
+}
+
+function title_name($year,$month)
+{
+ if (isset($year) && isset($month)) {
+ $month_a=month_a($year,$month);
+ return("Èíslo ".$month_a["name_full"]);
+ }
+ else if (isset($year))
+ return("Roèník $year");
+ else
+ return("V¹echny roèníky");
+}
+
+function title_month($year,$month)
+{
+ $month_a=month_a($year,$month);
+ return(""
+ ."<table border=\"0\" width=\"100%\">\n"
+ ."<tr><td align=\"center\"><table border=\"1\" cellpadding=\"10\">\n"
+ ."<tr><td align=\"center\">".img($month_a["img"],"titulní stránka ".$month_a["name"])."</td></tr>\n"
+ ."</table></td></tr>\n"
+ ."</table>\n"
+ );
+}
+
+function title_icons_table_month($year,$month,$month_last,$sequential,$has_contents)
+{
+ global $tb_clanek;
+
+ $month_a=month_a($year,$month,$month_last,$sequential);
+ print("<table border=\"0\">"
+ ."<tr><th align=\"center\">".$month_a["name"]."</th></tr>\n"
+ ."<tr><td align=\"center\" valign=\"top\">"
+ .img($month_a["icon"],"titulní stránka ".$month_a["name_full"])."</td></tr>\n"
+ ."<tr><td align=\"left\" valign=\"top\" class=\"nowrap\">\n"
+ ."• <a href=\"title.php?year=$year&month=$month\">titulní strana</a><br />\n"
+ );
+ if ($has_contents)
+ print("• <a href=\"obsah.php?year=$year&month=$month\">obsah</a><br />\n");
+ $result=db_query("select name,id from $tb_clanek where year=$year and month=$month order by id");
+ while ($row=mysql_fetch_array($result))
+ print("• <a href=\"clanek.php?year=$year&month=$month&id=".$row["id"]."\">"
+ .htmlspecialchars(ereg_replace("^.*\\|","",$row["name"]))."</a><br />\n");
+ mysql_free_result($result);
+ print("</td></tr></table>");
+}
+
+function title_icons($year,$month)
+{
+ global $tb_obsah;
+
+ print("<h2>"
+ .(isset($year) ? "<a id=\"year_$year\">" : "")
+ .title_name(&$year,&$month)
+ .(isset($year) ? "</a>" : "")
+ ."</h2>\n");
+
+ $result=db_query("select year,month,month_last,sequential,contents is not null as has_contents from $tb_obsah"
+ .(isset($year) || isset($month) ? " where" : "")
+ .(isset($year ) ? " year=$year" : "")
+ .(isset($year) && isset($month) ? " and" : "")
+ .(isset($month) ? " month=$month" : "")
+ ." order by year,month");
+ $split=4;
+
+ // $year variable changes its meaning here!!!
+ if (isset($year))
+ $wanted_year=$year;
+ $year=0;
+
+ $fin_split="";
+ $fin_year="";
+ while ($row=mysql_fetch_array($result)) {
+ $row["month" ]--;
+ $row["month_last"]--;
+
+ if ($row["year"]!=$year) {
+ print($fin_split.$fin_year);
+
+ $year=$row["year"];
+ print(""
+ .(!isset($wanted_year) ? "<p><a id=\"year_$year\"> </a></p>" : "")
+ ."<table border=\"0\" width=\"100%\"><tr><td align=\"center\"><table border=\"1\" cellpadding=\"5\">\n"
+ ."<tr><th colspan=\"$split\">Roèník $year (<a href=\"obsah.php?year=$year\">obsahy èísel</a>)</th></tr>\n"
+ );
+ $fin_year="</table></td></tr></table>\n";
+ $fin_split="";
+ $month=-1;
+ $floor=-1;
+ }
+ while ($floor<floor($row["month"]/$split)) {
+ print($fin_split."<tr>");
+ $fin_split="</tr>\n";
+ $floor++;
+ $month=$floor*$split-1;
+ }
+ while ($month+1<$row["month"]) {
+ print("<td></td>");
+ $month++;
+ }
+ print("<td align=\"center\" valign=\"top\""
+ .($row["month_last"]!=$row["month"] ? " colspan=\"".($row["month_last"]+1-$row["month"])."\"" : "")
+ .">");
+ title_icons_table_month($year,$row["month"]+1,$row["month_last"]+1,$row["sequential"],$row["has_contents"]);
+ print("</td>\n");
+ $month=$row["month_last"];
+ }
+ mysql_free_result($result);
+ print($fin_split.$fin_year);
+}
+
+function title($year,$month)
+{
+ if (isset($year) && isset($month))
+ return(title_month( $year, $month));
+ else
+ return(title_icons(&$year,&$month));
+}
+
+function image_supported($mime)