#!/usr/bin/perl
use CGI;
$query = new CGI;

$id = $query->param('id');
$v01 = $query->param('v01');
$v02 = $query->param('v02');
$v03 = $query->param('v03');
$v04 = $query->param('v04');
$v05 = $query->param('v05');
$v06 = $query->param('v06');
$v07 = $query->param('v07');
$v08 = $query->param('v08');
$v09 = $query->param('v09');
$v10 = $query->param('v10');
$v11 = $query->param('v11');
$v12 = $query->param('v12');
$v13 = $query->param('v13');
$v14 = $query->param('v14');
$v15 = $query->param('v15');
$v16 = $query->param('v16');
$v17 = $query->param('v17');
$v18 = $query->param('v18');
$v19 = $query->param('v19');
$v20 = $query->param('v20');
$v21 = $query->param('v21');
$v22 = $query->param('v22');
$v23 = $query->param('v23');
$v24 = $query->param('v24');
$v25 = $query->param('v25');
$v26 = $query->param('v26');
$v27 = $query->param('v27');
$v28 = $query->param('v28');
$v29 = $query->param('v29');
$v30 = $query->param('v30');
$v31 = $query->param('v31');
$v32 = $query->param('v32');
$v33 = $query->param('v33');
$v34 = $query->param('v34');
$v35 = $query->param('v35');
$v36 = $query->param('v36');
$v37 = $query->param('v37');
$v38 = $query->param('v38');
$v39 = $query->param('v39');
$v40 = $query->param('v40');
$v41 = $query->param('v41');
$v42 = $query->param('v42');
$v43 = $query->param('v43');
$v44 = $query->param('v44');
$v45 = $query->param('v45');
$v46 = $query->param('v46');
$v47 = $query->param('v47');
$v48 = $query->param('v48');
$v49 = $query->param('v49');
$v50 = $query->param('v50');
$v51 = $query->param('v51');
$v52 = $query->param('v52');
$v53 = $query->param('v53');
$v54 = $query->param('v54');
$v55 = $query->param('v55');
$v56 = $query->param('v56');
$v57 = $query->param('v57');
$v58 = $query->param('v58');
$v59 = $query->param('v59');
$v60 = $query->param('v60');
$v61 = $query->param('v61');
$v62 = $query->param('v62');
$v63 = $query->param('v63');
$v64 = $query->param('v64');
$v65 = $query->param('v65');
$v66 = $query->param('v66');
$v67 = $query->param('v67');
$v68 = $query->param('v68');
$v69 = $query->param('v69');
$v70 = $query->param('v70');
$v71 = $query->param('v71');
$v72 = $query->param('v72');
$v73 = $query->param('v73');
$v74 = $query->param('v74');
$v75 = $query->param('v75');
$v76 = $query->param('v76');
$v77 = $query->param('v77');
$v78 = $query->param('v78');
$v79 = $query->param('v79');
$v80 = $query->param('v80');
$v81 = $query->param('v81');
$v82 = $query->param('v82');
$v83 = $query->param('v83');
$v84 = $query->param('v84');
$v85 = $query->param('v85');
$v86 = $query->param('v86');
$v87 = $query->param('v87');
$v88 = $query->param('v88');
$v89 = $query->param('v89');
$v90 = $query->param('v90');
$v91 = $query->param('v91');
$v92 = $query->param('v92');
$v93 = $query->param('v93');
$v94 = $query->param('v94');
$v95 = $query->param('v95');
$v96 = $query->param('v96');

($sec, $min, $hour, $mday, $mon, $year) = localtime(time);
$ip= $query->remote_addr();
$year = $year +1900;
$mon = $mon +1;

open(INFO,
   ">>$ENV{'DOCUMENT_ROOT'}/data/informantsdata.txt");
print INFO "$mon/$mday/$year\, ";
print INFO "$hour:$min:$sec\, ";
print INFO "$ip\, ";
print INFO "$v01, $v02, $id, $v03, $v04, $v05, $v06, $v07, $v08, $v09, $v10, $v11, $v12, $v13, $v14, $v15, $v16, $v17, $v18, $v19, $v20, $v21, $v22, $v23, $v24, $v25, $v26, $v27, $v28, $v29, $v30, $v31, $v32, $v33, $v34, $v35, $v36, $v37, $v38, $v39, $v40, $v41, $v42, $v43, $v44, $v45, $v46, $v47, $v48, $v49, $v50, $v51, $v52, $v53, $v54, $v55, $v56, $v57, $v58, $v59, $v60, $v61, $v62, $v63, $v64, $v65, $v66, $v67, $v68, $v69, $v70, $v71, $v72, $v73, $v74, $v75, $v76, $v77, $v78, $v79, $v80, $v81, $v82, $v83, $v84, $v85, $v86, $v87, $v88, $v89, $v90, $v91, $v92, $v93, $v94, $v95, $v96 \n";
close INFO;

print $query->header;
print $query->start_html(-title=>'Thanks');
print  <<SIMINE;
<p align="center"><b><font face="Garamond" size="6">
<br>
Thanks.  <a href="/docs/informants_home.html">Click here to return to the study homepage.</a>

</font></b></p>

SIMINE

print $query->end_html;