What would be better then useing the following? I'm lookign for something
better and more secure. If there is such a thing
sub SplitInput{
$meth = $ENV{REQUEST_METHOD};
if ($meth eq "GET") {
$formInfo = $ENV{QUERY_STRING};
} elsif ($meth eq "POST") {
read(STDIN, $formInfo, $ENV{CONTENT_LENGTH});
}
@pairs = split(/&/,$formInfo);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ 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;
$FORM{$name} = $value;
}
}
Chris
Digital-Drakon.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
