#!/usr/bin/perl
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;
$value =~ s/<\!\-\-.*\-\->//g; # get rid of SSI
$in{$name} = $value;
}
$name = $in{'name'};
$age = $in{'age'};
$gender = $in{'gender'};
$married = $in{'married'};
$continent = $in{'continent'};
$comments = $in{'comments'};
print "Content-type: text/html\n\n";
print <<"EOF";
The Dynamic Duo - Form Results
Hello $name,
You are:
- a $age year old $gender
- $married married
- living in $continent
This is what you had to say:
- $comments
EOF