#401 Autodiscovery via EIGRP peers
This commit is contained in:
6
Changes
6
Changes
@@ -1,3 +1,9 @@
|
||||
2.039022
|
||||
|
||||
[NEW FEATURES]
|
||||
|
||||
* #401 Autodiscovery via EIGRP peers
|
||||
|
||||
2.039022 - 2018-04-18
|
||||
|
||||
[BUG FIXES]
|
||||
|
||||
@@ -18,12 +18,15 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
|
||||
|
||||
my $ospf_peers = $snmp->ospf_peers || {};
|
||||
my $bgp_peers = $snmp->bgp_peer_addr || {};
|
||||
my $eigrp_peers = $snmp->eigrp_peers || {};
|
||||
|
||||
return Status->info(" [$device] neigh - no BGP or OSPF peers")
|
||||
unless ((scalar values %$ospf_peers) or (scalar values %$bgp_peers));
|
||||
return Status->info(" [$device] neigh - no BGP, OSPF, or EIGRP peers")
|
||||
unless ((scalar values %$ospf_peers) or (scalar values %$bgp_peers)
|
||||
or (scalar values %$eigrp_peers));
|
||||
|
||||
my $count = 0;
|
||||
foreach my $ip ((values %$ospf_peers), (values %$bgp_peers)) {
|
||||
foreach my $ip ((values %$ospf_peers), (values %$bgp_peers),
|
||||
(values %$eigrp_peers)) {
|
||||
my $peer = get_device($ip);
|
||||
next if $peer->in_storage or not is_discoverable($peer);
|
||||
next if vars->{'queued'}->{$ip};
|
||||
|
||||
Reference in New Issue
Block a user