#!/usr/bin/perl -wT

# (c) 2005 Christoph Berg <cb@df7cb.de>
# All rights reserved.
# This program is free software covered by the GNU GPL v2.

use strict;

my $quizfile = "quiz.txt";
my $template = "quiz.html";
my $statsfile = "stats";

my $qcount = 0;
my @QUESTION;
my @ANSWER;
my @SOLUTION;
my @TEXT;
my $try = 0;

# read questions
open Q, $quizfile or die "$quizfile: $!";
while (<Q>) {
	chomp;
	if(/^\* (.*)/) {
		push @QUESTION, $1;
		my $a = 1;
		while(<Q>) {
			last unless /^([+-]) (.*)/;
			chomp;
			push @{$ANSWER[$qcount]}, $2;
			push @SOLUTION, $a if $1 eq '+';
			$a++;
		}
		push @TEXT, $_;
		$qcount++;
	}
}
close Q;

# read POST input
my %POST;
if($ENV{REQUEST_METHOD} eq "POST") {
	my $input = "";
	while(<STDIN>) {
		$input .= $_;
	}
	%POST = split /[=&]/, $input;
}

# start writing output
print "Content-Type: text/html\n\n";

open TMPL, $template or die "$template: $!";
while(<TMPL>) {
	last if /SPLIT/;
	print;
}

if(%POST) {
	if ($POST{try} and $POST{try} =~ /^\d+$/) {
		$try = $POST{try};
	}

	my $score = 0;
	for my $q (0 .. $qcount - 1) {
		if($POST{"q$q"} and $POST{"q$q"} == $SOLUTION[$q]) {
			$score++;
		}
	}
	my $per = sprintf "%.1f", $score/$qcount*100;
	print "<h2>You got $score of $qcount ($per%) right.</h2>\n<i>";

	if ($per <= 25) {
		print "You could get *that* score just by guessing.\n"
	} elsif ($per <= 35) {
		print "You've never heard of Debian before, have you?\n"
	} elsif ($per <= 50) {
		print "Your Debian knowledge is not really good, but that's not the end of life.\n"
	} elsif ($per <= 75) {
		print "Your Debian knowledge is good, but you lack some deeper insights.\n"
	} elsif ($per <= 90) {
		print "Pretty good. Some answers were still wrong, though.\n"
	} elsif ($per < 100) {
		print "Almost perfect. Are you a Debian Developer?\n"
	} else {
		print "Perfect. Go apply for DPL :-)\n";
	}

	print "</i><p>\n";

	open S, ">>$statsfile" or warn "$statsfile: $!";
	print S scalar(localtime). " host:$ENV{REMOTE_ADDR} score:$score/$qcount try:$try agent:$ENV{HTTP_USER_AGENT}\n";
	close S;
}

if (open S, "$statsfile") {
	my @hist = qw/0 0 0 0 0 0 0 0 0 0 0/;
	my $count = 0;
	print "<table border=\"0\">\n";
	while (<S>) {
		next unless /try:1 /;
		if (/score:(\d+)\/(\d+)/) {
			$hist[int($1 / $2 * 10)]++;
			$count++;
		}
	}

	foreach my $a (0 .. 9) {
		printf "<tr><td>%d-%d%% <td><img src=\"green-h.png\" height=\"15\" width=\"%d\"> <td>%d\n",
			$a * 10, $a * 10 + 9, $hist[$a], $hist[$a];
	}
	printf "<tr><td>100%% <td><img src=\"green-h.png\" height=\"15\" width=\"%d\"> <td>%d\n",
		$hist[10], $hist[10];
	printf "<tr><td> <td> <td>%d\n", $count;
	print "</table>\n";
	close S;
}

if (%POST) {
	print <<EOT;
<p>
You may try again or click to unfold the right answers below.
(Sorry, this uses Javascript.)
<hr>

<script type="text/javascript" language="JavaScript">
function collapse(x, txt){
  var oClick=document.getElementById("click_"+x);
  var oTemp=document.getElementById("answer_"+x) ;
  oClick.innerHTML=txt;
  oTemp.style.display="inline";
}
</script>
EOT
}

print "<form action=\"./\" method=\"POST\">\n";

for my $q (0 .. $qcount - 1) {
	print "<h3>Question ".($q+1).": $QUESTION[$q]</h3>\n";
	print "<blockquote>\n";
	my $nr;
	my $right;
	foreach $a (@{$ANSWER[$q]}) {
		$nr++;
		my $checked = "";
		if($POST{"q$q"} and $POST{"q$q"} == $nr) {
			my $color = "red";
			if($POST{"q$q"} == $SOLUTION[$q]) {
				$color = "green";
				$right = 1;
			}
			print "<font color=\"$color\">";
			$checked = " checked=\"checked\"";
		}
		print "<input type=\"radio\"$checked name=\"q$q\" value=\"$nr\"> $nr:  $a\n";
		if($checked) {
			print "</font>";
		}
		print "<br/>\n";
	}
	if($right) {
		print "<b><font color=\"green\">Correct:</font></b> <i>$TEXT[$q]</i>\n";
	} elsif($POST{"q$q"}) {
		print <<EOT;
<span id="click_$q" class="span_general" onclick='javascript:collapse($q,"<b>The correct answer is $SOLUTION[$q]:</b>")' style=\"color:red\">
 <b>Wrong:</b> <u>click for right answer</u>
</span>
<span id="answer_$q" class="span_general" style=\"display:none\">
 <i>$TEXT[$q]</i>
</span>
EOT
	}
	print "</blockquote>\n";
}

my $submit = "Tell me I'm right!";
$submit = "I'd like to try again!" if %POST;
print "<center><input type=\"submit\" value=\"$submit\"></center>\n";

$POST{try}++;
print "<input type=\"hidden\" name=\"try\" value=\"$POST{try}\">\n";
print "</form>\n";

#foreach (sort keys %POST) {
#	print "<tt>$_=$POST{$_}</tt><br>\n";
#}
#
#foreach (sort keys %ENV) {
#	print "<tt>$_=$ENV{$_}</tt><br>\n";
#}

while(<TMPL>) {
	print;
}