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

Upload File :

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