#!/usr/bin/perl $ext = '300'; $l = 'ncaalog400'; $reshand = 'ncaaresults'; if (-e "football/hoopla/$l") { $count = 1; open (LOG, "football/hoopla/$l") or die "Can't open log file:$!\n"; while ($line = ) { chop $line; ($first[$count], $last[$count], $bet[$count]) = split /\t/, $line; if (($first[$count] ne '') and ($last[$count] ne '')) { $count += 1; } } } else { print "Content-type: text/html\n\n"; print <<"HTML code"; HooPLA Competition Sorry, no one has made picks for the competition yet. HTML code } for $x (1..$#first) { $handle[$x] = join '',$first[$x],$last[$x],$ext,$bet[$x]; $handle[$x] =~ tr/A-Z/a-z/; } for $x (1..$#handle) { open (HAND, "football/hoopla/$handle[$x]") or die "Can't open $x file:$!\n"; $count = 1; while ($line = ) { chop $line; $Game[$x][$count] = $line; $count += 1; } } if (-e "football/hoopla/$reshand") { open (RES, "football/hoopla/$reshand") or die "Can't open file:$!\n"; $count = 1; while ($line = ) { chop $line; ($winner[$count], $loser[$count]) = split /\t/, $line; $count += 1; } } for $x (1..$#Game) { for $y (1..$#{$Game[$x]}) { if ($Game[$x][$y] eq $winner[$y]) { $temp = join '',"",$Game[$x][$y],""; $Game[$x][$y] = $temp; $temp = ''; } else { $switch = 0; for $z (1..$#loser) { if ($Game[$x][$y] eq $loser[$z]) { $switch = 1; } } if ($switch == 1) { $temp = join '',"",$Game[$x][$y],""; $Game[$x][$y] = $temp; $temp = ''; } } } } print "Content-type: text/html\n\n"; print <<"HTML code"; HooPLA Picks HTML code print "\n"; sub headers { print "
$region
"; for $x (1..$#first) { print "		|
$first[$x]
"; } print "\n"; print "
"; for $x (1..$#last) { print "		|
$last[$x]
"; } print "\n"; print "
"; for $x (1..$#last) { print "
"; } } sub underline { print "
"; for $x (1..$#last) { print "
"; } print "\n"; } $region="Midwest"; $round="First Round"; headers; for $y (1..8) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="West"; headers; for $y (9..16) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="South"; headers; for $y (17..24) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="East"; headers; for $y (25..32) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $round="Second Round"; $region="Midwest"; headers; for $y (33..36) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="West"; headers; for $y (37..40) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="South"; headers; for $y (41..44) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="East"; headers; for $y (45..48) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $round="Semifinals"; $region="Midwest"; headers; for $y (49..50) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="West"; headers; for $y (51..52) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="South"; headers; for $y (53..54) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="East"; headers; for $y (55..56) { print "
$round
"; for $x (1..$#last) { print "
$Game[$x][$y]
"; } print "\n"; } underline; $region="Regional Finals"; headers; print "
Midwest
"; for $x (1..$#last) { print "
$Game[$x][57]
"; } print "\n"; print "
West
"; for $x (1..$#last) { print "
$Game[$x][58]
"; } print "\n"; print "
South
"; for $x (1..$#last) { print "
$Game[$x][59]
"; } print "\n"; print "
East
"; for $x (1..$#last) { print "
$Game[$x][60]
"; } print "\n"; underline; $region="Final Four"; headers; print "
Semifinals
"; for $x (1..$#last) { print "
$Game[$x][61]
"; } print "\n"; print "
Semifinals
"; for $x (1..$#last) { print "
$Game[$x][62]
"; } print "\n"; print "
Championship
"; for $x (1..$#last) { print "
$Game[$x][63]
"; } print "\n"; underline; print "
\n"; print "\n"; print "\n";