From 861c35e4db8ee915145f15597b4a4c59647ae5e7 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Sun, 14 Oct 2001 19:43:33 +0000
Subject: [PATCH] *** empty log message ***

---
 dns/axfr.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 dns/axfr.pl

diff --git a/dns/axfr.pl b/dns/axfr.pl
new file mode 100755
index 0000000..5f8cfc4
--- /dev/null
+++ b/dns/axfr.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+use Net::DNS;
+
+my $res = new Net::DNS::Resolver;
+$res->nameservers($ARGV[1]);
+my @zone = $res->axfr($ARGV[0]);
+if (@zone) {
+    foreach my $rr (@zone) {
+	$rr->print;
+    }
+} else {
+    print STDERR "query failed: ", $res->errorstring, "\n";
+}