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

Support for macsuck_no_vlan and macsuck_no_devicevlan

Browse Source
This commit is contained in:
Oliver Gorwits
2013-08-26 21:22:15 +01:00
parent 82a9f18347
commit 0aecbb18a5
4 changed files with 45 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Netdisco/lib/App/Netdisco/Core/Macsuck.pm
View File

@@ -167,9 +167,9 @@ sub store_node {
$new->search({vlan => [$vlan, 0, undef]})->first;
# upgrade old schema
$new->search({vlan => [$vlan, 0, undef]})
->update({vlan => $vlan});
$new->search({vlan => [0, undef]})->delete();
# new data
$new->update_or_create({
vlan => $vlan,
active => \'true',
@@ -222,8 +222,32 @@ sub _get_vlan_list {
foreach my $vlan (sort keys %vlans) {
my $name = $vlan_names{$vlan} || '(unnamed)';
# FIXME: macsuck_no_vlan
# FIXME: macsuck_no_devicevlan
if (ref [] eq ref setting('macsuck_no_vlan')) {
my $ignore = setting('macsuck_no_vlan');
if ((scalar grep {$_ eq $vlan} @$ignore) or
(scalar grep {$_ eq $name} @$ignore)) {
debug sprintf
' [%s] macsuck VLAN %s - skipped by macsuck_no_vlan config',
$device->ip, $vlan;
next;
}
}
if (ref [] eq ref setting('macsuck_no_devicevlan')) {
my $ignore = setting('macsuck_no_devicevlan');
my $ip = $device->ip;
if ((scalar grep {$_ eq "$ip:$vlan"} @$ignore) or
(scalar grep {$_ eq "$ip:$name"} @$ignore)) {
debug sprintf
' [%s] macsuck VLAN %s - skipped by macsuck_no_devicevlan config',
$device->ip, $vlan;
next;
}
}
if (setting('macsuck_no_unnamed') and $name eq '(unnamed)') {
debug sprintf