| Current Path : /proc/326615/root/proc/325304/root/scripts/ |
| Current File : //proc/326615/root/proc/325304/root/scripts/verifyzone |
#!/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";
}
}