6 binmode STDOUT,":utf8";
9 if (exists $ENV{"QUERY_STRING"}) {
10 0==@ARGV or die "ARGV count != 0";
11 $args=$ENV{"QUERY_STRING"};
13 1==@ARGV or die "ARGV count != 1";
16 my $URL="http://pr-asv.chmi.cz/aladin/index.php?$args";
17 my $URLhtml=encode_entities $URL;
18 if ($ENV{"GATEWAY_INTERFACE"}) {
20 Content-type: text/html; charset=utf8
21 Pragma-directive: no-cache
22 Cache-directive: no-cache
23 Cache-control: no-cache
31 <title>aladin@{[ !$URLhtml?"":": $URLhtml" ]}</title>
32 <meta http-equiv="Content-Type" content="text/html; charset=utf8">
34 <form action="idnes-foto" method="get">
35 <input type="text" name="url" size="50" value="$URLhtml">
41 print "<table><tr><th></th>",map(sprintf("<th>%02dh</th>",$_*6),0..3),"</tr>\n";
46 print "<tr><td>$day</td>\n";
48 unshift @day,"" while @day<4;
50 push @day,"" while @day<4;
52 print "<td>$_</td>\n" for @day;
57 while ($content=~m{\n<tr><td bgcolor=wheat align=center>([^<>]*)<br>.*?<td bgcolor=lightgrey align=center>\s*(?:<img src=(http://portal.chmi.cz/files/portal/docs/meteo/ov/aladin/results/public/mapy/data/\S+)|([^<>]+))}gs) {
62 push @day,$3||"<img src=\"$2\">";