Bug #36054 for Net-DNS: Enhancement Request (findzonecut)

1. Zone walking and finding zone cuts is frowned upon by some DNS specialists. It is putting unneeded load on the infrastructure. Therefore I am hesitant to provide a method that eases this behavior. 2. On the other hand using the wire2presentation and name2labels utilities (undocumented) which are for internal consumption in Net::DNS this is all fairly trivial. See the example script below that takes a domain name as an argument. Will print each SOA and the NS records above (parent) and below (child) the zonecut . Apologies for not getting back earlier; closing the ticket #!/usr/bin/perl -Wall use strict; use Net::DNS qw (wire2presentation name2labels); my @labels=name2labels(shift); my $resolver=Net::DNS::Resolver->new; my $parental_lookup=""; while (@labels) { my $name=compose_name(@labels); if ($parental_lookup){ my $pckt=$resolver->send($parental_lookup,"NS"); if ($pckt->header->ancount){ print_ns_a("Parent", $pckt->answer); $parental_lookup=0; } } my $pckt=$resolver->send($name,"SOA"); if ($pckt->header->ancount){ print "-----\nFOUND SOA @ $name" if ($pckt->answer)[0]->type eq "SOA"; undef($pckt); $pckt=$resolver->send($name,"NS"); if ($pckt->header->ancount){ print_ns_a("Child ", $pckt->answer); $parental_lookup=$name; } } shift @labels; } sub compose_name { my $name; foreach my $label (@_){ $name .= wire2presentation($label) . "."; } return $name; } sub print_ns_a { my $caption=shift; foreach my $ns (@_){ next unless $ns->type eq "NS"; my $apckt=$resolver->send($ns->nsdname,"A"); if ($apckt->header->ancount){ foreach my $a ($apckt->answer){ print $caption." NS ".$ns->nsdname. " : ".$a->address; } }else{ print "No A RRs found for ". $ns->nsdname; } } }

PS.. adding that script to the contrib dir.

In message <rt-3.6.HEAD-19694-1229521356-100.36054-6-0@rt.cpan.org>, you wrote: Show quoted text
While you may be correct that ``heavy'' use of zonecutting is frowned upon, in some quarters, I don't think that's the most important issue. The bottom line is that this functionality _is_ provided in the C version of the resolver library, some people, such as myself, know how to make judicious and non-stressful use of the functionality, and I think that the corresponding Perl library (Net::DNS) is remiss if it fails to export the same functionality as the C library. That sort of limitation just feeds critics of Perl who say that its not as useful, flexible, or powerful as C. Further, the value judgement you are making is apparently not shared by the folks who wrote and maintain the C resolver library. Show quoted text
Thank you for the script. Show quoted text
That's OK. Apology accepted. Thank you for Net::DNS. I find it most useful.

In message <rt-3.6.HEAD-19694-1229556329-114.36054-6-0@rt.cpan.org>, you wrote: Show quoted text
Perfectly fine by me.