re-format output
authorPeter Palfrader <peter@palfrader.org>
Thu, 18 Feb 2010 12:50:53 +0000 (13:50 +0100)
committerPeter Palfrader <peter@palfrader.org>
Thu, 18 Feb 2010 12:50:53 +0000 (13:50 +0100)
dsa-nagios-checks/checks/dsa-check-dnssec-delegation

index ff8f920..d61e400 100755 (executable)
@@ -120,9 +120,9 @@ for my $zone (@zones) {
 }
 
 if ($mode eq 'overview') {
-       my $format = "%30s %-16s %-16s %-16s\n";
+       my $format = "%60s %-10s %-10s %-10s\n";
        printf $format, "zone", "DNSKEY", "DS in parent", "DLV";
-       printf $format, "-"x 30,  "-"x 16,  "-"x 16,  "-"x 16;
+       printf $format, "-"x 60,  "-"x 10,  "-"x 10,  "-"x 10;
        for my $zone (sort {$a cmp $b} keys %data) {
                printf $format, $zone,
                        $data{$zone}->{'dnskey'},