#!/usr/bin/perl print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print ""; print "\n"; print " | "; print " ",$j,". kolo | \n"; if ($kdo eq '0') { print "\n"; print "středa"," | \n";} if ($kdo ne '0') { print "\n"; print "středa"," | \n";} if ($kdo eq '0') { print "\n"; print "."," | \n";}
if ($kdo ne '0') {
print "\n"; print "."," | \n";}
print "\n"; print " | \n"; $cnt = '0'; for $i(1 .. $#kolo) { $q = '0'; @tmp = split ";",$kolo[$i]; if ($tmp[1] eq $j) { $cnt = $cnt + 1; if ($kdo eq '0') { print " | ";} for $j(1 ..$#team) { @tmp2 = split ";",$team[$j]; if ($tmp[2] eq $tmp2[1]) { $dom = $tmp2[0]; $q = $q + 1; $aa = $tmp2[2]; } } for $j(1 ..$#team) { @tmp2 = split ";",$team[$j]; if ($tmp[3] eq $tmp2[1]) { $hos = $tmp2[0]; $q = $q + 1; $bb = $tmp2[2]; } } if ($kdo eq '0' && $q eq '2') { print $aa," - ",$bb," ",$tmp[4],":",$tmp[5];} if ($kdo ne '0') { if ($tmp[3] eq $kdo || $tmp[2] eq $kdo) {print " | ",$aa," - ",$bb," | ",$tmp[4],":",$tmp[5];} } } # next i # print " | \n"; if ($cnt eq '2' || $cnt eq '4' || $cnt eq '6') { print "\n"; print "
\n"; print " | \n"; } } print " |