Get lookup result wrong. Err msgs clarified.

diff --git a/scripts/named-conf b/scripts/named-conf
index ce3019444f6a8e14d50cb88d442c69dcbb098830..1767fbe35a10b350a354dfeb574a194bef25f80d 100755 (executable)
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -414,7 +414,7 @@ sub zone_server_addr ($$$$$) {
        zone_warning("our name $name with wrong address [$addr], (eg) $ww")
            unless $warned_nameaddr{$name}{$addr}++;
     } elsif (!$name_is_self && $addr_is_self) {
        zone_warning("our name $name with wrong address [$addr], (eg) $ww")
            unless $warned_nameaddr{$name}{$addr}++;
     } elsif (!$name_is_self && $addr_is_self) {

-       zone_warning(($is_soa ? "SOA ORIGIN maps to" : "allegedly served by").
+       zone_warning(($is_soa ? "SOA ORIGIN maps to" : "referral to").

                     " us [$addr] with wrong name $name, (eg) $ww")
            unless $warned_nameaddr{$name}{$addr}++;
     }
                     " us [$addr] with wrong name $name, (eg) $ww")
            unless $warned_nameaddr{$name}{$addr}++;
     }


@@ -620,7 +620,7 @@ sub lookup ($$$) {
     chomp @result;
     $!=0; $h->close;
     die "$quis: lookup -t$type $domain $okrcodes failed $? $! @result\n"
     chomp @result;
     $!=0; $h->close;
     die "$quis: lookup -t$type $domain $okrcodes failed $? $! @result\n"

-       if $! or $?>6 or index($okrcodes,$?)<0;
+       if $! or $?&255 or $?>1536 or index($okrcodes,$?>>8)<0;

     debug_trace("lookup <== $? @result");
     return ($?,@result);
 }
     debug_trace("lookup <== $? @result");
     return ($?,@result);
 }