Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;

use warnings;

use Net::DNS;

my $RR_DIR = '/etc/bind/SEC';

my @nameServers = qw/9.9.9.9 1.1.1.1 8.8.8.8 8.8.4.4 149.112.112.112 208.67.222.222 208.67.220.220 1.0.0.1 64.6.64.6 64.6.65.6/;

sub getNSRecords {

   my $domain = shift;

   use Net::DNS;

   # run the following with a name server randomly chosen from @nameServers

   my $res   = Net::DNS::Resolver->new (nameserver => ($nameServers[rand @nameServers]) );

   my $reply = $res->query($domain, "NS");

   my @result = ();

   if ($reply) {

      foreach my $rr (grep { $_->type eq "NS" } $reply->answer) {

         #print $rr->nsdname, "\n";

         push @result,$rr->nsdname;

      }

   } else {

      warn "query failed for [$domain]: ", $res->errorstring, "\n";

   }

   return \@result;

}

my @domains = `ls $RR_DIR`;

chomp @domains;

#print join( "\n", @{ &getNSRecords( "dailydata.net" ) }) . "\n";

#die;

my %results;

my $count = 0;

foreach my $domain (sort @domains) {

   print STDERR '.';

   next if $domain =~ m/\.arpa$/;

   my $ns = &getNSRecords( $domain );

   if ( $ns && scalar (@$ns) ) {

      foreach my $thisNS ( @$ns ) {

         push @{ $results{$thisNS} }, $domain;

      }

   } else {

      push @{ $results{'Unknown'} }, $domain;

   }

   sleep(1);

#   last if $count++ > 10;

}

foreach my $ns ( sort keys %results ) {

   print "$ns\n";

   print "\t", join( "\n\t", @{ $results{$ns} } ) . "\n";

}

1;