#401 Autodiscovery via EIGRP peers

This commit is contained in:
Eric A. Miller
2018-04-19 00:16:56 -04:00
parent f5806d8beb
commit 8d1fb71c76
2 changed files with 14 additions and 5 deletions

View File

@@ -1,3 +1,9 @@
2.039022
[NEW FEATURES]
* #401 Autodiscovery via EIGRP peers
2.039022 - 2018-04-18 2.039022 - 2018-04-18
[BUG FIXES] [BUG FIXES]

View File

@@ -18,12 +18,15 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
my $ospf_peers = $snmp->ospf_peers || {}; my $ospf_peers = $snmp->ospf_peers || {};
my $bgp_peers = $snmp->bgp_peer_addr || {}; my $bgp_peers = $snmp->bgp_peer_addr || {};
my $eigrp_peers = $snmp->eigrp_peers || {};
return Status->info(" [$device] neigh - no BGP or OSPF peers") return Status->info(" [$device] neigh - no BGP, OSPF, or EIGRP peers")
unless ((scalar values %$ospf_peers) or (scalar values %$bgp_peers)); unless ((scalar values %$ospf_peers) or (scalar values %$bgp_peers)
or (scalar values %$eigrp_peers));
my $count = 0; 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); my $peer = get_device($ip);
next if $peer->in_storage or not is_discoverable($peer); next if $peer->in_storage or not is_discoverable($peer);
next if vars->{'queued'}->{$ip}; next if vars->{'queued'}->{$ip};