Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:41:29
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/process_pending_cpanel_php_pear_registration
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/process_pending_cpanel_php_pear_registration # 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 # Exclusively for speeding up installs/upcp by processing these in the background. # Execution context is within scripts/maintenance package scripts::process_pending_cpanel_php_pear_registration; use strict; use warnings; use Cpanel::Binaries (); our %files_map = ( 'deregistrations' => '/var/cpanel/.pending_pear_deregistrations', 'registrations' => '/var/cpanel/.pending_pear_registrations', ); # For mocking in tests our $ULC = '/usr/local/cpanel'; exit __PACKAGE__->run() unless caller; sub run { local $| = 1; if ( scalar(@ARGV) ) { # Only for satisfying cplint my $wants_help = grep { $_ eq '--help' } @ARGV; my $print_handle = $wants_help ? *STDOUT : *STDERR; print $print_handle "Usage:\n\n This script doesn't accept arguments.\n\n When ran it processes any pending PHP PEAR installs for cpanel-php packages.\n"; return $wants_help ? 0 : 1; } my $php_ver = Cpanel::Binaries::get_php_version( 'flat' => 1 ); my $pear_dir = "$ULC/3rdparty/php/$php_ver/lib/php"; my $horde_dir = "$ULC/base/horde"; my $pear_bin = "$ULC/3rdparty/php/$php_ver/bin/pear"; die "Couldn't find the PHP pear executable! Please run /usr/local/cpanel/scripts/check_cpanel_pkgs --fix" if !-x $pear_bin; my %args_map = ( 'deregistrations' => [qw{uninstall --nodeps --ignore-errors --register-only}], 'registrations' => [qw{install --nodeps --soft --force --register-only}], ); # Do deregistrations first foreach my $action (qw{deregistrations registrations}) { next if !-f $files_map{$action} || !-s _; if ( $action eq 'registrations' ) { _system( $pear_bin, qw{channel-delete pear.horde.org} ); _system( $pear_bin, 'channel-add', "$ULC/3rdparty/php/$php_ver/lib/php/.cpanel-channels/pear.horde.org-channel.xml" ); foreach my $scope ( 'user', 'system' ) { _system( $pear_bin, qw{config-set horde_dir}, $horde_dir, $scope ); _system( $pear_bin, qw{config-set -cpear.horde.org horde_dir}, $horde_dir, $scope ); _system( $pear_bin, qw{config-set -cpear.horde.org php_dir}, $pear_dir, $scope ); _system( $pear_bin, qw{config-set -cpear.horde.org data_dir}, "$pear_dir/data", $scope ); } } open( my $fh, '<', $files_map{$action} ) || die "Can't open $files_map{$action} for reading: $!"; my @to_process = <$fh>; close($fh); @to_process = map { chomp( my $thing = $_ ); $thing } @to_process; print "Now processing " . scalar(@to_process) . " pending pear $action...\n"; _system( $pear_bin, @{ $args_map{$action} }, @to_process ) && print STDERR "Some $action failed! This should never happen if the PEAR packages are packaged correctly!\n"; unlink( $files_map{$action} ); } return 0; } # For mocking in tests sub _system { if ( $ENV{'CPANEL_DEBUG_LEVEL'} ) { print "[DEBUG][process_pending_cpanel_php_pear_registration][EXEC] " . join( " ", @_ ) . "\n"; } return system(@_); } 1;
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18