Add support for the configuration parameters

    <min_servers value="N" />
    <max_servers value="N" />

which parallel the paramters for Net::Server::PreFork.

diff --git a/SIPServer.pm b/SIPServer.pm
index 4105ee5..98b4a5e 100644 (file)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -47,6 +47,14 @@ foreach my $svc (keys %{$config->{listeners}}) {
 push @parms, "log_file=Sys::Syslog", "syslog_ident=acs-server",
     "syslog_facility=" . LOG_SIP;
 
+#
+# Server Management
+#
+foreach my $server_parm ('min_servers', 'max_servers') {
+    if (defined($config->{$server_parm})) {
+       push @parms, "$server_parm=" . $config->{$server_parm};
+    }
+}
 
 print Dumper(@parms);
 

diff --git a/Sip/Configuration.pm b/Sip/Configuration.pm
index 75c83f0..1c4e259 100644 (file)
--- a/Sip/Configuration.pm
+++ b/Sip/Configuration.pm
@@ -24,8 +24,9 @@ my $parser = new XML::Simple( KeyAttr   => { login => '+id',
                              ForceArray=> [ 'service',
                                             'login',
                                             'institution' ],
-                             ValueAttr =>  [ 'error-detect',
-                                             'enabled' ] );
+                             ValueAttr =>  { 'error-detect' => 'enabled',
+                                            'min_servers' => 'value',
+                                            'max_servers' => 'value'} );
 
 sub new {
     my ($class, $config_file) = @_;

diff --git a/xmlparse.pl b/xmlparse.pl
index 296dbbc..faa5dc7 100644 (file)
--- a/xmlparse.pl
+++ b/xmlparse.pl
@@ -20,8 +20,9 @@ my $parser = new XML::Simple( KeyAttr   => { login => '+id',
                              ForceArray=> [ 'service',
                                             'login',
                                             'institution' ],
-                             ValueAttr =>  [ 'error-detect',
-                                             'enabled' ] );
+                             ValueAttr =>  { 'error-detect' => 'enabled',
+                                            'min_servers' => 'value',
+                                            'max_servers' => 'value'} );
 
 my $ref = $parser->XMLin($ARGV[0]);