#!/usr/bin/perl # parse form input read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($key, $value) = split (/=/, $pair); $key =~ tr/+/ /; $key =~ 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; $value =~s///g; if ($formdata{$key}) { $formdata{$key} .= ", $value"; } else { $formdata{$key} = $value; } } # begin output print "Content-type: text/html\n\n"; # print header print "\n"; print "\n"; print "chagrin valley roller rink, inc.\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n\n"; # print body print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
chagrin valley roller rink
suggestion box
cvrr suggestion box submission results
 \;
\n\n"; # form results begin here # radio buttons # print "you heard about cvrr.com from:
$formdata{'radioset1'}
\n"; # print "your skating category is:
$formdata{'radioset2'}
\n"; # print "your age is:
$formdata{'radioset3'}
\n"; # print "you skate:
$formdata{'radioset4'}
\n"; # print "you visit cvrr.com:
$formdata{'radioset5'}
\n"; # print "you are from:
$formdata{'radioset6'}
\n"; # email address print "your email address is:
$formdata{'email'}
\ \;
\n"; # suggestions print "your suggestions are:
$formdata{'suggestions'}
\ \;\n"; # form results end here print "
 \;
\n"; print "\n"; print ""; # email results to skate@cvrr.com $to = "skate\@cvrr.com"; $from = $formdata{'email'}; $subject = "suggestion box"; $content = " heard about cvrr.com from: $formdata{'radioset1'}\n skating category: $formdata{'radioset2'}\n age: $formdata{'radioset3'}\n skates: $formdata{'radioset4'}\n visits cvrr.com: $formdata{'radioset5'}\n school district: $formdata{'radioset6'}\n email: $formdata{'email'}\n suggestions: $formdata{'suggestions'}\n; "; open(MAIL, "|/usr/lib/sendmail -t") || exit; print MAIL "To: $to\nFrom: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "$content\n"; close(MAIL);