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

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

$filename = ">>$ENV{'DOCUMENT_ROOT'}/data/" . "pindata" . $survey . ".txt";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year=$year+1900;

open(INFO, $filename);
   print INFO "$pin, "; 
   print INFO "$mon/$mday/$year , ";
   print INFO "$hour:$min:$sec , ";
   foreach $key (sort($query->param))  
    {  
    $value = $query->param($key);    
    print INFO "$value, ";
    }
   print INFO "endline \n";
close(INFO);


open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/participation.txt");
  print INFO "$pin, $survey, $mon/$mday/$year \n"; 
close(INFO);


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

print "<FORM ACTION = '/cgi-bin/pindemo2.pl' METHOD = 'post' > "; 
print "<INPUT TYPE='hidden' NAME='pin' VALUE=$pin>";
print "<INPUT TYPE='hidden' NAME='password' VALUE=$password>";
print "Thank you.  Your data have been saved.<BR><BR>";
print "<INPUT TYPE='submit' VALUE='Return to menu'>";
print "</FORM>";
print $query->end_html;