X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=scripts%2Fnamed-conf;h=212cc8b1fa853a493a4fbb1f135f5b3b34f6ebeb;hp=53c06831879ade025b159dfb0d922d01f917ec1b;hb=e673b7bf50eba95a1c1201e0e0de10426c4e5cdb;hpb=73a78bba117972394d99f27739e9f3c0c5cd1f49

diff --git a/scripts/named-conf b/scripts/named-conf
index 53c0683..212cc8b 100755
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -392,6 +392,7 @@ sub zone_investigate() {
 sub zone_check_nsrrset ($$$$) {
     my ($uaddr,$wa, $name_if_auth, $glueless_ok) = @_;
     my (@s, $s, %s2g, @glue, $glue, $delgs_or_auths, $wwn, $ww);
+    my ($rcode);
     $ww= "[$uaddr] $wa";
     verbose("checking delegation by $ww");
     dig(sub {
@@ -497,8 +498,8 @@ sub zone_check_soa ($$$$) {
 	     $zone,'soa',$uaddr);
     $lame= 'broken' if !$lame && !defined $origin;
     if ($lame) { zone_warning("$lame server [$uaddr]",$wa); return; }
-    progress(2, sprintf "%-22s %40s has %s%s",
-	     $zone, $name, $serial, $is_ns ? '' : '*');
+    progress(2, sprintf "%-16s %34s has %s%s",
+	     $zone, "$name [$uaddr]", $serial, $is_ns ? '' : '*');
     push @{ $soas{$got} }, $ww;
     ($rcode,@soa_addrs)= lookup($origin,'a','0',"SOA ORIGIN");
     $wwn= "SOA ORIGIN from $ww";