1 # EDIT THIS FILE WITH CAUTION (ntpsweep-opts)
3 # It has been AutoGen-ed August 14, 2018 at 08:09:11 AM by AutoGen 5.18.5
4 # From the definitions ntpsweep-opts.def
5 # and the template file perlopt
7 use Getopt::Long qw(GetOptionsFromArray);
8 Getopt::Long::Configure(qw(no_auto_abbrev no_ignore_case_always));
20 my $pager = $ENV{PAGER} || '(less || more)';
22 open STDOUT, "| $pager" or die "Can't fork a pager: $!";
37 'help' => '', 'more-help' => ''
39 my $argument = '[hostfile]';
40 my $ret = GetOptionsFromArray($args, $opts, (
41 'host-list|l=s', 'peers|p', 'maxlevel|m=i',
42 'strip|s=s', 'host|h=s',
43 'help|?', 'more-help'));
46 ntpsweep - Print various informations about given ntp servers - Ver. 4.2.8p12
47 USAGE: ntpsweep [ -<flag> [<val>] | --<name>[{=| }<val>] ]... [hostfile]
49 -l, --host-list=str Host to execute actions on
50 - may appear multiple times
51 -p, --peers Recursively list all peers a host synchronizes to
52 -m, --maxlevel=num Traverse peers up to this level (4 is a reasonable number)
53 -s, --strip=str Strip this string from hostnames
54 -?, --help Display usage information and exit
55 --more-help Pass the extended usage text through a pager
57 Options are specified by doubled hyphens and their name or by a single
58 hyphen and the flag character.
61 usage(0) if $opts->{'help'};
62 paged_usage(0) if $opts->{'more-help'};