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',
|
'Starman' => '0.4008',
|
||||||
'Storable' => '0',
|
'Storable' => '0',
|
||||||
'Sys::SigAction' => '0',
|
'Sys::SigAction' => '0',
|
||||||
'SNMP::Info' => '3.65',
|
'SNMP::Info' => '3.66',
|
||||||
'SQL::Abstract' => '1.85',
|
'SQL::Abstract' => '1.85',
|
||||||
'SQL::Translator' => '0.11024',
|
'SQL::Translator' => '0.11024',
|
||||||
'Template' => '2.24',
|
'Template' => '2.24',
|
||||||
|
|||||||
@@ -18,16 +18,19 @@ register_worker({ phase => 'main', driver => 'snmp' }, sub {
|
|||||||
|
|
||||||
my $ospf_peers = $snmp->ospf_peers || {};
|
my $ospf_peers = $snmp->ospf_peers || {};
|
||||||
my $ospf_routers = $snmp->ospf_peer_id || {};
|
my $ospf_routers = $snmp->ospf_peer_id || {};
|
||||||
|
my $isis_peers = $snmp->isis_peers || {};
|
||||||
my $bgp_peers = $snmp->bgp_peer_addr || {};
|
my $bgp_peers = $snmp->bgp_peer_addr || {};
|
||||||
my $eigrp_peers = $snmp->eigrp_peers || {};
|
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)
|
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;
|
my $count = 0;
|
||||||
foreach my $ip ((values %$ospf_peers), (values %$ospf_routers),
|
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);
|
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};
|
||||||
|
|||||||
Reference in New Issue
Block a user