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

print $query->header;
print $query->start_html(-title=>'Password demo');
print "<FONT FACE = 'arial' SIZE = '2'>";
#--------------------------------------------
$pin= $query->param('pin');
$password= $query->param('password');
$match= 0;

$v0 = "Background Information";
$v1 = "Political Attitudes";
$v2 = "Personality";
$v3 = "Relationships";
$numsurveys= 4;

#--------------------------------------------
open(INFO, "$ENV{'DOCUMENT_ROOT'}/data/passwords.txt");
   @passdata = <INFO>;
close(INFO);
#--------------------------------------------

foreach $key (@passdata)  
{  
  ($pin2,$storedpassword,$e)=split(/,/,$key);
   if( ($pin eq $pin2) && ($password eq $storedpassword) )
   {
     $match= 1;
   }
}
#--------------------------------------------

if ($match == 0)
{
 print "Invalid response. <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)
{
  print "<B>Survey Menu</B><BR><BR>";
  open(INFO, "$ENV{'DOCUMENT_ROOT'}/data/participation.txt");
    @participation = <INFO>;
  close(INFO);
  
  $tasks = 0;
  @dates = ();
  foreach $key (@participation)  
  {  
   ($pin2,$section,$date)=split(/,/,$key);
     if($pin2 eq $pin)
	 {
     $tasks= $tasks + 1;
	 @dates = (@dates, $date);
     }
  }

  print "<TABLE>";
  print "<TR BGCOLOR='darkblue'>
  <TD><FONT FACE='arial' SIZE='2' COLOR='white'><B>Survey</B></TD>
  <TD><FONT FACE='arial' SIZE='2' COLOR='white'><B>Status</B></TD>
  </TR>";
  
  for($i = 0; $i <= ($numsurveys - 1); ++$i)
  {
  $listing = "v" . $i;
   print "<TR BGCOLOR='beige'>
   <TD><FONT FACE='arial' SIZE='2'>$$listing</TD>";
   
   if($i < $tasks){
     print "<TD><FONT FACE='arial' SIZE='2'>Completed on $dates[$i]</TD>";
    }
	else{
     print "<TD><FONT FACE='arial' SIZE='2'>Not completed</TD>";
	}
  print "</TR>";
  }
  print "</TABLE>";

  if($tasks < $numsurveys){
   $nextaction = "/cgi-bin/" . "pindemosurvey" . $tasks . ".pl";
   print "<FORM ACTION=$nextaction METHOD='post'>";
   print "<INPUT TYPE='hidden' NAME='pin' VALUE=$pin>";  
   print "<INPUT TYPE='hidden' NAME='password' VALUE=$password>";
   print "<BR>You have completed $tasks of the 4 surveys.  Please click the button below to take the next survey.<BR>";  
   print "<INPUT TYPE='submit' VALUE='Next Survey'>";
   print "</FORM>";
   }
  if($tasks >= $numsurveys){
  print "<BR>You have completed all the questionnaires.<BR><BR>Debriefing.";
  }   
}

print $query->end_html;