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

Automatically ramp up the number of connections we accept when under heavy

Browse Source 
load


git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@452 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-06-24 16:07:48 +00:00
parent 1f98f22376
commit 1c22628118
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
qpsmtpd
View File

@ -90,6 +90,7 @@ if ($USER =~ /^([\w\-]+)$/) { $USER = $1 } else { &help }
if ($MAXCONN =~ /^(\d+)$/) { $MAXCONN = $1 } else { &help } if ($MAXCONN =~ /^(\d+)$/) { $MAXCONN = $1 } else { &help }
if ($PROCS =~ /^(\d+)$/) { $PROCS = $1 } else { &help } if ($PROCS =~ /^(\d+)$/) { $PROCS = $1 } else { &help }
if ($NUMACCEPT =~ /^(\d+)$/) { $NUMACCEPT = $1 } else { &help } if ($NUMACCEPT =~ /^(\d+)$/) { $NUMACCEPT = $1 } else { &help }
my $_NUMACCEPT = $NUMACCEPT;
$PROCS = 1 if $LineMode; $PROCS = 1 if $LineMode;
# This is a bit of a hack, but we get to approximate MAXCONN stuff when we # This is a bit of a hack, but we get to approximate MAXCONN stuff when we
@ -310,8 +311,16 @@ sub accept_handler {
return; return;
} }
$running++; $running++;
last if ! _accept_handler($running); if (! _accept_handler($running)) {
# got here because we have too many accepts.
$NUMACCEPT = $_NUMACCEPT;
return;
}
} }
# got here because we have accept's left.
# So double the number we accept next time.
$NUMACCEPT *= 2;
} }
use Errno qw(EAGAIN EWOULDBLOCK); use Errno qw(EAGAIN EWOULDBLOCK);