Rebuild fatpacked elevate-cpanel for CLOS-4301

Embeds 5e9e336 (CLOS-4301 selector + FPM service state restore, with
INI-section-aware defaults.cfg parsing and the cloudlinux-selector
--json flag required by the CLI's current contract) on top of the
CLOS-4340 + CLOS-3763 fixes already built in 998895e.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

Author: prilr

elevate-cpanel

@@ -2184,6 +2184,8 @@ EOS
     }
 
     sub pre_distro_upgrade ($self) {
+        $self->run_once('_snapshot_user_php_selectors');
+        $self->run_once('_snapshot_php_fpm_services');
         $self->run_once('_cleanup_rpm_db');
         $self->_remove_ea4_repo();
         return;
@@ -2195,6 +2197,8 @@ EOS
         $self->run_once('_restore_ea_addons');
         $self->run_once('_restore_non_ea_prefix_packages');
         $self->run_once('_restore_ea_prefix_packages');
+        $self->run_once('_restore_user_php_selectors');
+        $self->run_once('_restore_php_fpm_services');
 
         $self->run_once('_restore_config_files');
 
@@ -2274,6 +2278,115 @@ EOS
         return;
     }
 
+    sub _snapshot_user_php_selectors ($self) {
+
+        my @selector_files = sort glob('/home/*/.cl.selector/defaults.cfg');
+        return unless scalar @selector_files;
+
+        my %user_versions;
+        for my $path (@selector_files) {
+            next unless $path =~ m{^/home/([^/]+)/};
+            my $user = $1;
+            open my $fh, '<', $path or next;
+            my $in_versions = 0;
+            while ( my $line = <$fh> ) {
+                if ( $line =~ /^\s*\[(\S+)\]\s*$/ ) {
+                    $in_versions = ( $1 eq 'versions' ) ? 1 : 0;
+                    next;
+                }
+                next unless $in_versions;
+                if ( $line =~ /^\s*php\s*=\s*(\S+)\s*$/ ) {
+                    my $version = $1;
+                    $user_versions{$user} = $version if $version ne 'native';
+                    last;
+                }
+            }
+            close $fh;
+        }
+
+        return unless scalar keys %user_versions;
+
+        INFO( sprintf( 'Snapshot %d user(s) with non-native PHP Selector versions.', scalar keys %user_versions ) );
+        Elevate::StageFile::update_stage_file( { 'user_php_selectors' => \%user_versions } );
+        return;
+    }
+
+    sub _restore_user_php_selectors ($self) {
+
+        my $user_versions = Elevate::StageFile::read_stage_file('user_php_selectors');
+        return unless ref $user_versions eq 'HASH' && scalar keys %$user_versions;
+
+        my $cli = '/usr/sbin/cloudlinux-selector';
+        unless ( -x $cli ) {
+            WARN("Cannot restore PHP Selector versions: $cli is not executable on the target OS.");
+            return;
+        }
+
+        INFO( sprintf( 'Restoring PHP Selector versions for %d user(s).', scalar keys %$user_versions ) );
+
+        my @failed;
+        for my $user ( sort keys %$user_versions ) {
+            my $version = $user_versions->{$user};
+            my $rc      = system $cli, 'set', '--json', '--interpreter=php',
+              "--current-version=$version", "--user=$user";
+            push @failed, "$user (php $version, rc=" . ( $rc >> 8 ) . ")" if $rc != 0;
+        }
+
+        if ( scalar @failed ) {
+            my $list = join "\n", map { "  - $_" } @failed;
+            WARN("Failed to restore PHP Selector versions for some users:\n$list");
+            Elevate::Notify::add_final_notification(
+                "elevate-cpanel could not restore PHP Selector versions for these users (alt-php's %postun reset them to 'native' during stage 2):\n$list\n\nPlease run 'cloudlinux-selector set --current-version=<v> --user=<u>' for each.",
+                1
+            );
+        }
+
+        return;
+    }
+
+    sub _snapshot_php_fpm_services ($self) {
+
+        my @lines = `systemctl list-unit-files --no-legend --no-pager 'alt-php*-fpm.service' 'ea-php*-php-fpm.service' 2>/dev/null`;
+
+        my @enabled;
+        for my $line (@lines) {
+            chomp $line;
+            next unless $line =~ /^(\S+)\s+enabled\b/;
+            push @enabled, $1;
+        }
+
+        return unless scalar @enabled;
+
+        INFO( sprintf( 'Snapshot %d PHP-FPM service(s) currently enabled.', scalar @enabled ) );
+        Elevate::StageFile::update_stage_file( { 'php_fpm_services_enabled' => [ sort @enabled ] } );
+        return;
+    }
+
+    sub _restore_php_fpm_services ($self) {
+
+        my $services = Elevate::StageFile::read_stage_file('php_fpm_services_enabled');
+        return unless ref $services eq 'ARRAY' && scalar @$services;
+
+        INFO( sprintf( 'Re-enabling %d PHP-FPM service(s).', scalar @$services ) );
+
+        my @failed;
+        for my $unit (@$services) {
+            my $rc = system 'systemctl', 'enable', $unit;
+            push @failed, "$unit (rc=" . ( $rc >> 8 ) . ")" if $rc != 0;
+        }
+
+        if ( scalar @failed ) {
+            my $list = join "\n", map { "  - $_" } @failed;
+            WARN("Failed to re-enable PHP-FPM services:\n$list");
+            Elevate::Notify::add_final_notification(
+                "elevate-cpanel could not re-enable these PHP-FPM services (disabled by RPM %preun during stage 2):\n$list\n\nPlease enable them manually with 'systemctl enable <unit>'.",
+                1
+            );
+        }
+
+        return;
+    }
+
     sub _remove_ea4_repo ($self) {
         unlink '/etc/yum.repos.d/EA4.repo';
         return;