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

Add debug option, -x or --debug

Browse Source
This commit is contained in:
Bill Fenner
2006-04-15 01:20:40 +00:00
parent 83751acf91
commit aa8c86ddcd
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
t/test_class.pl
View File

@@ -13,7 +13,7 @@ use lib '/usr/local/netdisco';
use SNMP::Info; use SNMP::Info;
use Getopt::Long; use Getopt::Long;
use strict; use strict;
use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped/; use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped $Debug/;
# Default Values # Default Values
$Class = ''; $Class = '';
@@ -21,6 +21,7 @@ $Dev = '';
$Comm = ''; $Comm = '';
$Ver = 2; $Ver = 2;
@Dump = (); @Dump = ();
$Debug = 0;
GetOptions ('c|class=s' => \$Class, GetOptions ('c|class=s' => \$Class,
'd|dev=s' => \$Dev, 'd|dev=s' => \$Dev,
@@ -28,6 +29,7 @@ GetOptions ('c|class=s' => \$Class,
'v|ver=i' => \$Ver, 'v|ver=i' => \$Ver,
'h|help' => \&usage, 'h|help' => \&usage,
'p|print=s' => \@Dump, 'p|print=s' => \@Dump,
'x|debug' => \$Debug,
); );
&usage unless ($Dev and $Comm); &usage unless ($Dev and $Comm);
@@ -45,7 +47,7 @@ print "Dumping : ",join(',',@Dump),"\n" if scalar @Dump;
my $dev = new $Class( 'AutoSpecify' => 0, my $dev = new $Class( 'AutoSpecify' => 0,
'AutoVerBack' => 0, 'AutoVerBack' => 0,
'Version' => $Ver, 'Version' => $Ver,
'Debug' => 0, 'Debug' => $Debug,
'DestHost' => $Dev, 'DestHost' => $Dev,
'Community' => $Comm 'Community' => $Comm
) or die "\n"; ) or die "\n";