Lines Matching full:host

37         (((@_ != 1) && !$opts->{host} && !@{$opts->{'host-list'}}))) {
52     if ($opts->{host}) {
53         push @hosts, $opts->{host};
57         push @hosts, @{$opts->{'host-list'}};
62 Host                             st offset(s) version     system       processor
76     my $host;
77     for $host (@hosts) {
78         scan_host($host, 0, $host => 1);
100     my ($host, $level, %trace) = @_;
109     if (exists $known_host_info{$host}) {
113         ($offset, $stratum) = ntp_sntp_line($host);
117             my $vars = ntp_read_vars(0, [qw(processor system daemon_version)], $host) || {};
142                 my $peers_ref = ntp_peers($host);
151         # Add scanned host to known_hosts array
152         #push @known_hosts, $host;
154             $known_host_info{$host} = sprintf "%2d %9.3f %-11s %-12s %s",
160             $known_host_info{$host} = " ?";
162         $known_host_peers{$host} = [@peers];
165     if ($stratum || $known_host) { # Valid or known host
166         my $printhost = ' ' x $level . (do_dns($host) || $host);
167         # Shorten host string
172         if ($showpeers && ($known_host_info{$host} ne " ?")) {
173             $printhost .= " (" . @{$known_host_peers{$host}} . ")";
175         # Finally print complete host line
177             (substr $printhost, 0, 32), $known_host_info{$host};
179             $trace{$host} = 1;
181             foreach my $peer (@{$known_host_peers{$host}}) {
185                     # Shorten host string
196     else { # We did not get answers from this host
197         my $printhost = ' ' x $level . (do_dns($host) || $host);