Listing 1: The version of edit-quizfile that displays the form
#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI; # Available from http://www.perl.com/CPAN
use QuizQuestions;
# Maximum index for questions (starting at 0)
my $MAX_QUESTIONS = 10;
# Create an instance of CGI
my $query = new CGI;
# Print the MIME header that we will always use
print $query->header("text/html");
# Determine how we were invoked
my $request_method = $query->request_method;
# If we were invoked via POST, then ignore things for now
if ($request_method eq "POST")
{
print $query->start_html(-title => "Not yet implemented");
print "Sorry, the POST part of this program isn't yet written.</P>\n";
print $query->end_html;
}
else
{
# If the query string is empty, then produce a page of HTML
# containing ISINDEX
if ($query->param("keywords") eq "")
{
print $query->start_html(-title => "Enter a quiz name");
print "Please enter the name of the quiz you want ";
print "to create or edit in the below .</P>\n";
print "<ISINDEX>\n";
print $query->end_html;
}
else
{
# Get the name of the quiz
my $quizname = $query->param("keywords");
# Create a new instance of QuizQuestions
my $questions = new QuizQuestions($quizname);
# Read the questions from disk, ignoring errors
# (since we will happily create a new quiz)
$questions->loadFile;
# Create the header for the HTML page
print $query->start_html(-title => "Create/Edit a quiz");
# Define a form
my $script_name = $query->script_name;
print "<Form method="POST" action="$script_name">\n";
# Create the text element for the quiz name
print "Editing quiz: <input type="text" name="quizname" ";
print "value="$quizname"></P>\n";
print "<HR>\n\n";
# Now create one form element for each existing question
my $counter = 0;
foreach $counter (0 .. $MAX_QUESTIONS)
{
# Get a particular question
my ($qtext, $ansA, $ansB, $ansC, $ansD, $correct)
= $questions->getQuestion($counter);
# Question text
print "<H2>Question $counter</H2>\n";
print "Question text: <input type="text" ";
print "name="question-$counter" value="$qtext" ";
print "size="30"></P>\n";
# Answer A
print "Answer A: <input type="text" value="$ansA" ";
print "name="answer-a-$counter" size="30"></P>\n";
# Answer B
print "Answer B: <input type="text" value="$ansB" ";
print "name="answer-b-$counter" size="30"></P>\n";
# Answer C
print "Answer C: <input type="text" value="$ansC" ";
print "name="answer-c-$counter" size="30"></P>\n";
# Answer D
print "Answer D: <input type="text" value="$ansD" ";
print "name="answer-d-$counter" size="30"></P>\n";
# Correct answer
print "Correct answer: <select name="correct-$counter">\n";
my $letter = "";
foreach $letter ("a","b","c","d")
{
print "<option ";
print "selected " if ($letter eq $correct);
print "$letter>$letter\n";
}
print "</select>\n";
print "<HR>\n\n";
}
# Now that the loop is complete, we can finish things up
print '<input type="submit" value="Save changes">', "\n";
print "</HTML>\n";
print $query->end_html;
}
}
Copyright © 1994 - 2018 Linux Journal. All rights reserved.