summary-opts revision 1.1.1.1.8.2
1 1.1.1.1.8.2 tls 2 1.1.1.1.8.2 tls # DO NOT EDIT THE FOLLOWING 3 1.1.1.1.8.2 tls # 4 1.1.1.1.8.2 tls # It's auto generated option handling code 5 1.1.1.1.8.2 tls 6 1.1.1.1.8.2 tls use Getopt::Long qw(GetOptionsFromArray); 7 1.1.1.1.8.2 tls Getopt::Long::Configure(qw(no_auto_abbrev no_ignore_case_always)); 8 1.1.1.1.8.2 tls 9 1.1.1.1.8.2 tls my $usage; 10 1.1.1.1.8.2 tls 11 1.1.1.1.8.2 tls sub usage { 12 1.1.1.1.8.2 tls my ($ret) = @_; 13 1.1.1.1.8.2 tls print STDERR $usage; 14 1.1.1.1.8.2 tls exit $ret; 15 1.1.1.1.8.2 tls } 16 1.1.1.1.8.2 tls 17 1.1.1.1.8.2 tls sub paged_usage { 18 1.1.1.1.8.2 tls my ($ret) = @_; 19 1.1.1.1.8.2 tls my $pager = $ENV{PAGER} || '(less || more)'; 20 1.1.1.1.8.2 tls 21 1.1.1.1.8.2 tls open STDOUT, "| $pager" or die "Can't fork a pager: $!"; 22 1.1.1.1.8.2 tls print $usage; 23 1.1.1.1.8.2 tls 24 1.1.1.1.8.2 tls exit $ret; 25 1.1.1.1.8.2 tls } 26 1.1.1.1.8.2 tls 27 1.1.1.1.8.2 tls sub processOptions { 28 1.1.1.1.8.2 tls my $args = shift; 29 1.1.1.1.8.2 tls 30 1.1.1.1.8.2 tls my $opts = { 31 1.1.1.1.8.2 tls 'directory' => '/var/log/ntp', 32 1.1.1.1.8.2 tls 'end-date' => '', 33 1.1.1.1.8.2 tls 'output-directory' => '/tmp', 34 1.1.1.1.8.2 tls 'peer-dist-limit' => '400', 35 1.1.1.1.8.2 tls 'skip-time-steps' => '3600', 36 1.1.1.1.8.2 tls 'start-date' => '19700101', 37 1.1.1.1.8.2 tls 'help' => '', 'more-help' => '' 38 1.1.1.1.8.2 tls }; 39 1.1.1.1.8.2 tls my $argument = ''; 40 1.1.1.1.8.2 tls my $ret = GetOptionsFromArray($args, $opts, ( 41 1.1.1.1.8.2 tls 'directory=s', 'end-date=i', 'output-directory=s', 42 1.1.1.1.8.2 tls 'peer-dist-limit=f', 'skip-time-steps=f', 'start-date=i', 43 1.1.1.1.8.2 tls 'help|?', 'more-help')); 44 1.1.1.1.8.2 tls 45 1.1.1.1.8.2 tls $usage = <<'USAGE'; 46 1.1.1.1.8.2 tls summary - compute various stastics from NTP stat files 47 1.1.1.1.8.2 tls USAGE: summary [ -<flag> [<val>] | --<name>[{=| }<val>] ]... 48 1.1.1.1.8.2 tls 49 1.1.1.1.8.2 tls , --directory=str Directory containing stat files 50 1.1.1.1.8.2 tls , --end-date=num End date 51 1.1.1.1.8.2 tls , --output-directory=str Output directory 52 1.1.1.1.8.2 tls , --peer-dist-limit=float Peer dist limit 53 1.1.1.1.8.2 tls , --skip-time-steps=float Ignore time offsets larger that this 54 1.1.1.1.8.2 tls , --start-date=num Start date 55 1.1.1.1.8.2 tls -?, --help Display usage information and exit 56 1.1.1.1.8.2 tls , --more-help Pass the extended usage information through a pager 57 1.1.1.1.8.2 tls 58 1.1.1.1.8.2 tls Options are specified by doubled hyphens and their name or by a single 59 1.1.1.1.8.2 tls hyphen and the flag character. 60 1.1.1.1.8.2 tls USAGE 61 1.1.1.1.8.2 tls 62 1.1.1.1.8.2 tls usage(0) if $opts->{'help'}; 63 1.1.1.1.8.2 tls paged_usage(0) if $opts->{'more-help'}; 64 1.1.1.1.8.2 tls $_[0] = $opts; 65 1.1.1.1.8.2 tls return $ret; 66 1.1.1.1.8.2 tls } 67 1.1.1.1.8.2 tls 68 1.1.1.1.8.2 tls END { close STDOUT }; 69 1.1.1.1.8.2 tls 70
Indexes created Thu Jul 16 00:26:27 UTC 2026