home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume43 / dnswalk / patch01 < prev    next >
Internet Message Format  |  1994-07-05  |  2KB
  1. From: barr@pop.psu.edu (David Barr)
  2. Newsgroups: comp.sources.misc
  3. Subject: v43i071:  dnswalk - A DNS database debugger, Patch01
  4. Date: 5 Jul 1994 21:34:49 -0500
  5. Organization: Penn State Population Research Institute
  6. Sender: root@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2vd589$pcs@sparky.sterling.com>
  9. X-Md4-Signature: 9c5172bc236d5d15d4b61d0499e6f66b
  10.  
  11. Submitted-by: barr@pop.psu.edu (David Barr)
  12. Posting-number: Volume 43, Issue 71
  13. Archive-name: dnswalk/patch01
  14. Environment: Perl, Dig, DNS
  15. Patch-To: dnswalk: Volume 43, Issue 50
  16.  
  17. A silly one-line fix.  This will give you dnswalk version 1.8.1.
  18.  
  19. *** 1.5    1994/06/29 18:21:54
  20. --- CHANGES    1994/06/29 18:22:34
  21. ***************
  22. *** 1,4 ****
  23. --- 1,8 ----
  24.   $Id: CHANGES,v 1.5 1994/06/29 18:21:54 barr Exp barr $
  25. + Version 1.8.1
  26. + One-line fix to remove reference to non-existent parameter to getmaster().
  27. + Reported by petri@ibr.cs.tu-bs.de (Stefan Petri).
  28. + 
  29.   Version 1.8
  30.   Typos, documentation corrections, additions to TIPS as well as
  31.   stuff for TODO from Piete Brooks <Piete.Brooks@cl.cam.ac.uk>.
  32. *** 1.9    1994/06/27 14:13:24
  33. --- dnswalk    1994/06/29 18:13:45
  34. ***************
  35. *** 221,227 ****
  36.   sub getmaster {  # return 'master' server for zone
  37.       local ($master)="";
  38.       $SIG{'INT'}="nop;";
  39. !     open(DIG,"dig soa $_[0] \@$_[1] 2>/dev/null|");
  40.       while (<DIG>) {
  41.           if (/.*\t\d+\tSOA\t(\S+) /) { 
  42.               $master=$1;
  43. --- 221,227 ----
  44.   sub getmaster {  # return 'master' server for zone
  45.       local ($master)="";
  46.       $SIG{'INT'}="nop;";
  47. !     open(DIG,"dig soa $_[0] 2>/dev/null|");
  48.       while (<DIG>) {
  49.           if (/.*\t\d+\tSOA\t(\S+) /) { 
  50.               $master=$1;
  51.  
  52.  
  53. -- 
  54. "WAIS is the Pinto of the Information Superhighway" - me
  55.  
  56. exit 0 # Just in case...
  57.