home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume44 / dnswalk / patch02 next >
Internet Message Format  |  1994-08-10  |  11KB
  1. From: barr@pop.psu.edu (David Barr)
  2. Newsgroups: comp.sources.misc
  3. Subject: v44i018:  dnswalk - A DNS database debugger, Patch02
  4. Date: 10 Aug 1994 15:57:46 -0500
  5. Organization: Penn State Population Research Institute
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <32bf0a$dqj@sparky.sterling.com>
  9. X-Md4-Signature: e0e0496dbded9722447a31281c375391
  10.  
  11. Submitted-by: barr@pop.psu.edu (David Barr)
  12. Posting-number: Volume 44, Issue 18
  13. Archive-name: dnswalk/patch02
  14. Environment: Perl, Dig, DNS
  15. Patch-To: dnswalk: Volume 43, Issue 50
  16.  
  17. This will give you dnswalk 1.8.2.
  18.  
  19. This release accounts for Solaris 2.x's unfriendly gethostbyname(),
  20. spelling errors, and some fixes in lame delegation checking.
  21. Of note is that I'm now sure that dnswalk works with Perl 5.
  22.  
  23. dnswalk is a DNS debugger.  It performs zone transfers of specified
  24. domains, and checks the database in numerous ways for internal
  25. consistency, as well as accuracy.
  26.  
  27.     This program may be freely distributed, as long as this notice
  28. and documentation are distributed with the program.  This program is
  29. released as-is, with no warranty expressed or implied.  Some assembly
  30. required, contents may settle during shipment.  This program can be
  31. found in:
  32.  
  33. ftp.pop.psu.edu:/pub/src/dnswalk/  or the mirrors:
  34. ftp.uu.net:/networking/ip/dns/dnswalk/*
  35. ftp.edu.tw:/UNIX/networking/dns/dnswalk/*
  36. ftp.univ-lyon1.fr:/pub/unix/network/tcpip/dns/dnswalk/*
  37.  
  38.  
  39. *** dnswalk.1.8.1/README    Sun Jul 24 16:33:15 1994
  40. --- README    Sun Jul 24 16:33:57 1994
  41. ***************
  42. *** 1,7 ****
  43. !         dnswalk 1.8 - June 1994
  44.   
  45.   Author: David Barr <barr@pop.psu.edu>
  46. ! $Id: README,v 1.3 1994/06/27 14:13:44 barr Exp barr $
  47.   
  48.   INTRO
  49.   
  50. --- 1,7 ----
  51. !         dnswalk 1.8.2 - June 1994
  52.   
  53.   Author: David Barr <barr@pop.psu.edu>
  54. ! $Id: README,v 1.4 1994/07/24 20:33:54 barr Exp barr $
  55.   
  56.   INTRO
  57.   
  58. *** dnswalk.1.8.1/CHANGES    Sun Jul 24 16:33:23 1994
  59. --- CHANGES    Sun Jul 24 16:33:50 1994
  60. ***************
  61. *** 1,4 ****
  62. ! $Id: CHANGES,v 1.4 1994/06/27 14:13:38 barr Exp barr $
  63.   Version 1.8.1
  64.   One-line fix to remove reference to non-existent parameter to getmaster().
  65.   Reported by petri@ibr.cs.tu-bs.de (Stefan Petri).
  66. --- 1,13 ----
  67. ! $Id: CHANGES,v 1.7 1994/07/24 20:33:43 barr Exp barr $
  68. ! Version 1.8.2
  69. ! Fixed spelling errors and shoddy syntax in getauthservers(), from
  70. ! Jost Krieger <Jost.Krieger@rz.ruhr-uni-bochum.de>
  71. ! 
  72. ! Accounted for Solaris's broken gethostbyname() which includes trailing
  73. ! dots in retuned name.
  74. ! 
  75. ! Minor fixes in lame delegation checking, and getauthservers().
  76. ! 
  77.   Version 1.8.1
  78.   One-line fix to remove reference to non-existent parameter to getmaster().
  79.   Reported by petri@ibr.cs.tu-bs.de (Stefan Petri).
  80. *** dnswalk.1.8.1/dnswalk    Sun Jul 24 16:33:23 1994
  81. --- dnswalk    Sun Jul 24 16:34:18 1994
  82. ***************
  83. *** 2,8 ****
  84.   # dnswalk    Walk through a DNS tree, pulling out zone data and
  85.   # dumping it in a directory tree
  86.   #
  87. ! # $Id: dnswalk,v 1.9 1994/06/27 14:13:24 barr Exp barr $
  88.   #
  89.   # check data collected for legality using standard resolver
  90.   #
  91. --- 2,8 ----
  92.   # dnswalk    Walk through a DNS tree, pulling out zone data and
  93.   # dumping it in a directory tree
  94.   #
  95. ! # $Id: dnswalk,v 1.11 1994/07/24 20:34:14 barr Exp barr $
  96.   #
  97.   # check data collected for legality using standard resolver
  98.   #
  99. ***************
  100. *** 65,71 ****
  101.           }
  102.       }
  103.   }
  104. ! # try to get a zone transfer, trying each listed authoratative server if
  105.   # if fails.
  106.   sub doaxfr {
  107.       local ($domain)=@_[0];
  108. --- 65,71 ----
  109.           }
  110.       }
  111.   }
  112. ! # try to get a zone transfer, trying each listed authoritative server if
  113.   # if fails.
  114.   sub doaxfr {
  115.       local ($domain)=@_[0];
  116. ***************
  117. *** 75,81 ****
  118.                   # error handling
  119.       ($path=&host2path($domain)) =~ tr/A-Z/a-z/;
  120.       local(@servers) = &getauthservers($domain);
  121. !     &printerr("warning: $domain has only one authoratative nameserver\n") if (scalar(@servers) == 1);
  122.       &printerr("warning: $domain has NO authoritative nameservers!\n") if (scalar(@servers) == 0);
  123.       if ((-f "$basedir/$path/axfr") && (!$main'opt_f)) {
  124.           open(DIG,"<$basedir/$path/axfr") || die "cannot open $basedir/$path/axfr: $!\n";
  125. --- 75,81 ----
  126.                   # error handling
  127.       ($path=&host2path($domain)) =~ tr/A-Z/a-z/;
  128.       local(@servers) = &getauthservers($domain);
  129. !     &printerr("warning: $domain has only one authoritative nameserver\n") if (scalar(@servers) == 1);
  130.       &printerr("warning: $domain has NO authoritative nameservers!\n") if (scalar(@servers) == 0);
  131.       if ((-f "$basedir/$path/axfr") && (!$main'opt_f)) {
  132.           open(DIG,"<$basedir/$path/axfr") || die "cannot open $basedir/$path/axfr: $!\n";
  133. ***************
  134. *** 197,209 ****
  135.       local ($s);
  136.       open(DIG,"dig +noau ns $_[0] 2>/dev/null|");
  137.       local(@servers)=();
  138. !     local(@servhash)=();
  139.       while (<DIG>) {
  140.           chop;
  141.       tr/A-Z/a-z/;
  142.           if (/\S+\s+\d+\s+ns\s+(\S+)/) {
  143.           $s=$1;
  144. !         if ($s eq $master) {
  145.           $foundmaster=1;   # make sure the master is at the top
  146.           } else {
  147.                   push(@servers,$s) if ($servhash{$s}++<1);
  148. --- 197,209 ----
  149.       local ($s);
  150.       open(DIG,"dig +noau ns $_[0] 2>/dev/null|");
  151.       local(@servers)=();
  152. !     local(%servhash)=();
  153.       while (<DIG>) {
  154.           chop;
  155.       tr/A-Z/a-z/;
  156.           if (/\S+\s+\d+\s+ns\s+(\S+)/) {
  157.           $s=$1;
  158. !         if (&equal($s,$master)) {
  159.           $foundmaster=1;   # make sure the master is at the top
  160.           } else {
  161.                   push(@servers,$s) if ($servhash{$s}++<1);
  162. ***************
  163. *** 212,218 ****
  164.       }
  165.       close(DIG);
  166.       if ($foundmaster) {
  167. !     unshift(servers,$master);
  168.       }
  169.       return @servers;
  170.   }
  171. --- 212,218 ----
  172.       }
  173.       close(DIG);
  174.       if ($foundmaster) {
  175. !     unshift(@servers,$master);
  176.       }
  177.       return @servers;
  178.   }
  179. ***************
  180. *** 288,294 ****
  181.                           if (!$name) {
  182.                               &printerr(" $_[0] PTR $_[3]: unknown host\n");
  183.                           }
  184. !                         elsif (!&equal(($name.'.'),$_[3])) {
  185.                               &printerr(" $_[0] PTR $_[3]: CNAME (to $name)\n");
  186.                           }    
  187.                           elsif (!&matchaddrlist($_[0])) {
  188. --- 288,294 ----
  189.                           if (!$name) {
  190.                               &printerr(" $_[0] PTR $_[3]: unknown host\n");
  191.                           }
  192. !                         elsif (!&equal($name,$_[3])) {
  193.                               &printerr(" $_[0] PTR $_[3]: CNAME (to $name)\n");
  194.                           }    
  195.                           elsif (!&matchaddrlist($_[0])) {
  196. ***************
  197. *** 307,313 ****
  198.                   if (!$name) {
  199.                       &printerr(" $_[0] A $_[3]: no PTR record\n");
  200.                   }
  201. !                 elsif ($opt_F && !&equal($name.".",$_[0])) {
  202.                       &printerr(" $_[0] A $_[3]: points to $name\n") if ((split(/\./,$name,1))[0] ne "localhost");
  203.                   }
  204.                   if ($main'opt_a) {
  205. --- 307,313 ----
  206.                   if (!$name) {
  207.                       &printerr(" $_[0] A $_[3]: no PTR record\n");
  208.                   }
  209. !                 elsif ($opt_F && !&equal($name,$_[0])) {
  210.                       &printerr(" $_[0] A $_[3]: points to $name\n") if ((split(/\./,$name,1))[0] ne "localhost");
  211.                   }
  212.                   if ($main'opt_a) {
  213. ***************
  214. *** 331,337 ****
  215.               else {
  216.                   if (!$name) {
  217.                       &printerr(" $_[0] NS $_[3]: unknown host\n");
  218. !                 } elsif (!&equal(($name.'.'),$_[3])) {
  219.                       &printerr(" $_[0] NS $_[3]: CNAME (to $name)\n");
  220.                   }
  221.               }
  222. --- 331,337 ----
  223.               else {
  224.                   if (!$name) {
  225.                       &printerr(" $_[0] NS $_[3]: unknown host\n");
  226. !                 } elsif (!&equal($name,$_[3])) {
  227.                       &printerr(" $_[0] NS $_[3]: CNAME (to $name)\n");
  228.                   }
  229.               }
  230. ***************
  231. *** 346,352 ****
  232.                   if (!$name) {
  233.                       &printerr(" $_[0] MX $_[3]: unknown host\n");
  234.                   }
  235. !                 elsif (!&equal(($name.'.'),$mx)) {
  236.                       &printerr(" $_[0] MX $_[3]: CNAME (to $name)\n");
  237.                   }
  238.               }
  239. --- 346,352 ----
  240.                   if (!$name) {
  241.                       &printerr(" $_[0] MX $_[3]: unknown host\n");
  242.                   }
  243. !                 elsif (!&equal($name,$mx)) {
  244.                       &printerr(" $_[0] MX $_[3]: CNAME (to $name)\n");
  245.                   }
  246.               }
  247. ***************
  248. *** 358,364 ****
  249.               else {
  250.                   if (!$name) {
  251.                       &printerr(" $_[0] CNAME $_[3]: unknown host\n");
  252. !                 } elsif (!&equal(($name.'.'),$_[3])) {
  253.                       &printerr(" $_[0] CNAME $_[3]: CNAME (to $name)\n");
  254.                   }
  255.               }
  256. --- 358,364 ----
  257.               else {
  258.                   if (!$name) {
  259.                       &printerr(" $_[0] CNAME $_[3]: unknown host\n");
  260. !                 } elsif (!&equal($name,$_[3])) {
  261.                       &printerr(" $_[0] CNAME $_[3]: CNAME (to $name)\n");
  262.                   }
  263.               }
  264. ***************
  265. *** 384,389 ****
  266. --- 384,397 ----
  267.       # Do case-insensitive string comparisons
  268.       local ($one)= $_[0];
  269.       local ($two)= $_[1];
  270. +     $stripone=$one;
  271. +     if (chop($stripone) eq '.') {
  272. +     $one=$stripone;
  273. +     }
  274. +     $striptwo=$two;
  275. +     if (chop($striptwo) eq '.') {
  276. +     $two=$striptwo;
  277. +     }
  278.       $one =~ tr/A-Z/a-z/;
  279.       $two =~ tr/A-Z/a-z/;
  280.       return ($one eq $two);
  281. ***************
  282. *** 422,428 ****
  283.   sub checklamer {
  284.       local ($isauth)=0;
  285.       local ($error)=0;
  286. !     # must check twice, since first query may be authoratative
  287.       # trap stderr here and print if non-empty
  288.       open(DIG,"dig soa +noaa $_[0] \@$_[1] 2>&1 1>/dev/null |");
  289.       while (<DIG>) {
  290. --- 430,436 ----
  291.   sub checklamer {
  292.       local ($isauth)=0;
  293.       local ($error)=0;
  294. !     # must check twice, since first query may be authoritative
  295.       # trap stderr here and print if non-empty
  296.       open(DIG,"dig soa +noaa $_[0] \@$_[1] 2>&1 1>/dev/null |");
  297.       while (<DIG>) {
  298. ***************
  299. *** 434,439 ****
  300. --- 442,455 ----
  301.       return if $error;
  302.       open(DIG,"dig soa +noaa $_[0] \@$_[1] 2>/dev/null|");
  303.       while (<DIG>) {
  304. +         if (/status: NXDOMAIN/) { 
  305. +             $isauth=0;
  306. +         last;
  307. +         }
  308. +         if (/status: SERVFAIL/) { 
  309. +             $isauth=0;
  310. +         last;
  311. +         }
  312.           if (/;; flags.*aa.*;/) { 
  313.               $isauth=1;
  314.           }
  315.  
  316. exit 0 # Just in case...
  317.