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

ERS 1600 series code versions >= 2.1 now use this class

Browse Source
This commit is contained in:
Eric Miller
2006-09-19 16:24:09 +00:00
parent d7c0959d27
commit 72e8f46633
1 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Info/Layer3/Passport.pm
View File

@@ -97,7 +97,7 @@ sub os_ver {
my $descr = $passport->description(); my $descr = $passport->description();
return undef unless defined $descr; return undef unless defined $descr;
#Passport #ERS / Passport
if ($descr =~ m/(\d+\.\d+\.\d+\.\d+)/){ if ($descr =~ m/(\d+\.\d+\.\d+\.\d+)/){
return $1; return $1;
} }
@@ -125,7 +125,7 @@ sub i_index {
# Get VLAN Virtual Router Interfaces # Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81)/) or (($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|11|12)/)))) { ($partial > 256 and $model =~ /(105|11|12)/)))) {
my $vlan_index = $passport->rc_vlan_if() || {}; my $vlan_index = $passport->rc_vlan_if() || {};
@@ -176,7 +176,7 @@ sub interfaces {
my $vlan_id = {}; my $vlan_id = {};
if (!defined $partial or (defined $model and if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81)/) or (($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|11|12)/)))) { ($partial > 256 and $model =~ /(105|11|12)/)))) {
$vlan_index = $passport->rc_vlan_if(); $vlan_index = $passport->rc_vlan_if();
%reverse_vlan = reverse %$vlan_index; %reverse_vlan = reverse %$vlan_index;
@@ -204,7 +204,7 @@ sub interfaces {
$if{$index} = 'Cpu.6'; $if{$index} = 'Cpu.6';
} }
elsif (($index > 2000 and $model =~ /(86|81)/) or elsif (($index > 2000 and $model =~ /(86|83|81|16)/) or
($index > 256 and $model =~ /(105|11|12)/)) { ($index > 256 and $model =~ /(105|11|12)/)) {
my $v_index = $reverse_vlan{$iid}; my $v_index = $reverse_vlan{$iid};
@@ -244,7 +244,7 @@ sub i_mac {
# Get VLAN Virtual Router Interfaces # Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81)/) or (($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|11|12)/)))) { ($partial > 256 and $model =~ /(105|11|12)/)))) {
my $vlan_index = $passport->rc_vlan_if() || {}; my $vlan_index = $passport->rc_vlan_if() || {};
@@ -310,7 +310,7 @@ sub i_description {
# Get VLAN Virtual Router Interfaces # Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81)/) or (($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|11|12)/)))) { ($partial > 256 and $model =~ /(105|11|12)/)))) {
my $v_descr = $passport->rc_vlan_name(); my $v_descr = $passport->rc_vlan_name();
@@ -342,7 +342,7 @@ sub i_name {
my %reverse_vlan; my %reverse_vlan;
if (!defined $partial or (defined $model and if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81)/) or (($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|11|12)/)))) { ($partial > 256 and $model =~ /(105|11|12)/)))) {
$v_name = $passport->rc_vlan_name() || {}; $v_name = $passport->rc_vlan_name() || {};
$vlan_index = $passport->rc_vlan_if() || {}; $vlan_index = $passport->rc_vlan_if() || {};
@@ -368,7 +368,7 @@ sub i_name {
$i_name{$iid} = 'CPU 6 Ethernet Port'; $i_name{$iid} = 'CPU 6 Ethernet Port';
} }
elsif (($iid > 2000 and defined $model and $model =~ /(86|81)/) or elsif (($iid > 2000 and defined $model and $model =~ /(86|83|81|16)/) or
($iid > 256 and defined $model and $model =~ /(105|11|12)/)) { ($iid > 256 and defined $model and $model =~ /(105|11|12)/)) {
my $vlan_index = $reverse_vlan{$iid}; my $vlan_index = $reverse_vlan{$iid};
my $vlan_name = $v_name->{$vlan_index}; my $vlan_name = $v_name->{$vlan_index};
@@ -435,8 +435,8 @@ sub root_ip {
my $sonmp_topo_port = $passport->sonmp_topo_port(); my $sonmp_topo_port = $passport->sonmp_topo_port();
my $sonmp_topo_ip = $passport->sonmp_topo_ip(); my $sonmp_topo_ip = $passport->sonmp_topo_ip();
# Only 8600 has CLIP or Management Virtual IP # Only 8600 and 1600 have CLIP or Management Virtual IP
if (defined $model and $model =~ /(86)/) { if (defined $model and $model =~ /(86|16)/) {
# Return CLIP (CircuitLess IP) # Return CLIP (CircuitLess IP)
foreach my $iid (keys %$rc_ip_type){ foreach my $iid (keys %$rc_ip_type){
my $ip_type = $rc_ip_type->{$iid}; my $ip_type = $rc_ip_type->{$iid};
@@ -509,7 +509,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Layer3::Passport - Perl5 Interface to modular Nortel Ethernet Routing SNMP::Info::Layer3::Passport - SNMP Interface to modular Nortel Ethernet Routing
Switches (formerly Passport / Accelar) Switches (formerly Passport / Accelar)
=head1 AUTHOR =head1 AUTHOR
@@ -564,11 +564,11 @@ determining a more specific class using the method above.
=item Inherited Classes' MIBs =item Inherited Classes' MIBs
See SNMP::Info::SONMP for its own MIB requirements. See L<SNMP::Info::SONMP> for its own MIB requirements.
See SNMP::Info::RapidCity for its own MIB requirements. See L<SNMP::Info::RapidCity> for its own MIB requirements.
See SNMP::Info::Layer3 for its own MIB requirements. See L<SNMP::Info::Layer3> for its own MIB requirements.
=back =back
@@ -627,15 +627,15 @@ Required by SNMP::Info::SONMP. Returns 0.
=head2 Global Methods imported from SNMP::Info::SONMP =head2 Global Methods imported from SNMP::Info::SONMP
See documentation in SNMP::Info::SONMP for details. See documentation in L<SNMP::Info::SONMP> for details.
=head2 Global Methods imported from SNMP::Info::RapidCity =head2 Global Methods imported from SNMP::Info::RapidCity
See documentation in SNMP::Info::RapidCity for details. See documentation in L<SNMP::Info::RapidCity> for details.
=head2 Globals imported from SNMP::Info::Layer3 =head2 Globals imported from SNMP::Info::Layer3
See documentation in SNMP::Info::Layer3 for details. See documentation in L<SNMP::Info::Layer3> for details.
=head1 TABLE ENTRIES =head1 TABLE ENTRIES
@@ -693,14 +693,14 @@ problems with BRIDGE-MIB
=head2 Table Methods imported from SNMP::Info::SONMP =head2 Table Methods imported from SNMP::Info::SONMP
See documentation in SNMP::Info::SONMP for details. See documentation in L<SNMP::Info::SONMP> for details.
=head2 Table Methods imported from SNMP::Info::RapidCity =head2 Table Methods imported from SNMP::Info::RapidCity
See documentation in SNMP::Info::RapidCity for details. See documentation in L<SNMP::Info::RapidCity> for details.
=head2 Table Methods imported from SNMP::Info::Layer3 =head2 Table Methods imported from SNMP::Info::Layer3
See documentation in SNMP::Info::Layer3 for details. See documentation in L<SNMP::Info::Layer3> for details.
=cut =cut