Edit File: 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 proxy 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"; }