| Apache-GTopLimit documentation | Contained in the Apache-GTopLimit distribution. |
Apache::GTopLimit - Limit Apache httpd processes
This module allows you to kill off Apache httpd processes if they grow too large or have too little of shared memory. You can choose to set up the process size limiter to check the process size on every request:
# in your startup.pl:
# ___________________
use Apache::GTopLimit;
# Control the life based on memory size
# in KB, so this is ~10MB
$Apache::GTopLimit::MAX_PROCESS_SIZE = 10000;
# Control the life based on Shared memory size
# in KB, so this is ~4MB
$Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE = 4000;
# Control the life based on UnShared memory size
# in KB, so this is ~6MB
$Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE = 6000;
# in your httpd.conf:
# ___________________
# debug mode must be set before the module is loaded
PerlSetVar Apache::GTopLimit::DEBUG 1
# register handler
PerlFixupHandler Apache::GTopLimit
# you can set this up as any Perl*Handler that handles
# part of the request, even the LogHandler will do.
Or you can just check those requests that are likely to get big or unshared. This way of checking is also easier for those who are mostly just running Apache::Registry scripts:
# in your handler/CGI script
use Apache::GTopLimit;
# Max Process Size in KB
Apache::GTopLimit->set_max_size(10000);
and/or
use Apache::GTopLimit;
# Min Shared process Size in KB
Apache::GTopLimit->set_min_shared_size(4000);
and/or
use Apache::GTopLimit;
# Min UnShared process Size in KB
Apache::GTopLimit->set_max_unshared_size(6000);
Since accessing the process info might add a little overhead, you may want to only check the process size every N times. To do so, put this in your startup.pl or CGI:
$Apache::GTopLimit::CHECK_EVERY_N_REQUESTS = 2;
This will only check the process size every other time the process size checker is called.
Note: The MAX_PROCESS_SIZE, MIN_PROCESS_SHARED_SIZE and
MAX_PROCESS_UNSHARED_SIZE are independent, and each will be checked
if only set. So if you set the first two -- the process can be killed
if it grows beyond the limit or its shared memory goes below the
limit. It's better not to mix MAX_PROCESS_UNSHARED_SIZE with the
first two.
This module will run on platforms supported by GTop.pm a Perl interface to libgtop (which in turn needs libgtop : See http://home-of-linux.org/gnome/libgtop/ ).
This module was written in response to questions on the mod_perl mailing list on how to tell the httpd process to exit if:
its memory size goes beyond a specified limit
its shared memory size goes below a specified limit
its unshared memory size goes beyond a specified limit
There are two big reasons your httpd children will grow. First, it could have a bug that causes the process to increase in size dramatically, until your system starts swapping. Second, your process just does stuff that requires a lot of memory (or leaks memory) , and the more different kinds of requests your server handles, the larger the httpd processes grow over time.
This module will not really help you with the first problem. For that you should probably look into Apache::Resource or some other means of setting a limit on the data size of your program. BSD-ish systems have setrlimit() which will croak your memory gobbling processes. However it is a little violent, terminating your process in mid-request.
This module attempts to solve the second situation where your process slowly grows over time. The idea is to check the memory usage after every request, and if it exceeds a threshold, exit gracefully.
By using this module, you should be able to discontinue using the Apache configuration directive MaxRequestsPerChild, although for some folks, using both in combination does the job. Personally, I just use the technique shown in this module and set my MaxRequestsPerChild value to 6000.
Stas Bekman <stas@stason.org>
An almost complete rewrite of Apache::SizeLimit toward using GTop
module (based on crossplatfom glibtop). The moment glibtop will be
ported on all the platforms Apache::SizeLimit runs at (I think only
Solaris is missing) Apache::SizeLimit will become absolete.
Doug Bagley wrote the original Apache::SizeLimit
See external file 'Changes'.
The Apache::GTopLimit module is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
| Apache-GTopLimit documentation | Contained in the Apache-GTopLimit distribution. |
package Apache::GTopLimit; use strict; use Apache::Constants qw(:common); use Apache (); use GTop (); $Apache::GTopLimit::VERSION = '1.02'; $Apache::GTopLimit::CHECK_EVERY_N_REQUESTS = 1; my $request_count = 0; # the debug can be set on the main server level of # httpd.conf with: # PerlSetVar Apache::GTopLimit::DEBUG 1 use constant DEBUG => defined Apache->server->dir_config('Apache::GTopLimit::DEBUG') ? Apache->server->dir_config('Apache::GTopLimit::DEBUG') : 0; # init the GTop object my $gtop = GTop->new(); sub exit_if_too_big { my $r = shift; my ($size, $shared); #error_log("count: $request_count") if DEBUG; return DECLINED if $Apache::GTopLimit::CHECK_EVERY_N_REQUESTS && ++$request_count < $Apache::GTopLimit::CHECK_EVERY_N_REQUESTS; $request_count = 0; # reset the counter # Check the Memory Size if were requested if (defined $Apache::GTopLimit::MAX_PROCESS_SIZE) { $size = $gtop->proc_mem($$)->size / 1024; error_log("max mem: $size $Apache::GTopLimit::MAX_PROCESS_SIZE " . "$request_count") if DEBUG; if ($size > $Apache::GTopLimit::MAX_PROCESS_SIZE) { # I have no idea if this will work on anything but UNIX if (getppid > 1) { # this is a child httpd error_log("httpd process is too big, " . "exiting at size=$size KB") if DEBUG; $r->child_terminate; } else { # this is the main httpd error_log("main process is too big, size=$size KB") if DEBUG; } } } # Now check the Shared Memory Size if were requested if (defined $Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE) { $shared = $gtop->proc_mem($$)->share / 1024; error_log("shared mem: $shared $Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE " . "$request_count") if DEBUG; if ($shared < $Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE) { # I have no idea if this will work on anything but UNIX if (getppid > 1) { # this is a child httpd error_log("httpd process's shared memory is too low, " . "exiting at SHARED SIZE=$shared KB") if DEBUG; $r->child_terminate; } # we don't care about the parent's shared size, do we? } } # Now check the UnShared Memory Size if were requested if (defined $Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE) { $size ||= $gtop->proc_mem($$)->size / 1024; $shared ||= $gtop->proc_mem($$)->share / 1024; my $unshared = $size - $shared; error_log("unshared mem: $unshared $Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE " . "$request_count") if DEBUG; if ($unshared > $Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE) { # I have no idea if this will work on anything but UNIX if (getppid > 1) { # this is a child httpd error_log("httpd process's unshared memory is too low, " . "exiting at UNSHARED SIZE=$unshared KB") if DEBUG; $r->child_terminate; } # we don't care about the parent's shared size, do we? } } return OK; } # set_max_size can be called from within a handler/Registry script to # tell the httpd to exit if the request causes the process to grow bigger # than the specified limit sub set_max_size { $Apache::GTopLimit::MAX_PROCESS_SIZE = shift; Apache->request->post_connection(\&exit_if_too_big); } # set_min_shared_size can be called from within a handler/Registry # script to tell the httpd to exit if the request causes the process # to lose its shared memory over the specified limit sub set_min_shared_size { $Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE = shift; Apache->request->post_connection(\&exit_if_too_big); } # set_max_shared_size can be called from within a handler/Registry # script to tell the httpd to exit if the request causes the process # to have its unshared memory go over the specified limit sub set_max_unshared_size { $Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE = shift; Apache->request->post_connection(\&exit_if_too_big); } sub handler { my $r = shift || Apache->request; if (DEBUG) { unless (defined $Apache::GTopLimit::MAX_PROCESS_SIZE || defined $Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE || defined $Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE) { error_log("you didn't set any of \$Apache::GTopLimit::MAX_PROCESS_SIZE," . " \$Apache::GTopLimit::MIN_PROCESS_SHARED_SIZE or" . " \$Apache::GTopLimit::MAX_PROCESS_UNSHARED_SIZE." . " skipping Apache::GTopLimit handler"); return DECLINED; } } $r->post_connection(\&exit_if_too_big) if $r->is_main; return DECLINED; } sub error_log { warn "[", scalar(localtime(time)), "] ($$) Apache::GTopLimit: @_\n" } 1;