Today I created the PERL script to check if the DNS is resolve by other DNS servers
To do that you will need create the <b>checkdns.pl</b> file
#nano checkdns.pl
And paste the below code:
#!/usr/bin/perl
$file=$ARGV[0];
chomp($file);
@list = `cat $file`;
$filedns=$ARGV[1];
chomp($filedns);
@listdns = `cat $filedns`;
foreach $dns(@listdns) {
chomp($dns);
print "\n--------------\n$dns\n";
for ($count = 2; $count >= 1; $count--) {
foreach $domain(@list) {
chomp($domain);
$ns = `dig $dns $domain +short`;
chomp($ns);
$ns =~s/\n/\t/g;
print "$domain\t$ns\n";
}
}
}
After that you need two files
1- file where you will put your dns servers
#nano domains.txt
Here you fill in with domains that you would like to test
my.domain.com second.domain.com ...
2- file with global (or your indyvidual) DNS servers that you want to check with:
@8.8.8.8 @8.8.4.4 @75.75.75.75 @208.67.222.222 @208.67.220.220 @209.244.0.3 @209.244.0.4 @156.154.70.1 @156.154.71.1 @81.218.119.11 @209.88.198.133
If you want to use it just run
./checkdns.pl domains.txt dnsservers.txt
Also you can use the http://dns.squish.net/ website, that will help you with that as well.