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

Added L3::Cisco class, added method check to _set()

Browse Source
This commit is contained in:
Max Baker
2004-11-15 23:31:20 +00:00
parent ed66350c27
commit d19b71073d
1 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Info.pm
View File

@@ -704,6 +704,7 @@ Algorithm for Subclass Detection:
AP4800... All Non IOS AP4800... All Non IOS
Catalyst 3550,3548,3560 -> SNMP::Info::Layer3::C3550 Catalyst 3550,3548,3560 -> SNMP::Info::Layer3::C3550
Catalyst 6500, 4000, 3750 -> SNMP::Info::Layer3::C6500 Catalyst 6500, 4000, 3750 -> SNMP::Info::Layer3::C6500
Cisco Generic L3 IOS device -> SNMP::Info::Layer3::Cisco
Foundry -> SNMP::Info::Layer3::Foundry Foundry -> SNMP::Info::Layer3::Foundry
Nortel Passport LAN -> SNMP::Info::Layer3::Passport Nortel Passport LAN -> SNMP::Info::Layer3::Passport
Alteon Ace Director -> SNMP::Info::Layer3::AlteonAD Alteon Ace Director -> SNMP::Info::Layer3::AlteonAD
@@ -773,6 +774,9 @@ sub device_type {
# Allied Telesyn Layer2 managed switches. They report they have L3 support # Allied Telesyn Layer2 managed switches. They report they have L3 support
$objtype = 'SNMP::Info::Layer2::Allied' if ($desc =~ /Allied.*AT-80\d{2}\S*/i); $objtype = 'SNMP::Info::Layer2::Allied' if ($desc =~ /Allied.*AT-80\d{2}\S*/i);
# Default generic cisco
$objtype = 'SNMP::Info::Layer3::Cisco' if ($objtype eq 'SNMP::Info::Layer3' and $desc =~ /\bIOS\b/);
# Layer 2 Supported # Layer 2 Supported
} elsif ($info->has_layer(2)) { } elsif ($info->has_layer(2)) {
$objtype = 'SNMP::Info::Layer2'; $objtype = 'SNMP::Info::Layer2';
@@ -1379,7 +1383,7 @@ Returns undef if failed, or the return value from SNMP::Session::set() (snmp_err
# Disable a port administratively # Disable a port administratively
my %if_map = reverse %{$info->interfaces()} my %if_map = reverse %{$info->interfaces()}
$info->set_i_up_admin('down', $if_map{'FastEthernet0/0') $info->set_i_up_admin('down', $if_map{'FastEthernet0/0'})
or die "Couldn't disable the port. ",$info->error(1); or die "Couldn't disable the port. ",$info->error(1);
=back =back
@@ -2085,13 +2089,20 @@ sub _set {
my $funcs = $self->funcs(); my $funcs = $self->funcs();
my $globals = $self->globals(); my $globals = $self->globals();
my $oid = undef; # Check if this method is from a sub or from the tables.
if ($self->can($attr)){
$self->error_throw("SNMP::Info::_set($attr,$val) - Failed. $attr is generated in a sub(). set_$attr sub required.");
# if sub set_attr() existed, we wouldn't have gotten this far.
return undef;
}
# Lookup oid # Lookup oid
my $oid = undef;
$oid = $globals->{$attr} if defined $globals->{$attr}; $oid = $globals->{$attr} if defined $globals->{$attr};
$oid = $funcs->{$attr} if defined $funcs->{$attr}; $oid = $funcs->{$attr} if defined $funcs->{$attr};
unless (defined $oid) { unless (defined $oid) {
$self->error_throw("SNMP::Info::_set($attr,$val) - Failed to find $attr in \%GLOBALS or \%FUNCS"); $self->error_throw("SNMP::Info::_set($attr,$val) - Failed to find $attr in \%GLOBALS or \%FUNCS.");
return undef; return undef;
} }