Net::SNMP::Mixin::Dot1dBase - mixin class for the switch dot1d base values
A Net::SNMP mixin class for Dot1d base info.
use Net::SNMP; use Net::SNMP::Mixin; # class based mixin Net::SNMP->mixer('Net::SNMP::Mixin::Dot1dBase'); # ... my $session = Net::SNMP->session( -hostname => 'foo.bar.com' ); $session->mixer('Net::SNMP::Mixin::Dot1dBase'); $session->init_mixins; snmp_dispatcher() if $session->nonblocking; $session->init_ok; die $session->errors if $session->errors; my $base_group = $session->get_dot1d_base_group; printf "BridgeAddr: %s NumPorts: %d Type: %d\n", $base_group->{dot1dBaseBridgeAddress}, $base_group->{dot1dBaseNumPorts}, $base_group->{dot1dBaseType}; my $map = $session->map_bridge_ports2if_indexes; foreach my $bridge_port ( sort {$a <=> $b} keys %$map ) { my $if_index = $map->{$bridge_port}; printf "bridgePort: %4d -> ifIndex: %4\n", $bridge_port, $if_index; }
A mixin class for basic switch information from the BRIDGE-MIB.
Besides the bridge address and the number of bridge ports, it's primary use is the mapping between dot1dBasePorts and ifIndexes.
Returns the dot1dBase group as a hash reference:
{ dot1dBaseBridgeAddress => MacAddress, dot1dBaseNumPorts => INTEGER, dot1dBaseType => INTEGER, }
Returns a reference to a hash with the following entries:
{ # INTEGER INTEGER dot1dBasePort => dot1dBasePortIfIndex, }
{ # INTEGER INTEGER dot1dBasePortIfIndex => dot1dBasePort , }
Fetch the dot1d base related snmp values from the host. Don't call this method direct!
Only for developers or maintainers.
Fetch values from the dot1dBase group once during object initialization.
The callback for _fetch_dot1d_base.
Populate the object with the dot1dBasePorts.
The callback for _fetch_dot1d_base_ports.
Net::SNMP, Net::SNMP::Mixin
Karl Gaissmaier <karl.gaissmaier at uni-ulm.de>
Copyright 2008-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.
To install Net::SNMP::Mixin::Dot1dBase, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::SNMP::Mixin::Dot1dBase
CPAN shell
perl -MCPAN -e shell install Net::SNMP::Mixin::Dot1dBase
For more information on module installation, please visit the detailed CPAN module installation guide.