#!/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 "
chagrin valley roller rink
skating parties
ask us anything submission results
 \;
\n\n"; print "thank you for your comments
\ \;
\n"; # form results begin here # email address print "your email address is:
$formdata{'email_primary'}
\ \;
\n"; # suggestions print "your comments are:
$formdata{'comment'}
\ \;\n"; # form results end here print "
\n"; print "\n"; print ""; # email results to forms@cvrr.com $to = "forms\@cvrr.com"; $from = $formdata{'email_primary'}; $subject = "ask us anything"; $content = " Sender Information: $formdata{'name_first'} $formdata{'name_last'} $formdata{'address_street'} $formdata{'address_city'}, $formdata{'address_state'} $formdata{'address_zip'} Primary Phone: $formdata{'phone_primary_1'}-$formdata{'phone_primary_2'}-$formdata{'phone_primary_3'} Secondary Phone: $formdata{'phone_secondary_1'}-$formdata{'phone_secondary_2'}-$formdata{'phone_secondary_3'} Primary Email: $formdata{'email_primary'} Secondary Email: $formdata{'email_secondary'} Party Information: Party Type: $formdata{'party_type'} Comments/Questions: $formdata{'comment'} "; 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);