^^&&^^

Edit File: fix_pear_registry

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/fix_pear_registry                 Copyright 2015 cPanel, Inc.
#                                                           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::FindBin         ();
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 (@args) = @_;

my %report;

my $rpm_bin = Cpanel::FindBin::findbin('rpm') || die qq{Couldn't find the 'rpm' binary.\n};
    my $pear_bin = Cpanel::Binaries::THIRD_PARTY_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 = map { /^\Q$php_rpm_prefix\E-([^0-9].*?)-[0-9]+\./ ? join( '_', split( /-/, $1 ) ) : () } `$rpm_bin -qa`;
    $report{installed} = @installed_pear_packages;

for my $pkg ( sort @installed_pear_packages ) {
        my $xmlfile = Cpanel::Binaries::THIRD_PARTY_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] [asis,RPMs]. 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_PHP_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';
}