ntp-wait-opts revision 330567 
119304Speter# EDIT THIS FILE WITH CAUTION  (ntp-wait-opts)
219304Speter#
319304Speter# It has been AutoGen-ed  February 27, 2018 at 10:49:48 AM by AutoGen 5.18.5
419304Speter# From the definitions    ntp-wait-opts.def
519304Speter# and the template file   perlopt
619304Speter
719304Speteruse Getopt::Long qw(GetOptionsFromArray);
819304SpeterGetopt::Long::Configure(qw(no_auto_abbrev no_ignore_case_always));
919304Speter
1019304Spetermy $usage;
1119304Speter
1219304Spetersub usage {
1319304Speter    my ($ret) = @_;
1419304Speter    print STDERR $usage;
1519304Speter    exit $ret;
1619304Speter}
1719304Speter
1819304Spetersub paged_usage {
1919304Speter    my ($ret) = @_;
2019304Speter    my $pager = $ENV{PAGER} || '(less || more)';
2119304Speter
2219304Speter    open STDOUT, "| $pager" or die "Can't fork a pager: $!";
23    print $usage;
24
25    exit $ret;
26}
27
28sub processOptions {
29    my $args = shift;
30
31    my $opts = {
32        'tries' => '100',
33        'sleep' => '6',
34        'verbose' => '',
35        'help' => '', 'more-help' => ''
36    };
37    my $argument = '';
38    my $ret = GetOptionsFromArray($args, $opts, (
39        'tries|n=i', 'sleep|s=i', 'verbose|v',
40        'help|?', 'more-help'));
41
42    $usage = <<'USAGE';
43ntp-wait - Wait for ntpd to stabilize the system clock - Ver. 4.2.8p11
44USAGE: ntp-wait [ -<flag> [<val>] | --<name>[{=| }<val>] ]... 
45
46    -n, --tries=num              Number of times to check ntpd
47    -s, --sleep=num              How long to sleep between tries
48    -v, --verbose                Be verbose
49    -?, --help                   Display usage information and exit
50        --more-help              Pass the extended usage text through a pager
51
52Options are specified by doubled hyphens and their name or by a single
53hyphen and the flag character.
54USAGE
55
56    usage(0)       if $opts->{'help'};
57    paged_usage(0) if $opts->{'more-help'};
58    $_[0] = $opts;
59    return $ret;
60}
61
62END { close STDOUT };
63