sendit test form

#!/bin/perl if ($ENV{'REQUEST_METHOD'} eq "GET") {$buffer = $ENV{'QUERY_STRING'};} elsif ($ENV{'REQUENT_METHOD'} eq "POST") {read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});} $bufferb = $buffer; @forminputs = split(/&/, $bufferb); foreach $forminput (@forminputs) { ($name, $value) = split(/=/, $forminput); $value =~ tr/+/ /; $value =~ s/%([a-fA-f0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } print "Content-type: text/html\n\n"; #mail sent to admin open (LMAIL, "|usr/sbin/sendmail -t"); print LMAIL("To: $in{myEmail}\n"); print LMAIL ("From: $in{Email}\n"); print LMAIL ("Subject: $in{Form}\n"); print LMAIL ("--------------------\n\n"); print LMAIL("$in{Message}\n\n"); #mail sent to user open (MAIL, "|/usr/sbin/sendmail -t"); print MAIL<$in{Form}"); print (""); print ("Thanks for your email."); print ("

##


sendit test form

sendit test form




Name 
	
Email 
	
Message