| Current Path : /proc/self/root/scripts/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //proc/self/root/scripts/zoneexists |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/zoneexists Copyright 2022 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
use strict;
use Cpanel::SafeFile ();
use Cpanel::DNSLib ();
my $zone = $ARGV[0];
$zone =~ s/\s//g;
$zone =~ s/\n//g;
my $dnslib = Cpanel::DNSLib->new();
my $nclock = Cpanel::SafeFile::safeopen( \*NDC, "<", $dnslib->{'namedconf'} )
|| die "Unable to read $dnslib->{'namedconf'}!";
while (<NDC>) {
if (/zone\s+\"${zone}\"/io) {
print "exists\n";
last();
}
}
Cpanel::SafeFile::safeclose( \*NDC, $nclock );