#!/usr/local/bin/perl # Preference variables $page_return = 'http://staff.city.ac.uk/psychstudies/HS/Finished.htm'; $surveyFile; $condition; $p_numberfile; $resultData; $usernumber; my @fieldnames; my @fieldvalues; my %var_Hash; $state ; my $now = localtime time; $request_method = $ENV{'REQUEST_METHOD'}; if ($request_method eq "GET") { if (length ($ENV{'QUERY_STRING'}) > 0){ $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } $state = $in{'State'}; $resultData = $in{'resultsString'}; } }else { read (STDIN, $buffer1, $ENV {'CONTENT_LENGTH'}); @pairs1 = split (/&/,$buffer1); $ip = $ENV{'REMOTE_ADDR'}; foreach $pair1 (@pairs1){ ($name,$value) = split(/=/,$pair1); $value =~ tr/+/ /; $value =~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1))/eg; $value =~ s/