Wie is de Mol 2005 Quiz

$line

Nog eens Andere naam THEEND &showTopTen(); `/home/erikt/bin/molquiz`; } else { print <

THEEND if ($name eq "") { print <

Naam: THEEND &showTopTen(); } else { # always finish with main question if ($answered == $maxQuestions) { $qNbr = $#questions; } else { # choose question $qNbr = -1; $class = ""; while ($qNbr < 0 or defined $used{$qNbr} or defined $usedClass{$class}) { $qNbr = int(rand($#questions)); $questions[$qNbr] =~ /^([^\#]+)\#/; $class = $1; } } &printQuestion($qNbr); } } # html page: end print <

THEEND exit(0); sub readQuestions { my ($line); open(INFILE,$questionFile) or die "cannot open $questionFile\n"; while () { $line = $_; chomp($line); if ($line !~ /^\s*$/) { push(@questions,$line); } } close(INFILE); } sub printQuestion { my ($i,$line,$qNbr,$queryString,$question, @fields); $qNbr = shift(@_); @fields = split(/\#/,$questions[$qNbr]); shift(@fields); $question = shift(@fields); print <

$question

THEEND if ($#fields > 5) { $half = int(($#fields+2)/2); } else { $half = $#fields+1; } for ($i=0;$i<$half;$i++) { $answer = $fields[$i]; $answer =~ s/^!//; $aNbr = $i; $queryString = &makeQueryString($aNbr); print "
$\"[]\"$ $answer \ \ \ \n"; if ($#fields > 5 and $i+$half <= $#fields) { $answer = $fields[$i+$half]; $answer =~ s/^!//; $aNbr = $i+$half; $queryString = &makeQueryString($aNbr); print " $\"[]\"$ $answer \ \ \ \n"; } } print "
\n\n"; } sub processQueryString { my ($answered,$correct,$prevANbr,$prevQuestion,$queryString); $queryString = shift(@_); if ($queryString == 0) { return(0,0,0,0); } $prevQuestion = int($queryString/10000); $prevANbr = int(($queryString-10000*$prevQuestion)/1000); $answered = int(($queryString-10000*$prevQuestion-1000*$prevANbr)/10); $correct = $queryString-10000*$prevQuestion-1000*$prevANbr-10*$answered; return($prevQuestion,$prevANbr,$answered,$correct); } sub readQueryString { my ($i,$line,$queryString); $queryString = shift(@_); if ($queryString eq "") { return("",0,0,0,0); } $queryString =~ s/^.//; # remove extra initial char $queryString =~ s/%0[aA]/\#/g; @fields = split(/\#/,$queryString); open2(INFILE,OUTFILE,"/home/erikt/bin/uudecode -o -") or die "$command: cannot process input string\n"; print OUTFILE "begin-base64 644 xxx\n"; for ($i=0;$i<=$#fields;$i++) { print OUTFILE "$fields[$i]\n"; } print OUTFILE "====\n"; close(OUTFILE); $line = ; chomp($line); @fields = split(/\s/,$line); return(@fields); } sub makeQueryString { my ($aNbr,$c,$i,$line,$queryString); $aNbr = shift(@_); open2(INFILE,OUTFILE,"/home/erikt/bin/uuencode -m xxx") or die "$command: cannot create output string\n"; print OUTFILE "$name $startTime $answered $correct $qNbr $aNbr"; # previous questions for ($i=0;$i<=$#history;$i++) { print OUTFILE " $history[$i]"; } close(OUTFILE); $i = 0; $queryString = ""; while () { $line = $_; chomp($line); $i++; if ($i == 1) { next; } elsif ($line ne "====") { $queryString .= $queryString ? "\n$line" : $line; } } $c = chr(65+rand(26)); return("$c$queryString"); # add extra initial char } sub showTopTen { my ($i,$date,$host,$lastScore,$lastTime,$line,$mins,$name, $score,$secs,$time,$today, %scores,%times); $today = ""; %scores = (); %times = (); if (open(INFILE,$logFile)) { while () { $line = $_; chomp($line); ($date,$name,$score,$time,$host) = split(/\s+/,$line); $date =~ s/:.*$//; $name =~ s/\%21//g; $name =~ s/\%5C//g; $name =~ s/\%27/\'/g; $name =~ s/\+*\%2[89].*$//g; $name =~ tr/A-Z/a-z/; $name =~ s/[\.]*$//; if (defined $alias{$name}) { $name = $alias{$name}; } if ($host eq "80.61.190.138") { $name = "its+me+marc-marie"; } if (not defined $time) { next; } if ($date ne $today) { %scores = (); %times = (); $today = $date; } if ($name =~ /^erik.tks$/i and $score > 16) { $score = 16; } if (not defined $scores{$name} or $score > $scores{$name} or ($score == $scores{$name} and $time < $times{$name})) { $scores{$name} = $score; $times{$name} = $time; } } close(INFILE); $i = 1; print "

\n

\nBeste scores van de dag\n"; print "

\n\n"; $lastScore = 0; $lastTime = 0; foreach $name (sort { mysort() } keys %scores) { $line = $name; $line =~ s/\+/ /g; $mins = int($times{$name}/60); $secs = $times{$name} - $mins*60; if ($secs < 10) { $secs = "0$secs"; } print "
"; print "\n"; if ($lastScore != $scores{$name} or $lastTime != $times{$name}) { print "$i."; } else { print " "; } print "\n "; print "\n"; print "$line\n "; print "\n"; print "$scores{$name}\n "; print "\n"; print "$mins:$secs\n"; $lastScore = $scores{$name}; $lastTime = $times{$name}; $i++; if ($i > 10) { last; } } print <
Gisteren Aller tijden Home THEEND } sub mysort { if ($scores{$b} <=> $scores{$a}) { return($scores{$b} <=> $scores{$a}); } else { return($times{$a} <=> $times{$b}); } } }