# EDIT THIS FILE WITH CAUTION (ntptrace-opts) # # It has been AutoGen-ed May 25, 2024 at 12:05:47 AM by AutoGen 5.18.16 # From the definitions ntptrace-opts.def # and the template file perlopt use Getopt::Long qw(GetOptionsFromArray); Getopt::Long::Configure(qw(no_auto_abbrev no_ignore_case_always)); my $usage; sub usage { my ($ret) = @_; print STDERR $usage; exit $ret; } sub paged_usage { my ($ret) = @_; my $pager = $ENV{PAGER} || '(less || more)'; open STDOUT, "| $pager" or die "Can't fork a pager: $!"; print $usage; exit $ret; } sub processOptions { my $args = shift; my $opts = { 'numeric' => '', 'max-hosts' => '99', 'host' => '127.0.0.1', 'help' => '', 'more-help' => '' }; my $argument = '[host]'; my $ret = GetOptionsFromArray($args, $opts, ( 'numeric|n', 'max-hosts|m=i', 'host|r=s', 'help|?', 'more-help')); $usage = <<'USAGE'; ntptrace - Trace peers of an NTP server - Ver. 4.2.8p18 USAGE: ntptrace [ - [] | --[{=| }] ]... [host] -n, --numeric Print IP addresses instead of hostnames -m, --max-hosts=num Maximum number of peers to trace -r, --host=str Single remote host -?, --help Display usage information and exit --more-help Pass the extended usage text through a pager Options are specified by doubled hyphens and their name or by a single hyphen and the flag character. USAGE usage(0) if $opts->{'help'}; paged_usage(0) if $opts->{'more-help'}; $_[0] = $opts; return $ret; } END { close STDOUT };