On Wed, 19 Jun 2002 17:37:44 +0200 (MESZ),
[EMAIL PROTECTED] wrote:
>Hello!
>
>I still have problems with my script.I can't really figure out what's
>wrong with it.
1 thing for sure, if you "use CGI"; you don't need the old
ReadParse routine.
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$param{$name} = $value;
}
}
You may as well let the CGI module do it.
use CGI;
my $cgi=new CGI;
my %in = $cgi->Vars();
foreach my $name (keys %in){
$value = $in{$name};
print "$name \t$value\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
