#!/usr/bin/perl -w

use CGI qw(:cgi-lib);
#require "cgi-lib.pl";


&ReadParse;


$answer2 = $in{'rq2'};
$answer3 = $in{'rq3'};
$answer4 = $in{'rq4'};
$player = $in{'plyrName'};

$beginscore = 40;
$numcorrect = 0;
$totalquest = 4;
@wronganswers = ();



	if($answer2 eq undef){        
        &pgeErrTop();
	&errmessage(); 
        &pgeErrBottom();
        }
	elsif($answer3 eq undef){        
        &pgeErrTop();
	&errmessage(); 
        &pgeErrBottom();
        }
	elsif($answer4 eq undef){        
        &pgeErrTop();
	&errmessage(); 
        &pgeErrBottom();
        }
	elsif($player eq undef){        
        &pgeErrTop();
	&errmessage(); 
        &pgeErrBottom();
        }


	if($answer2 ne undef && $answer3 ne undef &&
	$answer4 ne undef && $player ne undef) { 
        	
	if($answer2 eq "pun"){
	
	$numcorrect = 1;
	
	}
	elsif($answer2 ne "pun"){

	$beginscore = $beginscore - 10;
	$q1 = "Question 1 from Speech 4";
	push(@wronganswers, $q1);
	}


	if($answer3 eq "acetyl"){

	$numcorrect += 1;
	}
	elsif($answer3 ne "acetyl"){

	$beginscore = $beginscore - 10;
	$q2 = "Question 2 from Speech 4"; 
	 push(@wronganswers, $q2);
	}

 
	if($answer4 eq "60"){

	$numcorrect += 1;
	}
	elsif($answer4 ne "60"){
 
	$beginscore = $beginscore - 10;
	$q3 = "Question 3 from Speech 4";
	 push(@wronganswers, $q3);
	}

 


	 if($beginscore == 40){  
	
	 &pgeTop();       
        print "<center><img src =
	archive/photos/images/73-3676.jpg height
	= 187 width = 201></center><br><p>\n";
	print "<center><font color = peach>Well done 
	$player.</font></center><p><p>\n"; 
	print "You completed the questions for Speech 4. You gave
	$numcorrect correct responses out of three questions.\n";
	$gameresults = "1948 campaign results for $player for Speech 4.
$player gave
	$numcorrect correct responses out of three questions.\n";   
	print "<form name = frmmailer method = post               
        action = 1948mail.cgi>To send a	
	copy of this report to your teacher, please
        enter:<table><tr><td><br><p><b>Name of Class:</b><input type =
        text name = clsName value = '' size = 20></td></tr><tr><td><b>
        Teacher's E-Mail Address:</b><input type =text name = teachEmail
        value= ''
        size =20><br></td></tr><tr><td><input type = hidden name =hidinfo
        value = '$gameresults'>
        <center><input type = submit name = sbmailer value = Send>
        <input type = reset name = rst value =
        Reset></center></form></td></tr></table>\n";
	&pgeBottom();
	}

	if($beginscore < 40){

	&pgeTop();
	print "<center>Hello
	$player.</center><p><p>\n";
	print "You completed the questions for Speech 4. You gave
	$numcorrect
	correct response(s) out of three questions. Your responses were
	incorrect on the following questions:<br>\n";
	print "<ul>\n";
	foreach $wronganswers(@wronganswers){ 
	print "<li>$wronganswers\n";
	}
	
	
	$gameresults = "1948 campaign results for $player for Speech 4.
$player gave $numcorrect correct
	responses out of three questions.\n \r 
	The following responses were incorrect:\n \r $wronganswers[0]\n \r
	$wronganswers[1]\n \r $wronganswers[2]\n \r $wronganswers[3]\n";
	
	print "</ul><p>\n";
	print "To correct your incorrect responses or to review the speech
	and questions press the BACK button on your browser.<p><p>\n";
	print "<form name = frmmailer method = post
        action = 1948mail.cgi>To send a copy of
	this report to your teacher, please
	enter:<table><tr><td><br><p><b>Name of Class:</b><input type =
	text name = clsName value = '' size = 20></td></tr><tr><td><b>
	Teacher's E-Mail Address:</b><input type =text name = teachEmail	
	value= ''
	size =20><br></td></tr><tr><td><input type = hidden name =hidinfo
	value = '$gameresults'>
	<center><input type = submit name = sbmailer value = Send>
	<input type = reset name = rst value =
	Reset></center></form></td></tr></table>\n"; 
 
	 
	&pgeBottom();
	}


}


sub errmessage {

	print "<center><font color = purple><h2><pre>Error</pre>        
        </h2></font></center>
        <p><p><font color = green><pre>
        The question set is incomplete.<br><p>
        Please:<br><p>
        1) Press the back button on your browser
        to return to the question set
        2) Complete any unanswered questions
        3) Fill in your name
        4) Press the Send button<br><p>
        Thank you.</pre>\n";

	}

sub pgeErrTop {
	 print "Content-type: text/html\n\n";       
        print "<html><head><title>
        Results</title>\n";
        print "</head>\n";
        print "<body bgcolor = white>\n";
}



sub pgeErrBottom {        
        print "</body>\n";
        print "</html>\n";
        }

sub pgeTop {        
        print "Content-type: text/html\n\n";
        print "<html><head><title>
        Results</title>\n";
	print "</head>\n";
        print "<body bgcolor = white>\n";
        print "<img src = tracks1.gif width = 442 height = 9>\n";
	print "<center><h2><font color = purple>
        results</h2></font></center>\n";
        print "<img src = tracks1.gif width = 442 height = 9><br><p>\n";

        }
 
 
        sub pgeBottom
        {
        print "</td></tr></td></tr></table>\n";
        print "</body>\n";
        print "</html>\n";
        }