equal
deleted
inserted
replaced
37 MAIN: { |
37 MAIN: { |
38 |
38 |
39 GetOptions( |
39 GetOptions( |
40 "sign-alert-time=i" => \$opt{sign_alert_time}, |
40 "sign-alert-time=i" => \$opt{sign_alert_time}, |
41 "key-counter-end=i" => \$opt{key_counter_end}, |
41 "key-counter-end=i" => \$opt{key_counter_end}, |
42 "h|help" => sub { pod2usage(-exit 0, -verbose => 1) }, |
42 "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, |
43 "m|man" => sub { |
43 "m|man" => sub { |
44 pod2usage( |
44 pod2usage( |
45 -exit 0, |
45 -exit => 0, |
46 -verbose => 2, |
46 -verbose => 2, |
47 -noperldoc => system("perldoc -v &>/dev/null") |
47 # "system('perldoc -V &>/dev/null')" appears shorter, but may not |
|
48 # do what you expect ( it still returns 0 on debian squeeze with |
|
49 # dash as system shell even if cannot find the command in $PATH) |
|
50 -noperldoc => system('perldoc -V >/dev/null 2>&1') |
48 ); |
51 ); |
49 }, |
52 } |
50 ) or pod2usage; |
53 ) or pod2usage; |
51 |
54 |
52 # merge the config and the defined options from commandline |
55 # merge the config and the defined options from commandline |
53 %config = get_config("$ENV{DNSTOOLS_CONF}", "dnstools.conf", |
56 %config = get_config("$ENV{DNSTOOLS_CONF}", "dnstools.conf", |
54 "$ENV{HOME}/.dnstools.conf", "/etc/dnstools.conf", \%opt); |
57 "$ENV{HOME}/.dnstools.conf", "/etc/dnstools.conf", \%opt); |
509 return @r; |
512 return @r; |
510 } |
513 } |
511 |
514 |
512 __END__ |
515 __END__ |
513 |
516 |
|
517 =pod |
|
518 |
514 =head1 NAME |
519 =head1 NAME |
515 |
520 |
516 update-serial - updates the serial numbers and re-signs the zone files |
521 update-serial - updates the serial numbers and re-signs the zone files |
517 |
522 |
518 =head1 SYNOPSIS |
523 =head1 SYNOPSIS |
528 |
533 |
529 =over |
534 =over |
530 |
535 |
531 =item B<--sign-alert-time> I<days> |
536 =item B<--sign-alert-time> I<days> |
532 |
537 |
|
538 TODO |
|
539 |
533 =item B<--key-counter-end> I<integer> |
540 =item B<--key-counter-end> I<integer> |
534 |
541 |
535 Maximum number if key usages. |
542 Maximum number if key usages. |
536 |
543 |
537 |
|
538 =back |
544 =back |
539 |
545 |
540 The common options B<-h>|B<--help>|B<-m>|B<--man> are supported. |
546 The common options B<-h>|B<--help>|B<-m>|B<--man> are supported. |
541 |
547 |
542 =head1 AUTHOR |
548 =head1 AUTHOR |