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

1.0 prep :

Browse Source 
- whitespace changes
    - remove email
    - rev vers no.
This commit is contained in:
Max Baker
2005-01-28 08:41:19 +00:00
parent ff07325a05
commit 7944613d42
3 changed files with 35 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Info/Layer1/Allied.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Layer1::Allied # SNMP::Info::Layer1::Allied
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Allied; package SNMP::Info::Layer1::Allied;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -128,7 +128,7 @@ SNMP::Info::Layer1::Allied - SNMP Interface to old Allied Hubs
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

6
Info/Layer1/Asante.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Layer1::Asante # SNMP::Info::Layer1::Asante
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Asante; package SNMP::Info::Layer1::Asante;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -171,7 +171,7 @@ SNMP::Info::Layer1::Asante - SNMP Interface to old Asante 1012 Hubs
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

53
Info/Layer1/Bayhub.pm
View File

@@ -2,10 +2,7 @@
# Eric Miller <eric@jeneric.org> # Eric Miller <eric@jeneric.org>
# $Id$ # $Id$
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Eric Miller, Max Baker
#
# Copyright (c) 2002,2003 Regents of the University of California
# All rights reserved.
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: # modification, are permitted provided that the following conditions are met:
@@ -31,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Bayhub; package SNMP::Info::Layer1::Bayhub;
$VERSION = 0.9; $VERSION = 1.0;
use strict; use strict;
use Exporter; use Exporter;
@@ -46,12 +43,12 @@ use SNMP::Info::SONMP;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::MIBS,
%SNMP::Info::Bridge::MIBS, %SNMP::Info::Bridge::MIBS,
%SNMP::Info::NortelStack::MIBS, %SNMP::Info::NortelStack::MIBS,
%SNMP::Info::SONMP::MIBS, %SNMP::Info::SONMP::MIBS,
'S5-ETHERNET-COMMON-MIB' => 's5EnPortTable', 'S5-ETHERNET-COMMON-MIB' => 's5EnPortTable',
'S5-COMMON-STATS-MIB' => 's5CmStat', 'S5-COMMON-STATS-MIB' => 's5CmStat',
); );
%GLOBALS = ( %GLOBALS = (
@@ -59,7 +56,7 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
%SNMP::Info::Bridge::GLOBALS, %SNMP::Info::Bridge::GLOBALS,
%SNMP::Info::NortelStack::GLOBALS, %SNMP::Info::NortelStack::GLOBALS,
%SNMP::Info::SONMP::GLOBALS, %SNMP::Info::SONMP::GLOBALS,
); );
%FUNCS = ( %FUNCS = (
%SNMP::Info::FUNCS, %SNMP::Info::FUNCS,
@@ -67,14 +64,14 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
%SNMP::Info::NortelStack::FUNCS, %SNMP::Info::NortelStack::FUNCS,
%SNMP::Info::SONMP::FUNCS, %SNMP::Info::SONMP::FUNCS,
# S5-ETHERNET-COMMON-MIB::s5EnPortTable # S5-ETHERNET-COMMON-MIB::s5EnPortTable
'bayhub_pb_index' => 's5EnPortBrdIndx', 'bayhub_pb_index' => 's5EnPortBrdIndx',
'bayhub_pp_index' => 's5EnPortIndx', 'bayhub_pp_index' => 's5EnPortIndx',
'bayhub_up_admin' => 's5EnPortPartStatus', 'bayhub_up_admin' => 's5EnPortPartStatus',
'bayhub_up' => 's5EnPortLinkStatus', 'bayhub_up' => 's5EnPortLinkStatus',
# S5-COMMON-STATS-MIB::s5CmSNodeTable # S5-COMMON-STATS-MIB::s5CmSNodeTable
'bayhub_nb_index' => 's5CmSNodeBrdIndx', 'bayhub_nb_index' => 's5CmSNodeBrdIndx',
'bayhub_np_index' => 's5CmSNodePortIndx', 'bayhub_np_index' => 's5CmSNodePortIndx',
'fw_mac' => 's5CmSNodeMacAddr', 'fw_mac' => 's5CmSNodeMacAddr',
); );
%MUNGE = ( %MUNGE = (
@@ -137,9 +134,9 @@ sub i_index {
} }
} }
my $index = ($board*256)+$port; my $index = ($board*256)+$port;
$i_index{$iid} = $index; $i_index{$iid} = $index;
} }
return \%i_index; return \%i_index;
} }
@@ -153,8 +150,8 @@ sub interfaces {
my $index = $i_index->{$iid}; my $index = $i_index->{$iid};
next unless defined $index; next unless defined $index;
# Index numbers are deterministic slot * 256 + port # Index numbers are deterministic slot * 256 + port
my $port = $index % 256; my $port = $index % 256;
my $slot = int($index / 256); my $slot = int($index / 256);
my $slotport = "$slot.$port"; my $slotport = "$slot.$port";
@@ -220,7 +217,7 @@ sub i_up {
my $index = $port_index->{$iid}; my $index = $port_index->{$iid};
next unless defined $index; next unless defined $index;
my $link_stat = $link_stat->{$iid}; my $link_stat = $link_stat->{$iid};
next unless defined $link_stat; next unless defined $link_stat;
$link_stat = 'up' if $link_stat =~ /on/i; $link_stat = 'up' if $link_stat =~ /on/i;
$link_stat = 'down' if $link_stat =~ /off/i; $link_stat = 'down' if $link_stat =~ /off/i;
@@ -237,10 +234,10 @@ sub i_up_admin {
my %i_up_admin; my %i_up_admin;
foreach my $iid (keys %$i_index){ foreach my $iid (keys %$i_index){
my $index = $i_index->{$iid}; my $index = $i_index->{$iid};
next unless defined $index; next unless defined $index;
my $link_stat = $link_stat->{$iid}; my $link_stat = $link_stat->{$iid};
next unless defined $link_stat; next unless defined $link_stat;
$i_up_admin{$index}=$link_stat; $i_up_admin{$index}=$link_stat;
} }
@@ -272,9 +269,9 @@ sub bp_index {
} }
} }
my $index = ($board*256)+$port; my $index = ($board*256)+$port;
$bp_index{$index} = $index; $bp_index{$index} = $index;
} }
return \%bp_index; return \%bp_index;
} }
@@ -304,7 +301,7 @@ sub fw_port {
} }
} }
my $index = ($board*256)+$port; my $index = ($board*256)+$port;
$fw_port{$iid} = $index; $fw_port{$iid} = $index;
} }