22

✏️ Editing: ipcheck

#!/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 <<'EOM';
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 "require_left", 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'll
        # detect them and usage() out immediately below.

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

#     require_left => 1,
    },
    \@ARGV,
    \&usage,
    {
        'test'    => \$test_mode,
        'verbose' => \$verbose,
    }
);

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

@ARGV && 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 && !Cpanel::IP::Loopback::is_loopback($ip) ) {
        $wrongip = $ip;
        push( @problems, 'resolved_to_wrong_ip_msg' );
    }
}
else {
    #not found by perl builtin
    push( @problems, 'host_not_found_msg' );
}

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

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

#not found by linux binary
            push( @problems, 'host_not_found_msg' );
        }
        elsif ( Cpanel::NAT::get_local_ip($dns_resip) ne $rightip && !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, 'resolved_to_wrong_ip_msg' );
            $wrongip = $dns_resip;
        }
    }
}

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

print "[ipcheck] sent email!  Errors found\n";
    require Cpanel::Notify;
    Cpanel::Notify::notification_class(
        'class'            => 'Check::IP',
        'application'      => 'Check::IP',
        'constructor_args' => [
            'origin'   => $hostname,
            'problems' => \@problems,
            'right_ip' => $rightip,
            'wrong_ip' => $wrongip
        ]
    );
}
else {
    if ($verbose) {
        print "$0: OK: No IP-related problems have been found.\n";
    }
}

MR SKB