From: Juan B <[EMAIL PROTECTED]>
> 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.
That's not a very informative error message. anyway maybe it's time
to go read the Mail::Mailer's docs. Search for "smtp" and look at the
example.
> 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");
jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
