much better handling of mibhome

2013-04-19 23:36:06 +01:00
parent d735cc657d
commit 9875c70f41
5 changed files with 30 additions and 12 deletions
--- a/Netdisco/lib/App/Netdisco/Util/SNMP.pm
+++ b/Netdisco/lib/App/Netdisco/Util/SNMP.pm
@@ -147,7 +147,8 @@ sub _try_connect {
 }

 sub _build_mibdirs {
-  return map { dir(setting('mibhome'), $_) }
+  my $home = (setting('mibhome') || $ENV{NETDISCO_HOME} || $ENV{HOME});
+  return map { dir($home, $_) }
             @{ setting('mibdirs') || [] };
 }