a

#!/usr/bin/perl print "Content-type: text/html\n\n"; print "\n"; print "\n"; print ""; print "a"; print "\n"; print "\n"; $kol = '55'; # pocet kol 1. ligy $ko = '0'; # 0 vsechny kola 1 - 52 jen vybrane $typ = '0'; # styl $kdo = '0'; # 0 vsechny teamy jinak vyber #$kdo = 'BER'; # 0 vsechny teamy jinak vyber use Env; @tempo = split /&/, $QUERY_STRING; #print "
Pocet polozek: ",$#tempo,"
"; for $i ( 0 .. $#tempo ){ @temp = split /=/, $tempo[$i]; if ($temp[0] eq "kol") { $kol = $temp[1]; } if ($temp[0] eq "ko") { $ko = $temp[1]; } if ($temp[0] eq "typ") { $typ = $temp[1]; } if ($temp[0] eq "kdo") { $kdo = $temp[1]; } if ($temp[0] eq "icq") { $icq = $temp[1]; } }; @team = ''; @kolo = ''; open (SBR, 'data.team.csv'); while ( ) { chomp; push(@team, $_) }; close (SBR); open (SBR, 'data.zapas.csv'); while ( ) { chomp; push(@kolo, $_) }; close (SBR); for $j(1 .. 52) { #print " ",$j,"kolo\n"; print "\n"; print "\n"; print "\n"; print " \n"; if ($kdo eq '0') { print "\n";} if ($kdo ne '0') { print "\n";} if ($kdo eq '0') { 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 "\n"; if ($cnt eq '2' || $cnt eq '4' || $cnt eq '6') { print "\n"; print "\n"; print "\n"; print "\n"; } } print "

"; print " ",$j,". kolo	\n"; print "středa","	\n"; print "středa","	\n"; print ".","	\n"; 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"; }