Problem with loaded module Net::SNMP

[kr99]

I am trying to run a scrpt and I get an error indicating that the Perl Net::SNMP module may not be loaded.

#perl udpInOut.pl localhost 161 public 1 
"Can't locate object method "session" via package "Net::SNMP" (perhaps you forgot to load "Net::SNMP"?) at udpInOut.pl line 35."
 

Here are the relevant lines in the script

use Net::SNMP;
................
my ($session, $error) = Net::SNMP->session(
                        -hostname      => $in_hostname,
                        -port          => $in_port,
                        -version       => $in_version,
                        -community     => $in_community,
                        );
 

I checked (below) and the Net::SNMP is definitely there

#perldoc perllocal
Thu Oct 18 22:49:42 2007: "Module" Net::SNMP

· "installed into: /usr/lib/perl5/site_perl/5.8.8"

· "LINKTYPE: dynamic"

· "VERSION: 5.2.0"

· "EXE_FILES: snmpkey"


Is this a versioning problem ? Appreciate any help. Cheers

[KevinADC]

The usage looks correct. Try this:

#!/usr/bin/perl
#print "Content-type: text/html\n\n"; #uncomment if running from a browser
print "$_\n" for @INC;
 

see what directories are found in @INC

[kr99]

Good idea, Kevin but the correct path seems to be included

[root@chimds12 ~]# perl test.pl
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl/5.8.7
/usr/lib/perl5/site_perl/5.8.6
/usr/lib/perl5/site_perl/5.8.5
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl/5.8.7
/usr/lib/perl5/vendor_perl/5.8.6
/usr/lib/perl5/vendor_perl/5.8.5
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/5.8.8

[numberwhun]

Good idea, Kevin but the correct path seems to be included

[root@chimds12 ~]# perl test.pl
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl/5.8.7
/usr/lib/perl5/site_perl/5.8.6
/usr/lib/perl5/site_perl/5.8.5
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl/5.8.7
/usr/lib/perl5/vendor_perl/5.8.6
/usr/lib/perl5/vendor_perl/5.8.5
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/5.8.8

I think that what Kevin was looking for, was to see if the Net::SNMP module was installed. Did you run the code that he gave you above?


Regards,

Jeff

[kr99]

Hi Jeff
Yes I did use Kevin's code . I copied his code into the test.pl script and that was the output I showed in my post.

[numberwhun]

Hi Jeff
Yes I did use Kevin's code . I copied his code into the test.pl script and that was the output I showed in my post.

Ok, then this may be a stupid question, but do you have the Net::SNMP module installed on your machine?

Regards,

Jeff

[kr99]

Jeff

The message I am getting does suggest that the loading of the module is indeed the problem. CPAN FAQs told me to run 'perldoc' to see loaded modules and the output below indicates to me that the module is there.
Is there another command I can run ?
Rgds

#perldoc perllocal
Thu Oct 18 22:49:42 2007: "Module" Net::SNMP

· "installed into: /usr/lib/perl5/site_perl/5.8.8"

· "LINKTYPE: dynamic"

· "VERSION: 5.2.0"

· "EXE_FILES: snmpkey"

[KevinADC]

post the script that is generating the error:

udpInOut.pl

The usage of the module appears to be correct according to the documentation so unless there is a problem in the script I don't know what is causing the error.

[KevinADC]

Ok, then this may be a stupid question, but do you have the Net::SNMP module installed on your machine?

Regards,

Jeff

He would be getting a different error if the module was not installed:

Can't find foo in @INC, @INC includes......

[kr99]

post the script that is generating the error:

udpInOut.pl

The usage of the module appears to be correct according to the documentation so unless there is a problem in the script I don't know what is causing the error.

Kevin

Here's the code. Appreciate any pointers/help as I really want to extend this code to build a Network Management System.

#!/usr/bin/perl -w
 
# --------------------------------------------------
# ARGV[0] = <hostname>     required
# ARGV[1] = <snmp port>    required
# ARGV[2] = <community>    required
# ARGV[3] = <version>      required
# --------------------------------------------------
use Net::SNMP;
 
# verify input parameters
my $in_hostname         = $ARGV[0] if defined $ARGV[0];
my $in_port             = $ARGV[1] if defined $ARGV[1];
my $in_community        = $ARGV[2] if defined $ARGV[2];
my $in_version          = $ARGV[3] if defined $ARGV[3];
 
# usage notes
if (
        ( ! defined $in_hostname ) ||
        ( ! defined $in_port ) ||
        ( ! defined $in_community ) ||
        ( ! defined $in_version )
        ) {
        print   "usage:\n\n
                $0 <host> <port> <community> <version>\n\n";
        exit;
}
 
# list all OIDs to be queried
my $udpInDatagrams      = ".1.3.6.1.2.1.7.1.0";
my $udpOutDatagrams     = ".1.3.6.1.2.1.7.4.0";
 
# get information via SNMP
# create session object
my ($session, $error) = Net::SNMP->session(
                        -hostname      => $in_hostname,
                        -port          => $in_port,
                        -version       => $in_version,
                        -community     => $in_community,
                        # please add more parameters if there's a need for them:
                        #   [-localaddr     => $localaddr,]
                        #   [-localport     => $localport,]
                        #   [-nonblocking   => $boolean,]
                        #   [-domain        => $domain,]
                        #   [-timeout       => $seconds,]
                        #   [-retries       => $count,]
                        #   [-maxmsgsize    => $octets,]
                        #   [-translate     => $translate,]
                        #   [-debug         => $bitmask,]
                        #   [-username      => $username,]    # v3
                        #   [-authkey       => $authkey,]     # v3
                        #   [-authpassword  => $authpasswd,]  # v3
                        #   [-authprotocol  => $authproto,]   # v3
                        #   [-privkey       => $privkey,]     # v3
                        #   [-privpassword  => $privpasswd,]  # v3
                        #   [-privprotocol  => $privproto,]   # v3
                        );
 
# on error: exit
if (!defined($session)) {
        printf("ERROR: %s.\n", $error);
        exit 1;
        }
 
# perform get requests for all wanted OIDs
my $result = $session->get_request(
                         -varbindlist      => [$udpInDatagrams, $udpOutDatagrams]
                       );
 
# on error: exit
if (!defined($result)) {
        printf("ERROR: %s.\n", $session->error);
        $session->close;
        exit 1;
        }
 
# print results
printf("udpInDatagrams:%s udpOutDatagrams:%s", # <<< cacti requires this format!
        $result->{$udpInDatagrams},
        $result->{$udpOutDatagrams},
        );
 
$session->close;

[kr99]

Kevin/Jeff
Thanks for your help. I ran out of things to do so I tried removing the whole 5.8.8 directory and reinstalling the Net::SNMP module and , surprise , surprise , the script worked first time! No idea why the reinstallation was required but what the heck... Thanks anyway.

[numberwhun]

Kevin/Jeff
Thanks for your help. I ran out of things to do so I tried removing the whole 5.8.8 directory and reinstalling the Net::SNMP module and , surprise , surprise , the script worked first time! No idea why the reinstallation was required but what the heck... Thanks anyway.

Well, you know what they say. When all else fails and all normal avenue's have been exhausted, you must sometimes go to extremes.

Glad the re-install worked for you.

Regards,

Jeff