#!/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 Rock des années 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 trop 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 rock 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 musicale 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";