#!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');
$sex= $query->param('sex');

# 0= female, 1 = male

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

#Create a composite score (average the responses to all the items)

$esteem = ($v01 + $v02 + $v03 + $v04 + $v05)/5;
$esteem = ($v01 + $v02 + (6-$v03) + $v04 + (6-$v05))/5;

$esteem2 = sprintf("%.2f",$esteem);



if($sex ==0){
$class = "Claire";
if($esteem > 4){$class = "Juliet";}
if($esteem < 2.8){$class = "Kate";}
}

if($sex ==1){
$class = "Charlie";
if($esteem > 4){$class = "Jack";}
if($esteem < 2.8){$class = "Sawyer";}
}


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

	print INFO "$date1,$date2,";
	print INFO "$v01,$v02,$v03,$v04,$v05,$esteem2,";
	print INFO "endline\n";

close (INFO);


$sum = 0;
$n = 0;

open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/P593/practice228.txt");
@data = <INFO>;

close (INFO);


foreach $key (@data)
{
@a =split(/,/,$key);
$sum = $sum + $a[7];
$suma = $suma + $a[8];
$sumn = $sumn + $a[9];
$n = $n + 1;

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


$class1 = "the same as";
if($esteem2 > $esteemmean){$class1 = "greater than";}
if($esteem2 < $esteemmean){$class1 = "less than";}




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

print "Thank you. Your self-esteem score is $esteem2 on a scale ranging from 1 (low) to 5 (high).  The average self-esteem score of all participants who have taken this test is $esteemmean.  You self-esteem score is $class1 the mean.  You most closely resemble $class from the epic television series <b>Lost</b>.<br><br>";

$esteemdiff = $esteem2-$esteemmean;
$esteemdiffsq = $esteemdiff**2;

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

	print INFO "$date1,$date2,";
	print INFO "$v01,$v02,$v03,$v04,$v05,$esteem2,$esteemdiffsq,";
	print INFO "endline\n";

close (INFO);



open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/P593/practice228b.txt");
@datab = <INFO>;

close (INFO);

foreach $key (@datab){
@b =split(/,/,$key);
$sum1 = $sum1 + $b[8];
$sum1b = $sum1b + $b[9];
$sum1n = $sum1n + $b[10];
$n1 = $n1 + 1;
}

$step1 = $sum1/$n;
$esteemstdev = sqrt($step1);
$esteemstdev = sprintf("%.2f", $esteemstdev);

$zscore = $esteemdiff/$esteemstdev;
$zscore = sprintf("%.2f", $zscore);

print "The sample mean is $esteemmean. <br> The sample standard deviation is $esteemstdev.<br>  
		Your z-score is $zscore. ";






print $query->end_html;