From c2e77455b8cf57f534293c1025b1772fad17ec6a Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 26 Jun 2017 19:36:10 +0100
Subject: [PATCH] support NETDISCO_DBNAME in "netdisco-do psql"

---
 Changes         | 1 +
 bin/netdisco-do | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index f9679fe7..68275049 100644
--- a/Changes
+++ b/Changes
@@ -14,6 +14,7 @@
   * #317 #265 #311 when renumbering on discover, delete likely duplicate devices
   * #316 neighbor map should fall back to device sysname after dns
   * #310 allow multiple LLDP management addresses
+  * support NETDISCO_DBNAME in "netdisco-do psql"
 
 2.036001 - 2017-06-22
 
diff --git a/bin/netdisco-do b/bin/netdisco-do
index 71de8748..f6bca970 100755
--- a/bin/netdisco-do
+++ b/bin/netdisco-do
@@ -178,7 +178,7 @@ unless ($action) {
     my ($self, $job) = @_;
     my ($device, $port, $extra) = map {$job->$_} qw/device port extra/;
 
-    my $name = (setting('database')->{name} || 'netdisco');
+    my $name = ($ENV{NETDISCO_DBNAME} || setting('database')->{name} || 'netdisco');
     my $host = setting('database')->{host};
     my $user = setting('database')->{user};
     my $pass = setting('database')->{pass};