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

support for device identity steering via device_identity

Browse Source
This commit is contained in:
Oliver Gorwits
2017-05-12 20:19:04 +01:00
parent 849e0ddfd9
commit 3816aad829
3 changed files with 23 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -50,15 +50,31 @@ the IP and hostname in the device object for the canonical IP.
sub set_canonical_ip {
my ($device, $snmp) = @_;
my $old_ip = $device->ip;
my $new_ip = $old_ip;
my $revname = ipv4_from_hostname($snmp->name);
my $old_ip = $device->ip;
my $new_ip = $old_ip;
my $revofname = ipv4_from_hostname($snmp->name);
if (setting('reverse_sysname') and $revname) {
$new_ip = $revname;
if (setting('reverse_sysname') and $revofname) {
$new_ip = $revofname;
}
if (setting('device_identity')) {
if (ref {} eq ref setting('device_identity')) {
my $idmap = setting('device_identity') || {};
my $devips = $device->device_ips->order_by('alias');
ALIAS: while (my $alias = $devips->next) {
foreach my $this (keys %$idmap) {
$anded_this = [(ref $this ? @$this : $this), 'op:and'];
if (check_acl($device, $anded_this)
and check_acl($alias, $idmap->{$this})
and $alias->alias ne $old_ip) {
$new_ip = $alias->alias;
last ALIAS;
}
}
}
}
return if $new_ip eq $old_ip;