#!/usr/bin/perl
use strict qw(vars refs);
my @field = ();
my $reach;
my $reachhash;

open(CMD, "ntpq -pn |");

while (<CMD>) {
    print;
    next if /^(==|[[:space:]]+remote)/o;

    @field = split(/[ \t]+/o, $_, 8);

    if ($field[0] =~ /^[ \t]*$/o) {
	$reach = sprintf "%08b", oct($field[7]);
    } else {
	$reach = sprintf "%08b", oct($field[6]);
    }

    $reachhash = $reach;
    $reachhash =~ s/0/x/go;
    $reachhash =~ s/1/o/go;
    printf " reachability log: %s (%s)\n", $reachhash, $reach;
}

close(CMD);
exit 0;