GIF89a;
Direktori : /scripts/ |
Current File : //scripts/fix_pear_registry |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/fix_pear_registry 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 Cpanel::Imports; use Cpanel::Binaries (); use Cpanel::Pkgr (); use Cpanel::SafeRun::Object (); # This script is intended to clean up after the Horde and other PEAR RPMs that had # a faulty %postun. This has since been fixed, but the script is needed as a one-time # operation to repair the PEAR registry, since the %postun of the old RPM is executed # after the new RPM's %post has already run. This could be handled with a %triggerpostun, # but that would add a new element to the long-term behavior of the RPMs, which is # undesirable for this one-time cleanup measure. exit run(@ARGV) unless caller; sub run { my %report; my $pear_bin = Cpanel::Binaries::CPANEL_PHP_BIN() . '/pear'; # Don't use Cpanel::FindBin for this. It may grab the system pear, which we don't want. my $php_rpm_prefix = 'cpanel-php' . Cpanel::Binaries::get_php_version( flat => 1 ) . '*'; my @installed_pear_packages = keys( %{ Cpanel::Pkgr::installed_packages($php_rpm_prefix) } ); $report{installed} = @installed_pear_packages; for my $pkg ( sort @installed_pear_packages ) { my $xmlfile = Cpanel::Binaries::CPANEL_PHP . '/lib/pear/' . $pkg . '.xml'; if ( -f $xmlfile ) { my $package_is_registered = is_registered($pkg); if ($package_is_registered) { logger->info( locale->maketext( 'The “[_1]” package is already in the [asis,PEAR] registry.', $pkg ) ); $report{already_registered}++; next; } $report{not_already_registered}++; my @pear_args = ( qw(install --nodeps --force --register-only), $xmlfile ); my $run = Cpanel::SafeRun::Object->new( program => $pear_bin, args => \@pear_args, ); if ( $run->CHILD_ERROR || !is_registered($pkg) ) { logger->warn( locale->maketext( 'The system failed to add the [asis,PEAR] registry entry for “[_1]”: [_2]', $pkg, $run->stdout ) ); # pear errors are on stdout, and pear may exit zero without actually doing anything logger->warn("Command: $pear_bin @pear_args"); $report{failed}++; } else { print $run->stdout; logger->info( locale->maketext( 'The system added the [asis,PEAR] registry entry for “[_1]”.', $pkg ) ); $report{succeeded}++; } } else { logger->info( locale->maketext( 'The system could not find the [asis,XML] file for “[_1]”.', $pkg ) ); $report{no_xml}++; } } logger->info( locale->maketext( 'There are [numf,_1] installed [asis,PEAR] packages. Of those packages, [numf,_2] already existed in the [asis,PEAR] registry, [numf,_3] did not, and [numf,_4] did not contain an [asis,XML] file. Of the [quant,_3,package,packages] not listed in the registry, the system successfully added [numf,_5], and failed to add [numf,_6].', map { $_ || 0 } @report{qw(installed already_registered not_already_registered no_xml succeeded failed )} ) ); # We can't count on every single PEAR package to always register successfully, so only exit nonzero if something # very bad like the pear binary being missing occurred. return 0; } sub is_registered { my ($pkg) = @_; my $pear_bin = Cpanel::Binaries::THIRD_PARTY_BIN . '/pear'; return scalar grep { my $channel = $_; my @pear_args = ( qw(list -c horde), "$channel/$pkg" ); my $run = Cpanel::SafeRun::Object->new( program => $pear_bin, args => \@pear_args, ); !$run->CHILD_ERROR; } 'horde', 'pear'; }