Return to ntp-wait.in CVS log

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

ntp 4.2.6p5

    1: #! @PATH_PERL@ -w
    2: 
    3: die "perl5 needed\n" unless ($] > 5);
    4: 
    5: use Getopt::Std;
    6: 
    7: $opt_n = 1000;			# How many tries before we give up? (10 min+)
    8: $opt_s = 6;			# Seconds to sleep between tries (6s = 10/min)
    9: $opt_v = 0;			# Be verbose?
   10: 
   11: getopts('n:s:v');
   12: 
   13: $cmd = 'ntpq -c "rv 0"';
   14: 
   15: $| = 1;				# Autoflush output.
   16: 
   17: print "Waiting for ntpd to synchronize...  " if ($opt_v);
   18: for ($i = 0; $i < $opt_n; ++$i) {
   19:     open(Q, $cmd." 2>&1 |") || die "Can't start ntpq: $!";
   20:     while(<Q>) {
   21:       chomp;
   22:       # the first line should be similar to:
   23:       # associd=0 status=0645 leap_none, sync_ntp, ...
   24:       if (/^associd=0 status=(\S{4}) (\S+), (\S+),/) {
   25: 	my $status = $1;
   26: 	my $leap = $2;
   27: 	my $sync = $3;
   28: 	# print $_;
   29: 	# print "status <$status>, leap <$leap>, sync <$sync>\n";
   30: 	last if ($leap =~ /(sync|leap)_alarm/);
   31: 	if ($leap =~ /leap_(none|((add|del)_sec))/) {
   32: 	  # We could check $sync here to make sure we like the source...
   33: 	  print "\bOK!\n" if ($opt_v);
   34: 	  exit 0;
   35: 	}
   36: 	print "\bUnexpected 'leap' status <$leap>\n";
   37: 	exit 1;
   38:       }
   39: 
   40:       if (/Connection refused/) {
   41: 	print "\bntpd is not running!\n" if ($opt_v);
   42: 	exit 1;
   43:       }
   44: 
   45:       # Otherwise, we have a bigger problem.
   46:       print "\bUnexpected first line <$_>\n";
   47:       exit 1;
   48:     }
   49:     close(Q);
   50:     print "\b".substr("*+:.", $i % 4, 1) if ($opt_v);
   51:     sleep($opt_s);
   52: }
   53: print "\bNo!\nntpd did not synchronize.\n" if ($opt_v);
   54: exit 1;