From d6af3b4244ca4a75f19ac83ea088bc6702198181 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 19 Jul 2015 11:47:45 +0100
Subject: [PATCH] Lost Device DNS setting in previous refactor

---
 Netdisco/Changes                           | 1 +
 Netdisco/lib/App/Netdisco/Core/Discover.pm | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 8aeecbcd..0453ebae 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -3,6 +3,7 @@
   [BUG FIXES]
 
   * [#234] Cisco voice vlan conflicts with same number normal vlan on DB INSERT
+  * [#xxx] Lost Device DNS setting in previous refactor
 
 2.032005 - 2015-05-18
 
diff --git a/Netdisco/lib/App/Netdisco/Core/Discover.pm b/Netdisco/lib/App/Netdisco/Core/Discover.pm
index 74c7f463..43625295 100644
--- a/Netdisco/lib/App/Netdisco/Core/Discover.pm
+++ b/Netdisco/lib/App/Netdisco/Core/Discover.pm
@@ -139,6 +139,9 @@ sub store_device {
       $device->set_column( vtp_domain => (values %$vtpdomains)[-1] );
   }
 
+  my $hostname = hostname_from_ip($device->ip);
+  $device->set_column( dns => $hostname ) if $hostname;
+
   my @properties = qw/
     snmp_ver
     description uptime contact name location