On Oct 23, 9:57 am, [EMAIL PROTECTED] (Juan B) wrote:
> -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 '
> );
Mail::Mailer::open takes a hash reference. You have passed it a list
of key/value pairs.
Stick a { before 'From' and a } after 'Attack' to create your hash
reference.
Paul Lalli
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
