sub get_form_data { if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/,$ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); } else {return -1} foreach $pair (@pairs) { ($key,$value) = split(/=/,$pair); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ s/<!--(.|\n)*-->//g; $formdata{$key} = $value; } } 1