move default env settings to Netdisco.pm

2014-04-24 21:05:42 +01:00
parent b4b5cce00a
commit 349bddf609
3 changed files with 6 additions and 12 deletions
--- a/Netdisco/lib/App/Netdisco.pm
+++ b/Netdisco/lib/App/Netdisco.pm
@@ -54,6 +54,12 @@ setting('dns')->{hosts_file} ||= '/etc/hosts';
 setting('housekeeping')->{expire} ||= setting('housekeeping')->{expiry}
  if setting('housekeeping') and exists setting('housekeeping')->{expiry};

+# set max outstanding requests for AnyEvent::DNS
+$ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}
+  = setting('dns')->{max_outstanding} || 10;
+$ENV{'PERL_ANYEVENT_HOSTS'}
+  = setting('dns')->{hosts_file} || '/etc/hosts';
+
 =head1 NAME

 App::Netdisco - An open source web-based network management tool.