print "Content-type: text/html\n\n";
my $qs;
my $len;
my $method;
sub url_decode {
my $value = shift;
$value =~ s/[\+]/ /g;
$value =~ s/([\%][0-9A-Fa-f]{2})/chr(hex(substr($1,1)))/eg;
return $value;
}
$method = $ENV{REQUEST_METHOD};
if(uc($method) eq "GET") {
$qs = $ENV{QUERY_STRING};
}
elsif(uc($method) eq "POST") {
$len = int($ENV{CONTENT_LENGTH});
read STDIN,$qs,$len;
}
else {
}
%tbl = ();
$a = split /[\&]/,$qs;
for($i = 0; $i < @a; $i++) {
$a2 = split /[\=]/,$a[$i];
if(@a2 == 2) {
$name = &url_decode($a2[0]);
$value = &url_decode($a2[1]);
$tbl{$name} = $value;
}
}
$name = $tbl{name};
if($name eq "") {
$name = "world";
}
print<
Hello, $name!
Hello, $name!