#!/usr/bin/perl -w
# Turn on strict error checking
use strict;
use diagnostics;
# CGI.pm is available from CPAN, at
# http://www.perl.com/CPAN
use CGI;
# Include our object
use QuizQuestions;
# Where should we send people if
# they want to play again?
my $question_cgi = "askquestion.pl";
# Where should we send people if they
# don't want to play again?
my $final_html = "/quizend.html";
# -------------------------------
# Create a new CGI object, and output an
# initial MIME header
my $query = new CGI;
print $query->header("text/html");
print $query->start_html(-title => "Quiz");
# Get the quiz name
my $quiz_name = $ENV{"QUERY_STRING"};
# Create a new QuizQuestions object, using
# the name of our quiz
my $quiz = new QuizQuestions($quiz_name);
# Now retrieve the question that we want
my $question_number =
$query->param("questionNumber");
my ($question, $answerA, $answerB, $answerC,
$answerD, $rightAnswer, $questionNumber)
= $quiz->getQuestion($question_number);
# Did the user answer correctly?
if ((lc ($query->param("answer"))) eq
(lc $rightAnswer))
{
print "<P>Yay! You got it right!</P>\n";
}
else
{
# Get the right answer
my $rightAnswerText = eval('$answer' .
$rightAnswer);
print "<P>Sorry, but the correct answer";
print " was \"$rightAnswer\" ";
print "($rightAnswerText).</P>\n";
}
print "<P>You can <a ";
print "href=\"$question_cgi?$quiz_name\">";
print "play again</a>, ";
print "or <a href=\"$final_html\">";
print "end the game</a> now.</P>\n";
print $query->end_html;
Copyright © 1994 - 2018 Linux Journal. All rights reserved.