Ha, ha, ha ... you are soooo funny.
But the AnonymousMonk seems to be a little confused as well. The lengthy code does a lot of things, but there's no tailing and mailing. What is the real question? How to get the results of tail.exe? Or how to include them in the email? Or what? And why did you include the service related code?
I think you want something like this:
$loglines = `tail -50 $logfile`; $message = <<"*END*"; This email was generated after an error was detected, the NetRestartService.pl script was executed. Log file: $loglines *END* $msg = MIME::Lite->new( From =>'NetRestartService', To =>'Test@test.com', Cc =>'Test2@test2.com', Subject =>'Perl Script to restart remote NT Service - NetRestartServ +ice.pl', Data => message , ); $msg->send;
Jenda
In reply to Re: Re: Help e-mailing last 50 lines of log file
by Jenda
in thread Help e-mailing last 50 lines of log file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |