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


#---------------------------

$trials= 4;
$previoussec= $query->param('trialsec');
$previousmin= $query->param('trialmin');
$previoushour= $query->param('trialhour');


$rt00= $query->param('rt00');
$rt01= $query->param('rt01');
$rt02= $query->param('rt02');
$rt03= $query->param('rt03');
$trialnumber= $query->param('trialnumber');

#---------------------------

@varnum = ("00","01","02","03");
@stimuli= ("happy", "lonely", "secure", "anxious");

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

#---------------------------

if($trialnumber != 0){
    
	$currenthour = $hour;
	$currentmin = $min;
	$currentsec = $sec;
	$rt= 0;
   
	# subtract seconds
	if($previoussec > $currentsec){
	  $secdiff = ((60 + $currentsec) - $previoussec);
	  $currentmin = $currentmin - 1; 
	}
	if($previoussec <= $currentsec){
	  $secdiff = $currentsec - $previoussec;
	}

	# subtract minutes
	if($previousmin > $currentmin){
	  $mindiff = ((60 + $currentmin) - $previousmin);
	  $currenthour = $currenthour - 1;
	}
	if($previousmin <= $currentmin){
	  $mindiff = $currentmin - $previousmin;
	}

	# subtract hours
	if($previoushour > $currenthour){
	  $hourdiff = ((24 + $currenthour) - $previoushour);
	}
	if($previoushour <= $hour){
	  $hourdiff = $currenthour - $previoushour;
	}


	# convert difference to seconds
	$rt = (3600*$hourdiff)+(60*$mindiff)+($secdiff);
		
    $temp = "rt" . $varnum[($trialnumber - 1)];
    $$temp = $rt;
	
}
else{
    $trialnumber = 0;
}

#---------------------------
   
print $query->header;
print $query->start_html(-title=>'Trials');
print "<FONT FACE = 'arial' SIZE = '2'>";

if($trialnumber >= 1){
  print "Time to recall on previous trial (seconds): $rt.<BR><BR>";
}

#---------------------------

if($trialnumber < $trials ){
  print "<FORM ACTION = '/cgi-bin/P593/rtdemo2.pl' METHOD = 'post'>"; 

  $stimulus= $stimuli[$trialnumber];

  print "<CENTER>Recall a time when you felt: <BR><BR>";
  print "<FONT FACE = 'arial' SIZE = '5'><B>$stimulus</B></FONT><BR><BR>";
  print "<I>Press the button when you have a specific experience in mind.</I><BR><BR>";
  print "<INPUT TYPE = 'submit' VALUE = 'Ready'></CENTER>";

  $count= $trialnumber + 1;

  print "<INPUT TYPE = 'hidden' NAME = 'trialsec' value = $sec>";
  print "<INPUT TYPE = 'hidden' NAME = 'trialmin' value = $min>";
  print "<INPUT TYPE = 'hidden' NAME = 'trialhour' value = $hour>";

  print "<INPUT TYPE = 'hidden' NAME = 'trialnumber' value = $count>";
  print "<INPUT TYPE = 'hidden' NAME = 'rt00' value = $rt00>";
  print "<INPUT TYPE = 'hidden' NAME = 'rt01' value = $rt01>";
  print "<INPUT TYPE = 'hidden' NAME = 'rt02' value = $rt02>";
  print "<INPUT TYPE = 'hidden' NAME = 'rt03' value = $rt03>";

  print "</FORM>";
}

else{
  
  open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/P593/rtdemo.txt");
    print INFO "$mon/$mday/$year,$hour:$min:$sec,$ip, ";
    print INFO "$rt00,$rt01,$rt02,$rt03\n";
  close (INFO);

  open(INFO, "$ENV{'DOCUMENT_ROOT'}/P593/rtdemo.txt");
	@data = <INFO>;
  close (INFO);
 
  print "Thank you.  You have finished all trials. <BR>";
  print "Here are your response times: <BR><BR>";
  print "$stimuli[0] : $rt00 seconds<BR>";
  print "$stimuli[1] : $rt01 seconds<BR>";
  print "$stimuli[2] : $rt02 seconds<BR>";
  print "$stimuli[3] : $rt03 seconds<BR>";	
  
  $mypos = ($rt00 + $rt02)/2;
  $myneg = ($rt01 + $rt03)/2;
  
  print "<BR>It took you $mypos seconds, on average, to recall positive memories and $myneg seconds to recall negative ones.<BR><BR>";

#---------------------------    
  $sumpos = 0;
  $sumneg = 0;
  $n = 0;  
   foreach $key (@data)  
   {  
    ($date,$time,$ip, $p01, $n01, $p02, $n02)=split(/,/,$key);
    $sumpos = $sumpos + (($p01 + $p02)/2);
    $sumneg = $sumneg + (($n01 + $n02)/2);
	$n = $n + 1;
   }

  $meanpos =  sprintf("%.4f", ($sumpos/$n));
  $meanneg =  sprintf("%.4f", ($sumneg/$n)); 

  print "On average, people in this sample have taken $meanpos seconds to recall positive memories and $meanneg to recall negative memories.<BR>";
  
}

#---------------------------

print $query->end_html;