Undefined subroutine &SNMP::initMib

permalink · #1 (**permalink**) 08-04-2005

This is a multi-part message in MIME format.

------=_NextPart_000_0003_01C598D4.26A54060
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

I am getting this error when I try to run a script. Does anyone know how
this can be resolved?

I have Net::SNMP installed and am using net-snmp-5.2.1.2. Sample script
below.

#!/usr/bin/perl

# DOCSIS-SNR-snmp Modified for www

# 06/1/2005

$ENV{'MIBDIRS'} = '/usr/local/share/snmp/mibs';

$ENV{'MIBFILES'} =
'/usr/local/share/snmp/mibs/CISCO-DOCS-EXT-MIB.my:/usr/local/share/snmp/mibs
/cisco.mib';

local (*in) = @_ if @_;

local ($i, $loc, $key, $val);

# Read in text

if ($ENV{'REQUEST_METHOD'} eq "GET") {

$in = $ENV{'QUERY_STRING'};

} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {

read(STDIN,$in,$ENV{'CONTENT_LENGTH'});

}

@in = split(/&/,$in);

foreach $i (0 .. $#in) {

# Convert plus's to spaces

$in[$i] =~ s/\+/ /g;

# Split into key and value.

($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

# Convert %XX from hex numbers to alphanumeric

$key =~ s/%(..)/pack("c",hex($1))/ge;

$val =~ s/%(..)/pack("c",hex($1))/ge;

# Associate key and value

$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator

$in{$key} .= $val;

}

$DEVICENAME = $in{"ubr"};

$EMAC = $in{"ethaddr"};

$query = $in{"query"};

$MAC = $in{"cmaddr"};

$EPORT = "%Ethernet%";

$CMMAC = $in{"1cmaddr"};

$CMMAC2 = $in{"2cmaddr"};

$IP = $in{"ubr"};

$SD = $in{"sidn"};

$CMIP = $in{"cmips"};

$IIP = $in{"iips"};

$RIN = $in{"cin"};

$IP = "x.x.x.x";

$UBR=$IP;

#open(STDERR, "/dev/null");

$SNMP::Util::Max_log_level = 'none';

use SNMP::Util_env;

# Initialize mib

&SNMP::initMib();

use SNMP::Util;

------=_NextPart_000_0003_01C598D4.26A54060
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 11 (filtered medium)">
<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

I am getting this error when I try to run a script. =
Does anyone
know how this can be resolved?<o:p></o:p>

I have Net::SNMP installed and am using =
net-snmp-5.2.1.2.
Sample script below.<o:p></o:p>

<o:p> </o:p>

#!/usr/bin/perl<o:p></o:p>

# DOCSIS-SNR-snmp Modified for =
www<o:p></o:p>

# 06/1/2005<o:p></o:p>

<o:p> </o:p>

$ENV{'MIBDIRS'} =3D =
'/usr/local/share/snmp/mibs';<o:p></o:p>

$ENV{'MIBFILES'} =3D
'/usr/local/share/snmp/mibs/CISCO-DOCS-EXT-MIB.my:/usr/local/share/snmp/m=
ibs/cisco.mib';<o:p></o:p>

<o:p> </o:p>

<o:p> </o:p>

local (*in) =3D @_ if =
@_;<o:p></o:p>

local ($i, $loc, $key, =
$val);<o:p></o:p>

<o:p> </o:p>

# Read in text<o:p></o:p>

if ($ENV{'REQUEST_METHOD'} eq "GET") =
{<o:p></o:p>

  $in =3D =
$ENV{'QUERY_STRING'};<o:p></o:p>

} elsif ($ENV{'REQUEST_METHOD'} eq "POST") =
{<o:p></o:p>

  =
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});<o:p></o:p>

}<o:p></o:p>

<o:p> </o:p>

@in =3D =
split(/&/,$in);<o:p></o:p>

<o:p> </o:p>

foreach $i (0 .. $#in) {<o:p></o:p>

  # Convert plus's to =
spaces<o:p></o:p>

  $in[$i] =3D~ s/\+/ =
/g;<o:p></o:p>

<o:p> </o:p>

  # Split into key and =
value.<o:p></o:p>

  ($key, $val) =3D split(/=3D/,$in[$i],2); # =
splits on the
first =3D.<o:p></o:p>

<o:p> </o:p>

  # Convert %XX from hex numbers to =
alphanumeric<o:p></o:p>

  $key =3D~ =
s/%(..)/pack("c",hex($1))/ge;<o:p></o:p>

  $val =3D~ =
s/%(..)/pack("c",hex($1))/ge;<o:p></o:p>

<o:p> </o:p>

  # Associate key and =
value<o:p></o:p>

  $in{$key} .=3D "\0" if =
(defined($in{$key}));
# \0 is the multiple separator<o:p></o:p>

  $in{$key} .=3D =
$val;<o:p></o:p>

<o:p> </o:p>

}<o:p></o:p>

$DEVICENAME =3D =
$in{"ubr"};<o:p></o:p>

$EMAC =3D =
$in{"ethaddr"};<o:p></o:p>

$query =3D =
$in{"query"};<o:p></o:p>

$MAC =3D =
$in{"cmaddr"};<o:p></o:p>

$EPORT =3D =
"%Ethernet%";<o:p></o:p>

$CMMAC =3D =
$in{"1cmaddr"};<o:p></o:p>

$CMMAC2 =3D =
$in{"2cmaddr"};<o:p></o:p>

$IP =3D =
$in{"ubr"};<o:p></o:p>

$SD =3D =
$in{"sidn"};<o:p></o:p>

$CMIP =3D =
$in{"cmips"};<o:p></o:p>

$IIP =3D =
$in{"iips"};<o:p></o:p>

$RIN =3D =
$in{"cin"};<o:p></o:p>

$IP =3D =
"x.x.x.x";<o:p></o:p>

$UBR=3D$IP;<o:p></o:p>

#open(STDERR, =
"/dev/null");<o:p></o:p>

<o:p> </o:p>

$SNMP::Util::Max_log_level =3D =
'none';<o:p></o:p>

use SNMP::Util_env;<o:p></o:p>

<o:p> </o:p>

# Initialize mib<o:p></o:p>

&SNMP::initMib();<o:p></o:p>

use SNMP::Util;<o:p></o:p>

</div>

</body>

</html>

------=_NextPart_000_0003_01C598D4.26A54060--

-------------------------------------------------------
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
_______________________________________________
Net-snmp-users mailing list
Net-snmp-users@lists.sourceforge.net
Please see the following page to unsubscribe or change other options:
https://lists.sourceforge.net/lists/...net-snmp-users

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode