zone_warning("configured as stealth but we [$addr]".
" are published ($name $ww)")
if $cfg->{'s'} =~ m/u/ && grep { $_ eq $addr } @self_addr;
+
+ $name_is_self= grep { $_ eq $name } ($is_soa ? @self_soa : @self_ns);
+ $addr_is_self= grep { $_ eq $addr } @self_addr;
+ if ($name_is_self && !$addr_is_self) {
+ zone_warning("our name $name has wrong address $addr ($ww)");
+ } elsif (!$name_is_self && $addr_is_self) {
+ zone_warning(($is_soa ? "SOA ORIGIN maps to" : "delegated to").
+ " our address $addr but to wrong".
+ " name $name ($ww)");
+ }
}
sub zone_check_soa ($$) {