+EaP 10/2001 (62): Ptali jste se...
[www.energie.vellum.cz.git] / common.php
1 <?php // $Id$
2
3         error_reporting(E_ALL);
4
5         include("config.php");
6
7         // $viewcvs prepared by "config.php"
8         if ($viewcvs==$HTTP_SERVER_VARS["SCRIPT_NAME"])
9                 unset($viewcvs);
10         $cvs_id_split=split(" ",$cvs_id);
11         if (count($cvs_id_split)==8) {
12                 $cvs_id_split[1]="<a href=\"$viewcvs\">".$cvs_id_split[1]."</a>";
13                 $cvs_id_split[5]="<a href=\"mailto:".$cvs_id_split[5]."@$cvs_mailhost\">".$cvs_id_split[5]."</a>";
14                 }
15         $cvs_id_html=join(" ",$cvs_id_split);
16
17         $have_js=(isset($HTTP_GET_VARS["have_js"]) || isset($HTTP_POST_VARS["have_js"])
18                         ? "?have_js=1" : "");
19         if (isset($detect_js) && !$have_js)
20                 $head.='<script type="text/javascript" src="have_js.js"></script>'."\n";
21
22         $user_agent=(!isset($HTTP_SERVER_VARS["HTTP_USER_AGENT"]) ? "" : $HTTP_SERVER_VARS["HTTP_USER_AGENT"]);
23         if (ereg("[[:<:]]MSIE ([0-9]+)\\.",$user_agent,$msie_major_a))
24                 $msie_major=$msie_major_a[1];
25         else if (ereg("[[:<:]]Mozilla/([0-9]+)\\.",$user_agent,$mozilla_major_a))
26                 $mozilla_major=$mozilla_major_a[1];
27
28         $have_style=!isset($mozilla_major) || $mozilla_major!=4;
29         $have_css=true; // doesn't hurt anybody AFAIK
30
31 function addpercents($url)
32 {
33         $r=$c="";
34         foreach(preg_split('//', $url, -1, PREG_SPLIT_NO_EMPTY) as $c)
35                 if (ereg("[a-zA-Z0-9]",$c))
36                         $r.=$c;
37                 else
38                         $r.=sprintf("%%%02X",ord($c));
39         return($r);
40 }
41
42 function fatal($msg="UNKNOWN")
43 {
44         global $admin_mail;
45
46         print("\n<p>&nbsp;<br />&nbsp;</p><hr /><h1 class=\"error\">Nastala chyba pøi zpracování: $msg!</h1>\n"
47                         ."<p>Mù¾ete tento problém nahlásit <a href=\"mailto:$admin_mail\">správci tohoto webu</a>.</p>\n");
48         footer();
49 }
50
51 function prepvar($name,$regex=".",$require=true)
52 {
53         global $HTTP_GET_VARS,$HTTP_POST_VARS;
54
55              if (isset($HTTP_GET_VARS[$name]))
56                 $v=$HTTP_GET_VARS[$name];
57         else if (isset($HTTP_POST_VARS[$name]))
58                 $v=$HTTP_POST_VARS[$name];
59         else
60                 unset($v);
61
62         $name_html="Parametr <span class=\"quote\">".htmlspecialchars($name)."</span>";
63
64         $regex="^$regex\$";
65         if (isset($v) && !ereg($regex,$v))
66                 fatal("$name_html nevyhovuje po¾adovanému regexu <span class=\"quote\">".htmlspecialchars($regex)."</span>");
67         if (!isset($v) && $require)
68                 fatal("$name_html je vy¾adován");
69
70         if (!isset($v))
71                 return(0);
72
73         $globals[$name]=$v;
74         return($v);
75 }
76
77 function db_connect()
78 {
79         global $db_host,$db_user,$db_pwd,$db_name;
80         global $db_link;
81
82         if (isset($db_link))
83                 return;
84         if (!($db_link=mysql_connect($db_host,$db_user,$db_pwd)))
85                 fatal("MySQL connect: ".mysql_error());
86         if (!mysql_select_db($db_name,$db_link))
87                 fatal("MySQL database select: ".mysql_error());
88 }
89
90 function db_query($query)
91 {
92         global $db_link;
93
94         db_connect();
95         if (!($r=mysql_query($query,$db_link)))
96                 fatal("MySQL query \"$query\": ".mysql_error());
97         return($r);
98 }
99
100 function db_row($query)
101 {
102         $q=db_query($query);
103         $r=mysql_fetch_row($q);
104         mysql_free_result($q);
105         return($r);
106 }
107
108 function db_array($query)
109 {
110         $q=db_query($query);
111         $r=mysql_fetch_array($q);
112         mysql_free_result($q);
113         return($r);
114 }
115
116 function db_item($query)
117 {
118         $row=db_row($query);
119         return($row[0]);
120 }
121
122 function num2greg($num)
123 {
124         $r="";
125         $vals=array(1=>"I",5=>"V",10=>"X",50=>"L",100=>"C",500=>"D",1000=>"M");
126         krsort($vals,SORT_NUMERIC);
127         foreach($vals as $val=>$sym) {
128                 while ($num<0 && $num+$val<-$num) {
129                         $r=substr($r,0,-1).$sym.substr($r,-1,1);
130                         $num+=$val;
131                         }
132                 while (10*$num>=8*$val+(substr($val,0,1)=="1")) {
133                         $r=$r.$sym;
134                         $num-=$val;
135                         }
136                 }
137         return($r);
138 }
139
140 function month_a($year,$month,$month_last=0,$sequential=0)
141 {
142         global $tb_obsah,$obsah_year_base;
143
144         if (!$month_last || !$sequential)
145                 list($month_last,$sequential)=db_row("select month_last,sequential from $tb_obsah where year='$year' and month='$month'");
146         $month_full=sprintf("%02d".($month==$month_last ? "" : "-%02d"),$month,$month_last);
147
148         $r=array("year"=>$year,"month"=>$month,"month_last"=>$month_last,"month_full"=>$month_full,
149                         "name"=>"$month"    .($month==$month_last ? "" : "-$month_last")."/$year",
150                         "img" =>"img/eap-$year-${month_full}.jpeg",
151                         "icon"=>"img/eap-$year-${month_full}s.jpeg",
152                         );
153         $r["name_full"]=$r["name"]
154                         ." ($sequential".($month==$month_last ? "" : "-".($sequential+$month_last-$month)).")"
155                         ." - ".num2greg($year-$obsah_year_base+1).". roèník";
156         return($r);
157 }
158
159 function img_size($width,$height)
160 {
161         global $have_style;
162
163         return(($have_style ? "style=\"border:0;width:${width}px;height:${height}px\"" : "border=\"0\"")
164                         ." width=\"$width\" height=\"$height\"");
165 }
166
167 function img($file,$alt,$attrs="")
168 {
169         list($width,$height)=getimagesize($file);
170         return("<img src=\"$file\" alt=\"".htmlspecialchars($alt)."\" ".img_size($width,$height)
171                         .($attrs=="" ? "" : " ".$attrs)." />");
172 }
173
174 function gsm_banking()
175 {
176         return(img("img/sluzby_bankovni_pggsm.gif","Paegas GSM banking","class=\"img-align\""));
177 }
178
179 function price_a()
180 {
181         if (!($f=fopen("objednavka.js","r")))
182                 fatal("Nepodaøilo se naèíst seznam dostupného zbo¾í");
183         $r=array();
184         while (($s=fgets($f,0x1000))) {
185                 if (!($s=trim($s)))
186                         break;
187                 if (!(ereg("^want_price\\[ *'([^']*)'\\]=([0-9]*);$",$s,$matched)))
188                         continue;
189                 $r[$matched[1]]=$matched[2];
190                 }
191         fclose($f);
192         return($r);
193 }
194
195 function title_name($year,$month)
196 {
197              if (isset($year) && isset($month)) {
198                 $month_a=month_a($year,$month);
199                 return("Èíslo ".$month_a["name_full"]);
200                 }
201         else if (isset($year))
202                 return("Roèník $year");
203         else
204                 return("V¹echny roèníky");
205 }
206
207 function title_month($year,$month)
208 {
209   $month_a=month_a($year,$month);
210         return(""
211                         ."<table border=\"0\" width=\"100%\">\n"
212                         ."<tr><td align=\"center\"><table border=\"1\" cellpadding=\"10\">\n"
213                         ."<tr><td align=\"center\">".img($month_a["img"],"titulní stránka ".$month_a["name"])."</td></tr>\n"
214                         ."</table></td></tr>\n"
215                         ."</table>\n"
216                         );
217 }
218
219 function title_icons_table_month($year,$month,$month_last,$sequential)
220 {
221         global $tb_clanek;
222
223         $month_a=month_a($year,$month,$month_last,$sequential);
224         print("<a href=\"title.php?year=$year&amp;month=$month\">"
225                                 .img($month_a["icon"],"titulní stránka ".$month_a["name_full"])."</a><br />"
226                         ."<a href=\"obsah.php?year=$year&amp;month=$month\">obsah ".$month_a["name"]."</a>");
227         if (db_item("select count(*) from $tb_clanek where year=$year and month=$month"))
228                 print("<br /><a href=\"clanek.php?year=$year&amp;month=$month\">ukázka èlánkù</a>");
229 }
230
231 function title_icons($year,$month)
232 {
233         global $tb_obsah;
234
235         print("<h2>"
236                 .(isset($year) ? "<a id=\"year_$year\">" : "")
237                 .title_name(&$year,&$month)
238                 .(isset($year) ? "</a>" : "")
239                 ."</h2>\n");
240
241         $result=db_query("select year,month,month_last,sequential from $tb_obsah"
242                         .(isset($year) || isset($month) ? " where" : "")
243                         .(isset($year ) ? " year=$year"   : "")
244                         .(isset($year) && isset($month) ? " and" : "")
245                         .(isset($month) ?   " month=$month" : "")
246                         ." order by year,month");
247         $split=6;
248
249         // $year variable changes its meaning here!!!
250         if (isset($year))
251                 $wanted_year=$year;
252         $year=0;
253
254         $fin_split="";
255         $fin_year="";
256         while ($row=mysql_fetch_array($result)) {
257                 $row["month"     ]--;
258                 $row["month_last"]--;
259
260                 if ($row["year"]!=$year) {
261                         print($fin_split.$fin_year);
262
263                         $year=$row["year"];
264                         print(""
265                                         .(!isset($wanted_year) ? "<p><a id=\"year_$year\">&nbsp;</a></p>" : "")
266                                         ."<table border=\"0\" width=\"100%\"><tr><td align=\"center\"><table border=\"1\" cellpadding=\"5\">\n"
267                                         ."<tr><th colspan=\"$split\">Roèník $year (<a href=\"obsah.php?year=$year\">obsahy èísel</a>)</th></tr>\n"
268                                         );
269                         $fin_year="</table></td></tr></table>\n";
270                         $fin_split="";
271                         $month=-1;
272                         $floor=-1;
273                         }
274                 while ($floor<floor($row["month"]/$split)) {
275                         print($fin_split."<tr>");
276                         $fin_split="</tr>\n";
277                         $floor++;
278                         $month=$floor*$split-1;
279                         }
280                 while ($month+1<$row["month"]) {
281                         print("<td></td>");
282                         $month++;
283                         }
284                 print("<td align=\"center\" valign=\"top\""
285                                 .($row["month_last"]!=$row["month"] ? " colspan=\"".($row["month_last"]+1-$row["month"])."\"" : "")
286                                 .">");
287                 title_icons_table_month($year,$row["month"]+1,$row["month_last"]+1,$row["sequential"]);
288                 print("</td>\n");
289                 $month=$row["month_last"];
290                 }
291         mysql_free_result($result);
292         print($fin_split.$fin_year);
293 }
294
295 function title($year,$month)
296 {
297         if (isset($year) && isset($month))
298                 return(title_month( $year, $month));
299         else
300                 return(title_icons(&$year,&$month));
301 }
302
303 function image_supported($mime)
304 {
305         global $HTTP_SERVER_VARS;
306
307         if (!isset($HTTP_SERVER_VARS["HTTP_ACCEPT"]))
308                 return(false);
309         $exp=explode(",",$HTTP_SERVER_VARS["HTTP_ACCEPT"]);
310         while (($s=array_shift($exp))) {
311                 $s=trim(ereg_replace(";.*","",$s));
312                 if ($s==$mime)
313                         return(true);
314                 }
315         return(false);
316 }
317
318 // PHP dirname() is broken: ("/1/2/3"=>"/1/2", "/1"->"/")
319 function dirnameslashed($filename)
320 {
321         $r=dirname($filename);
322         if (substr($r,-1)!="/")
323                 $r.="/";
324         return($r);
325 }
326
327 function usersize($size)
328 {
329         $suffix_a=array("","k","M","G","T");
330         while ($size>=1000 && sizeof($suffix_a)>=2) {
331                 $size/=1000;
332                 array_shift($suffix_a);
333                 }
334         return(round($size)." ".$suffix_a[0]."B");
335 }
336
337 function data_href($filename,$text)
338 {
339         return("<a href=\"$filename\">$text (".usersize(filesize($filename)).")</a>");
340 }
341
342 function footer($delimit=true)
343 {
344         // deadlock prevention:
345         global $footer_passed;
346         if (isset($footer_passed))
347                 exit();
348         $footer_passed=true;
349
350         global $cvs_id_html,$viewcvs,$viewcvs,$HTTP_SERVER_VARS;
351         if ($delimit)
352                 print("<p>&nbsp;</p>\n");
353         $uri="uri=".addpercents("http://".$HTTP_SERVER_VARS["HTTP_HOST"].$HTTP_SERVER_VARS["REQUEST_URI"]);
354         ?>
355 <hr />
356 <table border="0" width="100%">
357 <tr><td align="left"><span class="cvs-id"><?php print($cvs_id_html); ?></span></td><td align="right"><a
358         href="http://validator.w3.org/check?<?php
359                 print($uri); ?>"><img src="http://www.w3.org/Icons/valid-xhtml11"
360                 <?php print(img_size(88,31)); ?> alt="Valid XHTML 1.1!" /></a><a
361         href="http://jigsaw.w3.org/css-validator/validator?warning=2&amp;profile=css2&amp;<?php
362                 print($uri); ?>"><img src="http://jigsaw.w3.org/css-validator/images/vcss"
363                 <?php print(img_size(88,31)); ?> alt="Valid CSS!" /></a></td></tr>
364 </table>
365 </body></html>
366 <?php
367         exit();
368 }
369
370 // Stolen from: php-manual.html#function.header
371 function no_cache()
372 {
373         header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");          // Date in the past
374         header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); // always modified
375         header("Cache-Control: no-cache, must-revalidate");        // HTTP/1.1
376         header("Pragma: no-cache");                                // HTTP/1.0
377 }
378
379 function heading($title=false)
380 {
381         global $HTTP_SERVER_VARS,$msie_major,$mozilla_major,$title_tail,$head_css,$have_css,$head;
382
383         header("Content-type: text/html");
384         header("Content-Style-Type: text/css");
385         if (!isset($msie_major) || $msie_major>=4)
386                 print('<?xml version="1.0" encoding="'.$HTTP_SERVER_VARS["CLIENT_CHARSET"].'"?>'."\n");
387 ?>
388 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
389 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cs">
390 <head><title>Energie &amp; peníze<?php
391         if (isset($title_tail))
392                 print(": ".htmlspecialchars($title_tail));
393         print("</title>\n");
394         if ($have_css) {
395 ?><style type="text/css"><!--
396 .cvs-id   { font-family: monospace; }
397 .error    { color: red;   background-color: transparent; }
398 .quote    { font-family: monospace; }
399 .nowrap   { white-space: nowrap; }
400 .centered { text-align: center; }
401 body {
402                 background-color: black;
403                 color: white;
404                 }
405 :link    { color: aqua;   background-color: transparent; }
406 :visited { color: teal;   background-color: transparent; }
407 h1,h2    { color: yellow; background-color: transparent; }
408 <?php
409                 if (isset($head_css))
410                         print(trim($head_css)."\n");
411                 print("--></style>\n");
412                 }
413         if (isset($head))
414                 print($head);
415         print("</head><body");
416         if (isset($mozilla_major) && $mozilla_major==4)
417                 print(" bgcolor=\"black\" text=\"white\" link=\"cyan\" vlink=\"teal\"");
418         print(">\n");
419         if ($title)
420                 print("<h1 class=\"centered\">"
421                                 .img("img/eap-title.".(image_supported("image/png") ? "png" : "gif"),"Energie & Peníze")
422                                 ."</h1>\n");
423 }
424 ?>