byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More robust child spawning for prefork

Browse Source 
This should help the prefork daemon to keep up with demand better without using
much more in the way of resources

Signed-off-by: Ask Bjørn Hansen <ask@develooper.com>
This commit is contained in:
Jared Johnson 2009-08-14 15:51:24 -05:00 committed by Ask Bjørn Hansen
parent a5ecd41e72
commit 04f8f7dd98
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
qpsmtpd-prefork
View File

@ -75,7 +75,7 @@ my $max_children = 15; # max number of child processes to spawn
my $idle_children = 5; # number of idle child processes to spawn my $idle_children = 5; # number of idle child processes to spawn
my $maxconnip = 10; my $maxconnip = 10;
my $child_lifetime = 100; # number of times a child may be reused my $child_lifetime = 100; # number of times a child may be reused
my $loop_sleep = 30; # seconds main_loop sleeps before checking children my $loop_sleep = 15; # seconds main_loop sleeps before checking children
my $re_nice = 5; # substracted from parents current nice level my $re_nice = 5; # substracted from parents current nice level
my $d_start = 0; my $d_start = 0;
my $quiet = 0; my $quiet = 0;
@ -339,10 +339,11 @@ sub reaper {
#arg0: void #arg0: void
#ret0: void #ret0: void
sub main_loop { sub main_loop {
my $created_children = $idle_children;
while (1) { while (1) {
# if there is no child death to process, then sleep EXPR seconds # if there is no child death to process, then sleep EXPR seconds
# or until signal (i.e. child death) is received # or until signal (i.e. child death) is received
sleep $loop_sleep unless @children_term; sleep $loop_sleep / ($created_children * 2 + 1) unless @children_term;
# block CHLD signals to avoid race # block CHLD signals to avoid race
my $sigset = block_signal(SIGCHLD); my $sigset = block_signal(SIGCHLD);
@ -379,9 +380,9 @@ sub main_loop {
} }
# spawn children # spawn children
for (my $i = scalar(keys %children) ; $i < $chld_pool ; $i++) { $created_children = $chld_pool - keys %children;
new_child(); # add to the child pool $created_children = 0 if $created_children < 0;
} new_child() for 1..$created_children;
# unblock signals # unblock signals
unblock_signal($sigset); unblock_signal($sigset);