#!C:/perl/bin/perl.exe
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');

$esteem = ($v01 + $v02 + (6 - $v03) + $v04 + (6 - $v05) ) /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.txt");
 print INFO "$mon/$mday/$year\, ";
 print INFO "$hour:$min:$sec\, ";
 print INFO "$ip, ";
 print INFO "$v01, $v02, $v03, $v04, $v05,";
 print INFO "$esteem2, ";
 print INFO "endline \n";
close (INFO);

$sum= 0;
$n= 0;

open(INFO, "$ENV{'DOCUMENT_ROOT'}/data/self-esteem.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 5.<BR><BR>
The average self-esteem score for people who have taken this survey is $esteemmean.<BR><BR>";

if($esteem > $esteemmean)
{ 
print "Your self-esteem is higher than that of the average participant.";
}
if($esteem < $esteemmean){ 
print "Your self-esteem is lower than that of the average participant.";
}
print "<BR><BR>To date, $n people have taken this survey.";
print "</FONT>";

print $query->end_html;