#!/usr/bin/perl  -w
###########################################################
#
# Given a year displays the winner of the 
# NCAA Division I basketball tournament
# Author Bill Kraynek
# Created November 15, 2006
#
###########################################################
use CGI qw(param);
$header  = "MIME-Version: 1.0\n";
$header .= "Content-type: text/html\n";
$header .= "\n";
$year = param("year");
if( $year< 1939 || $year > 2007 ) {
	print "$header<h2>Year $year is out of range!</h2>";
	exit 1;
} 
@allwinners = ();
open(FILEIN,"ncaa2007.data");
while( <FILEIN> ) {
	if( $_ =~ /^$year/ ) {
		@fields = split(/:/,$_);
		@allwinners = (@allwinners,"$fields[1]\n");
	}
}
close(FILEIN);
@allwinners = sort @allwinners;
open(FILEOUT,">temp_winners");
foreach (@allwinners) { print FILEOUT "$_" }
close(FILEOUT);
$out = `uniq -c temp_winners | sort -gr | head -1`;
$out =~ s/[0-9]+//;
$out =~ s/^ *//;
print "$header<h2>The winner for $year was $out<br></h2>";
unlink("temp_winners");