TCP/DNS feature request

[Jeremy Kister]

I've been monitoring some recursive name servers with some custom code to
ensure TCP DNS queries are answered.  Can this be written into argus?


use Net::DNS;
my $res = Net::DNS::Resolver->new(
        nameservers => [qw(1.2.3.4 4.3.2.1)],
        recurse     => 1,
        usevc       => 1,
);

my $host = shift || 'www.example.com';
my $query = $res->query($host,'A');

foreach my $rr ($query->answer) {
        while(my($key,$value) = each %{$rr}){
                print "$key => $value\n";
        }
}



Jeremy Kister
www.jeremykister.com/jeremy/