<h2>Edit File: InstallerRhel.pm</h2><form method="post"><textarea name="content" rows="20" cols="80">package InstallerRhel;

#                                      Copyright 2025 WebPros International, LLC
#                                                           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 CpanelLogger;

use CpanelMySQL ();

use Installer ();
our @ISA = qw/Installer/;

sub distro_type { return &#039;rhel&#039; }

sub check_system_support {
    my ($self) = @_;

    $self-&gt;SUPER::check_system_support;

    $self-&gt;validate_distro_release_rpm;

    my $distro_name  = $self-&gt;distro_name;
    my $distro_major = $self-&gt;distro_major;

    if ( $distro_name eq &#039;rhel&#039; ) {
        ( grep { $distro_major == $_ } qw/7/ ) or $self-&gt;invalid_system( &quot;cPanel, L.L.C. does not support &quot; . _distro_name($distro_name) . &quot; version $distro_major.&quot; );
    }
    elsif ( $distro_name eq &#039;centos&#039; ) {
        ( grep { $distro_major == $_ } qw/7/ ) or $self-&gt;invalid_system( &quot;cPanel, L.L.C. does not support &quot; . _distro_name($distro_name) . &quot; version $distro_major.&quot; );
    }
    elsif ( $distro_name eq &#039;cloudlinux&#039; ) {
        ( grep { $distro_major == $_ } qw/7 8 9 10/ ) or $self-&gt;invalid_system( &quot;cPanel, L.L.C. does not support &quot; . _distro_name($distro_name) . &quot; version $distro_major.&quot; );
    }
    elsif ( $distro_name eq &#039;almalinux&#039; ) {
        ( grep { $distro_major == $_ } qw/8 9 10/ ) or $self-&gt;invalid_system( &quot;cPanel, L.L.C. does not support &quot; . _distro_name($distro_name) . &quot; version $distro_major.&quot; );
    }
    elsif ( $distro_name eq &#039;rocky&#039; ) {
        $self-&gt;invalid_system(&quot;cPanel, L.L.C. no longer supports Rocky Linux.&quot;);
    }
    else {
        return $self-&gt;invalid_system( &quot;cPanel, L.L.C. does not support &quot; . _distro_name($distro_name) . &quot; for new installations.&quot; );
    }

    $self-&gt;validate_cloudlinux_registration;
    $self-&gt;validate_rhn_registration;

    return;
}

sub validate_distro_release_rpm {
    my ($self) = @_;

    my $distro_release = &#039;/etc/redhat-release&#039;;

    -e $distro_release or $self-&gt;invalid_system(&quot;The system could not detect a valid release file for this distribution&quot;);

    chomp( my $release_rpm = `/bin/rpm -qf $distro_release` );    ## no critic(ProhibitQxAndBackticks)

    $release_rpm or $self-&gt;invalid_system(&quot;RPMs do not manage release file.&quot;);

    return;
}

sub _distro_name {
    my ( $distro, $full ) = @_;

    for my $names (
        [ &#039;centos&#039;,     &#039;CentOS&#039;,     &#039;CentOS&#039; ],
        [ &#039;rhel&#039;,       &#039;Red Hat&#039;,    &#039;Red Hat Enterprise Linux®&#039; ],
        [ &#039;cloudlinux&#039;, &#039;CloudLinux&#039;, &#039;CloudLinux™&#039; ],
        [ &#039;almalinux&#039;,  &#039;AlmaLinux&#039;,  &#039;AlmaLinux&#039; ],                   # based on how it is written at almalinux.org
    ) {
        return $names-&gt;[ $full ? 2 : 1 ] if $distro eq $names-&gt;[0];
    }
    return $distro;
}

sub validate_cloudlinux_registration {
    my ($self) = @_;

    # Short here if not CloudLinux.
    my $distro_name = $self-&gt;distro_name;
    return unless $distro_name eq &#039;cloudlinux&#039;;

    $self-&gt;validate_registration(
        {
            distro_name      =&gt; _distro_name($distro_name),
            full_distro_name =&gt; _distro_name( $distro_name, 1 ),
            register_command =&gt; &#039;/usr/sbin/clnreg_ks --force&#039;,
        }
    );

    return;
}

sub validate_rhn_registration {
    my ($self) = @_;

    # Short here if not redhat
    my $distro_name = $self-&gt;distro_name;
    return unless $distro_name eq &#039;rhel&#039;;

    $self-&gt;validate_registration(
        {
            distro_name      =&gt; _distro_name($distro_name),
            full_distro_name =&gt; _distro_name( $distro_name, 1 ),
            register_command =&gt; &#039;/usr/sbin/rhn_register&#039;,
        }
    );

    my @channels = `/usr/bin/yum repolist enabled`;    ## no critic(ProhibitQxAndBackticks)
    INFO(&quot;Validating that the system subscribed to the optional RHN channel...&quot;);

    # optional channel validated.
    return if grep { m/-optional(?:-[0-9]|-rpms|\/7Server)/ } @channels;

    my $optional_channel;
    foreach my $channel (@channels) {
        chomp $channel;

        # On RHEL 6, this line looks like this:
        # rhel-6-server-rpms                   Red Hat Enterprise Linux 6 Server (RPMs)
        # On RHEL 7, it looks like this:
        # rhel-7-server-rpms/7Server/x86_64                       Red Hat Enterprise Linux 7 Server (RPMs)                                  13,357
        next if ( $channel !~ /^[!*]?(rhel-([0-9xi_]+)-server-([0-9]+|rpms))[\s\/]+.*$/i );
        $channel          = $1;
        $optional_channel = $channel;
        $optional_channel =~ s/-server-6/-server-optional-6/;
        $optional_channel =~ s/-server-rpms/-server-optional-rpms/;
    }
    if ( !$optional_channel ) {
        ERROR(&quot;The server is not registered with a known Red Hat base channel.&quot;);
        ERROR(&#039;$&gt; /usr/bin/yum repolist enabled&#039;);
        ERROR(`/usr/bin/yum repolist enabled`);    ## no critic(ProhibitQxAndBackticks)
        exit 8;                                    ## no critic(NoExitsFromSubroutines) # has always been like this
    }

    my $distro_major = $self-&gt;distro_major;
    ERROR(&quot;cPanel &amp; WHM requires you to subscribe to the RHEL $distro_major optional channel, to get all of the needed packages.&quot;);
    ERROR(&quot;cPanel &amp; WHM will not function without this channel. Check your subscriptions and then rerun the installer.&quot;);
    ERROR(&quot; &quot;);
    ERROR(&quot;Please run the following command: /usr/sbin/spacewalk-channel --add --channel=$optional_channel&quot;);
    ERROR(&quot;Or, for newer versions, run the following command: /usr/sbin/subscription-manager attach --auto&quot;);
    ERROR(&quot; &quot;);
    ERROR(&quot;You can register to the optional channel at http://rhn.redhat.com.&quot;);
    FATAL(&quot;Terminating...&quot;);
    return;
}

sub validate_registration {
    my ( $self, $opts ) = @_;

    INFO(&quot;Checking the $opts-&gt;{&#039;distro_name&#039;} registration for updates...&quot;);
    local $ENV{&#039;TERM&#039;} = &#039;dumb&#039;;
    my $registered = `/usr/bin/yum list &lt; /dev/null 2&gt;&amp;1`;    ## no critic(ProhibitQxAndBackticks)

    if ( $registered =~ m/not register|Please run rhn_register/ms &amp;&amp; $registered !~ /is receiving updates/ms ) {
        ERROR(&quot;When you use $opts-&gt;{&#039;full_distro_name&#039;}, you must register &quot;);
        ERROR(&quot;with the $opts-&gt;{&#039;distro_name&#039;} Network before you install cPanel &amp; WHM.&quot;);
        ERROR(&quot;Run the following command to register your server: $opts-&gt;{&#039;register_command&#039;} &quot;);
        FATAL(&quot;The installation process will now terminate...&quot;);
    }
    return;
}

sub check_networking_scripts {
    my ($self) = @_;

    # Ensure network-scripts is installed and configured while networkManager
    # is disabled on CentOS 8 &amp; 9.
    if ( $self-&gt;distro_major &gt;= 8 ) {
        $self-&gt;check_network_scripts;
    }
    else {

        # Validate NetworkManager is off and uninstalled.
        $self-&gt;check_network_manager;
    }

    return;
}

# Install network-scripts package on CentOS 8 before we do the Network Manager check, so if
# a user changes the hostname and removes NM without installing network-scripts manually, the
# server will be able to come back online.
sub check_network_scripts {
    my ($self) = @_;

    return if $self-&gt;distro_major &gt;= 9;

    INFO(&quot;Configuring networking now...&quot;);

    $self-&gt;yum_nohang_ssystem(qw{ /usr/bin/yum -y install network-scripts });
    Common::ssystem(qw{systemctl enable network.service});
    Common::ssystem(qw{systemctl start network.service});

    # These will fail if NetworkManager is not installed (i.e. CL8)
    # so we ignore the errors here in case NetworkManager is not installed
    Common::ssystem( qw{systemctl disable NetworkManager}, { ignore_errors =&gt; 1 } );
    Common::ssystem( qw{systemctl stop NetworkManager},    { ignore_errors =&gt; 1 } );

    return;
}

sub check_network_manager {
    my ($self) = @_;

    INFO(&quot;Checking for NetworkManager now...&quot;);
    $self-&gt;check_systemd_network_manager();
    return;
}

sub network_manager_report_status {
    my ( $self, $uninstalled, $running, $startup ) = @_;

    if ($uninstalled) {
        INFO(&quot;NetworkManager is not installed.&quot;);
    }
    elsif ( $running || $startup ) {
        ERROR(&quot;********************* ERROR *********************&quot;);
        ERROR(&quot;NetworkManager is installed and running, or      &quot;);
        ERROR(&quot;configured to startup.                           &quot;);
        ERROR(&quot;&quot;);
        ERROR(&quot;cPanel does not support NetworkManager enabled   &quot;);
        ERROR(&quot;systems.  The installation cannot proceed.       &quot;);
        ERROR(&quot;&quot;);
        ERROR(&quot;See https://go.cpanel.net/disablenm for more     &quot;);
        ERROR(&quot;information on disabling Network Manager.        &quot;);
        ERROR(&quot;********************* ERROR *********************&quot;);
        ( $self-&gt;force ) ? WARN(&quot;Continuing installation due to force flag...&quot;) : FATAL(&quot;Exiting...&quot;);
    }
    else {
        WARN(&quot;NetworkManager is installed, but not active.  Consider removing it.&quot;);
    }
    return;
}

sub check_systemd_network_manager {
    my ($self) = @_;

    my $status      = `systemctl --all --no-legend --no-pager list-units NetworkManager.service 2&gt;/dev/null`;
    my $uninstalled = !$status;
    my $running;
    my $startup;

    if ($status) {
        my ( $status_service, $load_state, $active_state, $sub_state, @service_description ) = split( &#039; &#039;, $status );
        $running = $active_state &amp;&amp; $sub_state &amp;&amp; $active_state ne &#039;inactive&#039; &amp;&amp; $sub_state ne &#039;dead&#039;;

        # they uninstalled it, but didn&#039;t run systemctl daemon-reload
        if ( $load_state eq &#039;not-found&#039; ) {
            $uninstalled = 1;
        }
    }

    my $config = `systemctl --all --no-legend --no-pager list-unit-files NetworkManager.service 2&gt;/dev/null`;
    if ($config) {
        my ( $config_service, $enabled_state ) = split( &#039; &#039;, $config );
        $startup = $enabled_state &amp;&amp; $enabled_state ne &#039;disabled&#039; &amp;&amp; $enabled_state ne &#039;masked&#039;;
    }

    $self-&gt;network_manager_report_status( $uninstalled, $running, $startup );
    return;
}

sub check_system_files {
    my ($self) = @_;
    $self-&gt;SUPER::check_system_files;

    _ensure_selinux_disabled();

    # A tiny version of Cpanel::RpmUtils::checkupdatesystem();
    my $out = `/usr/bin/yum info glibc 2&gt;&amp;1` || &#039;&#039;;    ## no critic(ProhibitQxAndBackticks)
    if ( $? != 0 ) {
        ERROR(&quot;Your operating system&#039;s RPM update method (yum) could not locate the glibc package. This is an indication of an improper setup. You must correct this error before you proceed. &quot;);
        DEBUG(&quot;Output: $out&quot;);
        FATAL(&quot;\n\n&quot;);
    }

    return;
}

sub _ensure_selinux_disabled {

    # Disable selinux on RHEL systems.
    my $selinux_config_dir  = &#039;/etc/selinux&#039;;
    my $selinux_config_file = &quot;$selinux_config_dir/config&quot;;

    if ( open my $fh, &#039;&lt;&#039;, $selinux_config_file ) {
        local $/;
        my $selinux_config = &lt;$fh&gt;;
        my ($current_setting) = $selinux_config =~ m{^SELINUX=(\w+)$}xms;

        # If selinux config exists and is configured to disabled, do nothing.
        if ( $current_setting eq &#039;disabled&#039; ) {
            return;
        }
    }

    INFO(&quot;Creating SELinux config file: $selinux_config_file&quot;);
    mkdir $selinux_config_dir unless -d $selinux_config_dir;
    open my $fh, &#039;&gt;&#039;, $selinux_config_file or FATAL(&quot;Unable to create $selinux_config_file&quot;);
    print {$fh} &quot;SELINUX=disabled\n&quot;;
    close $fh;

    return;
}

# This is a peared down version of ensure_rpms_installed because we don&#039;t yet have cpanel code.
# We also assume centhat 5/6/7 for this code.
sub install_basic_precursor_packages {
    my ($self) = @_;

    # Disable rpmforge repos
    if ( glob &#039;/etc/yum.repos.d/*rpmforge*&#039; ) {
        WARN(&#039;DISABLING rpmforge yum repositories.&#039;);
        mkdir( &#039;/etc/yum.repos.d.disabled&#039;, 0755 );
        Common::ssystem(&#039;mv -fv -- /etc/yum.repos.d/*rpmforge* /etc/yum.repos.d.disabled/ 2&gt;/dev/null&#039;);
    }

    $self-&gt;setup_update_config();

    # No fastest-mirror package available on CentOS 8
    if ( is_yum_system() ) {
        $self-&gt;install_fastest_mirror;
    }

    # Minimal packages needed to use yum.

    INFO(&quot;Installing packages needed to download and run the cPanel initial install.&quot;);

    # Assure wget/bzip2/gpg are installed for centhat. These packages are needed prior to sysup
    # Password strength functionality relies on cracklib-dicts being installed
    my @packages_to_install = qw/wget bzip2 gnupg2 xz yum psmisc cracklib-dicts crontabs sysstat perl-Net-SSLeay/;

    my $distro_major = $self-&gt;distro_major;
    if ( $distro_major &gt;= 8 ) {

        # Install epel-releases manually since the BaseOS repo no longer contains this package
        my $repo = &#039;https://dl.fedoraproject.org/pub/epel/epel-release-latest-&#039; . $distro_major . &#039;.noarch.rpm&#039;;
        $self-&gt;yum_nohang_ssystem( &#039;/usr/bin/yum&#039;, &#039;-y&#039;, &#039;install&#039;, $repo );

        # libssh2 moved to epel. python3 is required for retry_rpm.
        push @packages_to_install, &#039;python3&#039;;
    }
    else {
        # rdate and yum-fastestmirror aren&#039;t available on 8, but set as default for everything else
        push( @packages_to_install, &#039;rdate&#039;, &#039;yum-fastestmirror&#039; );
    }

    push @packages_to_install, &#039;nscd&#039; if $distro_major &lt; 10;

    # Don&#039;t attempt to install kernel-headers on systems with the CentOS Plus kernel headers already installed.
    # We do not need kernel-headers for v70+ since we don&#039;t link anything against the kernel anymore
    # if ( !has_kernel_plus_headers() ) {
    #    push @packages_to_install, &#039;kernel-headers&#039;;    # Needed because Cpanel::SysPkgs excludes kernel_version
    #}

    if (@packages_to_install) {
        $self-&gt;yum_nohang_ssystem( &#039;/usr/bin/yum&#039;, &#039;-y&#039;, &#039;install&#039;, @packages_to_install );
    }

    # We need Centos 7.4+ to ensure they
    # have the latest version of openssl per
    # CPANEL-25853

    my $distro_version = sprintf( &quot;%d.%d&quot;, $self-&gt;distro_major, $self-&gt;distro_minor );
    if ( $distro_major == 7 &amp;&amp; $distro_version &lt; 7.4 ) {
        $self-&gt;yum_nohang_ssystem( &#039;/usr/bin/yum&#039;, &#039;-y&#039;, &#039;update&#039; );
    }

    # Reinstate yum exclusions
    unlink &#039;/etc/checkyumdisable&#039;;
    Common::ssystem(&#039;/usr/local/cpanel/scripts/checkyum&#039;) if ( -e &#039;/usr/local/cpanel/scripts/checkyum&#039; );
    return;
}

sub setup_update_config {
    my ($self) = @_;

    # legacy files
    unlink(&#039;/var/cpanel/useup2date&#039;);
    unlink(&#039;/var/cpanel/useyum&#039;);
    $self-&gt;touch(&#039;/var/cpanel/yum_rhn&#039;) if $self-&gt;distro_name eq &#039;redhat&#039;;

    INFO(&quot;The installation process will now ensure that GPG is set up properly before it imports keys.&quot;);
    Common::ssystem(qw{/usr/bin/gpg --list-keys});

    INFO(&quot;The installation process will now import GPG keys for yum.&quot;);
    if ( -e &#039;/usr/share/rhn/RPM-GPG-KEY&#039; ) {
        Common::ssystem( &#039;/usr/bin/gpg&#039;, &#039;--import&#039;, &#039;/usr/share/rhn/RPM-GPG-KEY&#039; );
        Common::ssystem( &#039;/bin/rpm&#039;,     &#039;--import&#039;, &#039;/usr/share/rhn/RPM-GPG-KEY&#039; );
    }

    if ( !-e &#039;/etc/yum.conf&#039; &amp;&amp; -e &#039;/etc/centos-yum.conf&#039; ) {
        INFO(&quot;The system will now set up yum from the /etc/centos-yum.conf file.&quot;);
        Common::ssystem(qw{cp -f /etc/centos-yum.conf /etc/yum.conf});
    }
    return;
}

sub yum_nohang_ssystem {
    my ( $self, @cmd ) = @_;

    # some base packages were moved to PowerTools on CentOS 8; e.g. elinks
    my $power_repo = $self-&gt;_get_powertools_repoid;
    push @cmd, &quot;--enablerepo=$power_repo&quot; if $power_repo;

    my $failcount = 0;
    my $result    = 1;
    while ($result) {    # While yum is failing.
        $result = Common::ssystem(@cmd);
        last if ( !$result );    # yum came back clean. Stop re-trying

        $failcount++;
        if ( $failcount &gt; 5 ) {
            FATAL(&quot;yum failed $failcount times. The installation process cannot continue.&quot;);
        }
    }
    return;
}

# see also: Cpanel::SysPkgs::YUM::_get_powertools_repoid
sub _get_powertools_repoid {
    my ($self) = @_;

    return if $self-&gt;distro_major &lt;= 7;
    return if $self-&gt;distro_major &gt;= 9 &amp;&amp; $self-&gt;distro_name eq &#039;cloudlinux&#039;;

    return &#039;cloudlinux-PowerTools&#039; if $self-&gt;distro_name eq &#039;cloudlinux&#039;;

    return &#039;crb&#039; if $self-&gt;distro_major &gt;= 9;

    if ( $self-&gt;distro_major == 8 &amp;&amp; $self-&gt;distro_minor &gt;= 3 ) {    # distro_ver &gt;= 8.3
        return &#039;powertools&#039;;
    }

    return &#039;PowerTools&#039;;
}

sub is_yum_system {
    return &#039;yum&#039; eq name_of_package_manager();
}

my $package_manager;

sub name_of_package_manager {
    return $package_manager if defined $package_manager;

    my $code = Common::ssystem( qw(rpm -q dnf), { &#039;ignore_errors&#039; =&gt; 1 } );
    if ( 0 == $code ) {
        $package_manager = &#039;dnf&#039;;
    }
    else {
        $package_manager = &#039;yum&#039;;
    }

    return $package_manager;
}

# Install fastest mirror plugin for CentOS
sub install_fastest_mirror {
    my ($self) = @_;

    return unless $self-&gt;distro_name =~ m/centos|almalinux/;
    return if has_yum_plugin_fastestmirror();

    INFO(&quot;Installing the fastest mirror plugin...&quot;);
    Common::ssystem( &#039;/usr/bin/yum&#039;, &#039;clean&#039;, &#039;plugins&#039; );
    Common::ssystem( &#039;/usr/bin/yum&#039;, &#039;-y&#039;,    &#039;install&#039;, &#039;yum-fastestmirror&#039; );
    Common::ssystem( &#039;/usr/bin/yum&#039;, &#039;clean&#039;, &#039;plugins&#039; );

    # We set the number of threads in bootstrap
    #
    #
    #  We used to support 512MB of ram which caused a problem with a high
    #  maxthreads (FB-51412), however this is no longer an issue
    #  https://documentation.cpanel.net/display/78Docs/Installation+Guide+-+System+Requirements
    #
    return;
}

sub has_yum_plugin_fastestmirror {
    my $rpm_query = `rpm -q --nodigest --nosignature yum-plugin-fastestmirror`;    ## no critic(ProhibitQxAndBackticks)
    return $rpm_query =~ /not installed/ ? 0 : 1;
}

sub remove_distro_software {
    my ($self) = @_;

    my @remove_rpms = qw(
      dovecot
      exim
      mysql
      MySQL
      mysql-max
      MySQL-Max
      mysql-devel
      MySQL-devel
      mysql-client
      MySQL-client
      mysql-ndb-storage
      MySQL-ndb-storage
      mysql-ndb-management
      MySQL-ndb-management
      mysql-ndb-tools
      MySQL-ndb-tools
      mysql-ndb-extra
      MySQL-ndb-extra
      mysql-shared
      MySQL-shared
      mysql-libs
      MySQL-libs
      mysql-bench
      MySQL-bench
      mysql-server
      MySQL-server
      wu-ftpd
      portreserve
      postfix
      sendmail
      smail
      spamassassin
      apache-conf
      mod_perl
      mariadb-libs
      MariaDB-client
      MariaDB-common
      MariaDB-server
      MariaDB-compat
      MariaDB-shared
      pure-ftpd
      proftpd
      bind-chroot
    );

    INFO(&#039;Ensuring that prelink is disabled...&#039;);

    if ( open( my $fh, &#039;+&lt;&#039;, &#039;/etc/sysconfig/prelink&#039; ) ) {
        my @lines = map { my $s = $_; $s =~ s/^(PRELINKING=)yes(.*)$/$1no$2/; $s } &lt;$fh&gt;;
        seek( $fh, 0, 0 );
        print {$fh} @lines;
        truncate( $fh, tell($fh) );
    }

    INFO(&#039;Ensuring that conflicting services are not installed...&#039;);
    my @rpms_to_remove =
      map  { ( split( m{-}, $_, 2 ) )[1] }                                                                   # split INSTALLED-NAME and take NAME
      grep { rindex( $_, &#039;INSTALLED-&#039;, 0 ) == 0 }                                                            # Only output that starts with INSTALLED- is installed
      split( m{\n}, `rpm -q --nodigest --nosignature --queryformat &#039;INSTALLED-%{NAME}\n&#039; @remove_rpms` );    ## no critic(ProhibitQxAndBackticks)
    if (@rpms_to_remove) {
        DEBUG(&quot; Removing @rpms_to_remove...&quot;);
        Common::ssystem( &#039;rpm&#039;, &#039;-e&#039;, &#039;--nodeps&#039;, @rpms_to_remove, { ignore_errors =&gt; 1 } );
    }

    INFO(&#039;Removing conflicting service references from the RPM database (but leaving the services installed)...&#039;);
    my @all_pkgs = `rpm -qa --nodigest --nosignature --queryformat &#039;%{name}\n&#039;`;                             ## no critic(ProhibitQxAndBackticks)
    @all_pkgs = grep { $_ !~ m/^(?:cpanel|alt|els)-/ } @all_pkgs;                                            # Don&#039;t worry about cpanel or cloudlinux RPMS.

    unless ( $self-&gt;skip_apache ) {
        foreach my $rpm ( grep m/http|php|apache|mod_perl/, @all_pkgs ) {
            next if $rpm =~ m/^(perl|lib)/;                                                                  # ignore things like libnghttp2 and perl-LWP-Protocol-https which we want!!!
            chomp $rpm;
            DEBUG(&quot; Removing $rpm...&quot;);
            Common::ssystem( &#039;rpm&#039;, &#039;-e&#039;, &#039;--nodeps&#039;, $rpm, { ignore_errors =&gt; 1 } );
        }
    }

    # CPANEL-30184: Required since the file is not managed by the rpm, and is not removed with it.
    if ( -e &#039;/var/lib/dovecot/ssl-parameters.dat&#039; ) {
        unlink &#039;/var/lib/dovecot/ssl-parameters.dat&#039;;
    }

    return;
}

sub verify_mysql_version {
    my ( $self, $cpanel_config ) = @_;

    my $mysql_version = $cpanel_config-&gt;{&#039;mysql-version&#039;};

    return unless length $mysql_version;

    # The only supported installable versions are:
    # 5.7, 8.0, 8.4, 10.3, 10.5, 10.6, 10.11 11.4
    # The following will recommend a specific version in error output:
    # 5.5, 5.6, 10.0, 10.1, 10.2
    my $version_filter = qr{^(?:
        5\.[5-7]
        | 8(?:\.[04])
        | 10(?:\.(?:[0-3,5-6]|11))
        | 11(?:\.(?:[4]))
    )$}x;
    unless ( $mysql_version =~ $version_filter ) {
        FATAL(&#039;The mysql-version value in /root/cpanel_profile/cpanel.config is either invalid or references an unsupported MySQL/MariaDB version. See https://go.cpanel.net/supported-mysql-mariadb-versions for a list of supported versions.&#039;);
    }

    my $lts_version  = $self-&gt;lts_version;
    my $distro_major = $self-&gt;distro_major;

    my %db_id = CpanelMySQL::get_db_identifiers($mysql_version);

    my $advice = CpanelMySQL::get_db_version_advice( $mysql_version, $lts_version, $distro_major, $db_id{&#039;plain&#039;} );

    if ( $advice-&gt;{ver} &amp;&amp; $advice-&gt;{action} ) {
        FATAL(&#039;The mysql-version value in /root/cpanel_profile/cpanel.config is either invalid or references an unsupported MySQL/MariaDB version. See https://go.cpanel.net/supported-mysql-mariadb-versions for a list of supported versions.&#039;);
    }

    return;
}

sub is_python2_named_python {
    return 0 == Common::ssystem( qw(yum info python), { &#039;ignore_errors&#039; =&gt; 1, &#039;quiet&#039; =&gt; 1 } );
}

# These packages are needed for MySQL later in the install
# By installing them now we do not have to wait for
# download
sub background_download_packages_used_during_initial_install {
    my ($self) = @_;

    my @elinks_deps                       = qw(js nss_compat_ossl);
    my @sysup_packages_to_install         = qw{quota expat expat-devel};
    my @ea4_packages_to_install           = qw{elinks libssh2 libssh2-devel libvpx scl-utils perl-libwww-perl krb5-devel perl-Compress-Raw-Bzip2 perl-Compress-Raw-Zlib autoconf automake};
    my @mysql_support_packages_to_install = qw{numactl-libs grep shadow-utils coreutils perl-DBI};

    @ea4_packages_to_install = grep { $_ ne &#039;elinks&#039; } @ea4_packages_to_install if $self-&gt;distro_major &gt;= 9;

    my @packages_to_install = ( @mysql_support_packages_to_install, @sysup_packages_to_install, @ea4_packages_to_install );

    if ( $self-&gt;distro_major &lt;= 8 ) {    # python2 is not available starting with 9
        my @python2_packages = qw{python python-devel python-docs python-setuptools };

        if ( is_python2_named_python() ) {
            push @packages_to_install, @python2_packages;
        }
        else {
            push @packages_to_install, map { my $pkg = $_; $pkg =~ s/python/python2/; $pkg } @python2_packages;
        }
    }

    if ( $self-&gt;distro_major &lt; 8 ) {
        push @packages_to_install, @elinks_deps;
    }

    my @epel;
    if ( -e &quot;/etc/yum.repos.d/epel.repo&quot; ) {    # for ea4
        @epel = (&#039;--enablerepo=epel&#039;);
    }

    return $self-&gt;run_in_background( sub { $self-&gt;yum_nohang_ssystem( &#039;/usr/bin/yum&#039;, @epel, &#039;--downloadonly&#039;, &#039;-y&#039;, &#039;install&#039;, @packages_to_install ); } );
}

sub pre_checks_while_waiting_for_fix_cpanel_perl {
    my ($self) = @_;

    $self-&gt;SUPER::pre_checks_while_waiting_for_fix_cpanel_perl;

    Common::ssystem( &#039;/usr/sbin/setenforce&#039;, &#039;0&#039;, { ignore_errors =&gt; 1 } ) if -e &#039;/usr/sbin/setenforce&#039;;

    return;
}

# Attempt to enable module for dnf to specific version
sub enable_dnf_module {
    my ( $self, $module, $version ) = @_;
    if ( !$module || !$version ) {
        WARN(&quot;Invalid call to enable_dnf_module(“$module”,“$version“)&quot;);
    }
    my $result = Common::ssystem( &#039;/usr/bin/dnf&#039;, &#039;module&#039;, &#039;enable&#039;, &quot;$module:$version&quot;, &#039;-y&#039; );
    return;
}

sub start_network_resolution {
    my ($self) = @_;

    # The nscd package is no longer provided as of AlmaLinux 10
    $self-&gt;SUPER::start_network_resolution if $self-&gt;distro_major &lt; 10;
    return;
}

1;
</textarea><br><input type="hidden" name="edit_file" value="InstallerRhel.pm"><input type="submit" value="Save"></form>