1290001Sglebius# EDIT THIS FILE WITH CAUTION (calc_tickadj-opts) 2290001Sglebius# 3290001Sglebius# It has been AutoGen-ed August 31, 2014 at 04:52:46 AM by AutoGen 5.18.4 4290001Sglebius# From the definitions calc_tickadj-opts.def 5290001Sglebius# and the template file perlopt 6290001Sglebius 7290001Sglebiususe Getopt::Long qw(GetOptionsFromArray); 8290001SglebiusGetopt::Long::Configure(qw(no_auto_abbrev no_ignore_case_always)); 9290001Sglebius 10290001Sglebiusmy $usage; 11290001Sglebius 12290001Sglebiussub usage { 13290001Sglebius my ($ret) = @_; 14290001Sglebius print STDERR $usage; 15290001Sglebius exit $ret; 16290001Sglebius} 17290001Sglebius 18290001Sglebiussub paged_usage { 19290001Sglebius my ($ret) = @_; 20290001Sglebius my $pager = $ENV{PAGER} || '(less || more)'; 21290001Sglebius 22290001Sglebius open STDOUT, "| $pager" or die "Can't fork a pager: $!"; 23290001Sglebius print $usage; 24290001Sglebius 25290001Sglebius exit $ret; 26290001Sglebius} 27290001Sglebius 28290001Sglebiussub processOptions { 29290001Sglebius my $args = shift; 30290001Sglebius 31290001Sglebius my $opts = { 32290001Sglebius 'drift-file' => '/etc/ntp/drift', 33290001Sglebius 'tick' => '', 34290001Sglebius 'help' => '', 'more-help' => '' 35290001Sglebius }; 36290001Sglebius my $argument = ''; 37290001Sglebius my $ret = GetOptionsFromArray($args, $opts, ( 38290001Sglebius 'drift-file|d=s', 'tick|t=i', 39290001Sglebius 'help|?', 'more-help')); 40290001Sglebius 41290001Sglebius $usage = <<'USAGE'; 42290001Sglebiuscalc_tickadj - Calculates "optimal" value for tick given ntp drift file. - Ver. 4.2.7p467 43290001SglebiusUSAGE: calc_tickadj [ -<flag> [<val>] | --<name>[{=| }<val>] ]... 44290001Sglebius 45290001Sglebius -d, --drift-file=str Ntp drift file to use 46290001Sglebius -t, --tick=num Tick value of this host 47290001Sglebius -?, --help Display usage information and exit 48290001Sglebius --more-help Pass the extended usage text through a pager 49290001Sglebius 50290001SglebiusOptions are specified by doubled hyphens and their name or by a single 51290001Sglebiushyphen and the flag character. 52290001SglebiusUSAGE 53290001Sglebius 54290001Sglebius usage(0) if $opts->{'help'}; 55290001Sglebius paged_usage(0) if $opts->{'more-help'}; 56290001Sglebius $_[0] = $opts; 57290001Sglebius return $ret; 58290001Sglebius} 59290001Sglebius 60290001SglebiusEND { close STDOUT }; 61