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

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

use Text::Wrap;    # Perl core lib module

use Cpanel::SafeRun::Errors ();
use Cpanel::DIp::MainIP     ();
use Cpanel::NAT             ();
use Cpanel::Binaries        ();
use Cpanel::Sys::Hostname   ();
use Cpanel::Usage           ();
use Cpanel::IP::Loopback    ();
use Socket                  ();

$Text::Wrap::columns = 68;

sub usage {
    die &lt;&lt;&#039;EOM&#039;;
ipcheck - Report on various error conditions relating to hostname / IP resolution

ipcheck [options]

    Options:
      --help    Brief help message
      --test    Test email formatting by generating an email with random simulated IP configuration errors
                    (NOTE: The subject and body of the email will both clearly indicate that it is only a simulation.)
    --verbose Even when no problems have been found, tells you so
EOM
}

my $test_mode = 0;
my $verbose   = 0;

Cpanel::Usage::wrap_options(
    {

        # Notice we do not need preference &quot;require_left&quot;, because this script
        # takes option args *only*, so there is no need to force them to be to
        # the left of non-option args. If any non-option args are found, we&#039;ll
        # detect them and usage() out immediately below.

        strict =&gt; 1,    # allow ONLY the opts specified in hash below
        remove =&gt; 1,    # remove opts from cmd line after processing them

        #     require_left =&gt; 1,
    },
    \@ARGV,
    \&amp;usage,
    {
        &#039;test&#039;    =&gt; \$test_mode,
        &#039;verbose&#039; =&gt; \$verbose,
    }
);

# ALL args to this script must be --xxx option args. If any
# other args are left after we&#039;ve eliminated those, we have a
# problem.

@ARGV &amp;&amp; usage();

my $rightip  = Cpanel::DIp::MainIP::getmainserverip();
my $hostname = Cpanel::Sys::Hostname::gethostname();
my @problems;
my $wrongip;

my $iaddr;
if ( my $iaddr = gethostbyname($hostname) ) {
    my $ip = Socket::inet_ntoa($iaddr);
    if ( $ip ne $rightip &amp;&amp; !Cpanel::IP::Loopback::is_loopback($ip) ) {
        $wrongip = $ip;
        push( @problems, &#039;resolved_to_wrong_ip_msg&#039; );
    }
}
else {
    #not found by perl builtin
    push( @problems, &#039;host_not_found_msg&#039; );
}

my $host_bin = Cpanel::Binaries::path(&#039;host&#039;);
if ( !-x $host_bin ) {
    push( @problems, &#039;unable_resolve_no_host_binary_msg&#039; );
}
else {
    my $dnsres = Cpanel::SafeRun::Errors::saferunallerrors( $host_bin, $hostname );
    if ( !$dnsres || $dnsres =~ /Host not found/i ) {

        #not found by linux binary
        push( @problems, &#039;host_not_found_msg&#039; );
    }
    else {
        my ($dns_resip) = $dnsres =~ /(\d+\.\d+\.\d+\.\d+)/;
        if ( !$dns_resip ) {

            #not found by linux binary
            push( @problems, &#039;host_not_found_msg&#039; );
        }
        elsif ( Cpanel::NAT::get_local_ip($dns_resip) ne $rightip &amp;&amp; !Cpanel::IP::Loopback::is_loopback($dns_resip) ) {

            # The check for localhost is for symmetry with first method, above
            # (gethostbyname), where we likewise perform these two tests.

            push( @problems, &#039;resolved_to_wrong_ip_msg&#039; );
            $wrongip = $dns_resip;
        }
    }
}

if (@problems) {
    require Cpanel::iContact::Class::Check::IP;

    print &quot;[ipcheck] sent email!  Errors found\n&quot;;
    require Cpanel::Notify;
    Cpanel::Notify::notification_class(
        &#039;class&#039;            =&gt; &#039;Check::IP&#039;,
        &#039;application&#039;      =&gt; &#039;Check::IP&#039;,
        &#039;constructor_args&#039; =&gt; [
            &#039;origin&#039;   =&gt; $hostname,
            &#039;problems&#039; =&gt; \@problems,
            &#039;right_ip&#039; =&gt; $rightip,
            &#039;wrong_ip&#039; =&gt; $wrongip
        ]
    );
}
else {
    if ($verbose) {
        print &quot;$0: OK: No IP-related problems have been found.\n&quot;;
    }
}
</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>