texafud has asked for the wisdom of the Perl Monks concerning the following question:
My whole form works perfectly, but I never receive an email. Any chance anybody here can see the problem with it>
#!/usr/bin/perl 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; } open(MAIL,"|/usr/sbin/sendmail -t"); $sendto="mail\@qtscreen.com"; print MAIL "To: $sendto\n"; # Don't forget to escape this @ symbol +! print MAIL "From: $FORM{Customer}\n"; print MAIL "Reply To: $FORM{E-Mail}\n"; print MAIL "Phone: $FORM{Phone}\n"; print MAIL "Subject: Web Submitted Order from $FORM{Contact} \n\n" +; print MAIL "Printing Information: $FORM{OrderInfo}\n"; print MAIL "Print Location: $FORM{printloc}\n"; print MAIL "Follow Up Info: $FORM{Followup}\n"; close (MAIL);
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Sendmail Problem
by blue_cowdawg (Monsignor) on Jan 04, 2013 at 19:03 UTC | |
by spacebar (Beadle) on Jan 04, 2013 at 20:38 UTC | |
by blue_cowdawg (Monsignor) on Jan 04, 2013 at 20:50 UTC | |
Re: Sendmail Problem
by mhearse (Chaplain) on Jan 04, 2013 at 19:14 UTC | |
Re: Sendmail Problem
by Anonymous Monk on Jan 04, 2013 at 23:38 UTC |
Back to
Seekers of Perl Wisdom