equal
deleted
inserted
replaced
8 use Time::Local; |
8 use Time::Local; |
9 use Getopt::Long; |
9 use Getopt::Long; |
10 use if $ENV{DEBUG} => "Smart::Comments"; |
10 use if $ENV{DEBUG} => "Smart::Comments"; |
11 use DNStools::Config qw(get_config); |
11 use DNStools::Config qw(get_config); |
12 |
12 |
13 my %config; |
13 my %cf; |
14 my $opt_expiry = undef; |
14 my $opt_expiry = undef; |
15 |
15 |
16 MAIN: { |
16 MAIN: { |
17 my %info; # will hold the information we collected |
17 my %info; # will hold the information we collected |
18 |
18 |
26 -noperldoc => system("perldoc -V &>/dev/null") |
26 -noperldoc => system("perldoc -V &>/dev/null") |
27 ); |
27 ); |
28 }, |
28 }, |
29 ) or pod2usage; |
29 ) or pod2usage; |
30 |
30 |
31 %config = get_config(); |
31 %cf = get_config(); |
32 die "$config{master_dir}: $!\n" if not -d $config{master_dir}; |
32 die "$cf{master_dir}: $!\n" if not -d $cf{master_dir}; |
33 |
33 |
34 foreach my $dir (grep { -d } glob "$config{master_dir}/*") { |
34 foreach my $dir (grep { -d } glob "$cf{master_dir}/*") { |
35 |
35 |
36 my $zone = basename($dir); |
36 my $zone = basename($dir); |
37 $info{$zone} = { status => "OK" }; |
37 $info{$zone} = { status => "OK" }; |
38 |
38 |
39 if (not -f "$dir/.index.zsk") { |
39 if (not -f "$dir/.index.zsk") { |