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

make convert_f5id_stdid private

Browse Source
This commit is contained in:
Oliver Gorwits
2023-09-02 19:51:11 +01:00
parent c6ce0d6e4d
commit b15a950d6a
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/SNMP/Info/Layer3/F5.pm
View File

@@ -86,7 +86,7 @@ $VERSION = '3.94';
%MUNGE = ( %SNMP::Info::Layer3::MUNGE, ); %MUNGE = ( %SNMP::Info::Layer3::MUNGE, );
sub convert_f5id_stdid { sub _convert_f5id_stdid {
my $f5 = shift; my $f5 = shift;
my $partial = shift; my $partial = shift;
my $id = shift; my $id = shift;
@@ -145,7 +145,7 @@ sub i_mtu {
my $mtu = $f5->sys_i_mtu($partial) || {}; my $mtu = $f5->sys_i_mtu($partial) || {};
my $i_mtu = {}; my $i_mtu = {};
while (my ($iid,$value) = each( %$mtu )) { while (my ($iid,$value) = each( %$mtu )) {
$i_mtu->{$f5->convert_f5id_stdid($partial,$iid)} = $value; $i_mtu->{$f5->_convert_f5id_stdid($partial,$iid)} = $value;
} }
return $i_mtu; return $i_mtu;
@@ -163,7 +163,7 @@ sub i_duplex {
next unless defined $duplex; next unless defined $duplex;
next if ( $duplex eq 'none' ); next if ( $duplex eq 'none' );
$i_duplex->{$f5->convert_f5id_stdid($partial,$iid)} = $duplex; $i_duplex->{$f5->_convert_f5id_stdid($partial,$iid)} = $duplex;
} }
return $i_duplex; return $i_duplex;
} }
@@ -214,7 +214,7 @@ sub i_vlan {
my @iid_array = split(/\./, $iid); my @iid_array = split(/\./, $iid);
my $len = $iid_array[0]; my $len = $iid_array[0];
my $v_idx = join('', ( splice @iid_array, 0, $len + 1 )); my $v_idx = join('', ( splice @iid_array, 0, $len + 1 ));
my $idx = $f5->convert_f5id_stdid($partial,join('.', @iid_array)); my $idx = $f5->_convert_f5id_stdid($partial,join('.', @iid_array));
# Check to make sure we can map to a port # Check to make sure we can map to a port
my $p_idx = $index->{$idx}; my $p_idx = $index->{$idx};
@@ -244,7 +244,7 @@ sub i_vlan_membership {
my @iid_array = split (/\./, $iid); my @iid_array = split (/\./, $iid);
my $len = $iid_array[0]; my $len = $iid_array[0];
my $v_idx = join ('.', ( splice @iid_array, 0, $len + 1 )); my $v_idx = join ('.', ( splice @iid_array, 0, $len + 1 ));
my $idx = $f5->convert_f5id_stdid($partial,join ('.', @iid_array)); my $idx = $f5->_convert_f5id_stdid($partial,join ('.', @iid_array));
# Check to make sure we can map to a port # Check to make sure we can map to a port
my $p_idx = $index->{$idx}; my $p_idx = $index->{$idx};
@@ -275,7 +275,7 @@ sub i_vlan_membership_untagged {
my @iid_array = split (/\./, $iid); my @iid_array = split (/\./, $iid);
my $len = $iid_array[0]; my $len = $iid_array[0];
my $v_idx = join ('.', ( splice @iid_array, 0, $len + 1 )); my $v_idx = join ('.', ( splice @iid_array, 0, $len + 1 ));
my $idx = $f5->convert_f5id_stdid($partial,join ('.', @iid_array)); my $idx = $f5->_convert_f5id_stdid($partial,join ('.', @iid_array));
# Check to make sure we can map to a port # Check to make sure we can map to a port
my $p_idx = $index->{$idx}; my $p_idx = $index->{$idx};