[Mon-commit] mon/mon.d traceroute.monitor,1.1.1.1.2.1,1.1.1.1.2.2

[Jim T. <tr...@us...>]

Update of /cvsroot/mon/mon/mon.d
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19754

Modified Files:
      Tag: mon-1-0-0pre1
	traceroute.monitor 
Log Message:
fixed crlf problem

Index: traceroute.monitor
===================================================================
RCS file: /cvsroot/mon/mon/mon.d/traceroute.monitor,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -C2 -d -r1.1.1.1.2.1 -r1.1.1.1.2.2
*** traceroute.monitor	22 Jun 2004 12:11:52 -0000	1.1.1.1.2.1
--- traceroute.monitor	22 Jun 2004 12:24:19 -0000	1.1.1.1.2.2
***************
*** 1,516 ****
! #!/usr/bin/perl
! #
! # mon monitor to watch for route changes
! #
! 
! # There is currently a hardcoded path to the traceroute binary, see $TRACEROUTE
! # but it can be overriden in the config file.
! 
! #
! # Jon Meek - 31-May-1999 (original code)
[...1003 lines suppressed...]
!   (@current_ips) = split(/\-/, $current_route);
!   (@prev_ips) = split(/\-/, $prev_route);
! 
!   if ($#current_ips != $#prev_ips) { # Another simple case, different number of hops
!     return 1; # Fail
!   }
! 
!   for ($i = 0; $i <= $#current_ips; $i++) {
!     $ip1 = $current_ips[$i];
!     $ip2 = $prev_ips[$i];
!     next if ($ip1 eq $ip2);
!     $equiv_check = grep /^$ip2$/, @{ $EquivIP{$ip1} };
!     if ($equiv_check == 0) { # Not same, or equivalent, route different, fail
!       return 1;
!     }
!     print "$i $ip1  $ip2  $equiv_check\n" if $opt_d;
!   }
!   return 0; # Good, no route change
! }
!