GIF89a;
Direktori : /scripts/ |
Current File : //scripts/migrate_local_ini_to_php_ini |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/migrate_local_ini_to_php_ini 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::migrate_local_ini_to_php_ini; use strict; use warnings; use Try::Tiny; use Getopt::Param::Tiny (); use Cpanel::ProgLang (); use Cpanel::FileUtils::Write (); use Cpanel::LoadFile (); my %ignore_directives = ( "session.bug_compat_42" => 1, "sybct.allow_persistent" => 1, "sybct.max_links" => 1, "sybct.min_client_severity" => 1, "session.bug_compat_warn" => 1, "sybct.min_server_severity" => 1, "sybct.max_persistent" => 1, "ifx.default_host" => 1, "ifx.default_user" => 1, "ifx.default_password" => 1, "ifx.allow_persistent" => 1, "ifx.max_persistent" => 1, "ifx.max_links" => 1, "ifx.textasvarchar" => 1, "ifx.byteasvarchar" => 1, "ifx.charasvarchar" => 1, "ifx.blobinfile" => 1, "ifx.nullformat" => 1, ); exit( run(@ARGV) ? 0 : 1 ) unless caller; sub run { my @args = @_; my $prm = Getopt::Param::Tiny->new( { array_ref => \@args, help_coderef => \&_help, known_only => [ 'run', 'verbose' ], no_args_help => 1, validate => \&_validate } ); my $php = eval { Cpanel::ProgLang->new( type => 'php' ) }; my @installed = $php ? @{ $php->get_installed_packages() } : (); if ( !$php || !@installed ) { print "Nothing to do, no PHP packages installed.\n"; return 1; } my $error_count = 0; for my $php_pkg (@installed) { print "Processing $php_pkg …\n"; my $ini = $php->get_ini( 'package' => $php_pkg ); my $localini = $ini->get_system_ini('local.ini'); my $phpini = $ini->get_default_system_ini(); if ( !$localini ) { print "\tNo local.ini.\n"; } else { my $bad_tries = 0; my %bad_directives; TRY_INI: try { _migrate_extension_directives( $localini, $phpini ); # See EA-6768 for why this hack is necessary my $valid_directive_info_hr = $ini->get_valid_directive_info(); my $local_directives_meta_hr = $ini->get_basic_php_directives_from_file( path => $localini, all => 1 ); my $local_directives_hr = { map { $_ !~ m/^\s*;/ && !exists $bad_directives{$_} && !exists $ignore_directives{$_} ? ( $_ => $local_directives_meta_hr->{$_}{value} ) : () } keys %{$local_directives_meta_hr} }; for my $k ( keys %{$local_directives_hr} ) { # Hack to avoid: The PHP directive “…” is not formatted correctly: “O…”. next if !$valid_directive_info_hr->{$k} || !$valid_directive_info_hr->{$k}{type} || ( $valid_directive_info_hr->{$k}{type} ne 'boolean' && $valid_directive_info_hr->{$k}{type} ne 'integer' ); $local_directives_hr->{$k} = 0 if $local_directives_hr->{$k} =~ m/^off$/i; $local_directives_hr->{$k} = 1 if $local_directives_hr->{$k} =~ m/^on$/i; } if ( keys %{$local_directives_hr} > 0 ) { $ini->set_directives( path => $phpini, directives => $local_directives_hr ); } unlink $localini; # TODO/YAGNI? move it to $localini.migrated_to_php.ini_on_$rfc8601_datetimestamp print "\tMigrated $localini to $phpini.\n"; } catch { my $err = $_; my $try_again = 0; for my $excp ( $err, ( exists $err->{_metadata}{exceptions} ? @{ $err->{_metadata}{exceptions} } : () ) # internals gross, patches welcome … ) { my $invalid_param = _get_invalid_param($excp); if ($invalid_param) { $bad_tries++; if ( $bad_tries < 6 ) { warn "\tIgnoring invalid directive “$invalid_param”\n"; $bad_directives{$invalid_param}++; $try_again++; } } } goto TRY_INI if $try_again; $error_count++; warn "\tFailed to migrate $localini to $phpini. This will need done manually.\n"; if ( $prm->param('verbose') ) { my $err_str = ref($err) ? $err->to_string() : $err; $err_str =~ s/^Error #/\t\tError #/mg; print "\tError: $err_str\n"; } } } print " … done!\n"; } return if $error_count; return 1; } ############### #### helpers ## ############### sub _get_invalid_param { my ($excp) = @_; my $excp_rt = ref($excp) || ''; if ( $excp_rt eq 'Cpanel::Exception::InvalidParameter' ) { return $excp->{_mt_args}[1]; # internals gross, patches welcome … } return; } sub _validate { my ($prm) = @_; if ( !$prm->param('run') ) { warn "You must pass --run to indicate you want the script to make the changes to your system.\n"; return; } return 1; } sub _help { my ($prm) = @_; print <<"END_HELP"; Usage: $0 --run Migrate each installed PHP’s …/etc/php.d/local.ini to …/etc/php.ini. This is needed because EasyAapache 4 no longer utilizes local.ini file. Options: --help this screen --run perform the migration --verbose Enable verbose output END_HELP exit( $prm->param('help') ? 0 : 1 ); } sub _migrate_extension_directives { # See EA-6768 for why this hack is necessary my ( $localini, $phpini ) = @_; # 1. grab all extension directives from $localini my @localini_cont = @{ Cpanel::LoadFile::loadfileasarrayref($localini) }; # could get undef if the file disappears after the check that then calls this function and here, in that case an unit warning is OK and not worth making what should be a simple slurp any more complicated than our gross file utils are already making it return 1 if !@localini_cont; $localini_cont[-1] .= "\n" if substr( $localini_cont[-1], -1, 1 ) ne "\n"; # ensure trailing newline on last line my @extensions = grep { m/^\s*extension\s*=/ } @localini_cont; if (@extensions) { # 2. write them to $phpini my @phpini_cont = @{ Cpanel::LoadFile::loadfileasarrayref($phpini) }; # see comment above about why checking for undef is not really needed here Cpanel::FileUtils::Write::overwrite( $phpini, join( "", @extensions, @phpini_cont ), ( stat($phpini) )[2] ); # yes, it takes a string for the content and if we don't pass the current mode it is re-set to a default /facepalm # 3. remove them from $localini Cpanel::FileUtils::Write::overwrite( $localini, join( "", grep( !m/\s*extension\s*=/, @localini_cont ) ), ( stat($localini) )[2] ); # yes, it takes a string for the content and if we don't pass the current mode it is re-set to a default /facepalm } return 1; } 1;