Thank You

##

 #!C:\strawberry\perl\bin\perl.exe
use CGI::Carp qw(fatalsToBrowser);

# The following accepts the data from the form and splits it into its component parts

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;
	}



# Then sends the email 

open (MESSAGE,"| /usr/sbin/sendmail -t");

	print MESSAGE "To: you\@example.com\n"; # Don't forget to escape this @ symbol!
	print MESSAGE "From: " . $FORM{name} . ", reader\n";
	print MESSAGE "Reply-to: " . $FORM{email} . "(" . $FORM{name} . ")\n";
	
	print MESSAGE "Subject: Feedback from $FORM{name} \n\n";
	
	print MESSAGE "$FORM{name} wrote:\n\n";
	print MESSAGE "Comment: $FORM{comment}\n\n";
	print MESSAGE "Sent by: $FORM{name} ($FORM{email}).\n";

close (MESSAGE);

&thank_you; #method call
} 



#The code then goes on to generate the thank-you page

sub thank_you {

print "Content-type: text/html\n\n";

print <
	
	Thank You
	
	
	
	
	Thank You
	
	Your feedback has been received. Thanks for sending it.
	
	
	
	
EndStart

	print "You wrote:\n";
	print "$FORM{comment}\n\n";
	
print <
	

EndHTML

exit(0);
}