Lines Matching +full:sub +full:- +full:system
1 #! @PATH_PERL@ -w
34 sub run {
37 (((@_ != 1) && !$opts->{host} && !@{$opts->{'host-list'}}))) {
44 ($opts->{peers}, $opts->{maxlevel}, $opts->{strip});
52 if ($opts->{host}) {
53 push @hosts, $opts->{host};
57 push @hosts, @{$opts->{'host-list'}};
62 Host st offset(s) version system processor
63 --------------------------------+--+---------+-----------+------------+---------
73 sub scan_hosts {
82 sub read_hosts {
99 sub scan_host {
104 my $system = "";
117 my $vars = ntp_read_vars(0, [qw(processor system daemon_version)], $host) || {};
118 $daemonversion = $vars->{daemon_version};
119 $system = $vars->{system};
120 $processor = $vars->{processor};
130 # Shorten system string
131 $system =~ s/UNIX\///;
132 $system =~ s/RELEASE/r/;
133 $system =~ s/CURRENT/c/;
145 $_->{remote} =~ s/^(?: |x|\.|-|\+|#|\*|o)([^ ]+)/$1/;
146 push @peers, $_->{remote};
154 $known_host_info{$host} = sprintf "%2d %9.3f %-11s %-12s %s",
156 (substr $system, 0, 12), (substr $processor, 0, 9);
176 printf "%-32s %s\n",
187 printf "%-32s\n", substr $printhost, 0, 32;
199 printf "%-32s ?\n", substr $printhost, 0, 32;