#!/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<h1>Year $year is out of range!</h1>";
	exit 1;
} 
@allwinners = ();
open(FILEIN,"ncaa2007.data");
while( <FILEIN> ) {
	if( $_ =~ /^$year/ ) {
		@fields = split(/:/,$_);
		@allwinners = (@allwinners,"$fields[1]\n");
	}
}
close(FILEIN);
%winners = ();
foreach $next (@allwinners) {
	if( $winners{$next} ) { $winners{$next} = $winners{$next} + 1 }
	else { $winners{$next} = 1 }
}
$numwins = 0;
foreach $team ( keys (%winners)) {
	if( $numwins < $winners{$team} ) { 
		$winner = $team;
		$numwins = $winners{$team}
	} 
}
print "$header<h1>The winner for $year was $winner.</h1>";