#!/usr/bin/perl

use strict;
use CGI qw(:standard);                                              
print header, start_html("Quiz Maker"),				    
	h1("Quiz Maker");				                    	
if (param()) {							    
	my $who = param("firstname");
	my $who2 = param("lastname");
	my $email = param("email");
	my $firstquestion = param("FirstQuestion");
	my $secondquestion = param("SecondQuestion");
	my $thirdquestion = param("ThirdQuestion");
	my $fourthquestion = param("FourthQuestion");
	my $fifthquestion = param("FifthQuestion");
	my $answerfirstquestion = param("AnswerFirstQuestion");
	my $answersecondquestion = param("AnswerSecondQuestion");
	my $answerthirdquestion = param("AnswerThirdQuestion");
	my $answerfourthquestion = param("AnswerFourthQuestion");
	my $answerfifthquestion = param("AnswerFifthQuestion");
	my $useranswerfirstquestion = param("UserAnswerFirstQuestion");
	my $useranswersecondquestion = param("UserAnswerSecondQuestion");
	my $useranswerthirdquestion = param("UserAnswerThirdQuestion");
	my $useranswerfourthquestion = param("UserAnswerFourthQuestion");
	my $useranswerfifthquestion = param("UserAnswerFifthQuestion");
	my $choicesfirstquestion = param("ChoicesFirstQuestion");
	my $choicessecondquestion = param("ChoicesSecondQuestion");
	my $choicesthirdquestion = param("ChoicesThirdQuestion");
	my $choicesfourthquestion = param("ChoicesFourthQuestion");
	my $choicesfifthquestion = param("ChoicesFifthQuestion");
	
	print p("Thank You. Here is your quiz:");                
	print p("Name: $who $who2");                                
	
	print hr(), start_form();
	print p("Question #1: $firstquestion");				 
	print p("Answer:", textfield("UserAnswerFirstQuestion")); 
	
	print hr(), start_form();
	print p("Question #2: $secondquestion");                         
	print p("Answer:", textfield("UserAnswerSecondQuestion"));
	
	print hr(), start_form();
	print p("Question #3: $thirdquestion");                        
	print p("Answer:", textfield("UserAnswerThirdQuestion"));
	
	print hr(), start_form();
	print p("Question #4: $fourthquestion");           
	print p("Answer:", textfield("UserAnswerFourthQuestion"));
	
	print hr(), start_form();
	print p("Question #5: $fifthquestion");
        print p("Answer:", textfield("UserAnswerFifthQuestion"));

	print hr(), start_form();
	print p(submit("Submit"), reset("Reset"));                  	
	
	print p ("Thank you for taking the quiz.");
	print p ("For question #1, your answer was $useranswerfirstquestion");
	print p ("For question #2, your answer was $useranswersecondquestion");
	print p ("For question #3, your answer was $useranswerthirdquestion");
	print p ("For question #4, your answer was $useranswerfourthquestion");
	print p ("For question #5, your answer was $useranswerfifthquestion");
	print end_form(), hr(); 
			
	
} else {
	
	print hr(), start_form();                                   
	print p("What's your first name?", textfield("firstname"));
	print p("What's your last name?", textfield("lastname"));
	print p("Enter your e- mail address", textfield("email"));
	
	print hr(), start_form();	
	print p("What is your first question", textfield("FirstQuestion"));
	print p("Please enter the answer", textfield("AnswerFirstQuestion"));
	
	print hr(), start_form();
	print p("What is your second question", textfield("SecondQuestion"));
	print p("Please enter the answer", textfield("AnswerSecondQuestion"));
	
	print hr(), start_form();
	print p("What is your third question", textfield("ThirdQuestion"));
	print p("Please enter the answer", textfield("AnswerThirdQuestion"));
	
	print hr(), start_form();
	print p("What is your fourth question", textfield("FourthQuestion"));
	print p("Please enter the answer", textfield("AnswerFourthQuestion"));
	
	print hr(), start_form();
	print p("What is your fifth question", textfield("FifthQuestion"));
	print p("Please enter the answer", textfield("AnswerFifthQuestion"));
	
	print hr(), start_form();
	print p(submit("Submit"), reset("Reset"));                  
	print end_form(), hr();
}	
print end_html