\!/ KyuuKazami \!/

#!/usr/local/cpanel/3rdparty/bin/perl

my $domain = $ARGV[0];

if ( !-e "/var/named/${domain}.db" ) {
    print "Zonefile does not exist\n";
}

print "Checking ${domain}\n";

open( ND, "/var/named/${domain}.db" );
while (<ND>) {
    if (/NS[\t\s]*(\S+)/) {
        print "Nameserver: $1\n";
    }
}