in reply to Sending mail on a bad server...
I did the whole Net::SMTP thing like what was suggested, but all it did was cause that subroutine to not load. =(/usr/bin/sendmail /usr/share/man/man8/sendmail.8.gz /usr/ports/mail/sendmail
In the main part of the code I have this: my $mailprog = '/usr/bin/sendmail';open (MAIL, "|$mailprog -t") or &dienice("Can't access $mailprog!\n"); print MAIL "To: $FORM{'my_email'}\n"; print MAIL "Reply-to: $FORM{'email'}\n"; print MAIL "From: \"$FORM{'fname'} $FORM{'lname'}\" \<$FORM{'email +'}\>\n"; print MAIL "Subject: Transaction Notification\n\n"; print MAIL "$emailbody\n"; close(MAIL);
|
|---|