Current Path : /proc/2/cwd/proc/3/cwd/scripts/

Upload File :

Current File : //proc/2/cwd/proc/3/cwd/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";
    }
}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez