Can't Sendmail....
Can't Sendmail....
(OP)
My knowledge of perl is fairly limited. I'm trying to setup a mailing list for my friend's band. The part that is causing me problems is the actual sending of the mail. I cut out all of the other stuff, so all this script is supposed to do is send an e-mail and return html. Most of the code is just stuff that I have seen in other scripts which is why I am so confused as to why it isn't working. It displays the html, but I never get an e-mail.
Any ideas?
Thanks
#!/usr/local/bin/perl
###################
# Program Variables
$mail_prog = `/usr/bin/sendmail`;
###################
# Program Execution
&send_mail;
&ret_html;
exit;
#################
# Sends an e-mail
sub send_mail {
open(MAIL,"|$mail_prog -t");
print MAIL "To: dpfrey\@home.com\n";
print MAIL "From: \<form submit\>\n";
print MAIL "Subject: HI there\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL "X-Mailer: Limestone Mailer v1.0\n";
print MAIL "Content-Type: text/plain;\n\n";
print MAIL "This is the body.\n";
close(MAIL);
}
##########################
# Returns an HTML document
sub ret_html {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <title>Mail</title>\n";
print " <link href=\"stylesheet.css\" type=\"text/css\" rel=\"stylesheet\">\n";
print "</head>\n";
print "<body bgcolor=\"#000000\">\n";
print "Mail has been sent\n";
print "</body>\n";
print "</html>\n";
}
Any ideas?
Thanks
#!/usr/local/bin/perl
###################
# Program Variables
$mail_prog = `/usr/bin/sendmail`;
###################
# Program Execution
&send_mail;
&ret_html;
exit;
#################
# Sends an e-mail
sub send_mail {
open(MAIL,"|$mail_prog -t");
print MAIL "To: dpfrey\@home.com\n";
print MAIL "From: \<form submit\>\n";
print MAIL "Subject: HI there\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL "X-Mailer: Limestone Mailer v1.0\n";
print MAIL "Content-Type: text/plain;\n\n";
print MAIL "This is the body.\n";
close(MAIL);
}
##########################
# Returns an HTML document
sub ret_html {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <title>Mail</title>\n";
print " <link href=\"stylesheet.css\" type=\"text/css\" rel=\"stylesheet\">\n";
print "</head>\n";
print "<body bgcolor=\"#000000\">\n";
print "Mail has been sent\n";
print "</body>\n";
print "</html>\n";
}
Talk To Other Members
RE: Can't Sendmail....
adam@aauser.com
RE: Can't Sendmail....
and I tried the script somewhere else that I am 100% sure there is sendmail and it still didn't work
RE: Can't Sendmail....
and if all else fails, put a die in there:
open(MAIL,"|$mail_prog -t") || die "$!";
run it from the command line, and see what the error is.
adam@aauser.com
RE: Can't Sendmail....
Here's a sendmail faq: FAQ219-364
Sincerely,
Tom Anderson
CEO, Order amid Chaos, Inc.
http://www.oac-design.com
RE: Can't Sendmail....
adam@aauser.com
RE: Can't Sendmail....
it works....