

<div style='background:#ffffff; color:#000; font-family:monospace; padding:0; max-width:900px; margin:20px auto; border:3px solid #000;'><div style='background:#000080; color:#fff; padding:6px 12px; font-weight:bold;'>✏ 编辑: ea_current_to_profile</div><div style='padding:20px;'><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#fff; color:#000; border:2px solid #000; font-family:monospace; padding:10px;'>#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - ea_current_to_profile                  Copyright(c) 2022 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 warnings;

package ea_cpanel_tools::ea_current_to_profile;

use Cpanel::PackMan;
use Cpanel::Config::Httpd;
use Cpanel::JSON;
use Cpanel::Time::Local;
use Path::Tiny 'path';

our $ea4_profiles_dir = '/etc/cpanel/ea4/profiles';
our $_max_attempts    = 20;

our $manifest_file     = &quot;/etc/cpanel/ea4/profiles/pkg-manifest.json&quot;;
our $ea4_metainfo_file = '/etc/cpanel/ea4/ea4-metainfo.json';
our $pkg_renames_file  = '/etc/cpanel/ea4/target-os-pkg-renames.json';

our %safe_to_ignore = (
    'ea-brotli'            =&gt; 1,
    'ea-brotli-devel'      =&gt; 1,
    'ea-libargon2'         =&gt; 1,
    'ea-libargon2-devel'   =&gt; 1,
    'ea-libcurl'           =&gt; 1,
    'ea-libcurl-devel'     =&gt; 1,
    'ea-libnghttp2'        =&gt; 1,
    'ea-libxml2'           =&gt; 1,
    'ea-libzip'            =&gt; 1,
    'ea-nghttp2'           =&gt; 1,
    'ea-oniguruma'         =&gt; 1,
    'ea-oniguruma-devel'   =&gt; 1,
    'ea-openssl11'         =&gt; 1,
    'ea-openssl11-devel'   =&gt; 1,
    'ea-openssl11-libs'    =&gt; 1,
    'ea-openssl'           =&gt; 1,
    'ea-openssl-devel'     =&gt; 1,
    'ea-openssl-libs'      =&gt; 1,
    'ea-php73-libc-client' =&gt; 1,
    'ea-php74-libc-client' =&gt; 1,
    'ea-php80-libc-client' =&gt; 1,
    'ea-php81-libc-client' =&gt; 1
);

our %os_type = (
    &quot;CentOS_7&quot;      =&gt; &quot;rpm&quot;,
    &quot;CentOS_8&quot;      =&gt; &quot;rpm&quot;,
    &quot;CentOS_9&quot;      =&gt; &quot;rpm&quot;,
    &quot;xUbuntu_20.04&quot; =&gt; &quot;deb&quot;,
    &quot;xUbuntu_22.04&quot; =&gt; &quot;deb&quot;,
);

exit( script(@ARGV) ) unless caller();

sub script {
    my (@args) = @_;

    my $custom_json;
    my $new_name;
    my $target_os;
    my $manifest_os;
    my $modified = 0;
    my $source_pkmgr = -x '/usr/bin/apt' ? 'deb' : 'rpm';

    # We need to get OS aliases
    my %ea4_metainfo        = %{ Cpanel::JSON::LoadFile($ea4_metainfo_file) };
    my %obs_project_aliases = %{ $ea4_metainfo{obs_project_aliases} };
    die &quot;obs_project_aliases is empty&quot; if ( !%obs_project_aliases );

    foreach my $arg (@args) {
        if ( $arg eq &quot;--help&quot; ) {
            my $os_string = join( ' ', keys %obs_project_aliases );

            print &lt;&lt;USAGE;
    $0 [--help] [--output=profile_file] [--target-os=os]
        Take the current ea rpms and create a custom profile.
        Profile is written to /etc/cpanel/ea4/profiles/custom

        --output=profile_file, where the profile is written to.
           Note: forcefully overwrites the profile_file if it already
           exists.

        --target-os=os [$os_string]

USAGE

            exit 0;
        }
        elsif ( $arg =~ m/^--output=(.*)$/ ) {
            $custom_json = $1;
            my @path = split( /\//, $custom_json );
            $new_name = $path[-1];
        }
        elsif ( $arg =~ m/^--target-os=(.*)$/ ) {
            $target_os = $1;
            die &quot;Not a valid OS ($target_os)&quot; if !exists $obs_project_aliases{$target_os};
            $manifest_os = $obs_project_aliases{$target_os};
        }
        else {
            die &quot;Unknown argument “$arg”\n&quot;;
        }
    }

    my @addl_prefixes = eval {
        map { $_-&gt;basename } path(&quot;/etc/cpanel/ea4/additional-pkg-prefixes/&quot;)-&gt;children;
    };

    die &quot;May only be run if you are using EasyApache 4&quot; if ( !Cpanel::Config::Httpd::is_ea4() );
    my @pkgs_have = Cpanel::PackMan-&gt;instance-&gt;list( state =&gt; &quot;installed&quot;, 'prefix' =&gt; 'ea-' );
    @pkgs_have = grep !/ea-profiles-cpanel/, @pkgs_have;

    my $prefix_piped = &quot;ea&quot;;
    for my $prefix (@addl_prefixes) {
        push @pkgs_have, Cpanel::PackMan-&gt;instance-&gt;list( state =&gt; &quot;installed&quot;, 'prefix' =&gt; &quot;$prefix-&quot; );

        for my $ig ( keys %safe_to_ignore ) {
            $ig =~ s/^ea-/$prefix-/;
            $safe_to_ignore{$ig} = 1;
        }

        $prefix_piped .= &quot;|$prefix&quot;;
    }

    my $prefix_qr  = qr/(?:$prefix_piped)/;
    my $custom_dir = $ea4_profiles_dir . &quot;/custom&quot;;

    mkdir $custom_dir               if !-d $custom_dir;
    die &quot;Cannot create $custom_dir&quot; if !-d $custom_dir;

    my @tags;

    # this heuristic is fragile but at least attempts to create tags
    foreach my $pkg (@pkgs_have) {
        if ( $pkg =~ m/^($prefix_qr)-apache(\d)(\d)$/ )              { push( @tags, &quot;Apache $2.$3 ($1)&quot; ); }
        if ( $pkg =~ m/^($prefix_qr)-php(\d)(\d)$/ )                 { push( @tags, &quot;PHP $2.$3 ($1)&quot; ); }
        if ( $pkg =~ m/^($prefix_qr)-php(\d)(\d)-opcache$/ )         { push( @tags, &quot;PHP $2.$3 OpCache ($1)&quot; ); }
        if ( $pkg =~ m/^($prefix_qr)-apache(\d)(\d).mod.(mpm_.*)$/ ) { push( @tags, &quot;MPM $2.$3 $4 ($1)&quot; ); }
        if ( $pkg =~ m/^($prefix_qr)-apache(\d)(\d).mod.(ruid.*)$/ ) { push( @tags, &quot;$4 $2.$3 ($1)&quot; ); }
    }

    my %extra_meta;
    if ($target_os) {
        $extra_meta{os_upgrade} = {
            source_os          =&gt; scalar( _get_src_os() ),
            target_os          =&gt; $target_os,
            target_obs_project =&gt; $manifest_os,
            dropped_pkgs       =&gt; {},                        # do it here so it is included even when there are no packages dropped
            renamed_pkgs       =&gt; {},                        # do it here so it is included even when there are no packages renamed
            ignored_deps       =&gt; {},                        # do it here so it is included even when there are no ignored deps
        };

        my %manifest     = %{ Cpanel::JSON::LoadFile($manifest_file) };
        my %experimental = map { _normalize_pkg($_) =&gt; 1 } @{ $manifest{'EA4-experimental'}-&gt;{$manifest_os} };

        # merge the repos to make lookup easy
        my %lookup;
        foreach my $repo ( keys %manifest ) {
            foreach my $pkg ( @{ $manifest{$repo}-&gt;{$manifest_os} } ) {
                my $normalized_pkg = _normalize_pkg($pkg);
                $lookup{$normalized_pkg} = 1;
            }
        }

        my ( $renames_hr, $ignore_deps_hr ) = _load_pkg_renames($manifest_os);
        my %renames = %{$renames_hr};

        # Pre-compute which renames will fire and collect their ignore_deps patterns
        my %pkgs_have_lookup = map { _normalize_pkg($_) =&gt; 1 } @pkgs_have;
        my @all_ignore_patterns;
        for my $old ( keys %renames ) {
            my $new_name = $renames{$old};
            if ( exists $pkgs_have_lookup{$old} &amp;&amp; exists $lookup{$new_name} &amp;&amp; !exists $experimental{$new_name} &amp;&amp; exists $ignore_deps_hr-&gt;{$old} ) {
                push @all_ignore_patterns, @{ $ignore_deps_hr-&gt;{$old} };
            }
        }

        my @output_pkgs;
        my @removed_pkgs;
        foreach my $pkg (@pkgs_have) {
            my $npkg = _normalize_pkg($pkg);

            if ( exists $renames{$npkg} ) {
                my $new_name = $renames{$npkg};
                if ( exists $lookup{$new_name} &amp;&amp; !exists $experimental{$new_name} ) {
                    print &quot;    $npkg has been renamed to $new_name on $target_os\n&quot;;
                    push( @output_pkgs, $new_name );
                    $extra_meta{os_upgrade}{renamed_pkgs}{$npkg} = $new_name;
                    $modified = 1;
                    next;
                }
            }

            # Skip packages that match ignore_deps patterns from active renames
            if ( @all_ignore_patterns &amp;&amp; _pkg_matches_ignore( $npkg, \@all_ignore_patterns ) ) {
                $extra_meta{os_upgrade}{ignored_deps}{$npkg} = 1;
                $modified = 1;
                next;
            }

            if ( !exists $lookup{$npkg} || exists $experimental{$npkg} ) {
                push( @removed_pkgs, $npkg );
                $modified = 1;
            }
            else {
                push( @output_pkgs, $pkg );
            }
        }

        if (@removed_pkgs) {
            my $flag = 0;

            foreach my $pkg (@removed_pkgs) {
                if ( !exists $safe_to_ignore{$pkg} &amp;&amp; substr( $pkg, -10, 10 ) ne '-debuginfo' ) {
                    print &quot;The following packages are not available on $target_os and have been removed from the profile\n&quot; if !$flag;
                    print &quot;    $pkg&quot;;
                    print &quot; (EA4-experimental packages are not preserved during OS upgrades)&quot; if ( exists $experimental{$pkg} );
                    print &quot;\n&quot;;
                    $flag = 1;
                    $extra_meta{os_upgrade}{dropped_pkgs}{$pkg} = exists $experimental{$pkg} ? &quot;exp&quot; : &quot;reg&quot;;
                }
            }

            print &quot;\n&quot; if $flag;
        }

        @pkgs_have = @output_pkgs if ( @removed_pkgs || %{ $extra_meta{os_upgrade}{renamed_pkgs} } || %{ $extra_meta{os_upgrade}{ignored_deps} } );
    }

    if ( !defined $custom_json ) {
        my $ts = Cpanel::Time::Local::localtime2timestamp();
        $new_name = &quot;Current EA4 State at &quot; . $ts;
        my $fs_ts = substr( $ts, 0, 19 );
        $fs_ts =~ s/ /_/g;
        $custom_json = $custom_dir . &quot;/&quot; . &quot;current_state_at_&quot; . $fs_ts . &quot;.json&quot;;
        if ( $modified &amp;&amp; $target_os ) {
            $new_name .= &quot; modified for $target_os&quot; if ( $modified &amp;&amp; $target_os );
            my $xtarget_os = &quot;_modified_for_$target_os&quot;;
            $xtarget_os =~ s/ /_/g;
            $custom_json = $custom_dir . &quot;/&quot; . &quot;current_state_at_&quot; . $fs_ts . $xtarget_os . &quot;.json&quot;;
        }
    }

    my $custom_profile = {
        name    =&gt; $new_name,
        desc    =&gt; &quot;Auto Generated profile&quot;,
        version =&gt; &quot;1.0&quot;,
        pkgs    =&gt; \@pkgs_have,
        tags    =&gt; \@tags,
        %extra_meta,
    };

    path($custom_json)-&gt;spew( Cpanel::JSON::pretty_dump($custom_profile) );

    die &quot;Could not create a new custom json file&quot; if ( !-f $custom_json );

    print $custom_json;

    return 0;    # return is exit status
}

###############
#### helpers ##
###############

sub _get_src_os {
    my $src_os = eval { require Cpanel::OS; Cpanel::OS::display_name(); };

    $src_os //= `grep PRETTY_NAME /etc/os-release | sed 's/^PRETTY_NAME=//' | tr -d '&quot;' | tr -d &quot;'&quot;`;
    chomp $src_os;

    $src_os ||= 'Unknown. Server does not have Cpanel::OS or /etc/os-release (or /etc/os-release does not have PRETTY_NAME=…)';

    return $src_os;
}

sub _normalize_pkg {
    my ($pkg) = @_;

    $pkg =~ s/_/-/g;

    return $pkg;
}

sub _load_pkg_renames {
    my ($manifest_os) = @_;

    return ( {}, {} ) if !-f $pkg_renames_file;

    my $all_renames = eval { Cpanel::JSON::LoadFile($pkg_renames_file) } || {};

    my $os_renames = $all_renames-&gt;{$manifest_os} || {};

    my %normalized;
    my %ignore_deps;
    for my $old ( keys %{$os_renames} ) {
        my $entry  = $os_renames-&gt;{$old};
        my $n_old  = _normalize_pkg($old);

        if ( ref $entry eq 'HASH' ) {
            $normalized{$n_old} = _normalize_pkg( $entry-&gt;{to} );
            if ( ref $entry-&gt;{ignore_deps} eq 'ARRAY' &amp;&amp; @{ $entry-&gt;{ignore_deps} } ) {
                $ignore_deps{$n_old} = $entry-&gt;{ignore_deps};
            }
        }
        else {
            $normalized{$n_old} = _normalize_pkg($entry);
        }
    }

    return ( \%normalized, \%ignore_deps );
}

sub _pkg_matches_ignore {
    my ( $pkg, $patterns_ar ) = @_;

    for my $pat ( @{$patterns_ar} ) {
        if ( $pat =~ m{^/(.+)/$} ) {
            my $re = $1;
            return 1 if $pkg =~ m/$re/;
        }
        else {
            return 1 if _normalize_pkg($pat) eq $pkg;
        }
    }

    return 0;
}

1;
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/local/bin/ea_current_to_profile'><input type='submit' value='[确定] 保存' style='background:#c0c0c0; color:#000; border:2px solid #000; padding:8px 24px; font-family:monospace; font-weight:bold; cursor:pointer;'> <a href='?path=%2Fusr%2Flocal%2Fbin' style='color:#000; text-decoration:none; padding:8px 24px; border:2px solid #000; background:#c0c0c0; font-weight:bold;'>[X] 取消</a></form></div></div><div style='color:#000080; font-family:monospace; text-align:center; padding:20px; border-top:2px solid #000; margin-top:20px;'>[X] MAKING LOT MONEY (MLM)</div>