";
print "";
open(DATA,$file) or dienice("Couldn't open $file :: $!\n");
#flock(DATA,0); # uncomment this line if using unix based server
seek(DATA,0,0);
@data = ;
close(DATA);
$total = 0;
foreach $line (@data) {
($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line);
if ($quiz eq $type) {
$total++;
}
}
$total++;
if ($question == $total) {
print "
QUIZ Results:
";
print "";
foreach $part (@cookies) {
if ($part =~ /$type/) {
($name, $value) = split(/=/,$part);
(@answers) = split(/-/,$value);
foreach $a (@answers) {
($questionc, $answerc) = split(/_/,$a);
foreach $line (@data) {
chomp($line);
($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line);
if ($quiz eq $type && $questionc eq $num) {
if(substr($answerc,0,1) eq substr($answerc,1,1)) {
print "$questionc. $q
CORRECT!
";
$correct++;
} else {
print "$questionc. $q
INCORRECT!$reason ";
}
}
}
}
}
}
print "";
print "
";
$percent = ($correct/$current)*100;
printf ("$correct / $current = %4.1f", $percent, "%
");
print "%
";
if ( ($correct/$total) < 0.5) {
print "$result1";
} elsif (($correct/$total) < 0.9) {
print "$result2";
} elsif (($correct/$total) > 0.9) {
print "$result3";
} else {
print "$cheater";
}
} else {
foreach $line (@data) {
chomp($line);
($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line);
if ($quiz eq $type && $question eq $num) {
print "";
}
}
}
print " |