net::snmp
- From: "AllyCoops" <ac23@xxxxxxxxxxx>
- Date: 5 Nov 2006 03:30:42 -0800
I'm having bother with the net::snmp module.
I'm writing a script that will query a device via SNMP to check the
system
time (it;s a nagios check to make sure that devices are polling NTP
properly and not falling out of sync).
Unfortunately, the get request is returning in format I don't recognise
(possibly because of characters.
I'm doing a "get_request" for HOST-RESOURCES-MIB::hrSystemDate.0
(1.3.6.1.2.1.25.6.3.1.5.1).
A snmpwalk indicates I should be getting returned is something like:
2006-11-4,18:23:55.8
(SNMPWALK returns precisely "HOST-RESOURCES-MIB::hrSystemDate.0 =
STRING:2006-11-4,18:23:55.8"
What the get_request is giving me is "0x07d4010705181e00"
Can anyone shed any light on where I'm going wrong?
My code is:
use strict;
use Net::SNMP;
#
# Gather hostname and community string from call parameter
#
my $hostname = $ARGV[0]; # target host to be checked
my $community = $ARGV[1]; # SNMP Community string for exchange
#
# Define the current date
#
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
time;
#
# OID of System Time: HOST-RESOURCES-MIB::hrSystemDate.0
my $snmpstring = '1.3.6.1.2.1.25.6.3.1.5.1';
#my $snmpstring = '1.3.6.1.2.1.25.1';
#my $datestring = $snmpstring . ".2";
my ($session, $error) = Net::SNMP->session( -hostname => $hostname,
-community =>
$community,
-timeout => 5);
my $hostdatestring = $session->get_request("$snmpstring");
$session->close;
#
# Error out and set warning status in nagios if no result back from
SNMP
#
if (!defined($hostdatestring)) {
printf("ERROR: No result - $session->error, $error");
$session->close;
exit 1;
}
#print "datestring -> $datestring\n";
my $systemdate = $hostdatestring->{$snmpstring};
print $systemdate;
.
- Prev by Date: [ANNOUNCE] Inline-C2XS-0.05
- Next by Date: ANNOUNCE: Win32::GUI v1.05
- Previous by thread: [ANNOUNCE] Inline-C2XS-0.05
- Next by thread: ANNOUNCE: Win32::GUI v1.05
- Index(es):
Relevant Pages
|
|
