From b3cc848e6d4ec7a44371bef068bcfc695c9a455d Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 21 Dec 2003 12:50:31 +0000
Subject: [PATCH] Brought up to date.

---
 bin/chkdel  | 26 +++++++++++++++-----------
 bin/convert |  6 ++----
 2 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/bin/chkdel b/bin/chkdel
index 8328201..6999c42 100755
--- a/bin/chkdel
+++ b/bin/chkdel
@@ -2,31 +2,35 @@
 #
 #	ChkDel -- A simple script for checking of domain delegations
 #
-#	(c) 1999 Martin Mares <mj@ucw.cz>
+#	(c) 1999--2003 Martin Mares <mj@ucw.cz>
 #
 
-use lib "/home/mj/perl/lib/site_perl";
+use strict;
+use warnings;
 
-$our_server = "server1.gts.cz";
-$outside_ns = "ns.eunet.cz";
+# The canonical name of our server
+my $our_server = "jabberwock.ucw.cz";
+
+# Any recursive nameserver outside our network
+my $outside_ns = "ns.gts.cz";
 
 use Net::DNS::Resolver;
 
-$res = new Net::DNS::Resolver;
+my $res = new Net::DNS::Resolver;
 $res->nameservers($outside_ns);
 $res->defnames(0);
 $res->dnsrch(0);
 $res->debug(0);
 $res->recurse(1);
 
-@list = @ARGV ? `cat $ARGV[0]` : `m4 cf/domains`;
+my $d = @ARGV ? $ARGV[0] : 'cf/domains';
+my @list = `m4 m4/list.m4 $d`;
 
 foreach $_ (@list) {
-	if (/^PRIMARY\((\S+)\)/) { $dom = $1; }
-	elsif (/^SECONDARY\((\S+)\s*,/) { $dom = $1; }
-	else { next; }
+	chomp;
+	my $dom = $_;
 	$dom eq "localhost" && next;
-#	print "$dom\n";
+	#print "$dom\n";
 	my $q = $res->send($dom, "NS", "IN") or do {
 		print "$dom: ", $res->errorstring, "\n";
 		next;
@@ -49,7 +53,7 @@ foreach $_ (@list) {
 		print "$dom: Empty answer\n";
 		next;
 	};
-	$f = 0;
+	my $f = 0;
 	foreach my $r ($q->answer) {
 		if ($r->class eq "IN" && $r->type eq "NS" && $r->nsdname eq $our_server) {
 			$f = 1;
diff --git a/bin/convert b/bin/convert
index e8d7bb6..4e3d7b3 100755
--- a/bin/convert
+++ b/bin/convert
@@ -2,11 +2,9 @@
 #
 #	Convert -- A Tool for Conversion of Zone Files to NSC Format
 #
-#	(c) 1999 Martin Mares <mj@ucw.cz>
+#	(c) 1999--2003 Martin Mares <mj@ucw.cz>
 #
 
-use lib "/home/mj/perl/lib/site_perl";
-
 use Getopt::Std;
 use Net::DNS::Resolver;
 
@@ -71,7 +69,7 @@ sub go {
 	my $flag = shift @_;
 
 	if (defined $ips{$n}) { print "H($n$ips{$n})\n"; }
-	elsif ($flag) { print "HH($n)\n"; }
+	elsif ($flag) { print "H($n)\n"; }
 	if (defined $mx{$n}) { print "MX($mx{$n})\n"; }
 	if (defined $cn{$n}) { print "ALIAS($cn{$n})\n"; }
 }
-- 
2.39.2