-Eliminate 'use SNMP' from places to get memory consumption down
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2899 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
ed59575e36
commit
01fa8a148c
@ -8,7 +8,6 @@ use IO::Select;
|
||||
use IO::Handle;
|
||||
use Sys::Syslog;
|
||||
use Data::Dumper;
|
||||
use SNMP;
|
||||
my %cisco_vlans; #Special hash structure to reflect discovered VLANS on Cisco equip
|
||||
#use IF-MIB (1.3.6.1.2.1.2) for all switches
|
||||
# 1.3.6.1.2.1.31.1.1 - ifXtable
|
||||
@ -78,6 +77,12 @@ OID, and have the switch table port value match exactly the format suggested by
|
||||
|
||||
sub new {
|
||||
my $self = {};
|
||||
eval {
|
||||
require SNMP;
|
||||
};
|
||||
if ($@) {
|
||||
die "SNMP support required to use MacMAP";
|
||||
}
|
||||
my $proto = shift;
|
||||
my $class = ref($proto) || $proto;
|
||||
|
||||
|
@ -1,10 +1,8 @@
|
||||
#!/usr/bin/env perl
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
package xCAT_plugin::nodediscover;
|
||||
#use Net::SNMP qw(:snmp INTEGER);
|
||||
use xCAT::Table;
|
||||
use IO::Socket;
|
||||
use SNMP;
|
||||
use strict;
|
||||
|
||||
use XML::Simple;
|
||||
|
Loading…
Reference in New Issue
Block a user