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

fix remote_ip dns resolution

Browse Source
This commit is contained in:
Oliver Gorwits
2022-08-15 08:32:58 -04:00
parent c375b11cb0
commit 148e52adf2
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/App/Netdisco/Worker/Plugin/Discover/PortProperties.pm
View File

@@ -26,16 +26,15 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
my $device_ports = vars->{'device_ports'} my $device_ports = vars->{'device_ports'}
|| { map {($_->port => $_)} $device->ports->all }; || { map {($_->port => $_)} $device->ports->all };
my @remote_ips = map {{ip => $_}} my @remote_ips = map {{ip => $_->remote_ip, port => $_->port}}
grep {defined} grep {$_->remote_ip}
map {$_->remote_ip}
values %$device_ports; values %$device_ports;
debug sprintf ' resolving %d remote_ips with max %d outstanding requests', debug sprintf ' [%s] resolving %d remote_ips with max %d outstanding requests',
scalar @remote_ips, $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'}; $device->ip, scalar @remote_ips, $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'};
my $resolved_remote_ips = hostnames_resolve_async(\@remote_ips); my $resolved_remote_ips = hostnames_resolve_async(\@remote_ips);
$properties{$_}->{remote_dns} = $_->{dns} for @$resolved_remote_ips; $properties{ $_->{port} }->{remote_dns} = $_->{dns} for @$resolved_remote_ips;
my $raw_speed = $snmp->i_speed_raw || {}; my $raw_speed = $snmp->i_speed_raw || {};