#!/opt/local/bin/perl -w

use strict;
use CGI;
use lib '/Library/WebServer/perl/lib';
use EduFileTwo;

my $form = new CGI;
my $error_no_unescaped = $form->param('error_no');
my $error_no = $form->escapeHTML($error_no_unescaped);

print $form->header;
EduFileTwo::Util::printHead("An Error Occured");

my @vals = EduFileTwo::Util::getErrorData($error_no);

my $header = $vals[0];
my $message = $vals[1];
print <<END_HTML;
<h3>$header</h3>
<p>$message</p>
END_HTML

EduFileTwo::Util::printFoot();