Greetings,
my client claims he never receives any email from his
contact page! I however have set up a 'BCC'
and am getting email via the script below.
His connection to the 'net is via AOL,
and when I mail him from my email client using
[EMAIL PROTECTED]
he receives it, but not from the script below.
Do you see any errors or problems via AOL?
What could be the issue, I just don't see anything!
Thanks :)
Dave Gilden
---------------------------------------
#!/usr/local/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
use strict;
my $mailprog = '/usr/lib/sendmail';
my $subject = "Jakes's Lawn Care Contact Page";
my $date = strftime('%A, %B %d, %Y %I:%M %p',localtime(time() + (2*60*60)));
my $name = param('First Name') . " ". param('Last Name');
my $email= param('email');
$email = lc($email);
# Send E-Mail
&send_mail;
# Return HTML Page
print redirect("/pages/thankyou.html");
exit;
sub send_mail {
my $data;
$email ||= '[EMAIL PROTECTED]';
open(MAIL, "|$mailprog -t");
print MAIL "TO: [EMAIL PROTECTED]";
print MAIL "BCC: [EMAIL PROTECTED]";
print MAIL "From: $name <$email>\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$subject: $date\n", '-' x 60, "\n" ;
foreach my $val (param()){
$data = param($val);
print MAIL "$val: $data\n";
}
close(MAIL);
}
--
Words are like money; there is nothing so useless, unless when in actual use.
-Samuel Butler, writer (1835-1902)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
