Add -n for no bulkwalk.
Allow -x to be specified multiple times to go with Info.pm's new Debug=2 output.
This commit is contained in:
@@ -13,7 +13,7 @@ use lib '/usr/local/netdisco';
|
||||
use SNMP::Info;
|
||||
use Getopt::Long;
|
||||
use strict;
|
||||
use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped $Debug/;
|
||||
use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped $Debug %args $NoBulk/;
|
||||
|
||||
# Default Values
|
||||
$Class = '';
|
||||
@@ -22,14 +22,16 @@ $Comm = '';
|
||||
$Ver = 2;
|
||||
@Dump = ();
|
||||
$Debug = 0;
|
||||
$NoBulk = 0;
|
||||
|
||||
GetOptions ('c|class=s' => \$Class,
|
||||
'd|dev=s' => \$Dev,
|
||||
's|comm=s' => \$Comm,
|
||||
'v|ver=i' => \$Ver,
|
||||
'h|help' => \&usage,
|
||||
'p|print=s' => \@Dump,
|
||||
'x|debug' => \$Debug,
|
||||
GetOptions ('c|class=s' => \$Class,
|
||||
'd|dev=s' => \$Dev,
|
||||
's|comm=s' => \$Comm,
|
||||
'v|ver=i' => \$Ver,
|
||||
'h|help' => \&usage,
|
||||
'p|print=s' => \@Dump,
|
||||
'x|debug+' => \$Debug,
|
||||
'n|nobulk' => \$NoBulk,
|
||||
);
|
||||
|
||||
&usage unless ($Dev and $Comm);
|
||||
@@ -44,12 +46,18 @@ print "Class $Class loaded.\n";
|
||||
|
||||
print "Dumping : ",join(',',@Dump),"\n" if scalar @Dump;
|
||||
|
||||
%args = ();
|
||||
if ($NoBulk) {
|
||||
$args{BulkWalk} = 0;
|
||||
}
|
||||
|
||||
my $dev = new $Class( 'AutoSpecify' => 0,
|
||||
'AutoVerBack' => 0,
|
||||
'Version' => $Ver,
|
||||
'Debug' => $Debug,
|
||||
'DestHost' => $Dev,
|
||||
'Community' => $Comm
|
||||
'Community' => $Comm,
|
||||
%args
|
||||
) or die "\n";
|
||||
|
||||
print "Connected to $Dev.\n";
|
||||
@@ -166,12 +174,14 @@ sub usage {
|
||||
print << "end_usage";
|
||||
|
||||
test_class - Test a device against an SNMP::Info class
|
||||
-c --class Layer2::Catalyst
|
||||
-d --dev myswitch
|
||||
-s --comm public
|
||||
-v --ver 2
|
||||
-p --print i_blah
|
||||
-p --print i_blah2
|
||||
-c --class Layer2::Catalyst
|
||||
-d --dev myswitch
|
||||
-s --comm public
|
||||
-v --ver 2
|
||||
-p --print i_blah
|
||||
-p --print i_blah2
|
||||
-x --debug debugging flag
|
||||
-n --nobulk disable bulkwalk
|
||||
|
||||
end_usage
|
||||
exit;
|
||||
|
||||
Reference in New Issue
Block a user