#!/usr/local/bin/perl
####
#
#  Program:	question1.pl
#	Cimmaron Design
#	702 448-4927
#
####

####
#
#  Image Uploading Routine
#
####

####
#
#  The libraries to use... CGI for the CGI functions used in print statements.
# Use 'perldoc CGI' to find out more about the CGI functions.
#
####
use CGI qw/:all/;
####
#
#  Begin of the main code
#
####

####
#
#  The param function will determine if there was a CGI submission.
#
####

if (param) {
	####
	#
	#  This is where we want to be, print out a nice HTML header
	# and start to process the stuff that the server will send in
	# email to the user and the guys who are going to actually
	# fill the order.
	#
	####
	print STDOUT header;
	print STDOUT start_html('View  Sovereign Questionnaire');

	####
	#
	#  Okay - next we will verify *all* the fields on the order
	# form are listed properly, and verify their correctness.
	# If those conditions are met, then we'll print out what the
	# email will look like, and save it off to a variable that we
	# can pipe to the email program.
	#
	####
	$your_email_address	= param('your_email_address');
	$your_name			= param('your_name');
	$email_subject_line	= param('email_subject_line');
	$required_fields	= param('required_fields');
	$thank_you_title	= param('thank_you_title');
	$return_link_url	= param('return_link_url');
	$return_link_name	= param('return_link_name');
	$client_email		= param('client_email');
	$client_name		= param('client_name');
	$client_phone		= param('client_phone');
	$tell		  		= param('tell');
	$owned			   	= param('owned');
	$lookingfor		    = param('lookingfor');
	$how		  		= param('how');
	$fenced   			= param('fenced');
	$time		  		= param('time');
	$sex	   			= param('sex');
	$house		  		= param('house');
	$out  				= param('out');
	$comp		  		= param('comp');
	$comments   		= param('comments');


	####
	#
	#  Now - to verify each of the *required* entries... the 
	# undefined ones weren't used in what the user listed...
	# We'll go through all the errors, and then print out what
	# we find, instead of breaking if there's just one and not
	# showing any others we might find as well, to make it more
	# usable.
	#
	####
	$err_no = 0;

	if ( ! defined($your_email_address) ) {
		$err[$err_no++]="Invalid hidden fields 'your_email_address'\n";
	}
	if ( ! defined($your_name) ) {
		$err[$err_no++]="Invalid hidden fields 'your_name'\n";
	}
	if ( ! defined($email_subject_line) ) {
		$err[$err_no++]="Invalid hidden fields 'email_subject_line'\n";
	}
	if ( ! defined($thank_you_title) ) {
		$err[$err_no++]="Invalid hidden fields 'thank_you_title'\n";
	}
	if ( ! defined($return_link_url) ) {
		$err[$err_no++]="Invalid hidden fields 'return_link_url'\n";
	}
	if ( ! defined($return_link_name) ) {
		$err[$err_no++]="Invalid hidden fields 'return_link_name'\n";
	}

	####
	#
	#  User information next...
	#
	####
	if ( ! defined($client_email) ) {
		$err[$err_no++]="You must enter an email address\n";
	} else {
		if ( $client_email eq "" ) {
			$err[$err_no++]="You must enter an email address\n";
		}
	}
	if ( ! defined($client_name) ) {
		$err[$err_no++]="You must enter a name\n";
	} else {
		if ( $client_name eq "" ) {
			$err[$err_no++]="You must enter a name\n";
		}
	}
	if ( ! defined($client_phone) ) {
		$err[$err_no++]="You must enter a phone number\n";
	} else {
		if ( $client_name eq "" ) {
			$err[$err_no++]="You must enter a phone number\n";
		}
	}

	####
	#
	#  Verifications complete.  Next we check if there were
	# any errors.  If there were, print them, and exit, if not,
	# then print out what we're here after - the order form.
	#
	####
	if ( $err_no > 0 ) {
		print STDOUT h2({-align=>'center'}, font(
			{-color=>"#AF0000"}, "Submitted Questionnaire - Sovereign Brittanys - errors" ) ), "\n";
		print STDOUT hr( {-noshade} ), "\n";
		print STDOUT "<UL>\n";
		for ( $i = 0 ; $i < $err_no; $i++ ) {
			print STDOUT li($err[$i]), "\n";
		}
		print STDOUT "</UL>\n";
		print STDOUT end_html, "\n";
		exit;
	}

	####
	#
	#  So - lets print out some HTML to show them what they ordered,
	# and get verification that it's all good.
	#
	####
	print STDOUT h2({-align=>'center'}, font(
		{-color=>"#AF0000"}, "Submitted Sovereign Questionnaire" ) ), "\n";
	print STDOUT hr( {-noshade} ), "\n";
	print STDOUT "<pre>\n";
	if ($imageError) {
		my @vars = sort(keys(%ENV));
#foreach(@vars) {
#        $ENV{$_} ||= qq~›~;
#print qq~
#        
#        $of\$ENV{$_}$cf
#        $of$ENV{$_}$cf
#        
#~;               
#}
		print STDOUT "             Upload Error: $returned\n";
	}
	print STDOUT "Email Address:			$client_email\n";
	print STDOUT "Your Name:			$client_name\n";
	print STDOUT "Your Phone:			$client_phone\n";
	print STDOUT "___________________________________________________________________________\n";
	if ( length($tell) > 1 ) {
		print STDOUT "Please tell us a little about your home and family (including number of children and ages at home). \n";
		print STDOUT "$tell\n";
	print STDOUT "___________________________________________________________________________\n";	
	}
	if ( length($owned) > 1 ) {
		print STDOUT "Have you owned a dog/Brittany (raised a puppy)? \n";
		print STDOUT "$owned\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($lookingfor) > 1 ) {
		print STDOUT "What are you looking for in a Brittany? \n";
		print STDOUT "$lookingfor\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($how) > 1 ) {
		print STDOUT "If you are looking for a hunting dog, how often do you hunt?
	Will you be using a professional trainer? \n";
		print STDOUT "$how\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($fenced) > 1 ) {
		print STDOUT "Do you have a fenced in yard? \n";
		print STDOUT "$fenced\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($sex) > 1 ) {
		print STDOUT "Are you looking for a male or female, or open to either? \n";
		print STDOUT "$sex\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($house) > 1 ) {
		print STDOUT "Where will this puppy/dog live? Where will it stay when you are not home? \n";
		print STDOUT "$house\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($out) > 1 ) {
		print STDOUT "Will there be someone home during the day to take the puppy out? \n";
		print STDOUT "$out\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($comp) > 1 ) {
		print STDOUT "Do you have any interest in competing with your dog
	(ie. conformation shows, hunt tests, field trials, agility,
	obedience, rally, lure coursing, barn hunt, etc)? \n";
		print STDOUT "$comp\n";
	print STDOUT "___________________________________________________________________________\n";
	}
	if ( length($comments) > 1 ) {
		print STDOUT "Additional Comments:\n";
		print STDOUT "$comments\n";
	}
	print STDOUT "</pre>\n";
	print STDOUT "<form action=\"question2.pl\" method=\"POST\">\n";

	#####
	#
	#  Now, for the next cgi in line, we'll need ALL
	# the elements of the last page, to print out on the
	# email that's going to the address specified in the
	# html file, and the one specified on the form (the client)
	#
	####
	if (!$imageError) {
        print STDOUT "<input type=\"hidden\" name=\"upload_name\" value=\"$returned\">\n";
        print STDOUT "<input type=\"hidden\" name=\"upload_type\" value=\"$fileType\">\n";
	}
	print STDOUT "<input type=\"hidden\" name=\"your_email_address\" value=\"$your_email_address\">\n";
	print STDOUT "<input type=\"hidden\" name=\"your_name\" value=\"$your_name\">\n";
	print STDOUT "<input type=\"hidden\" name=\"email_subject_line\" value=\"$email_subject_line\">\n";
	print STDOUT "<input type=\"hidden\" name=\"required_fields\" value=\"$required_fields\">\n";
	print STDOUT "<input type=\"hidden\" name=\"thank_you_title\" value=\"$thank_you_title\">\n";
	print STDOUT "<input type=\"hidden\" name=\"return_link_url\" value=\"$return_link_url\">\n";
	print STDOUT "<input type=\"hidden\" name=\"return_link_name\" value=\"$return_link_name\">\n";
	print STDOUT "<input type=\"hidden\" name=\"client_email\" value=\"$client_email\">\n";
	print STDOUT "<input type=\"hidden\" name=\"client_name\" value=\"$client_name\">\n";
	print STDOUT "<input type=\"hidden\" name=\"client_phone\" value=\"$client_phone\">\n";
	print STDOUT "<input type=\"hidden\" name=\"client_phone\" value=\"$client_phone\">\n";
	print STDOUT "<input type=\"hidden\" name=\"tell\" value=\"$tell\">\n";
	print STDOUT "<input type=\"hidden\" name=\"owned\" value=\"$owned\">\n";
	print STDOUT "<input type=\"hidden\" name=\"lookingfor\" value=\"$lookingfor\">\n";
	print STDOUT "<input type=\"hidden\" name=\"how\" value=\"$how\">\n";
	print STDOUT "<input type=\"hidden\" name=\"fenced\" value=\"$fenced\">\n";
	print STDOUT "<input type=\"hidden\" name=\"time\" value=\"$time\">\n";
	print STDOUT "<input type=\"hidden\" name=\"sex\" value=\"$sex\">\n";
	print STDOUT "<input type=\"hidden\" name=\"house\" value=\"$house\">\n";
	print STDOUT "<input type=\"hidden\" name=\"out\" value=\"$out\">\n";
	print STDOUT "<input type=\"hidden\" name=\"comp\" value=\"$comp\">\n";
	print STDOUT "<input type=\"hidden\" name=\"comments\" value=\"$comments\">\n";
	print STDOUT "<hr><div align=\"center\">\n";
	print STDOUT "<input type=\"submit\" name=\"submit\" value=\"OK\">\n";
	print STDOUT "<input type=\"button\" name=\"back\" value=\"Back\" onclick=\"history.back()\">\n";
	print STDOUT "</div>\n";
} else {

	####
	#
	#  Somehow they got here without going to the order form html
	# page...  so lets just print out an error and tell them to hit
	# a link to the submissionform.html page
	#
	####
	print STDOUT header;
	print STDOUT start_html('Error');
	print STDOUT h1( {-align=>'center'},
		font( {-color=>'#AF0000'}, "Error") ), "\n";
	print STDOUT hr( {-noshade} ), "\n";
	print STDOUT div( {-align=>'center'},
		"Please return to the ",
		a({-href=>'questionnaire18.html'}, "Questionnaire") , "\n",
		"instead of calling this CGI directly\n"), "\n";
}

####
#
#  That's all folks :-)
#
####
print STDOUT end_html, "\n";