Untaint the value of the --interface option.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@940 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Radu Greab 2008-09-04 11:41:48 +00:00 committed by Ask Bjørn Hansen
parent e4f0cb0f8c
commit aa802e6844
2 changed files with 4 additions and 0 deletions

View File

@ -1,3 +1,6 @@
prefork: untaint the value of the --interface option (reported by
Diego d'Ambra)
prefork: the children pool size was sometimes not adjusted immediately prefork: the children pool size was sometimes not adjusted immediately
after the exit of children (reported by Diego d'Ambra) after the exit of children (reported by Diego d'Ambra)

View File

@ -118,6 +118,7 @@ GetOptions(
) || &usage; ) || &usage;
if ($user =~ /^([\w\-]+)$/) { $user = $1 } else { &usage } if ($user =~ /^([\w\-]+)$/) { $user = $1 } else { &usage }
if ($d_addr =~ /^(\[.*\]|[\w\-.]+)$/) { $d_addr = $1 } else { &usage }
# set max from ip to max number of children if option is set to disabled # set max from ip to max number of children if option is set to disabled
$maxconnip = $max_children if ($maxconnip == 0); $maxconnip = $max_children if ($maxconnip == 0);