135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fake one device aliases entry for devices not providing ip_index

Browse Source
This commit is contained in:
Oliver Gorwits
2014-07-21 21:24:12 +00:00
parent 24a19f5cf8
commit 7241db7a23
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Netdisco/Changes
View File

@@ -3,6 +3,7 @@
[BUG FIXES] [BUG FIXES]
* DNS Mismatch report incorrectly trimmed domain_suffix * DNS Mismatch report incorrectly trimmed domain_suffix
* Fake one device aliases entry for devices not providing ip_index
2.028006 - 2014-07-21 2.028006 - 2014-07-21

4
Netdisco/lib/App/Netdisco/Core/Discover.pm
View File

@@ -146,6 +146,10 @@ sub store_device {
scalar @aliases, $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}; scalar @aliases, $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'};
my $resolved_aliases = hostnames_resolve_async(\@aliases); my $resolved_aliases = hostnames_resolve_async(\@aliases);
# fake one aliases entry for devices not providing ip_index
push @$resolved_aliases, { alias => $device->ip, dns => $hostname }
if 0 == scalar @aliases;
# VTP Management Domain -- assume only one. # VTP Management Domain -- assume only one.
my $vtpdomains = $snmp->vtp_d_name; my $vtpdomains = $snmp->vtp_d_name;
my $vtpdomain; my $vtpdomain;