|
# *******************************************************************
#
# *******************************************************************
$Method = $ENV{'REQUEST_METHOD'};
$Method =~ tr/a-z/A-Z/;
if ( $Method eq "POST" ) {
read(STDIN, $Form, $ENV{'CONTENT_LENGTH'});
@Fields_Data = split(/&/, $Form);
}
else {
$QueryString = $ENV{'QUERY_STRING'};
@Fields_Data = split(/&/, $QueryString);
}
foreach $Field_Data ( @Fields_Data ) {
($Name, $Value) = split(/=/, $Field_Data);
$Value =~ tr/+/ /;
$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ( $Method eq "POST" ) {
$Form{$Name} = $Value;
}
else {
$QueryString{$Name} = $Value;
}
}
| |