From: Jan Kratochvil Date: Wed, 11 Sep 2013 08:04:01 +0000 (+0200) Subject: +aladin X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=6ec3d7f63883f8a0d85bedcc0d4a673aab80055a +aladin --- diff --git a/public_html/cgi-bin/aladin b/public_html/cgi-bin/aladin new file mode 100755 index 0000000..0125253 --- /dev/null +++ b/public_html/cgi-bin/aladin @@ -0,0 +1,70 @@ +#! /usr/bin/perl +use strict; +use warnings; +use LWP::Simple; +use HTML::Entities; +binmode STDOUT,":utf8"; +$|=1; +my $args; +if (exists $ENV{"QUERY_STRING"}) { + 0==@ARGV or die "ARGV count != 0"; + $args=$ENV{"QUERY_STRING"}; +} else { + 1==@ARGV or die "ARGV count != 1"; + $args=$ARGV[0]; +} +my $URL="http://pr-asv.chmi.cz/aladin/index.php?$args"; +my $URLhtml=encode_entities $URL; +if ($ENV{"GATEWAY_INTERFACE"}) { + print <<"EOH"; +Content-type: text/html; charset=utf8 +Pragma-directive: no-cache +Cache-directive: no-cache +Cache-control: no-cache +Pragma: no-cache +Expires: 0 + +EOH +} +print <<"EOH"; + +aladin@{[ !$URLhtml?"":": $URLhtml" ]} + + +
+ + +
+
+EOH +my $content=get $URL; +print "",map(sprintf("",$_*6),0..3),"\n"; +my $day=""; +my $days=0; +my @day; +sub flushday() { + print "\n"; + if (!$days) { + unshift @day,"" while @day<4; + } else { + push @day,"" while @day<4; + } + print "\n" for @day; + print "\n"; + @day=(); + $days++; +} +while ($content=~m{\n
%02dh
$day$_
([^<>]*)
.*?		\s*(?:]+))}gs) { + if ($day ne $1) { + flushday() if @day; + $day=$1; + } + push @day,$3||""; +} +flushday(); +print <<"EOH"; +
+
+

EOF

+ +EOH