#! /usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

# generate the begining of the web page.                                          

my $title = "CSGA 5030 Project 3: Arithmetic Drilling";
print header, "\n";
print start_html($title), "\n";
print h1($title), "\n";

#print <<EndHTML;                                                                                                                             
my @ops = ("*", "/", "+", "-", "%");
my $c;
my $a = int (rand(100));
my $b = int (rand(100));
my $op = $ops[int(rand(@ops))];

# make sure zero is not used for div ops                                                                                                      
if ($op == "/" || "%") {
    while ($b == 0 || $a == 0){
        $b = int (rand(100));
        $a = int (rand(100));
    }
};
eval '$c=$a' . $op . '$b';
my $roundc = int ($c);
my $tqa;
my $aca;

# check to see if param has values else set counters to zero                                                                                  
if (param()) {
   $tqa = param("totalQuestions");
   $aca = param("answeredCorrectly");
} else {
   $tqa = 0;
   $aca = 0;
}

print <<EndHTML;
<form action="answer" method="post">
<th>$a $op $b  =</th>
<input type="hidden" name="question" value="$a $op $b">
<input type="text" size="4" name="proposedAnswer">
<input type="hidden" name="trueAnswer" value="$roundc">
<input type="hidden" name="totalQuestions" value="$tqa">
<input type="hidden" name="answeredCorrectly" value="$aca">
<input type="submit" value="Check answer!">
<input type="reset" value="Clear">
</form>
EndHTML