From 848843b1cda6d79d3aec589746abf7a8efdc313d Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@equinoxinitiative.org>
Date: Tue, 6 Nov 2018 15:14:55 -0500
Subject: [PATCH] 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>
---
 examples/opensrf.xml.example   | 1 +
 src/perl/lib/OpenSRF/System.pm | 1 +
 2 files changed, 2 insertions(+)

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
     );
 
-- 
2.43.2