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

Psuedo ENTITY-MIB information

Browse Source
This commit is contained in:
Eric Miller
2007-11-24 03:18:13 +00:00
parent a714c46fba
commit 60cb2b8c20
1 changed files with 312 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

312
Info/Airespace.pm
View File

@@ -47,11 +47,14 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
%GLOBALS = (
%SNMP::Info::GLOBALS,
'airespace_type' => 'agentInventoryMachineType',
'airespace_model' => 'agentInventoryMachineModel',
'airespace_serial' => 'agentInventorySerialNumber',
'airespace_maint_ver' => 'agentInventoryMaintenanceLevel',
'airespace_mac' => 'agentInventoryBurnedInMacAddress',
'airespace_os' => 'agentInventoryOperatingSystem',
'airespace_vendor' => 'agentInventoryManufacturerName',
'airespace_prod_name' => 'agentInventoryProductName',
'os_ver' => 'agentInventoryProductVersion',
'airespace_bssid_mode' => 'agentNetworkBroadcastSsidMode',
'airespace_mc_mode' => 'agentNetworkMulticastMode',
@@ -83,8 +86,10 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
'airespace_ap_ip' => 'bsnApIpAddress',
'airespace_ap_loc' => 'bsnAPLocation',
'airespace_ap_sw' => 'bsnAPSoftwareVersion',
'airespace_ap_fw' => 'bsnAPBootVersion',
'airespace_ap_model' => 'bsnAPModel',
'airespace_ap_serial' => 'bsnAPSerialNumber',
'airespace_ap_type' => 'bsnAPType',
'airespace_ap_status' => 'bsnAPAdminStatus',
# AIRESPACE-WIRELESS-MIB::bsnAPIfTable
'airespace_apif_slot' => 'bsnAPIfSlotId',
@@ -641,6 +646,234 @@ sub i_80211channel {
return \%i_80211channel;
}
# Psuedo ENTITY-MIB methods
sub e_index {
my $airespace = shift;
my $ap_model = $airespace->airespace_ap_model() || {};
my %e_index;
# Chassis
$e_index{1} = 1;
# We're going to hack an index to capture APs
foreach my $idx (keys %$ap_model){
# Create the integer index by joining the last three octets of the MAC.
# Hopefully, this will be unique since the manufacturer should be
# limited to Airespace and Cisco. We can't use the entire MAC since
# we would exceed the intger size limit.
if ($idx =~ /(\d+\.\d+\.\d+)$/) {
my $index = int (join('',map { sprintf "%03d",$_ } split /\./, $1));
$e_index{$idx} = $index;
}
}
return \%e_index;
}
sub e_class {
my $airespace = shift;
my $e_idx = $airespace->e_index() || {};
my %e_class;
foreach my $iid (keys %$e_idx){
if ($iid eq 1) {
$e_class{$iid} = 'chassis';
}
# This isn't a valid PhysicalClass, but we're hacking this anyway
else {
$e_class{$iid} = 'ap';
}
}
return \%e_class;
}
sub e_name {
my $airespace = shift;
my $ap_name = $airespace->airespace_ap_name() || {};
my %e_name;
# Chassis
$e_name{1} = 'WLAN Controller';
# APs
foreach my $iid (keys %$ap_name){
$e_name{$iid} = 'AP';
}
return \%e_name;
}
sub e_descr {
my $airespace = shift;
my $ap_model = $airespace->airespace_ap_model() || {};
my $ap_name = $airespace->airespace_ap_name() || {};
my $ap_loc = $airespace->airespace_ap_loc() || {};
my %e_descr;
# Chassis
$e_descr{1} = $airespace->airespace_prod_name();
# APs
foreach my $iid (keys %$ap_name){
my $name = $ap_name->{$iid};
next unless defined $name;
my $model = $ap_model->{$iid} || 'AP';
my $loc = $ap_loc->{$iid} || 'unknown';
$e_descr{$iid} = "$model: $name ($loc)";
}
return \%e_descr;
}
sub e_model {
my $airespace = shift;
my $ap_model = $airespace->airespace_ap_model() || {};
my %e_model;
# Chassis
$e_model{1} = $airespace->airespace_model();
# APs
foreach my $iid (keys %$ap_model){
my $model = $ap_model->{$iid};
next unless defined $model;
$e_model{$iid} = $model;
}
return \%e_model;
}
sub e_type {
my $airespace = shift;
my $ap_type = $airespace->airespace_ap_type() || {};
my %e_type;
# Chassis
$e_type{1} = $airespace->airespace_type();
# APs
foreach my $iid (keys %$ap_type){
my $type = $ap_type->{$iid};
next unless defined $type;
$e_type{$iid} = $type;
}
return \%e_type;
}
sub e_fwver {
my $airespace = shift;
my $ap_fw = $airespace->airespace_ap_fw() || {};
my %e_fwver;
# Chassis
$e_fwver{1} = $airespace->airespace_maint_ver();
# APs
foreach my $iid (keys %$ap_fw){
my $fw = $ap_fw->{$iid};
next unless defined $fw;
$e_fwver{$iid} = $fw;
}
return \%e_fwver;
}
sub e_vendor {
my $airespace = shift;
my $e_idx = $airespace->e_index() || {};
my %e_vendor;
foreach my $iid (keys %$e_idx){
$e_vendor{$iid} = 'cisco';
}
return \%e_vendor;
}
sub e_serial {
my $airespace = shift;
my $ap_serial = $airespace->airespace_ap_serial() || {};
my %e_serial;
# Chassis
$e_serial{1} = $airespace->airespace_serial();
# APs
foreach my $iid (keys %$ap_serial){
my $serial = $ap_serial->{$iid};
next unless defined $serial;
$e_serial{$iid} = $serial;
}
return \%e_serial;
}
sub e_pos {
my $airespace = shift;
my $e_idx = $airespace->e_index() || {};
my %e_pos;
my $pos = 0;
foreach my $iid (sort keys %$e_idx){
if ($iid eq 1) {
$e_pos{$iid} = -1;
next;
}
else {
$pos++;
$e_pos{$iid} = $pos;
}
}
return \%e_pos;
}
sub e_swver {
my $airespace = shift;
my $ap_sw = $airespace->airespace_ap_sw() || {};
my %e_swver;
# Chassis
$e_swver{1} = $airespace->airespace_os();
# APs
foreach my $iid (keys %$ap_sw){
my $sw = $ap_sw->{$iid};
next unless defined $sw;
$e_swver{$iid} = $sw;
}
return \%e_swver;
}
sub e_parent {
my $airespace = shift;
my $e_idx = $airespace->e_index() || {};
my %e_parent;
foreach my $iid (sort keys %$e_idx){
if ($iid eq 1) {
$e_parent{$iid} = 0;
next;
}
else {
$e_parent{$iid} = 1;
}
}
return \%e_parent;
}
1;
__END__
@@ -710,6 +943,10 @@ These are methods that return scalar value from SNMP
=over
=item $airespace->airespace_type()
(B<agentInventoryMachineType>)
=item $airespace->airespace_model()
(B<agentInventoryMachineModel>)
@@ -718,6 +955,10 @@ These are methods that return scalar value from SNMP
(B<agentInventorySerialNumber>)
=item $airespace->airespace_maint_ver()
(B<agentInventoryMaintenanceLevel>)
=item $airespace->airespace_mac()
(B<agentInventoryBurnedInMacAddress>)
@@ -730,6 +971,10 @@ These are methods that return scalar value from SNMP
(B<agentInventoryManufacturerName>)
=item $airespace->airespace_prod_name()
(B<agentInventoryProductName>)
=item $airespace->os_ver()
(B<agentInventoryProductVersion>)
@@ -937,6 +1182,10 @@ User specified location of this AP.
(B<bsnAPSoftwareVersion>)
=item $airespace->airespace_ap_fw()
(B<bsnAPBootVersion>)
=item $airespace->airespace_ap_model()
(B<bsnAPModel>)
@@ -945,6 +1194,10 @@ User specified location of this AP.
(B<bsnAPSerialNumber>)
=item $airespace->airespace_ap_type()
(B<bsnAPType>)
=item $airespace->airespace_ap_status()
(B<bsnAPAdminStatus>)
@@ -1288,4 +1541,63 @@ airespace_sta_slot() combined to match the interface iid.
(B<bsnMobileStationMacAddress>)
=back
=head2 Psuedo ENTITY-MIB information
These methods emulate ENTITY-MIB Physical Table methods using
AIRESPACE-SWITCHING-MIB and AIRESPACE-WIRELESS-MIB. Thin APs are included
as subcomponents of the wireless controller.
=over
=item $airespace->e_index()
Returns reference to hash. Key: IID and Value: Integer. The index for APs is
created with an integer representation of the last three octets of the
AP MAC address.
=item $airespace->e_class()
Returns reference to hash. Key: IID, Value: General hardware type. Return ap
for wireless access points.
=item $airespace->e_descr()
Returns reference to hash. Key: IID, Value: Human friendly name.
=item $airespace->e_model()
Returns reference to hash. Key: IID, Value: Model name.
=item $airespace->e_vendor()
Returns reference to hash. Key: IID, Value: cisco.
=item $airespace->e_serial()
Returns reference to hash. Key: IID, Value: Serial number.
=item $airespace->e_pos()
Returns reference to hash. Key: IID, Value: The relative position among all
entities sharing the same parent.
=item $airespace->e_type()
Returns reference to hash. Key: IID, Value: Type of component.
=item $airespace->e_fwver()
Returns reference to hash. Key: IID, Value: Firmware revision.
=item $airespace->e_swver()
Returns reference to hash. Key: IID, Value: Software revision.
=item $airespace->e_parent()
Returns reference to hash. Key: IID, Value: The value of e_index() for the
entity which 'contains' this entity.
=cut