NAME Net::SNMP::Mixin::ArubaCX::VlanStatic - mixin class for ArubaCX static vlan info SYNOPSIS use Net::SNMP; use Net::SNMP::Mixin qw/mixer init_mixins/; my $session = Net::SNMP->session( -hostname => 'foo.bar.com'); $session->mixer('Net::SNMP::Mixin::ArubaCX::VlanStatic'); $session->init_mixins; snmp_dispatcher() if $session->nonblocking; $session->init_ok(); die $session->errors if $session->errors; my $vlan_id2name = $session->map_vlan_id2name(); foreach my $vlan_id ( keys %{$vlan_id2name} ) { printf "Vlan-Id: %4d => Vlan-Name: %s\n", $vlan_id, $vlan_id2name->{$vlan_id}; } my $vlan_ids2if_idx = $session->map_vlan_id2if_idx(); foreach my $id ( keys %{$vlan_ids2if_idx} ) { printf "Vlan-Id: %4d\n", $id; printf "\tTagged-Ports: %s\n", ( join ',', @{ $vlan_ids2if_idx->{$id}{tagged} } ); printf "\tUntagged-Ports: %s\n", ( join ',', @{ $vlan_ids2if_idx->{$id}{untagged} } ); } # sorted by interface my $ports2ids = $session->map_if_idx2vlan_id(); foreach my $if_idx ( keys %{$ports2ids} ) { printf "Interface: %10d\n", $if_idx; printf "\tTagged-Vlans: %s\n", ( join ',', @{ $ports2ids->{$if_idx}{tagged} } ); printf "\tUntagged-Vlans: %s\n", ( join ',', @{ $ports2ids->{$if_idx}{untagged} } ); } DESCRIPTION A mixin class for vlan related infos from the IEEE8021-Q-BRIDGE-MIB used by ArubaCX. The mixin-module provides methods for mapping between vlan-ids and vlan-names und relations between interface indexes and vlan-ids, tagged or untagged on these interfaces. MIXIN METHODS OBJ->map_vlan_id2name() Returns a hash reference with statically configured vlan-ids as keys and the corresponing vlan-names as values: { vlan_id => vlan_name, vlan_id => vlan_name, ... , } OBJ->map_vlan_id2if_idx() Returns a hash reference with the vlan-ids as keys and tagged and untagged if_idx as values: { vlan_id => { tagged => [if_idx, ..., ], untagged => [if_idx, ..., ], }, ... , } OBJ->map_if_idx2vlan_id() Returns a hash reference with the interfaces as keys and tagged and untagged vlan-ids as values: { if_idx => { tagged => [vlan_id, ..., ], untagged => [vlan_id, ..., ], }, ... , } INITIALIZATION OBJ->_init($reload) Fetch basic Dot1Q Vlan related snmp values from the host. Don't call this method direct! PRIVATE METHODS Only for developers or maintainers. _fetch_dot1d_base_ports() Fetch the mapping between brigePort and ifIndex _dot1d_base_ports_cb($session) The callback for _fetch_dot1d_base_ports. _fetch_ieee8021q_vlan_static_tbl_entries() Fetch the vlan tag info for current vlans. _ieee8021q_vlan_static_tbl_entries_cb($session) The callback for _fetch_ieee8021q_vlan_static_tbl_entries_cb. _fetch_ieee8021q_port_vlan_tbl_entries() Fetch the pvid (untag) info for bridge ports. _port_pvids_cb($session) The callback for _fetch_ieee8021q_port_vlan_tbl_entries. REQUIREMENTS Net::SNMP, Net::SNMP::Mixin AUTHOR Johannes Deger Karl Gaissmaier COPYRIGHT & LICENSE Copyright 2021 Karl Gaissmaier, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.