-Check in barely enough code to remind about SNMPv3 switch support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2209 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-09-19 15:41:52 +00:00
parent 0ad5513cb7
commit eaae5e1051

View File

@ -10,6 +10,7 @@ use Sys::Syslog;
use Data::Dumper;
use SNMP;
my %cisco_vlans; #Special hash structure to reflect discovered VLANS on Cisco equip
my $switchestab; #table handle to the switches
#use IF-MIB (1.3.6.1.2.1.2) for all switches
# 1.3.6.1.2.1.31.1.1 - ifXtable
# 1.3.6.1.2.1.31.1.1.1.1.N = name - ifName
@ -207,6 +208,9 @@ sub refresh_switch {
my $output = shift;
my $community = shift;
my $switch = shift;
my $snmpver=1;
my $privproto='AES';
my $swent=$switchestab->getAttribs({switch=>$switch},[qw(snmpversion username password privacy auth)]);
$session = new SNMP::Session(
DestHost => $switch,
Version => '1',