SOURCES: dnswalk-perlpath.patch (NEW), dnswalk-delete-filterout.pa...

[glen]

Author: glen                         Date: Sat Nov 19 15:25:51 2005 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- added

---- Files affected:
SOURCES:
   dnswalk-perlpath.patch (NONE -> 1.1)  (NEW), dnswalk-delete-filterout.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/dnswalk-perlpath.patch
diff -u /dev/null SOURCES/dnswalk-perlpath.patch:1.1
--- /dev/null	Sat Nov 19 16:25:51 2005
+++ SOURCES/dnswalk-perlpath.patch	Sat Nov 19 16:25:43 2005
@@ -0,0 +1,18 @@
+diff -Naur dnswalk-2.0.2/dnswalk dnswalk-2.0.2.oden/dnswalk
+--- dnswalk-2.0.2/dnswalk	1997-10-06 09:24:00.000000000 -0400
++++ dnswalk-2.0.2.oden/dnswalk	2002-06-29 06:48:54.000000000 -0400
+@@ -1,4 +1,4 @@
+-#!/usr/contrib/bin/perl
++#!/usr/bin/perl
+ #
+ # dnswalk    Walk through a DNS tree, pulling out zone data and
+ # dumping it in a directory tree
+diff -Naur dnswalk-2.0.2/makereports dnswalk-2.0.2.oden/makereports
+--- dnswalk-2.0.2/makereports	1997-08-11 09:52:37.000000000 -0400
++++ dnswalk-2.0.2.oden/makereports	2002-06-29 06:49:24.000000000 -0400
+@@ -1,4 +1,4 @@
+-#!/usr/contrib/bin/perl
++#!/usr/bin/perl
+ # This takes output from dnswalk and makes a "rep.orts" directory
+ # with one file per contact.  Great for sending mail to all the admins.
+ 

================================================================
Index: SOURCES/dnswalk-delete-filterout.patch
diff -u /dev/null SOURCES/dnswalk-delete-filterout.patch:1.1
--- /dev/null	Sat Nov 19 16:25:51 2005
+++ SOURCES/dnswalk-delete-filterout.patch	Sat Nov 19 16:25:43 2005
@@ -0,0 +1,18 @@
+--- dnswalk.orig	2005-06-17 19:35:35.428688162 +0900
++++ dnswalk	2005-06-17 19:36:07.447322829 +0900
+@@ -230,12 +230,12 @@
+ 	    }
+ 	    elsif ($opt_F && !&equal($name,$rr->name)) {
+ 		# Filter out "hostname-something" (like "neptune-le0")
+-		if (index(split (/\./, $rr->name, 2) . "-", 
+-			    split (/\./, $name, 2)) == -1 ) {
++#		if (index(split (/\./, $rr->name, 2) . "-", 
++#			    split (/\./, $name, 2)) == -1 ) {
+ 			&printerr("WARN", $rr->name ." A ". 
+ 			    $rr->address .": points to $name\n") 
+ 			    if ((split(/\./,$name))[0] ne "localhost");
+-		}
++#		}
+ 	    }
+ 	    if ($main'opt_a) {
+ 		# keep list in %glues, report any duplicates
================================================================