i have been trying to make a server info monitoring page using SNMP
modules. i came across SNMP::Utils but I am getting the following errors
after copying the tutorial pages _exactly_
<error_log>
Cannot find module (IP-MIB): At line 0 in (none)
Cannot find module (IF-MIB): At line 0 in (none)
Cannot find module (TCP-MIB): At line 0 in (none)
Cannot find module (UDP-MIB): At line 0 in (none)
Cannot find module (SNMPv2-MIB): At line 0 in (none)
Cannot find module (SNMPv2-SMI): At line 0 in (none)
Cannot find module (UCD-SNMP-MIB): At line 0 in (none)
Cannot find module (UCD-DEMO-MIB): At line 0 in (none)
Cannot find module (HOST-RESOURCES-MIB): At line 0 in (none)
Cannot find module (HOST-RESOURCES-TYPES): At line 0 in (none)
Cannot find module (IPV6-ICMP-MIB): At line 0 in (none)
Cannot find module (IPV6-MIB): At line 0 in (none)
Cannot find module (IPV6-TCP-MIB): At line 0 in (none)
Cannot find module (IPV6-UDP-MIB): At line 0 in (none)
Cannot find module (SNMP-VIEW-BASED-ACM-MIB): At line 0 in (none)
Cannot find module (SNMP-COMMUNITY-MIB): At line 0 in (none)
Cannot find module (UCD-DLMOD-MIB): At line 0 in (none)
Cannot find module (SNMP-FRAMEWORK-MIB): At line 0 in (none)
Cannot find module (SNMP-MPD-MIB): At line 0 in (none)
Cannot find module (SNMP-USER-BASED-SM-MIB): At line 0 in (none)
Cannot find module (SNMP-NOTIFICATION-MIB): At line 0 in (none)
Cannot find module (SNMP-TARGET-MIB): At line 0 in (none)
Cannot find module (SNMPv2-TM): At line 0 in (none)
[Thu May 23 19:08:44 2002] [error] [client 192.168.0.1] Premature end of
script headers: /web/vhosts/dev1/cgi-bin/snmp.cgi
</error_log>
and here is my code:
<code>
#!/usr/bin/perl
use CGI::Carp "fatalsToBrowser";
use CGI qw/:standard/;
use SNMP::Util;
my $snmp = new SNMP::Util(-device=> 'localhost',
-community=>'public',
-timeout=>5,
-retry=>0,
-poll=>'on',
-poll_timeout=>5,
-verbose=>'off',
-errmode=>'return',
-delimiter=>' '
);
my $uptime = $snmp->get('v','.1.3.6.1.2.1.1.3');
my $intraf = $snmp->get('v','.1.3.6.1.2.1.2.2.1.10');
my $outtraf = $snmp->get('v','1.3.6.1.2.1.2.2.1.16');
print <<END_OF_HTML
Content-type: text/html
<html><head></head><body>uptime: $uptime<br><br>Inbound Traffic:
$intraf<br><br>Outbound Traffic: $outtraf</body></html>
END_OF_HTML
</code>
Matthew Harrison
Internet/Network Services Administrator
www.genestate.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
