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:
parent
e4f0cb0f8c
commit
aa802e6844
3
Changes
3
Changes
@ -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)
|
||||||
|
|
||||||
|
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user