0
  !   ˆl–ß=¿JÅ4Å2 [¸!\jbÑ¿Æ83ÀÈ  S    # Generated with Aspell Dicts "proc" script version 0.60.4
add en-wo_accents.multi
     �ÊÀÈ      File not found.
     �ÊÀÈ      File not found.
  "   ˆl–Ðz¾”Jj"TÒ�zàœ¸”Å£Çƒ}÷ÁÉ &ð    #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/php_fpm_config                  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

package scripts::php_fpm_config;

use strict;
use warnings;

use Getopt::Long ();

use Cpanel::Config::Httpd::EA4 ();
use Cpanel::JSON               ();
use Cpanel::Logger             ();
use Cpanel::PHPFPM::Constants  ();
use Cpanel::PHPFPM::ConvertAll ();
use Cpanel::PHPFPM::Inventory  ();
use Cpanel::PHPFPM::Utils      ();
use Cpanel::Unix::PID::Tiny    ();

use Try::Tiny;

sub usage {
    my ($msg) = @_;

    print "$msg\n" if defined $msg;

    print <<"EOF";
$0 --rebuild [--domain=domain]

Rebuild all the php fpm config files, also removes domains w/o a config file.
Optionally rebuilds only the files for a particular domain.

This will call build_apache_conf, and restart Apache.

$0 --check

   Displays an inventory of FPM files and health status.

$0 --check --json

   Output above check in JSON format.

$0 --convert_all [--noprompt]

   Converts all accounts to PHP-FPM
   With optional --noprompt arg, the script will not prompt before starting conversion

$0 --help

Show this message.

EOF

    return 0;
}

our ( $rebuild, $help, $domain, $check, $json, $convert_all, $logfile_path, $noprompt, $schedule_rebuild, $schedule_ensure );

sub _check {
    my $ref = Cpanel::PHPFPM::Inventory::get_inventory();

    my @users = keys %{$ref};
    foreach my $user (@users) {
        next if ( $user eq "orphaned_files" );

        my $user_ref = $ref->{$user};

        my $domains_ref = $user_ref->{'domains'};

        my @domains = keys %{$domains_ref};

        foreach my $domain (@domains) {
            my $dref       = $domains_ref->{$domain};
            my $phpversion = $dref->{'phpversion'};

            next if !defined $phpversion;    # cruft file

            print "User $user Domain $domain PHP Version $phpversion\n";
            if ( $dref->{is_overquota} ) {
                print "    WARNING Account is OVER QUOTA and may not work correctly\n\n";
            }

            foreach my $conf ( @{ $dref->{'conf_files'} } ) {
                print "    Conf File $conf->{'file'}\n";
                print "    YAML File $conf->{'yaml_path'}\n";
                print "        Socket :" . $conf->{'socket_status'} . ": :" . $conf->{'socket'} . ":\n";

                my $status = "Status is Good";
                $status = "Status is in Error" if $conf->{'status'} == 0;

                print "        $status $conf->{'msg'}\n";

                if ( $conf->{'msg'} =~ m/CONF IS OLDER/ ) {
                    print "    Conf MTIME $conf->{'conf_mtime'}\n";
                    print "    YAML MTIME $conf->{'yaml_mtime'}\n";
                }
            }
        }
    }

    foreach my $user (@users) {
        next if ( $user ne "orphaned_files" );
        last if ( @{ $ref->{$user} } == 0 );

        print "\nOrphaned Files (PHP FPM Config files without the cPanel YAML file)\n";
        foreach my $file ( sort @{ $ref->{$user} } ) {
            print "$file\n";
        }
    }

    my @cruft_files = ( @{ $ref->{'cruft'}->{'yaml_files'} }, @{ $ref->{'cruft'}->{'conf_files'} } );
    my $header      = 0;
    foreach my $cruft_file (@cruft_files) {
        if ( !$header ) {
            $header = 1;
            print "\nCruft files (files that should be removed)\n";
        }

        print "$cruft_file\n";
    }

    return;
}

sub _convert_all {
    my ( $logfile_path, $noprompt ) = @_;

    my $logger;

    if ( defined $logfile_path ) {
        $logger = Cpanel::Logger->new( { 'alternate_logfile' => $logfil