-Hi,
Im trying to run this code: (im getting this error
message):
Can't use string ("From") as a HASH ref while "strict
refs" in use at
/usr/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm line
320.
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: $!";
}
Any ideas where is the problem?
thanks a lot !
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/
