diff -r a3860111db49 -r 3db363880766 sbin/update-serial --- a/sbin/update-serial Thu Jun 30 15:19:33 2011 +0200 +++ b/sbin/update-serial Thu Jun 30 16:24:32 2011 +0200 @@ -45,19 +45,20 @@ "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, "m|man" => sub { pod2usage( - -exit => 0, - -verbose => 2, - # "system('perldoc -V &>/dev/null')" appears shorter, but may not - # do what you expect ( it still returns 0 on debian squeeze with - # dash as system shell even if cannot find the command in $PATH) + -exit => 0, + -verbose => 2, + + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) -noperldoc => system('perldoc -V >/dev/null 2>&1') ); } ) or pod2usage; # merge the config and the defined options from commandline - my @configs = ( "dnstools.conf", "$ENV{HOME}/.dnstools.conf", - "/etc/dnstools.conf"); + my @configs = + ("dnstools.conf", "$ENV{HOME}/.dnstools.conf", "/etc/dnstools.conf"); unshift @configs, $ENV{DNSTOOLS_CONF} if defined $ENV{DNSTOOLS_CONF}; %config = get_config @configs, \%opt; @@ -72,9 +73,13 @@ push @candidates, end_rollover(@done_rollover); foreach my $zone (uniq(@candidates)) { -# say "XXX: candidate $zone"; + + # say "XXX: candidate $zone"; update_serial($zone); - sign($zone) if dnssec_enabled($zone, "$config{master_dir}/$config{indexzone}/$config{indexzone}"); + sign($zone) + if dnssec_enabled($zone, + "$config{master_dir}/$config{indexzone}/$config{indexzone}"); + # say "XXX: $zone should be signed" if dnssec_enabled($zone, "$config{master_dir}/$config{indexzone}/$config{indexzone}"); }