Instead of sendmail simply use mail or mailx. See script below.
Please make sure you change the From: addy... to a valid email address, you
do not
want your email server to be black listed. You know what I mean? That's
bad.
#!/opt/local/bin/perl
#-----------------------------------------------------
#my $user = "[EMAIL PROTECTED], [EMAIL PROTECTED]";
my $user = '[EMAIL PROTECTED] [EMAIL PROTECTED]';
print "\n\nsending mail to $user ......";
&Notifyanddie;
print "\n\nMail sent.\n\n\n";
#-----------------------------------------------------
sub Notifyanddie {
#my $message = shift;
my $message = q(open(MAIL, \"|/usr/bin/mailx \") or die \"Couldn\'t open
mailx\");
#open(MAIL, "|/usr/lib/sendmail -t -i") or die "Couldn't open sendmail
$!\n";
open(MAIL, "|/usr/bin/mail $user") or die "Couldn't open mailx $!\n";
print MAIL <<END_OF_MSG;
From: addywheregoingto\@address.com
To:MYEMAILADDY\@address.com
Subject: Ad Systems ping Check
<html>
<body>
<pre>
if you get this mail, use the following line:
$message
-- mail sent by william ampeh, just modified your script
</body>
</html>
END_OF_MSG
}
__________________
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
