added cisco_comm_indexing() method for clarification/customization purposed.

ChangeLog

@@ -1,12 +1,15 @@
-SNMP::Info - Perl5 OO Interface to Network Devices and SNMP MIBs
+SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
 ChangeLog $Id$
 
 version 0.8 ()
+    + Added Q-BRIDGE-MIB support to SNMP::Info::Bridge
     + Added Aironet AP4800 to Layer3::Aironet class
     + Added C3500XL devices to the Layer2::C2900 class
     + Added Cisco 3750 (37xxstack) to Layer3::C6500 class
     + Added Cisco Catalyst 4000 to Layer3::C6500 class
     + Added Cisco Catalyst 2970 to Layer3::C6500 Class
+    * Made Cisco Commuinty string indexing a boolean method for clarification
+    * Added VLAN info for HP devices using Q-BRIDGE-MIB
     * Fixed warning about uninitialized value in CiscoStats line 92
     * Added for more serial# checking for L2 and L3
     * Fixed warning in Layer2::Bay about non numeric port line 199

Info.pm

@@ -771,7 +771,6 @@ Usually this method is called internally from new(AutoSpecify => 1)
 
 See device_type() entry for how a subclass is chosen. 
 
-=back
 
 =cut
 sub specify {
@@ -805,6 +804,20 @@ sub specify {
     return $sub_obj;
 }
 
+=item $info->cisco_comm_indexing()
+
+Returns 0.  Is an overridable method used for vlan indexing for
+snmp calls on certain Cisco devices. 
+
+See L<ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html>
+
+=cut
+sub cisco_comm_indexing{
+    0;
+}
+
+=back
+
 =head2 Globals (Scalar Methods)
 
 These are methods to return scalar data from RFC1213.  

Info/Layer2/C1900.pm

@@ -99,6 +99,10 @@ sub os_ver {
     return undef;
 }
 
+sub cisco_comm_indexing {
+    1;
+}
+
 sub interfaces {
     my $c1900 = shift;
     my $i_descr = $c1900->i_description();

Info/Layer2/C2900.pm

@@ -72,6 +72,14 @@ sub vendor {
     return 'cisco';
 }
 
+sub os {
+    return 'catalyst';
+}
+
+sub cisco_comm_indexing {
+    1;
+}
+
 sub i_duplex {
     my $c2900 = shift;
     

Info/Layer2/Catalyst.pm

@@ -110,6 +110,10 @@ sub os_ver {
     return undef;
 }
 
+sub cisco_comm_indexing {
+    1;
+}
+
 1;
 __END__
 

Info/Layer3/C3550.pm

@@ -115,6 +115,10 @@ sub ports {
     return $ports2;
 }
 
+sub cisco_comm_indexing {
+    1;
+}
+
 
 1;
 __END__

Info/Layer3/C6500.pm

@@ -93,6 +93,11 @@ sub vendor {
     return 'cisco';
 }
 
+sub cisco_comm_indexing {
+    1;
+}
+
+
 1;
 __END__