From 06b7781fa1adf303b45d6fc6e47173c5a9b8499c Mon Sep 17 00:00:00 2001 From: djfiander Date: Tue, 6 Jun 2006 01:20:01 +0000 Subject: [PATCH] Add support for the configuration parameters which parallel the paramters for Net::Server::PreFork. --- SIPServer.pm | 8 ++++++++ Sip/Configuration.pm | 5 +++-- xmlparse.pl | 5 +++-- 3 files changed, 14 insertions(+), 4 deletions(-) diff --git a/SIPServer.pm b/SIPServer.pm index 4105ee5..98b4a5e 100644 --- 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 --- 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 --- 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]); -- 2.11.0