hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

*** empty log message ***

This commit is contained in:
hjp 2001-10-14 19:43:33 +00:00
parent c831f707f9
commit 861c35e4db
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dns/axfr.pl Executable file
View File

@ -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";
}