2006-06-28 19:08:22 +02:00
|
|
|
|
#!/usr/bin/perl
|
2006-06-29 21:37:46 +02:00
|
|
|
|
##################################################################################
|
|
|
|
|
|
# SNMP Test tool
|
|
|
|
|
|
##################################################################################
|
|
|
|
|
|
# Copyright (c) 2004-2006 Sancho Lerena, slerena@gmail.com
|
|
|
|
|
|
# Copyright (c) 2005-2006 Artica Soluciones Tecnol<6F>gicas S.L
|
|
|
|
|
|
#
|
|
|
|
|
|
#This program is free software; you can redistribute it and/or
|
|
|
|
|
|
#modify it under the terms of the GNU General Public License
|
|
|
|
|
|
#as published by the Free Software Foundation; either version 2
|
|
|
|
|
|
#of the License, or (at your option) any later version.
|
|
|
|
|
|
#This program is distributed in the hope that it will be useful,
|
|
|
|
|
|
#but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
#GNU General Public License for more details.
|
|
|
|
|
|
#You should have received a copy of the GNU General Public License
|
|
|
|
|
|
#along with this program; if not, write to the Free Software
|
|
|
|
|
|
#Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
|
|
##################################################################################
|
2006-06-28 19:08:22 +02:00
|
|
|
|
|
|
|
|
|
|
#use Net::SNMP; # For query2 testing
|
|
|
|
|
|
use SNMP '5.0.2.pre1' || die("Cannot load module\n");
|
|
|
|
|
|
|
|
|
|
|
|
##########################################################################################
|
|
|
|
|
|
# SUB pandora_query_snmp (pa_config, oid, community, target, error, dbh)
|
|
|
|
|
|
# Makes a call to SNMP modules to get a value,
|
|
|
|
|
|
##########################################################################################
|
|
|
|
|
|
sub pandora_query_snmp2 {
|
|
|
|
|
|
my $snmp_oid = shift;
|
|
|
|
|
|
my $snmp_community = shift;
|
|
|
|
|
|
my $snmp_target = shift;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
print "DEBUG OID $snmp_oid comm $snmp_community target $snmp_target \n";
|
|
|
|
|
|
my $output ="";
|
|
|
|
|
|
|
|
|
|
|
|
my ($session1, $error) = Net::SNMP->session(
|
|
|
|
|
|
-hostname => $snmp_target,
|
|
|
|
|
|
-community => $snmp_community,
|
|
|
|
|
|
-port => 161 );
|
|
|
|
|
|
|
|
|
|
|
|
if (!defined($session1)) {
|
|
|
|
|
|
printf("SNMP ERROR SESSION");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
my $result = $session1->get_request(
|
|
|
|
|
|
-varbindlist => $snmp_oid
|
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
|
|
if (!defined($result)) {
|
|
|
|
|
|
printf("SNMP ERROR GET");
|
|
|
|
|
|
$session1->close;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$output = $result->{$snmp_oid};
|
|
|
|
|
|
$session1->close;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return $output;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub pandora_query_snmp {
|
|
|
|
|
|
my $snmp_oid = shift;
|
|
|
|
|
|
my $snmp_community = shift;
|
|
|
|
|
|
my $snmp_target = shift;
|
|
|
|
|
|
|
|
|
|
|
|
$ENV{'MIBS'}="ALL"; #Load all available MIBs
|
|
|
|
|
|
$SNMP_TARGET = $snmp_target;
|
|
|
|
|
|
$SNMP_COMMUNITY = $snmp_community;
|
|
|
|
|
|
|
|
|
|
|
|
$SESSION = new SNMP::Session (DestHost => $SNMP_TARGET,
|
|
|
|
|
|
Community => $SNMP_COMMUNITY,
|
|
|
|
|
|
Version => 1);
|
|
|
|
|
|
|
|
|
|
|
|
# Populate a VarList with OID values.
|
|
|
|
|
|
$APC_VLIST = new SNMP::VarList([$snmp_oid]);
|
|
|
|
|
|
|
|
|
|
|
|
# Pass the VarList to getnext building an array of the output
|
|
|
|
|
|
@APC_INFO = $SESSION->getnext($APC_VLIST);
|
|
|
|
|
|
|
|
|
|
|
|
print $APC_INFO[0];
|
|
|
|
|
|
print "\n";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ($#ARGV == -1 ){
|
|
|
|
|
|
print "Syntax: snmptest community hostname oid\n";
|
|
|
|
|
|
exit;
|
|
|
|
|
|
}
|
|
|
|
|
|
my $snmp_community = $ARGV[0];
|
|
|
|
|
|
my $snmp_target = $ARGV[1];
|
|
|
|
|
|
my $snmp_oid = $ARGV[2];
|
|
|
|
|
|
|
|
|
|
|
|
pandora_query_snmp($snmp_oid, $snmp_community, $snmp_target);
|
