remove benchmark script

[lab.git] / misc / dnsbench.pl

diff --git a/misc/dnsbench.pl b/misc/dnsbench.pl
deleted file mode 100644 (file)
index 65bdbdb..0000000
--- a/misc/dnsbench.pl
+++ /dev/null
@@ -1,50 +0,0 @@
-#! /usr/bin/perl -w
-
-use strict;
-use warnings;
-
-use Net::DNS;
-
-my $hostlist = shift @ARGV or die "usage: $0 list_of_hosts [nameserver]";
-if (! -r $hostlist) {
-    die "$0: cannot read $hostlist";
-}
-my $nameserver = shift @ARGV;
-
-my $res;
-if ($nameserver) {
-    warn "$0: performing DNS query with server($nameserver)";
-    $res = Net::DNS::Resolver->new(
-        nameservers => [$nameserver],
-    );
-}
-else {
-    warn "$0: use system default nameservers";
-    $res = Net::DNS::Resolver->new;
-}
-
-
-open my $list, '<', $hostlist or die "$0: filename: $!";
-while (my $host = <$list>) {
-    chomp $host;
-    my $query = $res->send($host);
-    if ($query) {
-        print "$host -> ";
-        if ($res->errorstring ne 'NOERROR') {
-            print $res->errorstring, "\n";
-            next;
-        }
-        foreach my $rr ($query->answer) {
-            if ($rr->type eq 'A') {
-                print $rr->address, " ";
-            }
-            elsif ($rr->type eq 'PTR') {
-                print $rr->ptrdname, " ";
-            }
-        }
-        print "\n";
-    }
-    else {
-        warn "$0: query failed: ", $res->errorstring, "\n";
-    }
-}