auto
     �À¾Ä      File not found.
     �À¾Ä      File not found.
  	   ˆÂÆ0¾Ä     �À¾Ä      File not found.
  "   ˆl–Ðz¾”Jj"TÒ�zàœ¸”Å£ÇƒN¿Å 	ž    #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/checkalldomainsmxs              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 Cpanel::Usage                   ();
use Cpanel::Config::LoadUserDomains ();
use Whostmgr::DNS::MX               ();
use Cpanel::Email::MX               ();
use Cpanel::Userdomains             ();

my $proceed      = 0;
my $remote_check = 0;
my %opts         = ( 'yes' => \$proceed );

Cpanel::Usage::wrap_options( \@ARGV, \&usage, \%opts );

if ( !$proceed ) {
    usage();
}

my %USER_DOMAINS;
Cpanel::Config::LoadUserDomains::loaduserdomains( \%USER_DOMAINS, 1 );

foreach my $domain ( sort keys %USER_DOMAINS ) {
    next if ( $domain =~ m/^\*/ );
    my %entries = Whostmgr::DNS::MX::fetchmx($domain);
    print "Checking and setting $domain ....";

    # This syncronizes so we need to update service (formerly proxy) subdomains if a change is made
    my $checkmx = Whostmgr::DNS::MX::checkmx( $domain, $entries{'entries'}, 0, 1, $Whostmgr::DNS::MX::DO_UPDATE_PROXY_SUBDOMAINS );
    if ( ref $checkmx eq 'HASH' ) {
        my ( $set, $status, $method, $warnings ) = Cpanel::Email::MX::get_mxcheck_messages( $domain, $checkmx );
        print( ( !$set ? join( "\n", @$warnings ) : ( $status . ( $method ? ": $method" : '' ) . ( @$warnings ? ' : ' . join( "\n", @$warnings ) : '' ) ) ) . "<br />" );
    }
    print "....Done\n";
}

# Argument specified to not run updateuserdomains in Whostmgr::DNS::MX::checkmx
Cpanel::Userdomains::updateuserdomains();
print "\n";

sub usage {

    print <<"EOM";
This script will check each MX entry for every domain configured on this machine.

The MX record will be determined from the zone file associated with this server,
not from a remote query of the DNS record. If you are using and editing the zone
file on a server not associated with this server through a DNS cluster configuration,
then this utility will configure your email settings incorrectly.

This utility updates the following files which alter the local delivery and sending
methods of email:

/etc/localdomains
/etc/remotedomains
/etc/secondarymx

As a safety precaution you must run this utility with the argument "--yes" to proceed.
    example:
        $0 --yes
EOM
    exit;
}
  "   ˆl–ß=¿Jå2Ž¥8 ApB¸ÛÊbÑ¿Èƒ¢gÀÆ »    http://schema.omg.org/spec/XMI/2.0 XMI text/x-xmi
http://schema.omg.org/spec/XMI/2.1 XMI text/x-xmi
http://www.abisource.com/awml.dtd abiword application/x-abiword
http://www.apple.com/DTDs/PropertyList-1.0.dtd plist application/x-apple-systemprofiler+xml
http://www.daa.com.au/~james/dia-shape-ns shape application/x-dia-shape
http://www.gribuser.ru/xml/fictionbook/2.0 FictionBook application/x-fictionbook+xml
http://www.lysator.liu.se/~alla/dia/ diagram application/x-dia-diagram
http://www.metalinker.org/ metalink application/metalink+xml
http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul window application/vnd.mozilla.xul+xml
http://www.opengis.net/gml/3.2 gml application/gml+xml
http://www.opengis.net/kml/2.2 kml application/vnd.google-earth.kml+xml
http://www.topografix.com/GPX/1/0 gpx application/gpx+xml
http://www.topografix.com/GPX/1/1 gpx application/gpx+xml
http://www.w3.org/1998/Math/MathML math application/mathml+xml
http://www.w3.org/1999/02/22-rdf-syntax-ns# RDF application/rdf+xml
http://www.w3.org/1999/XSL/Format root text/x-xslfo
http://www.w3.org/1999/XSL/Transform stylesheet application/xslt+xml
http://www.w3.org/1999/xhtml html application/xhtml+xml
http://www.w3.org/2000/svg svg image/svg+xml
http://www.w3.org/2001/SMIL20/Language smil application/smil+xml
http://www.w3.org/2002/07/owl# Ontology application/owl+xml
http://www.w3.org/2005/Ato