From: Galen Charlton <gmc@equinoxinitiative.org>
Date: Tue, 6 Nov 2018 20:14:55 +0000 (-0500)
Subject: LP#1729610: make it possible to set max_backlog_queue in opensrf.xml
X-Git-Tag: osrf_rel_3_1_0-beta~5
X-Git-Url: http://git.equinoxoli.org/?p=opensrf-equinox.git;a=commitdiff_plain;h=848843b1cda6d79d3aec589746abf7a8efdc313d

LP#1729610: make it possible to set max_backlog_queue in opensrf.xml

This patch adds a new service configuration option, max_backlog_queue,
to allow controlling the size of the backlog queue.

If not otherwise specified in opensrf.xml, max_backlog_queue defaults
to 1000.

Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/examples/opensrf.xml.example b/examples/opensrf.xml.example
index 2e52c7a..7157787 100644
--- a/examples/opensrf.xml.example
+++ b/examples/opensrf.xml.example
@@ -198,6 +198,7 @@ vim:et:ts=2:sw=2:
           <max_children>5</max_children>
           <min_spare_children>1</min_spare_children>
           <max_spare_children>2</max_spare_children>
+          <max_backlog_queue>10</max_backlog_queue>
         </unix_config>
       </opensrf.slooooooow>
 
diff --git a/src/perl/lib/OpenSRF/System.pm b/src/perl/lib/OpenSRF/System.pm
index c9534dc..ece232f 100644
--- a/src/perl/lib/OpenSRF/System.pm
+++ b/src/perl/lib/OpenSRF/System.pm
@@ -113,6 +113,7 @@ sub run_service {
         min_children =>  $getval->(unix_config => 'min_children') || 1,
         min_spare_children =>  $getval->(unix_config => 'min_spare_children'),
         max_spare_children =>  $getval->(unix_config => 'max_spare_children'),
+        max_backlog_queue =>  $getval->(unix_config => 'max_backlog_queue'),
         stderr_log_path => $stderr_path
     );