Return to checktime.in CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / scripts

ntp 4.2.6p5

    1: #! @PATH_PERL@
    2: #! @PATH_PERL@ -d
    3: # 
    4: # This script compares the time of several machines with the
    5: # time on the local host.
    6: #
    7: # Use or modify it as you wish. 
    8: #
    9: # As the original author is only expecting 14 minutes of fame, 
   10: # leaving his name attached would be appreciated.
   11: #
   12: # R. Gary Cutbill <rgary@chrysalis.com>
   13: # 21 April 1999
   14: #
   15: $tol=2.0;
   16: $|=1;
   17: print "Time Check";
   18: 
   19: open(HOSTS,"ypcat hosts.byaddr |");  # get a list of hosts from the yp server.
   20: 
   21: while ($line=<HOSTS>) { # loop for each host getting the offset compared to localhost
   22: 	($addr,$host,$aliases)=split(/\s+/,$line,3);
   23:         $res=`/usr/local/bin/ntptrace -m 1 -r 1 -t 1 $host`;
   24: 	print ".";
   25: 	chop $res;
   26:         push (@results,$res);
   27: }
   28: print "\n";
   29: 
   30: 
   31: #
   32: # Sort the list of hosts, and print out there offsets
   33: # from the local host.  
   34: #
   35: @list=sort appropriately @results;
   36: foreach $i ( @list ) {
   37: 
   38:    @dargs=split(/\s+/,$i);
   39:    if ( $dargs[1] eq "\*Timeout\*" ) { 
   40:      print "$i\n";
   41:      chop $dargs[0];
   42:      push(@down,$dargs[0]);
   43:    } else {
   44:      printf "%-25s %7s %3s %6s %10s %5s %8s %8s\n",@dargs;
   45:      if ( ( $dargs[4] > $tol ) || ( $dargs[4] < -$tol ) ) { 
   46: 	 chop $dargs[0];
   47:          push(@toofarout,$dargs[0]); }
   48:    }
   49: }
   50: #
   51: # When the above list finishes, hosts that are different by +/- $tol (two seconds)
   52: # are in @toofarout.  Hosts that are down are in @down. They are treated the same
   53: # way here, but you might want to do something different depending on your site.
   54: #
   55: # print a set of suggested rsh commands to run on the hosts that 
   56: # don't have "good" time.   "restartntp" is left as an excersize to the reader.
   57: # I usually use it to kill a running xntpd, ntpdate some server, and the start xntp
   58: # again.
   59: # 
   60: print "\nConsider:\n";
   61: foreach $i ( (@down,@toofarout) ) {
   62:     print "  rsh $i sudo restartntp\n";
   63: }
   64: 
   65: 
   66: #
   67: # sort the results from the list.  First by stratum, then by time deviation
   68: # Put hosts that didn't respond (timed out) on the bottom.
   69: #
   70: sub appropriately {
   71:     @af=split(/\s+/,$a);
   72:     @bf=split(/\s+/,$b);
   73:     $aba= ($af[4]<0)?-$af[4]:$af[4];
   74:     $abb= ($bf[4]<0)?-$bf[4]:$bf[4];
   75: 
   76:         ( $af[1] ne $bf[1] ) ? $bf[1] cmp $af[1] :
   77: 	   ( ( $af[2] != $bf[2] ) ? ( $bf[2] <=> $af[2] ) :
   78: 	     ( ( $aba != $abb )  ? ( $abb <=> $aba ) : ($af[0] cmp $bf[0] ) ) );
   79: }