NAME
Net::SNMP::Mixin::ArubaCX::VlanStatic - mixin class for ArubaCX static vlan info
SYNOPSIS
use
Net::SNMP;
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
AUTHOR
Johannes Deger <johannes.deger at uni-ulm.de>
Karl Gaissmaier <karl.gaissmaier at uni-ulm.de>
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.