[Rt-commit] r12717 - in rt/branches/3.8-TESTING: etc lib/RT/Interface/Web/Standalone

[sartak at bestpractical.com]

Author: sartak
Date: Wed May 28 15:31:39 2008
New Revision: 12717

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/etc/RT_Config.pm.in
   rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm

Log:
 r61200 at onn:  sartak | 2008-05-28 15:31:26 -0400
 Allow configuration of any Net::Server options with %NetServerOptions


Modified: rt/branches/3.8-TESTING/etc/RT_Config.pm.in
==============================================================================
--- rt/branches/3.8-TESTING/etc/RT_Config.pm.in	(original)
+++ rt/branches/3.8-TESTING/etc/RT_Config.pm.in	Wed May 28 15:31:39 2008
@@ -610,6 +610,12 @@
 # Setting this would be useful if, for example, memory usage slowly crawls up
 # every hit.
 #Set($MaxRequests, 50);
+
+# %NetServerOptions is a hash of additional options to use for
+# L<Net::Server/DEFAULT ARGUMENTS>. For example, you could set
+# reverse_lookups to get the hostnames for all users with:
+# Set(%NetServerOptions, (reverse_lookups => 1));
+Set(%NetServerOptions, ());
 # }}}
 
 # $DefaultSearchResultFormat is the default format for RT search results

Modified: rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm	Wed May 28 15:31:39 2008
@@ -61,11 +61,13 @@
 );
 
 sub default_values {
-    return {
+    my %forking = (
         map  { $_ => RT->Config->Get( $option_map{$_} ) }
         grep { defined( RT->Config->Get( $option_map{$_} ) ) }
-        qw/min_servers max_servers min_spare_servers max_spare_servers max_requests/
-    };
+        keys %option_map,
+    );
+
+    return { %forking, RT->Config->Get('NetServerOptions') };
 }
 
 1;