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     ! 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;