Return to checktime.in CVS log

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

Annotation of embedaddon/ntp/scripts/checktime.in, revision 1.1.1.1

1.1       misho       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: }