Changeset 275


Ignore:
Timestamp:
Sep 22, 2017, 7:32:44 PM (7 years ago)
Author:
g7moreau
Message:
  • Rename some $vlan variable to be more clear : $vlanid -> $vlan_id
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r274 r275  
    821821   my ($snmp_session, $verbose) = @_;
    822822
    823    my %vlan = (); # Hash vlan number => vlan name
     823   my %vlandb = (); # Hash vlan number => vlan name
    824824
    825825   my $research_index = $OID_NUMBER{'vlanName'}; # base OID
     
    831831
    832832      my $vlan_name = $snmp_session->var_bind_list->{$oid_current};
    833       my ($vlan_index) = reverse split /\./, $oid_current; # last number
     833      my ($vlan_id) = reverse split /\./, $oid_current; # last number
    834834      printf "VLAN: %s => %s\n", $oid_current, $vlan_name if $verbose;
    835835
    836       $vlan{$vlan_index} = $vlan_name;
     836      $vlandb{$vlan_id} = $vlan_name;
    837837
    838838      # prepare next loop item
    839839      @args = (-varbindlist => [$oid_current]);
    840840      }
    841    return %vlan;
     841   return %vlandb;
    842842   }
    843843
     
    21292129     
    21302130      print "VLAN_ID - VLAN_NAME # $sw_name\n";
    2131       for my $vlanid (keys %vlandb) {
    2132          printf "%7i - %s\n", $vlanid, $vlandb{$vlanid};
     2131      for my $vlan_id (keys %vlandb) {
     2132         printf "%7i - %s\n", $vlan_id, $vlandb{$vlan_id};
    21332133         }
    21342134      }
Note: See TracChangeset for help on using the changeset viewer.