#!/usr/local/bin/perl
#In der ersten Zeile nach #! ist der Pfad eingetragen, an dem sich perl.exe befindet.
%uservars = &read_query_string;
#Lesen der eingegebenen Felder in %uservars
$logischFig = 8;
$logischVerb = 8;
$raumlich = 4;
@anwort = (0,'B','D','B','A','C','D','D','B', 'B','D','B', 'C', 'A','D','C','C', 'A','C','E','E')
for (1..8) { $logischFig-- if $uservars{"IQ$_"} eq $antwort[$_] }
for (9..16) { $logischVerb-- if $uservars{"IQ$_"} eq $antwort[$_] }
for (17..20) { $raumlich-- if $uservars{"IQ$_"} eq $antwort[$_] }
$falsch = $raumlich + $logischVerb + $logischFig;
print "Content-type: text/html\n\n";
print <<EOF;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
</head>
<BODY background="../back.jpg" text="#000000" bgcolor="#FFFFCC" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<center><b><font size=+4>Testauswertung</font><br>
<br><font size=4>Diese Auswertung zeigt nur die falschen Angaben in den
jeweiligen Abschnitten:</font><font size=4></font>
<p><font size=4>Abschnitt 1) (logisches Denken figural)</font>
<br><font size=4><font color="#FF0000">$logischFig</font> Fehler in 8 Aufgaben</font><font size=4></font>
<p><font size=4>Abschnitt 2) (logisches Denken verbal)</font>
<br><font size=4><font color="#FF0000">$logischVerb</font> Fehler in 8 Aufgaben</font><font size=4></font>
<p><font size=4>Abschnitt 3) (räumliches Vorstellungsvermögen)</font>
<br><font size=4><font color="#FF0000">$raumlich</font> Fehler in 4 Aufgaben</font><font size=4></font>
<p><font size=4>-------------------------------------------------------------------------------------
----------------</font>
<br><font size=4>Ergebnis:</font>
<br><font size=4><font color="#FF0000">$falsch</font> Antwort(en) von 20
Aufgaben sind falsch .......</font><font size=4></font>
</center>
</body>
</html>
EOF
sub read_query_string
{
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { # this is a "GET method
$buffer = $ENV{'QUERY_STRING'};
} # else
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
} # foreach
%FORM;
}