1 # EDIT THIS FILE WITH CAUTION (calc_tickadj-opts)
3 # It has been AutoGen-ed August 31, 2014 at 04:52:46 AM by AutoGen 5.18.4
4 # From the definitions calc_tickadj-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: $!";
32 'drift-file' => '/etc/ntp/drift',
34 'help' => '', 'more-help' => ''
37 my $ret = GetOptionsFromArray($args, $opts, (
38 'drift-file|d=s', 'tick|t=i',
39 'help|?', 'more-help'));
42 calc_tickadj - Calculates "optimal" value for tick given ntp drift file. - Ver. 4.2.7p467
43 USAGE: calc_tickadj [ -<flag> [<val>] | --<name>[{=| }<val>] ]...
45 -d, --drift-file=str Ntp drift file to use
46 -t, --tick=num Tick value of this host
47 -?, --help Display usage information and exit
48 --more-help Pass the extended usage text through a pager
50 Options are specified by doubled hyphens and their name or by a single
51 hyphen and the flag character.
54 usage(0) if $opts->{'help'};
55 paged_usage(0) if $opts->{'more-help'};