my perl script won't send any mails

cccc · 11-10-2006, 10:02 AM

hi

I have this perl script, but it won't send any mails:

Code:

#!/usr/bin/perl -w

use strict;
use warnings;

my $PingHost = "10.10.0.12";
my $ExpectedRedirect = "10.10.0.10";
my $mailto = "admin\@mydomain.net";

my $ip = 'ip route flush cache';

open( INPING, "ping -c 4 $PingHost|" ) || die "ping open failed";
while( my $line = <INPING> ) {
  next unless( $line =~ /Redirect Host\(New nexthop: (.*)\)/ );
  next if( $1 eq $ExpectedRedirect );

   open( OUTMAIL, "| mailx -s 'CH Branch VPN Unexpected Redirect: $1' $mailto" ) || die "pipe to mail failed";
   print OUTMAIL scalar localtime();
   print OUTMAIL "\n\n";
   print OUTMAIL "Received an unexpected redirect \n";
   print OUTMAIL "\n";
   print OUTMAIL "have a nice day\n";   
}
close(INPING) || warn "bad pipe close";

exit;

knows someone what's wrong and howto solve this problem ?

demon_vox · 11-10-2006, 10:39 AM

maybe you need to close the OUTMAIL pipe. Or perhaps you could use Net::SMTP to send emails

Just my two cents

Cheers!

cccc · 11-10-2006, 11:33 AM

Quote:

Originally Posted by demon_vox

maybe you need to close the OUTMAIL pipe. Or perhaps you could use Net::SMTP to send emails

Just my two cents

Cheers!

I tried to close OUTMAIL pipe using:

Code:

#!/usr/bin/perl -w

use strict;
use warnings;

my $PingHost = "10.10.0.12";
my $ExpectedRedirect = "10.10.0.10";
my $mailto = "admin\@mydomain.net";

my $ip = 'ip route flush cache';

open( INPING, "ping -c 4 $PingHost|" ) || die "ping open failed";
while( my $line = <INPING> ) {
  next unless( $line =~ /Redirect Host\(New nexthop: (.*)\)/ );
  next if( $1 eq $ExpectedRedirect );

   open( OUTMAIL, "| mailx -s 'CH Branch VPN Unexpected Redirect: $1' $mailto" ) || die "pipe to mail failed";
   print OUTMAIL scalar localtime();
   print OUTMAIL "\n\n";
   print OUTMAIL "Received an unexpected redirect \n";
   print OUTMAIL "\n";
   print OUTMAIL "have a nice day\n";
   close OUTMAIL ;       
}
close(INPING) || warn "bad pipe close";

exit;

but still doesn't work.

demon_vox · 11-10-2006, 11:43 AM

Perhaps you dont have sendmail configured properly. Have you tried using mail from the command line to see if it is working properly?

cccc · 11-10-2006, 11:55 AM

Quote:

Originally Posted by demon_vox

Perhaps you dont have sendmail configured properly. Have you tried using mail from the command line to see if it is working properly?

yep,

test mail from the command line :

Code:

echo "Message" | mailx -s "test mail" admin@mydomain.net

works without any problems !

and at '/var/adm/syslog/mail.log' don't have any entries at this time when I start the perl script.

demon_vox · 11-10-2006, 12:35 PM

My guess is that mailx is working right on the perl script, but it nevers reaches that part of the code. Probably one of the ifs above make the next command execute.
I just checked the ping command and the lines never have a "Redirect Host" string on them. Which would probably make the next command execute.
Maybe you should see if those conditions are the ones you are going for. Perhaps your script is working right

Cheers!