#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/set_php_memory_limits 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::set_php_memory_limits;
use strict;
use warnings;
use Getopt::Long ();
use Cpanel::Sys::Hardware::Memory ();
use Whostmgr::API::1::Lang::PHP ();
use Cpanel::Imports;
use Data::Dumper;
our $gsw_message_dir = '/var/cpanel/gsw_messages';
our $message_caller_depth = 1;
exit( run(@ARGV) ) if !caller();
sub run {
my @args = @_;
my ( $run, $gsw );
Getopt::Long::GetOptionsFromArray(
\@args,
"run" => \$run,
"gsw" => \$gsw,
);
if ( not( $run or $gsw ) ) {
die qq{Must pass "--run" flag to execute script.\nThis script will adjust the memory_limit setting for all cPanel PHPs installed in /opt/cpanel/ to a reasonable setting based on the servers available memory.\n};
}
# We want to raise the PHP memory_limit if possible in regards to the amount of installed memory they have on the system
my $installed_memory = eval { Cpanel::Sys::Hardware::Memory::get_installed(); };
my ( $mid_mem, $high_mem ) = qw( 2000 4000 );
my $set_memory;
if ( $installed_memory < $mid_mem ) {
$set_memory = '32M';
}
elsif ( ( $installed_memory >= $mid_mem ) && ( $installed_memory < $high_mem ) ) {
$set_memory = '64M';
}
elsif ( $installed_memory >= $high_mem ) {
$set_memory = '128M';
}
eval {
my $installed_versions = Whostmgr::API::1::Lang::PHP::php_get_installed_versions();
my $bytes = $installed_memory * 1024 * 1024; # Cpanel::Sys::Hardware::Memory is MiB
if ($gsw) {
create_gsw_message(
"php_memory_limit",
"[% locale.maketext('We changed the webserver’s PHP “[output,strong,_1]” directive to “[_2]” to better support your server’s [format_bytes,_3] of memory.', 'memory_limit', '$set_memory', '$bytes') %]\n",
"[% locale.maketext('You can change it at anytime via the [output,url,_1,MultiPHP INI Editor in WHM,target,_blank].', '../scripts2/multiphp_ini_editor') %]\n"
);
}
foreach my $php_version ( @{ $installed_versions->{versions} } ) {
my $metadata = {};
Whostmgr::API::1::Lang::PHP::php_ini_set_directives( { version => $php_version, directive => "memory_limit:$set_memory" }, $metadata );
logger->info("The memory limit for $php_version has been set to $set_memory based on the servers installed memory ($installed_memory MiB)");
if ( !$metadata->{'result'} ) {
logger->error("There was a problem setting the memory_limit in your php.ini files.\n");
}
}
};
return 0;
}
sub create_gsw_message {
my ( $name, @lines ) = @_;
# check for non words
if ( $name =~ /\W/ ) {
logger->warn("'$name' is not valid as a GSW message filename.\n");
return;
}
# create the directory for custom Getting Started Wizard message tt files
if ( !-e $gsw_message_dir ) {
mkdir $gsw_message_dir, 0755;
}
if ( open( my $fh, ">", "$gsw_message_dir/$name.tt" ) ) {
foreach my $line (@lines) { # concat anything passed into the subroutine.
print {$fh} $line;
}
close $fh;
}
else {
logger->warn("Could not write to GSW message directory: $!");
return;
}
return 1;
}
1;
Mini Shell