#!/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 Quiz ROCK ANNEES 90\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 "Bravo, vous êtes un crack ! Vous avez suivi l'actualité musicale de ces
vingt dernières années avec intérêt et vous êtes probablement à l'affût de
la perle rare... et des prochains talents. Votre collection est à coup sûr
enviée !!
\n";
print "
\n";
if ($q > 5 && $q < 11) {print "\n";
print "Vous avez répondu avec brio à ce questionnaire pourtant pas si simple que ça, félicitations !
\n";
print "
\n";
if ($q > 10 && $q < 21) {print "\n";
print "Bon, vous vous en êtes pas mal tiré, même si vous avez manqué d'attention sur certaines questions
ou négligé la musique indépendante pendant les années 90... Ce n'est pas très grave.
\n";
print "
\n";
if (($q > 20) && ($q < 31)) {print "\n";
print "Difficile pour vous de faire la différence entre Pearl Jam et Sublime ! Vous avez sans doute des connaissances
musicales, mais vous avez survolé la musique rocke de ces dernières années ! Dommage....
\n";
print "
\n";
if ($q > 30) {print "\n";
print "Le rock n'est décidément pas votre truc... Mais arrêtez tout de même de penser que la Star Academy est la meilleure émission du PAF !!!.
\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";