#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$v01x= $query->param('v01.x');
$v02x= $query->param('v02.x');
$v03x= $query->param('v03.x');
$v04x= $query->param('v04.x');
$v05x= $query->param('v05.x');

$esteem = ($v01x + $v02x + (364 - $v03x) + $v04x + (364 - $v05x) ) /5;
$esteem2 = sprintf("%.2f", $esteem);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$ip= $query->remote_addr();

open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/self-esteem-coord.txt");
 print INFO "$mon/$mday/$year\, ";
 print INFO "$hour:$min:$sec\, ";
 print INFO "$ip, ";
 print INFO "$v01x, $v02x, $v03x, $v04x, $v05x,";
 print INFO "$esteem2, ";
 print INFO "endline \n";
close (INFO);

$sum= 0;
$n= 0;

open(INFO, "$ENV{'DOCUMENT_ROOT'}/data/self-esteem-coord.txt");
 @data = <INFO>;
close(INFO);

foreach $key (@data)
{
($adate,$atime,$aip,$av01,$av02,$av03,$av04,$av05,$aesteem2,$aendline)=split(/,/,$key);
$sum= $sum + $aesteem2;
$n= $n + 1;
}

$esteemmean= $sum/$n;
$esteemmean = sprintf("%.2f", $esteemmean);


print $query->header;
print $query->start_html(-title=>'Thank You');
print "<FONT FACE = 'arial' SIZE = '2'><B>Self-Esteem Results Page</B><BR><BR>
Your self-esteem score is $esteem2, on a scale ranging from 1 to 364.<BR><BR>
The average self-esteem score for people who have taken this survey is $esteemmean.<BR><BR>
To date, $n people have taken this survey.
</FONT>";
print $query->end_html;