hi

I have a vpn network with 2 redundant firewalls.
this perl script should look for the next hop and send a mail by unexpected redirect

#!/usr/bin/perl -w

use strict;
use warnings;

my $PingHost = '192.168.23.1';
my $ExpectedRedirect = '192.168.0.10';
my $MailTo = 'postmaster@domain.net';

my $ip = `ip route flush cache`;

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

   open( OUTMAIL, "|mail -s 'VPN Unexpected Redirect: $1' $MailTo" ) |
+| die "pipe to mail failed";
   print OUTMAIL scalar localtime();
   print OUTMAIL "\n\n";
   print OUTMAIL "VPN NETWORK\n";
   print OUTMAIL "Received an unexpected redirect to: $1\n";
   close(OUTMAIL) || warn "bad pipe close";
}

close(INPING) || warn "bad pipe close";

[download]

how can I change it to delete routing cache,
before the ping command ?

kind regards
cc

In reply to looking for the next hop by cc

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.