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.
Thank you
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
