Ok I did it and know I get another error :-(
here goes the error:
Died at /usr/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm
line 284.
this is the code:
use strict;
use warnings;
use Mail::Mailer;
my @lines = ();
open (INFO, "/var/log/messages") or die "$!";
while (my $line = <INFO>) {
if ($line =~ /IDS/) {
push @lines,$line;
}
}
close INFO;
if (@lines) {
my $mailer = Mail::Mailer->new("smtp",
"10.83.27.71");
$mailer->open({
'From' => 'Syslog <[EMAIL PROTECTED]>',
'To' => 'gabriela pinado
<[EMAIL PROTECTED]>',
'Subject' => 'PiX Detected Attack'
});
print $mailer @lines;
$mailer->close or die "can't close mailer: $!";
}
~
please assist!
thanks very much !
Juan
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
