Current Path : /proc/2/cwd/scripts/ |
|
Current File : //proc/2/cwd/scripts/forcelocaldomain |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - forcelocaldomain Copyright 2009 cPanel, Inc.
# All rights Reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
use Whostmgr::DNS::MX ();
my @DOMAINS = @ARGV;
if ( !@DOMAINS ) {
die "Usage: $0 [domains...]";
}
foreach my $domain (@DOMAINS) {
my %entries = Whostmgr::DNS::MX::fetchmx($domain);
print "Setting $domain to local ....";
#
# Since we are forcing a change we need to make sure we
# update the service subdomains as well
#
Whostmgr::DNS::MX::checkmx( $domain, $entries{'entries'}, 1, $Whostmgr::DNS::MX::DO_UPDATEUSERDOMAINS, $Whostmgr::DNS::MX::DO_UPDATE_PROXY_SUBDOMAINS );
print "Done\n";
}
Copyright 2K16 - 2K18 Indonesian Hacker Rulez