#!/usr/local/bin/perl
push(@INC,"/usr/host-local/etc/httpd/cgi-bin");
push(@rep,q0,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,q12,q13,q14,q15,q16,q17,q18,q19,q20,
q21,q22,q23,q24,q25,q26,q27,q28,q29,q30,q31,q32,q33,q34,q35,q36,q37,q38,q39,q40);
require("cgi-lib.pl");
&ReadParse;
print &PrintHeader;
print "\n";
print "
\n";
print "Résultats Quizz GENERIQUES\n";
print "\n";
print "";
$som=0;
for ($i=1;$i<41;$i++) {$som=$som+$in{$rep[$i]};}
$qe= int($som/100);
$qdec=$qe+($som-($qe*100));
if ($qdec == 40) {
$q = (40-$qe);
if ((40-$qe) > 1) {
$s = "s";
}
else {
$s = "";
}
print "Vous avez fait faute",$s," !
\n";
print "
\n";
if ($q < 6) {print "\n";
print "D'après moi, vous avez entre 30 et 40 ans et une sacrée mémoire. C'est vrai que Dallas, les feux de l'amour et Dorothée n'existaient pas, c'était le bon temps...
\n";
print "
\n";
if ($q > 5 && $q < 11) {print "\n";
print "Ah, il y a des restes, mais on vient de se prendre un coup de vieux ! Dommage, les magnétoscopes n'existaient pas...
\n";
print "
\n";
if ($q > 10 && $q < 21) {print "\n";
print "Ah, vous regardiez la télévision chez les voisins ? Vous auriez dû aller plus souvent chez eux, le jeudi...
\n";
print "
\n";
if (($q > 20) && ($q < 31)) {print "\n";
print "Ben alors, on était privé de télé ? Ou vous en profitiez pour faire vos devoirs ? On ne peut pas être bon partout...
\n";
print "
\n";
if ($q > 30) {print "\n";
print "Vous avez essayé de brancher la petite prise électrique derrière le récepteur ? Vous savez, entre 23h00 et 3h00 du matin, il y a des émissions intéressantes... quelquefois.
\n";
print "
\n";
print "";
print "Qu'importe le résultat ; n'hésitez pas à refaire ce quizz. Si vous avez fait moins de 5 fautes, c'est peut-être de la chance, si vous en avez plus de 30, vous ne pouvez que faire mieux...\n";
print "\n";
}
else {
$t="";
if ((40 - $qdec) > 1) {$t = "s";}
print "\n";
print "Désolé, il vous manque ",(40-$qdec)," réponse",$t,"...
";
print "
\n";
print "Vous devez répondre à les questions...
\n";
}
print "\n";
print "\n";