#!/s/std/bin/perl
use strict;
use CGI qw(:standard);
use File::Temp;
use IO::File;
use lib '/u/k/o/koczan/public/html/tourney';
use Tournament;
my $cgi = new CGI;
my $tourney = new Tournament("NCAA.txt", "/dev/null");
print $cgi->header;
print "
Let's Predict Us a Tournament
";
print "NCAA Tournament Predictor
\n";
print "Welcome to the new and improved NCAA tournament predictor.\n";
print "Here are the results of your random simulation.
\n";
print "The game is on the left column of the table, the winner is the right. Tables are grouped according to round.\n\n";
$tourney->initialize;
$tourney->simulate;
# stdout to web page
my $stdout = new IO::File;
open ($stdout, ">-");
$tourney->print($stdout, "html");
close $stdout;
print "These are my predictions. Let's see how these fare against those of the \"experts\".
Please note that you cannot download a text-only version at this time.
Back to tourney index | Back to main index