I am unseeing the following piece of code to send
email. In order for this
email to be generated there needs to be an error in my
script.
use Mail::Sendmail; #Send and
email if there are errors
%mail = ( To => '[EMAIL PROTECTED]',
From => '[EMAIL PROTECTED]',
Subject => 'Email Manager not running',
Message => 'Email Manager not running'
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
I would like to include in the message excepts from
the .txt docoment I am
reading. Does any one know how to do this?
I tried to use '((substr($line, 42, 7)' which the text
I want to include but
it did not show the output.
If I do it like below the result id nothing in the
message portion of the email:
%mail = (
To => '[EMAIL PROTECTED]',
From => '[EMAIL PROTECTED]',
Subject => 'Email Manager not running',
Message => substr($line, 42, 7),
)
Thank you
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
