1 # EDIT THIS FILE WITH CAUTION (ntptrace-opts)
3 # It has been AutoGen-ed November 21, 2016 at 07:59:01 AM by AutoGen 5.18.5
4 # From the definitions ntptrace-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: $!";
34 'host' => '127.0.0.1',
35 'help' => '', 'more-help' => ''
37 my $argument = '[host]';
38 my $ret = GetOptionsFromArray($args, $opts, (
39 'numeric|n', 'max-hosts|m=i', 'host|r=s',
40 'help|?', 'more-help'));
43 ntptrace - Trace peers of an NTP server - Ver. 4.2.8p9
44 USAGE: ntptrace [ -<flag> [<val>] | --<name>[{=| }<val>] ]... [host]
46 -n, --numeric Print IP addresses instead of hostnames
47 -m, --max-hosts=num Maximum number of peers to trace
48 -r, --host=str Single remote host
49 -?, --help Display usage information and exit
50 --more-help Pass the extended usage text through a pager
52 Options are specified by doubled hyphens and their name or by a single
53 hyphen and the flag character.
56 usage(0) if $opts->{'help'};
57 paged_usage(0) if $opts->{'more-help'};