NetBSD/dist/ntp/scripts/ntp-wait.in

43 lines
1006 B
Plaintext
Raw Normal View History

2000-03-29 16:38:44 +04:00
#! @PATH_PERL@ -w
die "perl5 needed\n" unless ($] > 5);
use Getopt::Std;
$opt_f = 0; # 'Hard' failure if 'state' is unknown
$opt_n = 1000; # How many tries before we give up? (10 min+)
$opt_s = 6; # Seconds to sleep between tries (6s = 10/min)
$opt_v = 0; # Be verbose?
getopts('fn:s:v');
$cmd = 'ntpq -c "rv 0 state"';
$| = 1; # Autoflush output.
print "Waiting for ntpd to synchronize..." if ($opt_v);
for ($i = 0; $i < $opt_n; ++$i) {
open(Q, $cmd." 2>&1 |") || die "Can't start ntpq: $!";
while(<Q>) {
if (/^state=4/) {
print " OK!\n" if ($opt_v);
exit 0;
}
if (/request variable was unknown/) {
print " Can't tell!\nPerhaps you are running an old version of ntpd.\n" if ($opt_v);
exit $opt_f;
}
if (/Connection refused/) {
print " ntpd is not running!\n" if ($opt_v);
exit 1;
}
}
close(Q);
print substr("*+:.", $i % 4, 1) if ($opt_v);
sleep($opt_s);
}
print " No!\nntpd did not synchronize.\n" if ($opt_v);
exit 1;