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", |
39 printf "%-35s %-8s %1s/%1s %3s %7s\n", "Domain", "Status", "ZSK", "KSK", |
40 "Used", "Sig-end"; |
40 "Used", "Sig-end"; |
41 |
41 |
42 for my $dir ( glob "$master_dir/*" ) { |
42 for my $dir ( glob "$master_dir/*" ) { |
43 |
43 |
44 $zone = basename($dir); |
44 $zone = basename($dir); |
91 (?<min>\d\d)\d+\s\(/ix; |
91 (?<min>\d\d)\d+\s\(/ix; |
92 } |
92 } |
93 |
93 |
94 } |
94 } |
95 continue { |
95 continue { |
96 printf "%-25s %-8s %1d/%1d %5d %19s\n", $zone, $info_status, $info_zsk, |
96 printf "%-35s %-8s %1d/%1d %5d %19s\n", $zone, $info_status, $info_zsk, |
97 $info_ksk, $info_kc, |
97 $info_ksk, $info_kc, |
98 $info_end; |
98 $info_end; |
99 } |
99 } |
100 |
100 |