#!/usr/bin/perl # That is the path to PERL just above It MUST be first in the script # The following accepts the data from the form if ($ENV{'REQUEST_METHOD'} eq 'POST') { 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; $FORM{$name} = $value; } # The following sends the email open (MESSAGE,"| /usr/lib/sendmail -t"); print MESSAGE "To: $FORM{submitaddress}\n"; print MESSAGE "From: $FORM{name}\n"; print MESSAGE "Reply-To: $FORM{email}\n"; print MESSAGE "Subject: Feedback from $FORM{name} at $ENV{'REMOTE_HOST'}\n\n"; print MESSAGE "The user wrote:\n\n"; print MESSAGE "$FORM{feedback}\n"; close (MESSAGE); &thank_you; } #The following creates the Thank You page display sub thank_you { print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "\n"; print "
\n"; print "\n"; print "\n"; exit(0); }