| #!/usr/local/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read (STDIN, $input,
$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
}
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f]{2})/pack("C",
hex($1))/eg;
$INPUT{$name} = $value;
}
print "Content-type: text/html\n\n";
print <<HTMLBody;
<HTML>
<HEAD><TITLE>Results from the
Form</TITLE></HEAD>
<BODY bgColor="white">
<CENTER>
<H1>Results from the Form</H1>
Your name is $INPUT{name} and your email is
$INPUT{email}
</CENTER>
</BODY>
</HTML>
HTMLBody |
