#!/usr/local/bin/perl
my($bfr, $nm, $vl); if($ENV{'REQUEST_METHOD'} eq 'POST') {read(STDIN, $bfr, $ENV{'CONTENT_LENGTH'})} else {$bfr = $ENV{'QUERY_STRING'}} for(split /&/, $bfr) { s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; tr/+/ /; ($nm, $vl) = split(/=/, $_); $Input->{$nm} = $vl }
__END__
|