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

# cpanel - scripts/update-packages                           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

#

package scripts::UpdatePackages;

use cPstrict;

use Cpanel::Imports;

use Cpanel::Config::Httpd::EA4 ();
use Getopt::Param              ();
use Cpanel::Update::Config     ();
use Cpanel::SysPkgs            ();
use Cpanel::ServerTasks        ();

my @EA4_REQUIRED_RPMS = qw( ea-apache24 ea-apache24-config );

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

sub script {
    my $param = Getopt::Param-&gt;new;

    my $forced = $param-&gt;get_param(&#039;force&#039;) || $ENV{&#039;FORCEDCPUPDATE&#039;};

    my $os_updates_enabled = are_os_updates_enabled( $param-&gt;get_param(&#039;verbose&#039;) // 0 );

    if ( !$os_updates_enabled ) {

        # return 1 will exit 1 if ensure_ea4_is_updated fails
        return 1 if !update_ea4_only();

        return 0;
    }

    my $syspkgs = Cpanel::SysPkgs-&gt;new();
    $syspkgs-&gt;check_and_set_exclude_rules;    # make sure some packages are blocked

    if ($forced) {
        say &#039;Running package manager clean up before update due to force option ...&#039;;
        $syspkgs-&gt;clean();
    }

    # The $syspkgs object will have already notified about the error.
    # We do not die on failure in case _check_and_set_system_exclude_rules needs to
    # change the kernel exclude back below
    my $syspkgs_update_success = $syspkgs-&gt;update();

    if ( !$syspkgs_update_success ) {
        require Cpanel::Notify;
        Cpanel::Notify::notification_class(
            &#039;class&#039;            =&gt; &#039;update_packages::UpdateFailed&#039;,
            &#039;application&#039;      =&gt; &#039;update_packages::UpdateFailed&#039;,
            &#039;constructor_args&#039; =&gt; []
        );
    }

    Cpanel::ServerTasks::schedule_task( [&#039;SystemTasks&#039;], 5, &quot;recache_system_reboot_data&quot; );

    return $syspkgs_update_success ? 0 : 1;

}

sub are_os_updates_enabled ($verbose) {
    my $update_conf_ref = Cpanel::Update::Config::load();

    return 1 if $update_conf_ref-&gt;{&#039;RPMUP&#039;} ne &#039;never&#039;;

    my $updates_setting = $update_conf_ref-&gt;{&#039;UPDATES&#039;} || &#039;&#039;;
    my $is_manual       = $ENV{&#039;CPANEL_IS_CRON&#039;} ? 0 : 1;         # see upcp for how this is set
    my $is_ea4          = Cpanel::Config::Httpd::EA4::is_ea4();

    if ( $updates_setting eq &#039;never&#039; ) {
        if ( $is_ea4 &amp;&amp; $verbose ) {
            say locale-&gt;maketext(
                &#039;Because both the “[_1]” and “[_2]” options are set to “[_3]”, the system will not perform any package updates.&#039;,
                &#039;RPMUP&#039;,
                &#039;UPDATES&#039;,
                &#039;never&#039;
            );
            say locale-&gt;maketext(
                &#039;Change “[_1]” to a different value to enable all package updates, or change “[_2]” to a different value to enable updates to just [asis,EasyApache 4].&#039;,
                &#039;RPMUP&#039;,
                &#039;UPDATES&#039;
            );
        }

    }
    elsif ( $updates_setting eq &#039;manual&#039; &amp;&amp; !$is_manual ) {

        # Although cPanel updates are enabled, one is not happening
        # at this time because the ENV variable CPANEL_IS_CRON is set
        # to 1 which indicates upcp was not called manually so only
        # maintenance is being run and there is no concern about
        # EA4 not being in sync with cPanel.  When we are doing
        # a manually update we will fall into the block below and
        # and update EA4 if its installed.
        if ($verbose) {
            say locale-&gt;maketext(
                &quot;Because the “[_1]” option is set to “[_2]”, the system will not update any packages.&quot;,
                &#039;RPMUP&#039;,
                &#039;never&#039;
            );
        }
        if ( $is_ea4 &amp;&amp; $verbose ) {
            say locale-&gt;maketext(
                &quot;Because the “[_1]” option is set to “[_2]” and this is an automatic update, the system will not update EasyApache 4.&quot;,
                &#039;UPDATES&#039;,
                &#039;manual&#039;
            );
        }
    }
    else {
        # In the event OS updates are disabled, we need to manually
        # request an EA4 update to prevent the system from breaking
        # because EA4 is out of date and cPanel has a newer
        # configuration.
        if ($is_ea4) {
            if ($verbose) {
                say locale-&gt;maketext(
                    &quot;Because [asis,cPanel] automatic updates are enabled and the “[_1]” option is set to “[_2]”, the package update will only apply to EasyApache 4. This ensures that [asis,cPanel] and EasyApache 4 remain compatible.&quot;,
                    &#039;RPMUP&#039;,
                    &#039;never&#039;
                );
            }
        }
        elsif ($verbose) {
            say locale-&gt;maketext(
                &quot;Because the “[_1]” option is set to “[_2]”, the system will not update any packages.&quot;,
                &#039;RPMUP&#039;,
                &#039;never&#039;
            );
        }
    }

    return 0;
}

sub update_ea4_only () {
    return Cpanel::SysPkgs-&gt;new-&gt;update( &#039;pkglist&#039; =&gt; \@EA4_REQUIRED_RPMS );
}

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>