equal
deleted
inserted
replaced
34 |
34 |
35 unless ( -d $master_dir and -r $master_dir ) { |
35 unless ( -d $master_dir and -r $master_dir ) { |
36 die "$master_dir: $!\n"; |
36 die "$master_dir: $!\n"; |
37 } |
37 } |
38 |
38 |
39 printf "%-25s %-8s %1s/%1s %3s %7s\n", "Domain", "Status", "ZSK", "KSK", "Used", "Sig-end"; |
39 printf "%-25s %-8s %1s/%1s %3s %7s\n", "Domain", "Status", "ZSK", "KSK", |
|
40 "Used", "Sig-end"; |
40 |
41 |
41 for my $dir ( glob "$master_dir/*" ) { |
42 for my $dir ( glob "$master_dir/*" ) { |
42 |
43 |
43 $zone = basename($dir); |
44 $zone = basename($dir); |
44 |
45 |
46 $info_status = "OK"; |
47 $info_status = "OK"; |
47 for (`dig \@localhost $zone`) { |
48 for (`dig \@localhost $zone`) { |
48 if (/root-servers/) { |
49 if (/root-servers/) { |
49 $info_status = "FAILED"; |
50 $info_status = "FAILED"; |
50 last; |
51 last; |
51 } |
52 } |
52 } |
53 } |
53 |
54 |
54 if ( not -f "$dir/.index.zsk" ) { |
55 if ( not -f "$dir/.index.zsk" ) { |
55 $info_zsk = $info_ksk = $info_kc = 0; |
56 $info_zsk = $info_ksk = $info_kc = 0; |
56 $info_end = "-"; |
57 $info_end = "-"; |
90 (?<min>\d\d)\d+\s\(/ix; |
91 (?<min>\d\d)\d+\s\(/ix; |
91 } |
92 } |
92 |
93 |
93 } |
94 } |
94 continue { |
95 continue { |
95 printf "%-25s %-8s %1d/%1d %5d %19s\n", $zone, $info_status, $info_zsk, $info_ksk, $info_kc, |
96 printf "%-25s %-8s %1d/%1d %5d %19s\n", $zone, $info_status, $info_zsk, |
|
97 $info_ksk, $info_kc, |
96 $info_end; |
98 $info_end; |
97 } |
99 } |
98 |
100 |