Nameserver check script

By admin on August 4, 2007 in Apache

#!/usr/bin/perl

my @allnameserver;

while (&lt;STDIN&gt;) {
        chomp();
        $domain = $_;
        $ns = `whois $domain | grep -A 4 "Domain servers" | grep -v "Domain servers"`;
        chomp($ns);
        @nameservers = split(/\n/,$ns);

        print $domain . "\n";
        foreach $n (@nameservers) {
                chomp($n);
                $n =~ s/(\s*)(\S+)(\s*)/$2/gm;
                if ($n =~ /\s+/) {

                } else {
                        if ($n ne "") {
                                $n = lc($n);
                                push(@allnameserver,$n);
                                print "\t" . $n . "\n";
                        };
                };
        };
};

print "\nALL NAMESERVERS\n";
print "==================\n";
foreach $n (@allnameserver) {
        print $n . "\n";
};

#!/usr/bin/perl

my @allnameserver;

while (<STDIN>) {

chomp();

$domain = $_;

$ns = `whois $domain | grep -A 4 "Domain servers" | grep -v "Domain servers"`;

chomp($ns);

@nameservers = split(/\n/,$ns);

print $domain . "\n";

foreach $n (@nameservers) {

chomp($n);

$n =~ s/(\s*)(\S+)(\s*)/$2/gm;

if ($n =~ /\s+/) {

} else {

if ($n ne "") {

$n = lc($n);

push(@allnameserver,$n);

print "\t" . $n . "\n";

};

print "\nALL NAMESERVERS\n";

print "==================\n";

foreach $n (@allnameserver) {

print $n . "\n";

};

Top Nav

Navigation

Nameserver check script