From eaae5e10517d442a552f350e449f7bd53eb8781e Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 19 Sep 2008 15:41:52 +0000
Subject: [PATCH] -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
---
perl-xCAT/xCAT/MacMap.pm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/perl-xCAT/xCAT/MacMap.pm b/perl-xCAT/xCAT/MacMap.pm
index d9dfc23cf..fce666a98 100644
--- a/perl-xCAT/xCAT/MacMap.pm
+++ b/perl-xCAT/xCAT/MacMap.pm
@@ -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',