1290001Sglebius# EDIT THIS FILE WITH CAUTION (ntp-wait-opts) 2290001Sglebius# 3310419Sdelphij# It has been AutoGen-ed November 21, 2016 at 07:58:41 AM by AutoGen 5.18.5 4290001Sglebius# From the definitions ntp-wait-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 'tries' => '100', 33290001Sglebius 'sleep' => '6', 34290001Sglebius 'verbose' => '', 35290001Sglebius 'help' => '', 'more-help' => '' 36290001Sglebius }; 37290001Sglebius my $argument = ''; 38290001Sglebius my $ret = GetOptionsFromArray($args, $opts, ( 39290001Sglebius 'tries|n=i', 'sleep|s=i', 'verbose|v', 40290001Sglebius 'help|?', 'more-help')); 41290001Sglebius 42290001Sglebius $usage = <<'USAGE'; 43310419Sdelphijntp-wait - Wait for ntpd to stabilize the system clock - Ver. 4.2.8p9 44290001SglebiusUSAGE: ntp-wait [ -<flag> [<val>] | --<name>[{=| }<val>] ]... 45290001Sglebius 46290001Sglebius -n, --tries=num Number of times to check ntpd 47290001Sglebius -s, --sleep=num How long to sleep between tries 48290001Sglebius -v, --verbose Be verbose 49290001Sglebius -?, --help Display usage information and exit 50290001Sglebius --more-help Pass the extended usage text through a pager 51290001Sglebius 52290001SglebiusOptions are specified by doubled hyphens and their name or by a single 53290001Sglebiushyphen and the flag character. 54290001SglebiusUSAGE 55290001Sglebius 56290001Sglebius usage(0) if $opts->{'help'}; 57290001Sglebius paged_usage(0) if $opts->{'more-help'}; 58290001Sglebius $_[0] = $opts; 59290001Sglebius return $ret; 60290001Sglebius} 61290001Sglebius 62290001SglebiusEND { close STDOUT }; 63