Add IS-IS Support (#548)
* Add IS-IS Support * closing brace for unless needs to be moved i think * Remove isis_routers from Routed.pm * bump snmp::info to 3.66 which is needed for isis support.
This commit is contained in:
2
Build.PL
2
Build.PL
@@ -75,7 +75,7 @@ Module::Build->new(
|
||||
'Starman' => '0.4008',
|
||||
'Storable' => '0',
|
||||
'Sys::SigAction' => '0',
|
||||
'SNMP::Info' => '3.65',
|
||||
'SNMP::Info' => '3.66',
|
||||
'SQL::Abstract' => '1.85',
|
||||
'SQL::Translator' => '0.11024',
|
||||
'Template' => '2.24',
|
||||
|
||||
@@ -18,16 +18,19 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
|
||||
|
||||
my $ospf_peers = $snmp->ospf_peers || {};
|
||||
my $ospf_routers = $snmp->ospf_peer_id || {};
|
||||
my $isis_peers = $snmp->isis_peers || {};
|
||||
my $bgp_peers = $snmp->bgp_peer_addr || {};
|
||||
my $eigrp_peers = $snmp->eigrp_peers || {};
|
||||
|
||||
return Status->info(" [$device] neigh - no BGP, OSPF, or EIGRP peers")
|
||||
return Status->info(" [$device] neigh - no BGP, OSPF, IS-IS, or EIGRP peers")
|
||||
unless ((scalar values %$ospf_peers) or (scalar values %$ospf_routers)
|
||||
or (scalar values %$bgp_peers) or (scalar values %$eigrp_peers));
|
||||
or (scalar values %$bgp_peers) or (scalar values %$eigrp_peers)
|
||||
or (scalar values %$isis_peers));
|
||||
|
||||
my $count = 0;
|
||||
foreach my $ip ((values %$ospf_peers), (values %$ospf_routers),
|
||||
(values %$bgp_peers), (values %$eigrp_peers)) {
|
||||
(values %$bgp_peers), (values %$eigrp_peers),
|
||||
(values %$isis_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