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

Fix for Perl::Critic flagged warning

Browse Source
This commit is contained in:
Eric A. Miller
2013-02-10 12:38:16 -05:00
parent 8f0ac35381
commit d4c460fd3d
1 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Info/Layer2/NWSS2300.pm
View File

@@ -437,20 +437,27 @@ sub i_ssidlist {
my %i_ssidlist;
foreach my $iid ( keys %$i_index ) {
# Skip non-radio interfaces
next if $iid =~ /^\d+$/;
foreach my $idx ( keys %$apif_bssid) {
next unless ($idx =~ /^$iid\./);
foreach my $idx ( keys %$apif_bssid ) {
next unless ( $idx =~ /^$iid\./ );
my $bssid_mac = $apif_bssid->{$idx};
next unless $bssid_mac;
# Give the SSID a numeric value based upon tail of BSSID
my $id = hex $1 if $bssid_mac =~ /:([0-9A-F]{1,2})$/i;
next unless (defined $id and $id =~ /\d+/);
my $id;
if ( $bssid_mac =~ /:([0-9A-F]{1,2})$/i ) {
$id = hex $1;
}
next unless ( defined $id and $id =~ /\d+/ );
my $ssid_oid = $idx;
$ssid_oid =~ s/^$iid\.//;
my $ssid = join( '', map { sprintf "%c", $_ } split /\./, $ssid_oid );
my $ssid
= join( '', map { sprintf "%c", $_ } split /\./, $ssid_oid );
# Remove any control characters including nulls
$ssid =~ s/[\c@-\c_]//g;
$i_ssidlist{"$iid.$id"} = $ssid;
@@ -459,6 +466,7 @@ sub i_ssidlist {
return \%i_ssidlist;
}
# Can't find in MIB
#
#sub i_ssidbcast {