123 lines
2.2 KiB
Perl
Executable File
123 lines
2.2 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use lib './libs';
|
|
use Getopt::Long qw(:config no_ignore_case);
|
|
use Data::Dumper;
|
|
use Net::SNMP;
|
|
use Cache::File;
|
|
|
|
my $PARAMS = {
|
|
type => '',
|
|
mode => '',
|
|
host => '',
|
|
community => '',
|
|
};
|
|
|
|
my $typeMap = {
|
|
'snmpd' => 'TYPE::SNMPD',
|
|
'cisco' => 'TYPE::CISCO',
|
|
'huawei' => 'TYPE::HUAWEI'
|
|
};
|
|
|
|
my $modeMap = {
|
|
'cpu' => \&get_cpu,
|
|
'temp' => \&get_temp,
|
|
'net' => \&get_net
|
|
};
|
|
|
|
|
|
sub main {
|
|
GetOptions (
|
|
'c|community=s' => \$PARAMS->{community},
|
|
'h|help' => \&help,
|
|
'H|host=s' => \$PARAMS->{host},
|
|
'm|mode=s' => \$PARAMS->{mode},
|
|
't|type=s' => \$PARAMS->{type},
|
|
);
|
|
my $handler = &initHandler($typeMap->{$PARAMS->{type}}) or die($@);
|
|
|
|
my $cache = Cache::File->new(
|
|
cache_root => '/tmp/check_snmp/cache',
|
|
default_expires => '3600 sec'
|
|
) or die($@);
|
|
my $data = $cache->get($PARAMS->{host}) || {};
|
|
|
|
my $result = $modeMap->{$PARAMS->{mode}}->($handler,$data);
|
|
print "result: " . Dumper($result);
|
|
|
|
return(1);
|
|
}
|
|
|
|
sub initHandler {
|
|
my ($t) = @_;
|
|
die("no type") unless($t);
|
|
|
|
eval "use $t;";
|
|
die($@) if($@);
|
|
|
|
my $r = ${t}->new($PARAMS);
|
|
die($@) if($@);
|
|
|
|
return($r);
|
|
}
|
|
|
|
sub _net_generate_ifIndex {
|
|
my ($handler,$data) = @_;
|
|
my $r = {};
|
|
|
|
my $t = $handler->{SNMP}->get_table(-baseoid => $handler->{OID}->{NET}->{IfDescr});
|
|
foreach my $k (sort keys %$t) {
|
|
if($k =~ /^$handler->{OID}->{NET}->{IfDescr}\.(\d+)/) {
|
|
$r->{$1} = $t->{$k};
|
|
}
|
|
}
|
|
|
|
return($r);
|
|
}
|
|
|
|
sub get_cpu {
|
|
my ($handler,$data) = @_;
|
|
|
|
}
|
|
|
|
sub get_temp {
|
|
my ($handler,$data) = @_;
|
|
|
|
}
|
|
|
|
sub get_net {
|
|
my ($handler,$data) = @_;
|
|
my $params = {};
|
|
|
|
print "Cache: ";
|
|
unless(exists($data->{net_ifIndex})) {
|
|
$data->{net_ifIndex} = &_net_generate_ifIndex($handler) ;
|
|
}
|
|
|
|
foreach my $i (sort keys %{$data->{net_ifIndex}}) {
|
|
foreach my $p (sort keys %{$handler->{OID}->{NET}}) {
|
|
my $r = $handler->{SNMP}->get_request(-varbindlist => [ $handler->{OID}->{NET}->{$p} . ".$i" ]);
|
|
($params->{$data->{net_ifIndex}->{$i}}->{$p}) = values %$r;
|
|
}
|
|
}
|
|
|
|
return ($params);
|
|
}
|
|
|
|
sub help {
|
|
print qq{
|
|
Usage: $0 [...]
|
|
|
|
-h --help print help page
|
|
-v --verbose do some verbose stuff
|
|
|
|
};
|
|
|
|
return(0);
|
|
}
|
|
|
|
&main();
|
|
exit(0);
|