From adedbae49345a7c1bf30223dbafca69723601410 Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Tue, 13 Jun 2006 01:18:44 +0000
Subject: [PATCH] Generalize configuration of Net::Server::PreFork to allow for
 arbitrary configuration parameters.

---
 SIPServer.pm  | 11 +++++++----
 SIPconfig.xml |  6 ++++++
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/SIPServer.pm b/SIPServer.pm
index 98b4a5e..b421809 100644
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -48,11 +48,14 @@ push @parms, "log_file=Sys::Syslog", "syslog_ident=acs-server",
     "syslog_facility=" . LOG_SIP;
 
 #
-# Server Management
+# Server Management: set parameters for the Net::Server::PreFork
+# module.  The module silently ignores parameters that it doesn't
+# recognize, and complains about invalid values for parameters
+# that it does.
 #
-foreach my $server_parm ('min_servers', 'max_servers') {
-    if (defined($config->{$server_parm})) {
-	push @parms, "$server_parm=" . $config->{$server_parm};
+if (defined($config->{'server-params'})) {
+    while (my ($key, $val) = each %{$config->{'server-params'}}) {
+	push @parms, $key . '=' . $val;
     }
 }
 
diff --git a/SIPconfig.xml b/SIPconfig.xml
index cb97e9b..ed59610 100644
--- a/SIPconfig.xml
+++ b/SIPconfig.xml
@@ -1,6 +1,12 @@
 <acsconfig xmlns="http://openncip.org/acs-config/1.0/">
 
   <error-detect enabled="true" />
+
+  <!-- Set Net::Server::PreFork runtime parameters -->
+<!--  <server-params
+           min_servers='1'
+           min_spare_servers='0' /> -->
+  
   
   <listeners>
     <service
-- 
2.11.0