#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

#--------------------------------------------
# Read in CGI data
#--------------------------------------------

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$pass= $query->param('pass');


#--------------------------------------------
# Check to see if this is the first pass through
#--------------------------------------------

if($pass < 1){
	$pass=1;
}


#--------------------------------------------
# Basic Formatting and Style
#--------------------------------------------

	print $query->header;
	print $query->start_html(-title=>'page title');


#------------------------
# pass = 4
#------------------------

if($pass == 4){
	
	# get date and time
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year = 1900 + $year;
	$mon= $mon+1;
	$hour = $hour - 1;
	$date1= "$mon/$mday/$year";
	$date2= "$hour:$min:$sec";

	# write data to text file

	open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/tehdata.txt");
		print INFO "$pin,$task,$date1,$date2,$v01,$v02,$v03,$v04,endline\n";
	close (INFO);

	print "Your data have been saved.  Thank you for your time.<BR><BR>";




} # end pass = 4



#------------------------
# pass = 3
#------------------------

if($pass == 3){

		print "<FORM ACTION = 'mult1.pl' METHOD = 'post' > "; 


		print "Are you (pick one):<BR><BR>
		 <INPUT TYPE = radio NAME = v03 value = 1 >into coffee<BR>
		 <INPUT TYPE = radio NAME = v03 value = 2 >against coffee<BR>
		<BR><BR>	 ";

		print "<INPUT TYPE='hidden' NAME=v01 VALUE=$v01 >";
		print "<INPUT TYPE='hidden' NAME=v02 VALUE=$v02 >";
		print "<INPUT TYPE='hidden' NAME=v03 VALUE=$v03 >";
		print "<INPUT TYPE='hidden' NAME='pass' VALUE=4>";

		print "<Input type='submit' name='Next' value='Next'>";

		print "</FORM>";

} # end pass = 3







#------------------------
# pass = 2
#------------------------

if($pass == 2){

		print "<FORM ACTION = 'mult1.pl' METHOD = 'post' > "; 


		print "Are you (pick one):<BR><BR>
		 <INPUT TYPE = radio NAME = v02 value = 1 >a criminal master mind<BR>
		 <INPUT TYPE = radio NAME = v02 value = 2 >innocent on all charges<BR>
		<BR><BR>	 ";


		print "<INPUT TYPE='hidden' NAME=v01 VALUE=$v01 >";
		print "<INPUT TYPE='hidden' NAME=v02 VALUE=$v02 >";
		print "<INPUT TYPE='hidden' NAME=v03 VALUE=$v03 >";
		print "<INPUT TYPE='hidden' NAME='pass' VALUE=3>";

		print "<Input type='submit' name='Next' value='Next'>";

		print "</FORM>";

} # end pass = 2




#------------------------
# pass = 1
#------------------------

if($pass == 1){

		print "<FORM ACTION = 'mult1.pl' METHOD = 'post' > "; 


		print "Are you (pick one):<BR><BR>
		 <INPUT TYPE = radio NAME = v01 value = 1 >home-schooled<BR>
		 <INPUT TYPE = radio NAME = v01 value = 2 >a junior in high school<BR>
		 <INPUT TYPE = radio NAME = v01 value = 3 >a senior in high school<BR>
		 <INPUT TYPE = radio NAME = v01 value = 4 >in another grade<BR>
		 <INPUT TYPE = radio NAME = v01 value = 5 >a high-school graduate<BR>
		 <INPUT TYPE = radio NAME = v01 value = 6 >not in school<BR>
		 <INPUT TYPE = radio NAME = v01 value = 7 >working on a GED<BR>
		<BR><BR>";


		print "<INPUT TYPE='hidden' NAME=v01 VALUE=$v01 >";
		print "<INPUT TYPE='hidden' NAME=v02 VALUE=$v02 >";
		print "<INPUT TYPE='hidden' NAME=v03 VALUE=$v03 >";
		print "<INPUT TYPE='hidden' NAME='pass' VALUE=2>";
		print "<Input type='submit' name='Next' value='Next'>";

		print "</FORM>";

} # end pass = 1




#--------------------------------------------------------------
# for troubleshooting and programming - print all cgi data
# set $printAllCGI to 1 to dump the cgi data to the browser window
# set $printAllCGI to 0 to hide this dump
#--------------------------------------------------------------


	$printAllCGI = 0;

	if($printAllCGI == 1){
		print "----------------dump all query -----<BR>";
			foreach $key (sort($query->param)){
					$value = $query->param($key);
					print "$key = $value<BR>";
			}
		print "----------------------------<BR>";
	}



print $query->end_html;