#!/usr/bin/perl -w # # File: snmp__gwmta_msgs_ # Copyright (C) 2007 Gabriele Pohl (contact@dipohl.de) # # Derived from plugin snmp__load # Copyright (C) 2004 Jimmy Olsen, Dagfinn Ilmari Mannsaaker # # 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; version 2 dated June, # 1991. # # 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # ------------------------------------------------------------ # Plugin to monitor Novell Groupwise MTA (GWMTA) # ------------------------------------------------------------ # # Management Information Base (MIB) GWMTA-MIB # # Naming Tree: 1.3.6.1.4.1.23 # iso(1) org(3) dod(6) internet(1) private(4) enterprises(1) novell(23) # # To see all values available for your GWMTA, type # snmpwalk -v1 -c public -m GWMTA-MIB gwmta # # This plugin fetches: # # * mtaDomainName 1.3.6.1.4.1.23.2.37.1.1.1.2. # * mtaTenMinuteRoutedMsgs - 1.3.6.1.4.1.23.2.37.1.1.1.10. # * mtaTenMinuteUndeliverableMsgs - 1.3.6.1.4.1.23.2.37.1.1.1.12. # * mtaTenMinuteErrorMsgs - 1.3.6.1.4.1.23.2.37.1.1.1.14. # # Usage: # -------------- # Link this file snmp__gwmta_msgs_ to your nodes servicedir [/etc/munin/plugins] # # as: # snmp__gwmta_msgs_ # # with: # = Name or IP-Number of host # = table index of the GWMTA Object # # E.g. # ln -s /usr/share/munin/plugins/snmp__gwmta_msgs_ \ # /etc/munin/plugins/snmp_foo.example.com_gwmta_msgs_0 # ...will monitor a single GWMTA object on host foo.example.com. # # Parameters # community - Specify wich community string to use (Default: public) # port - Specify which port to read from (Default: 161) # host - Specify which host to monitor (Default: Read from link in servicedir) # pos - Specify which table Object to read (Default: Read from link in servicedir, # # You may adjust settings to your need via configuration in plugin-conf.d/munin-node: # [snmp_*_gwmta_msgs_*] # env.port # env.community # env.pos # env.host # # Parameters can also be specified on a per GWMTA basis, eg: # [snmp_example.com_gwmta_msgs_1] # env.port 166 # env.community example # # $Log$ # Revision 1.0 2007/09/08 19:44 gap # Created by gap # #%# family=snmpauto #%# capabilities=snmpconf use strict; use Net::SNMP; my $DEBUG = 0; my $host = $ENV{host} || undef; my $port = $ENV{port} || 161; my $community = $ENV{community} || "public"; my $pos = $ENV{pos} || 1; my $response; # fix values my $GRAPH_PERIOD = "minute"; my $GRAPH_VLABEL = "number of messages / 10 min"; my $ROUTED_LABEL="Routed"; my $ROUTED_CRITICAL=500; my $UNDELIVERED_LABEL="Undeliverable"; my $UNDELIVERED_CRITICAL=10; my $ERRORS_LABEL="Errors"; my $ERRORS_CRITICAL=10; if (defined $ARGV[0] and $ARGV[0] eq "snmpconf") { print "index 1.3.6.1.4.1.23.2.37.1.1.1.1.\n"; # mtaIndex print "require 1.3.6.1.4.1.23.2.37.1.1.1.2. \n"; # mtaDomainName print "require 1.3.6.1.4.1.23.2.37.1.1.1.10. [\\d+]\n"; # mtaTenMinuteRoutedMsgs print "require 1.3.6.1.4.1.23.2.37.1.1.1.12. [\\d+]\n"; # mtaTenMinuteUndeliverableMsgs print "require 1.3.6.1.4.1.23.2.37.1.1.1.14. [\\d+]\n"; # mtaTenMinuteErrorMsgs exit 0; } if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_gwmta_msgs_(\d+)*$/) { $host = $1; $pos = $2; } elsif (!defined($host)) { 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") { # get name of domain my $domain = &get_single ($session, "1.3.6.1.4.1.23.2.37.1.1.1.2.$pos"); # mtaDomainName # output to munin print "host_name $host graph_category mail graph_args --base 1000 graph_period $GRAPH_PERIOD graph_title GWMTA load ($domain) graph_info Monitors status of Groupwise MTA, here: $domain. It reports values for the last 10 minutes. graph_vlabel $GRAPH_VLABEL graph_args -l 0 routed.label $ROUTED_LABEL routed.info mtaTenMinuteRoutedMsgs (1.3.6.1.4.1.23.2.37.1.1.1.10.) routed.critical $ROUTED_CRITICAL routed.type GAUGE routed.min 0 routed.draw AREA routed.graph yes undelivered.label $UNDELIVERED_LABEL undelivered.info mtaTenMinuteUndeliverableMsgs (1.3.6.1.4.1.23.2.37.1.1.1.12.) undelivered.critical $UNDELIVERED_CRITICAL undelivered.type GAUGE undelivered.min 0 undelivered.draw STACK undelivered.graph yes errors.label $ERRORS_LABEL errors.info mtaTenMinuteErrorMsgs (1.3.6.1.4.1.23.2.37.1.1.1.14.) errors.critical $ERRORS_CRITICAL errors.type GAUGE errors.min 0 errors.draw STACK errors.graph yes"; exit 0; } # fetch the data and print print "routed.value ", &get_single ($session, "1.3.6.1.4.1.23.2.37.1.1.1.10.$pos"), "\n"; # mtaTenMinuteRoutedMsgs print "undelivered.value ", &get_single ($session, "1.3.6.1.4.1.23.2.37.1.1.1.12.$pos"), "\n"; # mtaTenMinuteUndeliverableMsgs print "errors.value ", &get_single ($session, "1.3.6.1.4.1.23.2.37.1.1.1.14.$pos"), "\n"; # mtaTenMinuteErrorMsgs 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}; } }