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

efficiency gains in set_canonical_ip

Browse Source
This commit is contained in:
Oliver Gorwits
2017-05-14 20:50:03 +01:00
parent 3816aad829
commit 824ec751e2
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -58,18 +58,20 @@ sub set_canonical_ip {
$new_ip = $revofname;
}
if (ref {} eq ref setting('device_identity')) {
my $idmap = setting('device_identity') || {};
if (ref {} eq ref setting('device_identity')
and scalar keys %{ setting('device_identity') }) {
my $idmap = setting('device_identity');
my $devips = $device->device_ips->order_by('alias');
ALIAS: while (my $alias = $devips->next) {
next if $alias->alias eq $old_ip;
foreach my $this (keys %$idmap) {
$anded_this = [(ref $this ? @$this : $this), 'op:and'];
# lhs of device_identity matches device, rhs matches device_ip
if (check_acl($device, $anded_this)
and check_acl($alias, $idmap->{$this})
and $alias->alias ne $old_ip) {
and check_acl($alias, $idmap->{$this})) {
$new_ip = $alias->alias;
last ALIAS;
}