118 lines
2.3 KiB
Perl
Executable file
118 lines
2.3 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
#
|
|
# $Log: snmp__processes,v $
|
|
# Revision 1.1 2006/04/20 13:01:21 salles
|
|
# On regroupe les plugins munin dans un répertoire commun à toutes les machines
|
|
#
|
|
# Revision 1.1 2004/11/14 10:36:39 salles
|
|
# Ajout des plugins personnalisés
|
|
#
|
|
# Revision 1.2 2004/08/03 14:46:38 bernat
|
|
# Rattache les graphes a l'hote qu'on interroge
|
|
#
|
|
# Revision 1.1 2004/08/03 14:45:26 bernat
|
|
# Import initial
|
|
# Commit oublié de momo
|
|
#
|
|
# Revision 1.1 2004/04/30 20:13:53 jimmyo
|
|
# New SNMP plugin for number of procs.
|
|
#
|
|
# Revision 1.1 2004/04/29 22:29:57 jimmyo
|
|
# New SNMP plugin for disk usage.
|
|
#
|
|
# Revision 1.3 2004/02/22 20:17:58 jimmyo
|
|
# Typo fix
|
|
#
|
|
# Revision 1.2 2004/02/18 21:54:56 jimmyo
|
|
# Did a bit of work on the snmp-thingie.
|
|
#
|
|
# Revision 1.1 2004/01/02 18:50:00 jimmyo
|
|
# Renamed occurrances of lrrd -> munin
|
|
#
|
|
# Revision 1.1.1.1 2004/01/02 15:18:07 jimmyo
|
|
# Import of LRRD CVS tree after renaming to Munin
|
|
#
|
|
# Revision 1.1 2003/12/19 20:53:45 jimmyo
|
|
# Created by jo
|
|
#
|
|
#
|
|
|
|
use strict;
|
|
use Net::SNMP;
|
|
|
|
my $DEBUG = 0;
|
|
my $MAXLABEL = 20;
|
|
|
|
my $host = $ENV{host} || undef;
|
|
my $port = $ENV{port} || 161;
|
|
my $community = $ENV{community} || "public";
|
|
my $iface = $ENV{interface} || undef;
|
|
|
|
my $response;
|
|
|
|
if (defined $ARGV[0] and $ARGV[0] eq "snmpconf")
|
|
{
|
|
print "require 1.3.6.1.2.1.25.1.6.0 [0-9]\n"; # Number
|
|
exit 0;
|
|
}
|
|
|
|
if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_processes$/)
|
|
{
|
|
$host = $1;
|
|
if ($host =~ /^([^:]+):(\d+)$/)
|
|
{
|
|
$host = $1;
|
|
$port = $2;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print "# Debug: $0 -- $1\n" if $DEBUG;
|
|
die "# Error: couldn't understand what I'm supposed to monitor.";
|
|
}
|
|
|
|
my ($session, $error) = Net::SNMP->session(
|
|
-hostname => $host,
|
|
-community => $community,
|
|
-port => $port
|
|
);
|
|
|
|
if (!defined ($session))
|
|
{
|
|
die "Croaking: $error";
|
|
}
|
|
|
|
if (defined $ARGV[0] and $ARGV[0] eq "config")
|
|
{
|
|
print "host_name $host\n";
|
|
print "graph_title Number of Processes
|
|
graph_args --base 1000 -l 0
|
|
graph_vlabel number of processes
|
|
processes.label processes
|
|
processes.draw LINE2
|
|
";
|
|
|
|
exit 0;
|
|
}
|
|
|
|
print "processes.value ", &get_single ($session, "1.3.6.1.2.1.25.1.6.0"), "\n";
|
|
|
|
sub get_single
|
|
{
|
|
my $handle = shift;
|
|
my $oid = shift;
|
|
|
|
print "# Getting single $oid...\n" if $DEBUG;
|
|
|
|
$response = $handle->get_request ($oid);
|
|
|
|
if (!defined $response->{$oid})
|
|
{
|
|
return undef;
|
|
}
|
|
else
|
|
{
|
|
return $response->{$oid};
|
|
}
|
|
}
|
|
|