Generalize configuration of Net::Server::PreFork to allow for

arbitrary configuration parameters.

diff --git a/SIPServer.pm b/SIPServer.pm
index 98b4a5e..b421809 100644 (file)
--- 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 (file)
--- 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