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

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


print "	\n<style type='text/css' media='all'>	
body { 	margin: 30px; color: black; background: white; font-family: verdana; font-size: 12px;} 
</style>\n";


$pin= $query->param('pin');
$password= $query->param('password');


# ---- check password ---

open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/relationshipsresearch.com/P593/data/userlist.txt");
   @passdata = <INFO>;
close(INFO);

$match = 0;

foreach $key (@passdata){    
  @a=split(/,/,$key);
   if( $a[0] eq $pin && $a[1] eq $password){
     $match=1;
   }
}

if($match !=1){
	print "We cannot find a record of either that user name ($pin) or password. <BR><BR>";
	print "If you think you may have made a typo, please click your browser's <I>Back</I> button and try again. <BR><BR>";
}



if ($match == 1){

	open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/relationshipsresearch.com/P593/data/$pin-participation.txt");
		@participation = <INFO>;
	close(INFO);
  


	print "<FORM METHOD='post' ACTION='/cgi-bin/P593/loginsurvey.pl'>
		
		<B>You are logged in as $pin. <BR><BR>Complete a survey</B>
		<hr noshade>";
		
#----------attempts----------		
			
			# Get date and time of logins
			
			($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
			  $year = 1900 + $year;
			  $mon= $mon+1;
			  $hour = $hour-1;
			  $ampm = "a.m.";
			  if($hour > 12){
				$hour= $hour - 12;
				$ampm = "p.m.";
			  }
			$date1= "$mon/$mday/$year";
			$date2= "$hour:$min" . "-" . "$ampm";
			
			# print info in participation log text file
			
			open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/relationshipsresearch.com/P593/data/participationlog.txt");
			print INFO "$pin,$password,$date1,$date2,endline\n";
			close(INFO);
			
			# open the participation log text file
			
			open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/relationshipsresearch.com/P593/data/participationlog.txt");
			@participationlog = <INFO>;
			close(INFO);
	
			# print for user the number of times taken and the dates taken
			$timesTaken = 0;
			
			foreach $key (@participationlog){    
			  @a=split(/,/,$key);
			   if( $a[0] eq $pin && $a[1] eq $password){
				 $timesTaken = $timesTaken + 1;
			   }
			}
			print "You have logged into this site $timesTaken times.<BR><BR>";
			print "Your login dates are:<BR>";
			
			foreach $key (@participationlog){    
			  @a=split(/,/,$key);
			   if( $a[0] eq $pin && $a[1] eq $password){
				 print "@a[2]<BR>";
			   }
			}
#----------end attempts----------


		print "<BR><BR>";
		print "<input type='submit' value='take the next survey'><BR>
		<i>Please click the button above to take the next survey.
		<BR><BR></i>";

		print "<INPUT TYPE='hidden' NAME='pin' VALUE=$pin>";  
		print "<INPUT TYPE='hidden' NAME='password' VALUE=$password>";

	print "</FORM>";
	
	
	

} # end match = 1



print $query->end_html;