I am trying to get this program to send mail. Unfortunately I am having
a hard time using sendmail. Could someone please help me out.
Thanks,
######Error Reporting ####
sub Notifyanddie {
my $message = shift;
open(MAIL, "|/usr/lib/sendmail -t -i")
or die "Couldn't open sendmail $!\n";
print MAIL <<END_OF_MSG;
From: addywheregoingto\@address.com
To:MYEMAILADDY\@address.com
Subject: Ad Systems ping Check
<html>
<body>
$message
</body>
</html>
END_OF_MSG
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
