Lines Matching refs:info

28         my %info = get_info($host);
29         last if not %info;
38             $dhost, $info{stratum}, $info{offset}, $info{syncdistance};
39         printf ", refid '%s'", $info{refid} if $info{stratum} == 1;
42         last if $info{stratum} == 0 || $info{stratum} == 1 || 
43                 $info{stratum} == 16;
44         last if $info{refid} =~ /^127\.127\.\d{1,3}\.\d{1,3}$/;
47         my $next_host = get_next_host($info{peer}, $host);
58     my ($rootdelay, $rootdisp, $info) = (0, 0);
60     $info = ntp_read_vars(0, [], $host);
61     return if not defined $info;
62     return if not exists $info->{stratum};
64     if (not (exists $info->{offset} && looks_like_number($info->{offset}))) {
65         $info->{offset} = "NaN";
67     $info->{offset} /= 1000;
68     if (not (exists $info->{rootdisp} && looks_like_number($info->{rootdisp}))) {
69         $info->{rootdisp} = "NaN";
71     if (not (exists $info->{rootdelay} && looks_like_number($info->{rootdelay}))) {
72         $info->{rootdelay} = "NaN";
74     $info->{syncdistance} = ($info->{rootdisp} + ($info->{rootdelay} / 2)) / 1000;
76     return %$info;
83     my $info = ntp_read_vars($peer, [qw(srcadr)], $host);
84     return if not defined $info;
85     return $info->{srcadr};