#!/usr/bin/env perl

# GLOBALS - change the following when moving between systems

$sessdir = "./sessions";
$archivedir = "./archives";
$sesslife = 6; # Maximum time between pages, hours

$qndir = "./questions";

$template = "main.htp";
$title = "Open Source Quiz System";
$email = "graham@wellho.net";
$homesite = "http://www.wellho.net";
$copyright = "Copyright, Well House Consultants, 2005";

@topics = (
                  "Perl (Elementary level)" => ["Perl.1",15],
                  "Perl (Intermediate level)" => ["Perl.2",15],
                  "Perl (Advanced level)" => ["Perl.3",15]
                  );

# END OF GLOBALS - the rest of the code here shouldn't need changing!
#####################################################################

use whc_web;
use questionset;

send_header();

@now = (gmtime())[3,4,5];
$fill{"now"} = sprintf("%d/%d/%d",$now[0],$now[1]+1,$now[2]+1900);
$fill{"title"} = $title;
$fill{"copyright"} = $copyright;

# item 1. read any incoming form
#-------------------------------

collect_form();

# item 2. Use the value read to pick up the session
#--------------------------------------------------

$sessname = read_session($form{plsess});

$fill{plsess} = $sessname ;
$stepnumber = $session{step};

# Inputs in %session and %form translate to %session and %fill

# item 3. Do any work to analyse inputs and validate them
#--------------------------------------------------------

$aok = 1;
$errstr = "";

if ($stepnumber == 0) { # Initialisation
      # Move on to next step - prepare for page 1
      $stepnumber = 1;

} elsif ($stepnumber == 1) {
      # Name, email address and quiz type have been entered
      $aok *= checkinput("yourname","name",'\w',
              "Name must include a word character");
      $aok *= checkinput("youremail","email",'^\s*\S+@\S+\s*$',
               "email address of form xxx\@xxx.xxx required");
      $aok *= checkradio("subject","subject",
                "You must select a subject");
      if ($aok) {
            # Choose quiz questions, and note in the session
            $thistest = new questionset($session{subject},"",@topics);
            $qorder = $thistest->getqdata();
            $session{topicname} = $thistest->gettopic();
            $session{qorder} = $qorder;
            $session{setat} = time();
            $stepnumber++;
            }

} elsif ($stepnumber == 2) {
      # Quiz has been completed. Recover the question set and mark.

      $thistest = new questionset($session{subject},$session{qorder},@topics);
      ($testlen, $score, $skip,$mark) = $thistest -> mark_quiz();

      $session{testlen} = $testlen;
      $session{score} = $score;
      $session{skip} = $skip;
      $session{answerat} = time();
      $stepnumber++;

} else {
}

# item 4. Do work to prepare for next page
#-----------------------------------------

$fill{status} = "You are at page $stepnumber of 3";
$fill{stuff} = "";
$fill{errstr} = $errstr;
$fill{form} = "<form method=POST><table border=1><input name=plsess type=hidden ".
            "value=".$fill{plsess}.">";

if ($stepnumber == 1) {
        $fill{"top"} = "Please identify yourself and select a test";

        $fill{"form"} .= formbox("Please enter your name","yourname");
        $fill{"form"} .= formbox("Please enter your email address","youremail");
        $fill{"form"} .= radioset("Please choose a test","subject",@topics);

} elsif ($stepnumber == 2) {
        $fill{"top"} = "Please complete the following questions on $session{topicname}";

        $testlen = $thistest->getqcount();
        for ($k=0; $k<$testlen; $k++) {
                ($qntext,$qninfo) = $thistest->getquestion($k,0);
                $fill{"form"} .= radioset($qntext,$k+1,@$qninfo);
        }

} elsif ($stepnumber == 3) {
        $fill{"top"} = "<b>".webify($session{name}).
                ", you scored $session{score} out of $session{testlen} on $session{topicname}. ".
                "You skipped $session{skip} questions.</b>";

        $elapsed = $session{answerat} - $session{setat};
        $mins = $elapsed / 60;
        $secs = $elapsed % 60;
        $fill{"top"} .= sprintf("<br>You took %d minutes and %d seconds to complete the quiz",
                $mins,$secs);

        $fill{"stuff"} = $mark;
        $completed = 1;
} else {
}

$fill{form} .= "<tr><td>&nbsp;</td><td><input type=submit></td></tr></table></form>";
$fill{form} = "<a href=\"\">Restart Quiz</a>" if ($completed); # No next form if application completed

# item 5. Save the session
#-------------------------

# If the user's session has been completed, don't save the "in progress" file"

if (! $completed) {
       $session{step} = $stepnumber;
        save_session($sessname);
} else {
        archive_session($sessname);
}

# item 6. Send out the response page
#-----------------------------------
# Complete the output template and send it to the user

$fill{step} = $stepnumber;

send_response($template);