Return to ntp-wait.in CVS log

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

Annotation of embedaddon/ntp/scripts/ntp-wait.in, revision 1.1.1.1

1.1       misho       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;