#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp "fatalsToBrowser";

	print header, '<FONT SIZE=5 COLOR="BLUE">',"Survey Results</FONT>";
	$tool = param( tool );
	$ctfile="./survey.txt";
	open (SURVFILE, "<" . $ctfile ) || die "Cannot open $infile: $!";
	$inline = <SURVFILE>;
	close (SURVFILE);

	( $hammer, $wrench, $sdriver, $fpan ) = split ( /:/, $inline );
	if ( $tool eq "hammer" ) { 
		$hammer = $hammer + 1;
	} elsif ( $tool eq "sdriver" ) { 
		$sdriver = $sdriver + 1;
	} elsif ( $tool eq "wrench" ) { 
		$wrench = $wrench + 1;
	} elsif ( $tool eq "fryingpan" ) { 
		$fpan = $fpan + 1;
	} else { 
		print 'ERROR: Illegal call';
		exit; 
	}
	$ct=$hammer + $sdriver + $wrench + $fpan;
	print br, "Hammers=$hammer wrench=$wrench sdriver=$sdriver fpan=$fpan Total votes=$ct";
	open (SURVFILE, ">$ctfile" ) || die "Cannot open $infile: $!";
	flock (SURVFILE, 2);
	print  SURVFILE "$hammer:$wrench:$sdriver:$fpan";
	close (SURVFILE);