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; } }