#!C:/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI; $query = new CGI; # Read in all of the responses to the attachment questions and save those responses locally $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'); $pass= $query->param('pass'); if($pass<1){$pass=1;} print $query->header; print $query->start_html(-title=>'Cross-Cultural Negotiation'); print ""; #------------------------ # pass = 6 #------------------------ if($pass == 6){ # get date and time ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = 1900 + $year; $mon= $mon+1; $hour = $hour - 1; $date1= "$mon/$mday/$year"; $date2= "$hour:$min:$sec"; # write data to text file open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/p593/SPStudy.txt"); print INFO "$date1,$date2,"; print INFO "$v01,&cleanData($v02),$v03,$v04,$v05,$v06,$v07,$v08,$v09,$v10,$v11,$v12,$v13,$v14,$v15,$v16,$v17,$v18,$v19,&revKey(4,$v20),$v21,$v22,$v23,$v24,$v25,&revKey(4,$v26),$v27,&revKey(4,$v28),$v29,$v30,&revKey(4,$v31),&revKey(4,$v32),$v33,$v34,&revKey(4,$v35),&revKey(4,$v36),&revKey(4,$v37),$v38,&revKey(4,$v39),&revKey(4,$v40),&revKey(4,$v41),$v42,&revKey(4,$v43),$v44,&revKey(4,$v45),&revKey(4,$v46),$v47,&revKey(4,$v48),"; print INFO "endline\n"; close (INFO); print "