#!/usr/bin/perl
use CGI qw(:standard);
use CGI qw(:standard Vars);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use File::Basename;
use lib dirname(__FILE__);
use CreateExam;

my $cgi = CGI->new(\*STDIN);
print $cgi->header();
print $cgi->start_html("test");

my $check = CreateExam->new("/var/www/roger/homeworks/hw13/exam4.txt","/var/www/roger/homeworks/hw13/answers4.txt","/var/www/roger/homeworks/hw13/grades4.txt",0);

my %ans;
$ans{"1"} = "0AD";
$ans{"2"} = "Johnny Manziel";
$ans{"3"} = "washington";
$ans{"4"} = "Shes so hiiiigggghhhhhh\nHigh above me\nShes so hiiiigggghhhhhh above me\nCleopatra Joan of Arc Aphrooooodiiiiitttteeee\n";

print $check->entergrades("test",\%ans);
print qq(<div style="margin:10px;border:solid;border-width:10px;border-color:#FFFFFF">\n);
$check->printgrades("test");
print "</div>\n";
print $cgi->end_html();