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

# Read in all of the responses to the attachment questions and save those responses locally

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$v04= $query->param('v04');
$v05= $query->param('v05');
$v06= $query->param('v06');
$v07= $query->param('v07');
$v08= $query->param('v08');
$v09= $query->param('v09');
$v10= $query->param('v10');

# 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";

open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/Psych593/form2.txt");

	print INFO "$date1,$date2,";
	print INFO "$v01,$v02,$v03,$v04,$v05,$v06,$v07,$v08,$v09,$v10,";
	print INFO "endline\n";

close (INFO);


print $query->header;
print $query->start_html(-title=>'Thank	You', 
	-head => '<style type="text/css"> body	{margin-top: 20em; text-align: center; padding: 0; font-size: 12; font-family: verdana; color: midnightblue; background: LightCyan;}</style>'
	);

print "Thank you very much for your participation!";

print $query->end_html;