Lines Matching refs:info
26 my %info = get_info($host);
27 last if not %info;
36 $dhost, $info{stratum}, $info{offset}, $info{syncdistance};
37 printf ", refid '%s'", $info{refid} if $info{stratum} == 1;
40 last if $info{stratum} == 0 || $info{stratum} == 1 ||
41 $info{stratum} == 16;
42 last if $info{refid} =~ /^127\.127\.\d{1,3}\.\d{1,3}$/;
45 my $next_host = get_next_host($info{peer}, $host);
56 my ($rootdelay, $rootdisp, $info) = (0, 0);
58 $info = ntp_read_vars(0, [], $host);
59 return if not defined $info;
60 return if not exists $info->{stratum};
62 $info->{offset} /= 1000;
63 $info->{syncdistance} = ($info->{rootdisp} + ($info->{rootdelay} / 2)) / 1000;
65 return %$info;
72 my $info = ntp_read_vars($peer, [qw(srcadr)], $host);
73 return if not defined $info;
74 return $info->{srcadr};