135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[#64] Add i_speed_admin() to L2::2900 (psychiatric)

Browse Source
This commit is contained in:
Eric A. Miller
2013-10-01 21:42:09 -04:00
parent 1a92306d51
commit 7c6df7cce3
2 changed files with 31 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ChangeLog
View File

@@ -5,7 +5,7 @@ version 3.08 ()
[ENHANCEMENTS] [ENHANCEMENTS]
* [#66] Support for VSS via CISCO-VIRTUAL-SWITCH-MIB in L3::6500 * [#66] Support for VSS via CISCO-VIRTUAL-SWITCH-MIB in L3::6500
* [#64] Add i_speed_admin() to L2::2900 (psychiatric)
version 3.07 (2013-10-01) version 3.07 (2013-10-01)

30
Info/Layer2/C2900.pm
View File

@@ -139,6 +139,32 @@ sub i_duplex_admin {
return \%i_duplex_admin; return \%i_duplex_admin;
} }
sub i_speed_admin {
my $c2900 = shift;
my $partial = shift;
my %i_speed_admin;
my $p_port = $c2900->p_port() || {};
my $interfaces = $c2900->interfaces($partial);
my $c2900_p_index = $c2900->c2900_p_index() || {};
my %reverse_2900 = reverse %$c2900_p_index;
my $c2900_p_speed
= $c2900->c2900_p_speed_admin( $reverse_2900{$partial} );
my %speeds = (
'autoDetect' => 'auto',
's10000000' => '10 Mbps',
's100000000' => '100 Mbps',
);
%i_speed_admin
= map { $c2900_p_index->{$_} => $speeds{ $c2900_p_speed->{$_} } }
keys %$c2900_p_index;
return \%i_speed_admin;
}
sub set_i_speed_admin { sub set_i_speed_admin {
my $c2900 = shift; my $c2900 = shift;
my ( $speed, $iid ) = @_; my ( $speed, $iid ) = @_;
@@ -349,6 +375,10 @@ Returns reference to hash of IIDs to admin duplex setting
Crosses $c2900->c2900_p_index() with $c2900->c2900_p_duplex_admin() Crosses $c2900->c2900_p_index() with $c2900->c2900_p_duplex_admin()
=item $c2900->i_speed_admin()
Returns reference to hash of IIDs to admin speed setting.
=back =back
=head2 F<C2900-MIB> Port Entry Table =head2 F<C2900-MIB> Port Entry Table