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

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

($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";


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

print "<style type='text/css'>
	body{
	margin: 20;
	padding: 0;
	font-size: 12;
	font-family: verdana;
	background-color: #FAFAFA;
	color: 'black';}


	td {
		padding: 2px 4px 2px 4px;
		font-size: 10;
		font-family: verdana;

	}

	tr.lightrow {
		background: #DEDEDE;
	}

	tr.darkrow {
		background: #C2C2C2;
	}

</style>";


# Create a composite score (average the responses to all the items). Reverse key items 3 and 5.

$esteem = ($v01 + $v02 + (6-$v03) + $v04 + (6-$v05))/5;
$esteem2 = sprintf("%.2f",$esteem);


open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/P593/form3.txt");
	print INFO "$date1,$date2,$v01,$v02,$v03,$v04,$v05,$esteem2,endline\n";
close (INFO);



open(INFO, "$ENV{'DOCUMENT_ROOT'}/P593/form3.txt");
	@data = <INFO>;
close(INFO);

print "Thank you for your participation. Your self-esteem score is <B>$esteem2</B> on a scale ranging from 1 (low) to 5 (high). <BR><BR>";

print "The table below shows the self-esteem scores for other people in the sample.<BR><BR>";

print "<CENTER><TABLE>";
print "<TR><TD> Date </TD><TD> Time </TD><TD> Esteem Score </TD></TR>";

$rowCount = 0;

foreach $key (@data) {
	@a = split(/,/,$key);

	if($rowCount == 0){
		print "<TR class=lightrow><TD> $a[0] </TD><TD> $a[1] </TD><TD> $a[7] </TD></TR>";
		$newrowCount = 1;
	}
	if($rowCount == 1){
		print "<TR class=darkrow><TD> $a[0] </TD><TD> $a[1] </TD><TD> $a[7] </TD></TR>";
		$newrowCount = 0;
	}
	$rowCount = $newrowCount;

}

print "</TABLE></CENTER>";





print $query->end_html;