stellagoddc has asked for the wisdom of the Perl Monks concerning the following question:
I started by doin what I hoped was a simple scipt to get me going and keep on getting the following error when I run it,
green-midget:/home/dave # ./snmp.pl
Can't load '/usr/lib/perl5/vendor_perl/5.8.8/i586-linux-thread-multi/auto/SNMP/SNMP.so' for module SNMP: /usr/lib/perl5/vendor_perl/5.8.8/i586-linux-thread-multi/auto/SNMP/SNMP.so: undefined symbol: usmHMACSHA1Auth Protocol at /usr/lib/perl5/5.8.8/i586-linux-thread-multi/DynaLoader.pm line 230. at ./snmp.pl line 3 Compilation failed in require at ./snmp.pl line 3. BEGIN failed--compilation aborted at ./snmp.pl line 3.
Here is my extremely simple code (which I borrowed),
#!/usr/bin/perl use SNMP; # requires a hostname and a community string as its arguments $session = new SNMP::Session(DestHost => $ARGV[0], Community => $A +RGV[1], Version => 1, UseSprintValue => 1); die "session creation error: $SNMP::Session::ErrorStr" unless (defined $session); # set up the data structure for the getnext command $vars = new SNMP::VarList(['ipNetToMediaNetAddress'], ['ipNetToMediaPhysAddress']); # get first row ($ip,$mac) = $session->getnext($vars); die $session->{ErrorStr} if ($session->{ErrorStr}); # and all subsequent rows while (!$session->{ErrorStr} and $$vars[0]->tag eq "ipNetToMediaNetAddress"){ print "$ip -> $mac\n"; ($ip,$mac) = $session->getnext($vars); };
Any help would be great.
Thanks Dave
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Geeting usmHMACSHA1Auth error
by zentara (Cardinal) on Apr 20, 2006 at 12:13 UTC | |
|
Re: Geeting usmHMACSHA1Auth error
by Anonymous Monk on Apr 20, 2006 at 10:10 UTC |