| Current Path : /proc/thread-self/root/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/thread-self/root/proc/self/root/scripts/killdns-dnsadmin |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/killdns-dnsadmin 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 warnings;
use Cpanel::DnsUtils::AskDnsAdmin ();
local $SIG{'PIPE'} = 'IGNORE';
local $SIG{'HUP'} = 'IGNORE';
local $SIG{'ALRM'} = 'IGNORE';
if ( $ENV{'KILLDNS_ENTRY'} && $ENV{'KILLDNS_ENTRY'} eq '1' ) {
print "Loop prevented. Are your /usr/local/cpanel/scripts out of sync with your cPanel version in /usr/local/cpanel? Try running /usr/local/cpanel/scripts/upcp --sync\n";
exit 1;
}
$ENV{'KILLDNS_ENTRY'} = 1; #prevent looping
my $domain = @ARGV ? $ARGV[0] : '';
if ( $domain eq '' && -t STDIN ) {
print 'Enter the zone to delete? ';
chomp( $domain = <STDIN> );
}
if ( $domain eq '' ) {
print "Error: No zone specified\n";
exit;
}
$domain =~ s/\///g;
local $0 = "killdns - $domain";
print Cpanel::DnsUtils::AskDnsAdmin::askdnsadmin( 'REMOVEZONE', 0, $domain );