*** empty log message ***

2001-10-14 19:43:33 +00:00 · 2001-10-14 19:43:33 +00:00 · 861c35e4db
parent c831f707f9
commit 861c35e4db
1 changed files with 14 additions and 0 deletions
--- a/dns/axfr.pl
+++ 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";
+}