.

　晋太元中，武陵人捕鱼为业。缘溪行，忘路之远近。忽逢桃花林，夹岸数百步，中无杂树，芳草鲜美，落英缤纷。渔人甚异之，复前行，欲穷其林。　　林尽水源，便得一山，山有小口，仿佛若有光。便舍船，从口入。初极狭，才通人。复行数十步，豁然开朗。土地平旷，屋舍俨然，有良田、美池、桑竹之属。阡陌交通，鸡犬相闻。其中往来种作，男女衣着，悉如外人。黄发垂髫，并怡然自乐。　　见渔人，乃大惊，问所从来。具答之。便要还家，设酒杀鸡作食。村中闻有此人，咸来问讯。自云先世避秦时乱，率妻子邑人来此绝境，不复出焉，遂与外人间隔。问今是何世，乃不知有汉，无论魏晋。此人一一为具言所闻，皆叹惋。余人各复延至其家，皆出酒食。停数日，辞去。此中人语云：“不足为外人道也。”(间隔一作：隔绝) 　　既出，得其船，便扶向路，处处志之。及郡下，诣太守，说如此。太守即遣人随其往，寻向所志，遂迷，不复得路。　　南阳刘子骥，高尚士也，闻之，欣然规往。未果，寻病终。后遂无问津者。 . Prv8 Shell

Server : Apache
System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64
User : rainic ( 1014)
PHP Version : 7.4.33
Disable Function : exec,passthru,shell_exec,system
Directory : /proc/thread-self/root/scripts/

Upload File :

Current File : //proc/thread-self/root/scripts/rpmup

#!/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__->script(@ARGV) // 0 ) unless caller;

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

    my $forced = $param->get_param('force') || $ENV{'FORCEDCPUPDATE'};

    my $os_updates_enabled = are_os_updates_enabled( $param->get_param('verbose') // 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->new();
    $syspkgs->check_and_set_exclude_rules;    # make sure some packages are blocked

    if ($forced) {
        say 'Running package manager clean up before update due to force option ...';
        $syspkgs->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->update();

    if ( !$syspkgs_update_success ) {
        require Cpanel::Notify;
        Cpanel::Notify::notification_class(
            'class'            => 'update_packages::UpdateFailed',
            'application'      => 'update_packages::UpdateFailed',
            'constructor_args' => []
        );
    }

    Cpanel::ServerTasks::schedule_task( ['SystemTasks'], 5, "recache_system_reboot_data" );

    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->{'RPMUP'} ne 'never';

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

    if ( $updates_setting eq 'never' ) {
        if ( $is_ea4 && $verbose ) {
            say locale->maketext(
                'Because both the “[_1]” and “[_2]” options are set to “[_3]”, the system will not perform any package updates.',
                'RPMUP',
                'UPDATES',
                'never'
            );
            say locale->maketext(
                '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].',
                'RPMUP',
                'UPDATES'
            );
        }

    }
    elsif ( $updates_setting eq 'manual' && !$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->maketext(
                "Because the “[_1]” option is set to “[_2]”, the system will not update any packages.",
                'RPMUP',
                'never'
            );
        }
        if ( $is_ea4 && $verbose ) {
            say locale->maketext(
                "Because the “[_1]” option is set to “[_2]” and this is an automatic update, the system will not update EasyApache 4.",
                'UPDATES',
                'manual'
            );
        }
    }
    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->maketext(
                    "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.",
                    'RPMUP',
                    'never'
                );
            }
        }
        elsif ($verbose) {
            say locale->maketext(
                "Because the “[_1]” option is set to “[_2]”, the system will not update any packages.",
                'RPMUP',
                'never'
            );
        }
    }

    return 0;
}

sub update_ea4_only () {
    return Cpanel::SysPkgs->new->update( 'pkglist' => \@EA4_REQUIRED_RPMS );
}

1;

haha - 2025