#!/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 BEATLES\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 "Votre prénom, c'est Paul, George, John ou Ringo ? Superbe score, bravo !!
\n";
print "
\n";
if ($q > 5 && $q < 11) {print "\n";
print "Pas mal du tout. Vous avez soit une quarantaine d'années, soit tous leurs albums, soit les deux. Félicitations !
\n";
print "
\n";
if ($q > 10 && $q < 21) {print "\n";
print "Eh oui, c'est plus tout jeune, mais il n'est pas trop tard pour les découvrir
\n";
print "
\n";
if (($q > 20) && ($q < 31)) {print "\n";
print "Ah non, ceux qui ont écrit \"Satisfaction\", ce sont les Rolling Stones. Ben oui, fallait réfléchir avant !
\n";
print "
\n";
if ($q > 30) {print "\n";
print "Pourtant, c'était pas mal. C'est pas aussi bien que le dernier album de Jeanne Calment, mais c'était pas mal...
\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";