Munin contributed plugins

#!/usr/bin/perl

=head1 NAME

snmp__netapp_diskusage_ - Munin plugin to retrieve file systems usage on

NetApp storage appliances.

=head1 APPLICABLE SYSTEMS

File systems usage stats should be reported by any NetApp storage

appliance with SNMP agent daemon activated. See na_snmp(8) for details.

=head1 CONFIGURATION

Unfortunately, SNMPv3 is not fully supported on all NetApp equipments.

For this reason, this plugin will use SNMPv2 by default, which is

insecure because it doesn't encrypt the community string. 

The following parameters will help you get this plugin working :

[snmp_*]

env.community MyCommunity

If your community name is 'public', you should really worry about

security and immediately reconfigure your appliance.

Please see 'perldoc Munin::Plugin::SNMP' for further configuration.

=head1 INTERPRETATION

The plugin reports file systems usage. This can help you monitoring file

systems usage in a given period of time.

=head1 MIB INFORMATION

This plugin requires support for the NETWORK-APPLIANCE-MIB issued by

Network Appliance. It reports the content of the DfEntry OID.

=head1 MAGIC MARKERS

#%# family=snmpauto

#%# capabilities=snmpconf

=head1 VERSION

v1.0 - 06/22/2009 14:05:03 CEST

Initial revision

=head1 AUTHOR

This plugin is copyright (c) 2009 by Guillaume Blairon.

NetApp is a registered trademark and Network Appliance is a trademark

of Network Appliance, Inc. in the U.S. and other countries.

=head1 BUGS

This plugin wasn't tested on many hardware. If you encounter bugs,

please report them to Guillaume Blairon E<lt>L<g@yom.be>E<gt>.

=head1 LICENSE

GPLv2 or (at your option) any later version.

=cut

use strict;

use warnings;

use Munin::Plugin::SNMP;

use vars qw($DEBUG);

$DEBUG = $ENV{'MUNIN_DEBUG'};

my @palette =

   #Better colours from munin 1.3.x

   #Greens Blues Oranges Dk yel Dk blu Purple Lime   Reds   Gray

 qw(00CC00 0066B3 FF8000 FFCC00 330099 990099 CCFF00 FF0000 808080

    008F00 00487D B35A00 B38F00        6B006B 8FB300 B30000 BEBEBE

    80FF80 80C9FF FFC080 FFE680 AA80FF EE00CC FF8080

    666600 FFBFFF 00FFCC CC6699 999900);

my %oids = (

    # - dfHigh.* : 32 most significant bits counters

    # - dfLow.*  : 32 least significant bits counters

    dfHighTotalKBytes => '1.3.6.1.4.1.789.1.5.4.1.14.',

    dfLowTotalKBytes  => '1.3.6.1.4.1.789.1.5.4.1.15.',

    dfHighUsedKBytes  => '1.3.6.1.4.1.789.1.5.4.1.16.',

    dfLowUsedKBytes   => '1.3.6.1.4.1.789.1.5.4.1.17.',

    dfHighAvailKBytes => '1.3.6.1.4.1.789.1.5.4.1.18.',

    dfLowAvailKBytes  => '1.3.6.1.4.1.789.1.5.4.1.19.',

);

sub to_32bit_int {

    my ($l, $h) = @_;

    return "U" if ((!defined $l) || (!defined $h));

    my $bin = unpack( 'B32', pack('N', $l) . pack('N', $h) );

    return unpack( 'N', pack('B32', $bin) );

}

if (defined $ARGV[0] and $ARGV[0] eq 'snmpconf') {

    print "number 1.3.6.1.4.1.789.1.5.6.0\n";

    print "index 1.3.6.1.4.1.789.1.5.4.1.1.\n";

    foreach (keys %oids) {

        print "require $oids{$_} [0-9]\n";

    }

    exit 0;

}

my $session = Munin::Plugin::SNMP->session();

my ($host, undef, undef, $tail) = Munin::Plugin::SNMP->config_session();

my ($df_id, $name_oid);

if ($tail =~ /^netapp_diskusage_(\d+)$/) {

    $df_id    = $1;

    $name_oid = '1.3.6.1.4.1.789.1.5.4.1.2.' . $df_id;

} else {

    die "Couldn't understand what I'm supposed to monitor";

}

if (defined $ARGV[0] and $ARGV[0] eq "config") {

    my $df_name = $session->get_single($name_oid);

    print "host_name $host\n" unless $host eq 'localhost';

    print "graph_title $host disk usage on $df_name\n";

    print "graph_args --base 1024 --lower-limit 0\n";

    print "graph_vlabel bytes\n";

    print "graph_category disk\n";

    print "graph_info This graph shows the disk usage for $df_name on NetApp host $host\n";

    print "graph_order used avail total\n";

    print "used.info The total disk space in KBytes that is in use on the $df_name file system.\n";

    print "used.type GAUGE\n";

    print "used.draw AREA\n";

    print "used.label Used\n";

    print "used.cdef used,1024,*\n";

    print "used.min 0\n";

    print "used.colour $palette[1]\n";

    print "avail.info The total disk space in KBytes that is free for use on the $df_name file system.\n";

    print "avail.type GAUGE\n";

    print "avail.draw STACK\n";

    print "avail.label Available\n";

    print "avail.cdef avail,1024,*\n";

    print "avail.min 0\n";

    print "avail.colour $palette[3]\n";

    print "total.info The total capacity in KBytes for the $df_name file system.\n";

    print "total.type GAUGE\n";

    print "total.draw LINE2\n";

    print "total.label Total\n";

    print "total.cdef total,1024,*\n";

    print "total.min 0\n";

    print "total.colour $palette[7]\n";

    exit 0;

}

my $used_l  = $session->get_single($oids{dfLowUsedKBytes}.$df_id);

my $used_h  = $session->get_single($oids{dfHighUsedKBytes}.$df_id);

my $avail_l = $session->get_single($oids{dfLowAvailKBytes}.$df_id);

my $avail_h = $session->get_single($oids{dfHighAvailKBytes}.$df_id);

my $total_l = $session->get_single($oids{dfLowTotalKBytes}.$df_id);

my $total_h = $session->get_single($oids{dfHighTotalKBytes}.$df_id);

my $used  = to_32bit_int($used_l, $used_h);

my $avail = to_32bit_int($avail_l, $avail_h);

my $total = to_32bit_int($total_l, $total_h);

print "used.value $used\n";

print "avail.value $avail\n";

print "total.value $total\n";

exit 0;

__END__

#!/usr/bin/perl

=head1 NAME

snmp__netapp_inodeusage_ - Munin plugin to retrieve inodes usage on

NetApp storage appliances.

=head1 APPLICABLE SYSTEMS

Inodes usage stats should be reported by any NetApp storage appliance

with SNMP agent daemon activated. See na_snmp(8) for details.

=head1 CONFIGURATION

Unfortunately, SNMPv3 is not fully supported on all NetApp equipments.

For this reason, this plugin will use SNMPv2 by default, which is

insecure because it doesn't encrypt the community string. 

The following parameters will help you get this plugin working :

[snmp_*]

env.community MyCommunity

If your community name is 'public', you should really worry about

security and immediately reconfigure your appliance.

Please see 'perldoc Munin::Plugin::SNMP' for further configuration.

=head1 MIB INFORMATION

This plugin requires support for the NETWORK-APPLIANCE-MIB issued by

Network Appliance. It reports the content of the DfEntry OID.

=head1 MAGIC MARKERS

#%# family=snmpauto

#%# capabilities=snmpconf

=head1 VERSION

v1.0 - 06/22/2009 14:05:03 CEST

Initial revision

=head1 AUTHOR

This plugin is copyright (c) 2009 by Guillaume Blairon.

NetApp is a registered trademark and Network Appliance is a trademark

of Network Appliance, Inc. in the U.S. and other countries.

=head1 BUGS

This plugin wasn't tested on many hardware. If you encounter bugs,

please report them to Guillaume Blairon E<lt>L<g@yom.be>E<gt>.

=head1 LICENSE

GPLv2 or (at your option) any later version.

=cut

use strict;

use warnings;

use Munin::Plugin::SNMP;

use vars qw($DEBUG);

$DEBUG = $ENV{'MUNIN_DEBUG'};

my @palette =

   #Better colours from munin 1.3.x

   #Greens Blues Oranges Dk yel Dk blu Purple Lime   Reds   Gray

 qw(00CC00 0066B3 FF8000 FFCC00 330099 990099 CCFF00 FF0000 808080

    008F00 00487D B35A00 B38F00        6B006B 8FB300 B30000 BEBEBE

    80FF80 80C9FF FFC080 FFE680 AA80FF EE00CC FF8080

    666600 FFBFFF 00FFCC CC6699 999900);

my %oids = (

    dfInodesUsed => '1.3.6.1.4.1.789.1.5.4.1.7.',

    dfInodesFree => '1.3.6.1.4.1.789.1.5.4.1.8.',

);

if (defined $ARGV[0] and $ARGV[0] eq 'snmpconf') {

    print "number 1.3.6.1.4.1.789.1.5.6.0\n";

    print "index 1.3.6.1.4.1.789.1.5.4.1.1.\n";

    foreach (keys %oids) {

        print "require $oids{$_} [0-9]\n";

    }

    exit 0;

}

my $session = Munin::Plugin::SNMP->session();

my ($host, undef, undef, $tail) = Munin::Plugin::SNMP->config_session();

my ($df_id, $name_oid);

if ($tail =~ /^netapp_inodeusage_(\d+)$/) {

    $df_id    = $1;

    $name_oid = '1.3.6.1.4.1.789.1.5.4.1.2.' . $df_id;

} else {

    die "Couldn't understand what I'm supposed to monitor";

}

if (defined $ARGV[0] and $ARGV[0] eq "config") {

    my $df_name = $session->get_single($name_oid);

    print "host_name $host\n" unless $host eq 'localhost';

    print "graph_title $host inodes usage on $df_name\n";

    print "graph_args --base 1000 --lower-limit 0\n";

    print "graph_vlabel bytes\n";

    print "graph_category disk\n";

    print "graph_info This graph shows the inodes usage for $df_name on NetApp host $host\n";

    print "graph_order used avail total\n";

    print "used.info The total inodes number of inodes in use on the $df_name file system.\n";

    print "used.type GAUGE\n";

    print "used.draw AREA\n";

    print "used.label Used\n";

    print "used.min 0\n";

    print "used.colour $palette[1]\n";

    print "avail.info The total number of inodes that are free for use on the $df_name file system.\n";

    print "avail.type GAUGE\n";

    print "avail.draw STACK\n";

    print "avail.label Available\n";

    print "avail.min 0\n";

    print "avail.colour $palette[3]\n";

    print "total.info The total capacity for the $df_name file system.\n";

    print "total.type GAUGE\n";

    print "total.draw LINE2\n";

    print "total.label Total\n";

    print "total.min 0\n";

    print "total.colour $palette[7]\n";

    exit 0;

}

my $used  = $session->get_single($oids{dfInodesUsed}.$df_id);

my $avail = $session->get_single($oids{dfInodesFree}.$df_id);

my $total = $used + $avail;

print "used.value $used\n";

print "avail.value $avail\n";

print "total.value $total\n";

exit 0;

__END__

#!/usr/bin/perl -w

#

# Copyright (C) 2006 Lars Strand

#

# Munin plugin to monitor swap usage by use of SNMP.

# Based on the snmp__df plugin

#

# 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.

#

# $Log$

#

#%# family=snmpauto

#%# capabilities=snmpconf

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")

{

    # HOST-RESOURCES-MIB::hrStorage

    # HOST-RESOURCES-TYPES::hrStorageVirtualMemory

    print "require 1.3.6.1.2.1.25.2. 1.3.6.1.2.1.25.2.1.3\n"; 

    exit 0;

}

if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_swap$/)

{

    $host  = $1;

    if ($host =~ /^([^:]+):(\d+)$/)

    {

	$host = $1;

	$port = $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";

}

my $hrStorage = "1.3.6.1.2.1.25.2.";

my $hrStorageVirtualMemory = "1.3.6.1.2.1.25.2.1.3";

my $hrStorageSize = "1.3.6.1.2.1.25.2.3.1.5.";

my $hrStorageUsed = "1.3.6.1.2.1.25.2.3.1.6.";

my $swap_d = get_by_regex($session, $hrStorage, $hrStorageVirtualMemory);

my $swapsize = 0; my $swapused = 0;

foreach my $swap (keys %$swap_d) 

{

    $swapsize += get_single($session, $hrStorageSize . $swap);

    $swapused += get_single($session, $hrStorageUsed . $swap);

}

if (defined $ARGV[0] and $ARGV[0] eq "config")

{

    print "host_name $host\n";

    print "graph_title Virtual memory usage\n";

    if ($swapsize > 0) 

    {

	print "graph_args -l 0 --base 1000 --upper-limit $swapsize\n";

    } 

    else 

    {

	print "graph_args -l 0 --base 1000\n";

    }

    print "graph_vlabel Bytes\n";

    print "graph_category disk\n";

    print "graph_info This graph shows swap usage in bytes.\n";

    print "swap.label swap\n";

    print "swap.type DERIVE\n";

    print "swap.min 0\n";

    exit 0;

}

print "swap.value $swapused\n";

sub get_single

{

    my $handle = shift;

    my $oid    = shift;

    print "# Getting single $oid..." if $DEBUG;

    $response = $handle->get_request ($oid);

    if (!defined $response->{$oid})

    {

	print "undef\n" if $DEBUG;

	return undef;

    }

    else

    {

	print "\"$response->{$oid}\"\n" if $DEBUG;

	return $response->{$oid};

    }

}

sub get_by_regex

{

    my $handle = shift;

    my $oid    = shift;

    my $regex  = shift;

    my $result = {};

    my $num    = 0;

    my $ret    = $oid . "0";

    my $response;

    print "# Starting browse of $oid...\n" if $DEBUG;

    while (1)

    {

	if ($num == 0)

	{

	    print "# Checking for $ret...\n" if $DEBUG;

	    $response = $handle->get_request ($ret);

	}

	if ($num or !defined $response)

	{

	    print "# Checking for sibling of $ret...\n" if $DEBUG;

	    $response = $handle->get_next_request ($ret);

	}

	if (!$response)

	{

	    return undef;

	}

	my @keys = keys %$response;

	$ret = $keys[0];

	print "# Analyzing $ret (compared to $oid)...\n" if $DEBUG;

	last unless ($ret =~ /^$oid/);

	$num++;

	next unless ($response->{$ret} =~ /$regex/);

	@keys = split (/\./, $ret);

	$result->{$keys[-1]} = $response->{$ret};;

	print "# Index $num: ", $keys[-1], " (", $response->{$ret}, ")\n" if $DEBUG;

    };

    return $result;

}

#!/bin/bash

#

# Munin plugin to monitor free space in MySQL's InnoDB tablespace.

# Mostly useful if you use InnoDB on a block device, or if you for

# some reason don't want to do autoextend on the last file.

# 

# 2007-03-18 Stig Sandbeck Mathisen <ssm@fnord.no>

#

# Configuration parameters for /etc/munin/plugin-conf.d/mysql_innodb,

# if you need to override the defaults below:

#

# [mysql_innodb]

#   env.mysqlopts - Options to pass to mysql (host, username, password)

#   env.warning   - Generate a warning if free space goes below this level

#   env.critical  - Generate a critical if free space goes below this level

# 

# For security reasons, this plugin uses its own schema with a simple,

# empty table using the InnoDB engine.

# 

# You need to run this to get this plugin to work:

#   mysql> CREATE DATABASE munin_innodb;

#   mysql> USE munin_innodb

#   mysql> CREATE TABLE something (anything int) ENGINE=InnoDB;

## Tunable parameters with defaults

MYSQL="${mysql:-/usr/bin/mysql}"

MYSQLOPTS="${mysqlopts:---user=munin --password=munin --host=localhost}"

WARNING=${warning:-2147483648}   # 2GB

CRITICAL=${critical:-1073741824} # 1GB

## No user serviceable parts below

if [ "$1" = "config" ]; then

    echo 'graph_title MySQL InnoDB free tablespace'

    echo 'graph_args --base 1024'

    echo 'graph_vlabel Bytes'

    echo 'graph_category mysql'

    echo 'graph_info Amount of free bytes in the InnoDB tablespace'

    echo 'free.label Bytes free'

    echo 'free.type GAUGE'

    echo 'free.min 0'

    echo 'free.warning' $WARNING:

    echo 'free.critical' $CRITICAL:

    exit 0

fi

# Get freespace from mysql

freespace=$($MYSQL $MYSQLOPTS --batch --skip-column-names --execute        \

    "SELECT table_comment FROM tables WHERE TABLE_SCHEMA = 'munin_innodb'" \

    information_schema);

retval=$?

# Sanity checks

if (( retval > 0 )); then

    echo "Error: mysql command returned status $retval" 1>&2

    exit -1

fi

if [ -z "$freespace" ]; then

    echo "Error: mysql command returned no output" 1>&2

    exit -1

fi

# Return freespace

echo $freespace | awk '/InnoDB free:/ {print "free.value", $3 * 1024}'

#!/usr/bin/perl -w

#

# Copyright (C) 2006 Lars Strand

#

# Munin plugin to monitor network connection by use of SNMP.

# Based on snmp__df plugin.

#

# 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.

#

# $Log$

#

#%# family=snmpauto

#%# capabilities=snmpconf

use strict;

use Net::SNMP;

my $DEBUG = 1;

my $host      = $ENV{host}      || undef;

my $port      = $ENV{port}      || 161;

my $community = $ENV{community} || "public";

my $response;

my %tcpStates = ( 1 =>  [0, "GAUGE", "closed", "Connections waiting for a termination request acknowledgment from the remote TCP."],

		  2 =>  [0, "GAUGE", "listen", "Connections waiting for a request from any remote TCP and port."],

		  3 =>  [0, "GAUGE", "synSent", "Connections waiting for a matching request after having sent a connection request."],

		  4 =>  [0, "GAUGE", "synReceived", "Connections waiting for a confirming request acknowledgment after having both received and sent a connection request."],

		  5 =>  [0, "GAUGE", "established", "Connections opened and data received can be delivered to the user. The normal state for the data transfer phase of the connection."],

		  6 =>  [0, "GAUGE", "finWait1", "Connections waiting for a termination request from the remote TCP, or an acknowledgment of the connection termination request previously sent."],

		  7 =>  [0, "GAUGE", "finWait2", "Connections waiting for a termination request from the remote TCP."],

		  8 =>  [0, "GAUGE", "closeWait", "Connections waiting for a termination request from the local user."],

		  9 =>  [0, "GAUGE", "lastAck", "Connections waiting for an acknowledgment of the termination request previously sent to the remote TCP (which includes an acknowledgment of its connection termination request)."],

		  10 => [0, "GAUGE", "closing", "Connections waiting for a termination request acknowledgment from the remote TCP."],

		  11 => [0, "GAUGE", "timeWait", "Connections waiting for enough time to pass to be sure the remote TCP received the acknowledgment of its termination request."],

		  12 => [0, "GAUGE", "deleteTCP", "Connections terminated by a SNMP Managment Station (put)"]

		  );

if (defined $ARGV[0] and $ARGV[0] eq "snmpconf")

{

    print "require 1.3.6.1.2.1.6.13.1.1. [0-9]\n";

    exit 0;

}

if ($0 =~ /^(?:|.*\/)snmp_([^_]+)_netstat$/)

{

    $host  = $1;

    if ($host =~ /^([^:]+):(\d+)$/)

    {

	$host = $1;

	$port = $2;

    }

}

elsif (!defined($host))

{

    print "# Debug: $0 -- $1\n" if $DEBUG;

    die "# Error: couldn't understand what I'm supposed to monitor.";

}

if (defined $ARGV[0] and $ARGV[0] eq "config")

{

    print "host_name $host\n";

    print "graph_title Netstat\n";

    print "graph_args -l 0 --base 1000\n";

    print "graph_period seconds\n";

    print "graph_category network\n";

    print "graph_order closed listen synSent synReceived established finWait1 finWait2 closeWait lastAck closing timeWait deleteTCP\n";

    print "graph_vlabel active connection\n";

    print "graph_info This graph shows the TCP activity of all the network interfaces combined.\n";

    foreach my $state (keys %tcpStates) {

	print "$tcpStates{$state}[2].label $tcpStates{$state}[2]\n";

	print "$tcpStates{$state}[2].type $tcpStates{$state}[1]\n";

	print "$tcpStates{$state}[2].max 50000\n";

	print "$tcpStates{$state}[2].min 0\n";

	print "$tcpStates{$state}[2].info $tcpStates{$state}[3]\n";

    }

    exit 0;

}

my $tcpConnState = "1.3.6.1.2.1.6.13.1.1.";

my ($session, $error) = Net::SNMP->session(

	   -hostname  => $host,

	   -community => $community,

	   -port      => $port

        );

if (!defined ($session))

{

    die "Croaking: $error";

}

my $connections = get_by_regex($session, $tcpConnState, "[1-9]");

# the values

while (my ($id, $state) = each(%$connections)) {

    $tcpStates{$state}[0] += 1;

}

foreach my $state (keys %tcpStates) {

    print "$tcpStates{$state}[2].value $tcpStates{$state}[0]\n";

}

sub get_by_regex

{

    my $handle = shift;

    my $oid    = shift;

    my $regex  = shift;

    my $result = {};

    my $num    = 0;

    my $ret    = $oid . "0";

    my $response;

    print "# Starting browse of $oid...\n" if $DEBUG;

    while (1)

    {

	if ($num == 0)

	{

	    print "# Checking for $ret...\n" if $DEBUG;

	    $response = $handle->get_request ($ret);

	}

	if ($num or !defined $response)

	{

	    print "# Checking for sibling of $ret...\n" if $DEBUG;

	    $response = $handle->get_next_request ($ret);

	}

	if (!$response)

	{

	    return undef;

	}

	my @keys = keys %$response;

	$ret = $keys[0];

	print "# Analyzing $ret (compared to $oid)...\n" if $DEBUG;

	last unless ($ret =~ /^$oid/);

	$num++;

	next unless ($response->{$ret} =~ /$regex/);

	@keys = split (/\./, $ret);

	$result->{$num} = $response->{$ret};;

	print "# Index $num: ", $keys[-1], " (", $response->{$ret}, ")\n" if $DEBUG;

    };

    return $result;

}

#!/bin/sh

#

# Plugin to monitor NFS client traffic

#

# $Log$

# Revision 1.8.2.1  2005/03/16 13:45:45  ilmari

# Fix autoconf for linux/{nfsd,nfs_client}.

#

# Revision 1.8  2004/12/10 10:47:49  jimmyo

# Change name from ${scale} to ${graph_period}, to be more consistent.

#

# Revision 1.7  2004/12/09 22:12:56  jimmyo

# Added "graph_period" option, to make "graph_sums" usable.

#

# Revision 1.6  2004/11/21 00:17:12  jimmyo

# Changed a lot of plugins so they use DERIVE instead of COUNTER.

#

# Revision 1.5  2004/10/01 12:32:09  ilmari

# complete "rpc" removal

#

# Revision 1.4  2004/10/01 08:40:50  ilmari

# Remove useless 'rpc' field, add total field

#

# Revision 1.3  2004/05/20 19:02:37  jimmyo

# Set categories on a bunch of plugins

#

# Revision 1.2  2004/05/15 21:33:29  jimmyo

# "Upped" som plugins from contrib/manual to manual or auto.

#

#

#%# family=auto

#%# capabilities=autoconf

NFS=/proc/net/rpc/nfs

#proc="getattr setattr lookup access readlink read write create mkdir symlink mknod remove rmdir rename link readdir readdirplus fsstat fsinfo pathconf commit"

proc="access close commit create delegpurge delegreturn getattr getfh link lock lockt locku lookup lookup_root nverify open openattr open_conf open_dgrd putfh putpubfh putrootfh read readdir readlink remove rename renew restorefh savefh secinfo setattr setcltid setcltidconf verify write rellockowner"

if [ "$1" = "autoconf" ]; then

	if [ -f "$NFS" ]; then

		echo yes

		exit 0

	else

		echo "no (no $NFS)"

		exit 1

	fi

fi

if [ "$1" = "config" ]; then

	echo 'graph_title NFS4 Client'

	echo 'graph_args --base 1000 -l 0'

	echo 'graph_vlabel requests / ${graph_period}'

	echo 'graph_total total'

	echo 'graph_category NFS'

	for a in $proc ; do echo "$a.label $a" ; echo "$a.type DERIVE"; echo "$a.min 0"; done

	exit 0

fi

i=4;

for a in $proc; do

	echo -n "$a.value "

	grep proc4 $NFS \

		| cut -f $i -d ' ' \

		| awk '{print $1}'

	i=$(expr $i + 1)

done

#!/usr/bin/perl -w

# -*- mode: cperl; mode: autopair -*-

# Magic markers:

#%# family=auto

#%# capabilities=autoconf

# nginx_request --- Determine the current connection rate for

#                   nginx. Based on a nginx_request plugin by unknown

#                   author.

# Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>

# Author: António P. P. Almeida <appa@perusio.net>

# Permission is hereby granted, free of charge, to any person obtaining a

# copy of this software and associated documentation files (the "Software"),

# to deal in the Software without restriction, including without limitation

# the rights to use, copy, modify, merge, publish, distribute, sublicense,

# and/or sell copies of the Software, and to permit persons to whom the

# Software is furnished to do so, subject to the following conditions:

# The above copyright notice and this permission notice shall be included in

# all copies or substantial portions of the Software.

# Except as contained in this notice, the name(s) of the above copyright

# holders shall not be used in advertising or otherwise to promote the sale,

# use or other dealings in this Software without prior written authorization.

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

# DEALINGS IN THE SOFTWARE.

=head1 NAME

nginx_request - Munin plugin to show number of requests/connection served by nginx.

=encoding utf8

=head1 APPLICABLE SYSTEMS

Any nginx host

=head1 CONFIGURATION

This shows the default configuration of this plugin.  You can override

the status URL and User Agent.

  [nginx*]

      env.url http://localhost/nginx_status

      env.ua nginx-status-verifier/0.1

Nginx must also be configured.  Firstly the stub-status module must be

compiled, and secondly it must be configured like this:

  server {

        listen 127.0.0.1;

        server_name localhost;

        location /nginx_status {

                stub_status on;

                access_log   off;

                allow 127.0.0.1;

                deny all;

        }

  }

=head1 MAGIC MARKERS

  #%# family=auto

  #%# capabilities=autoconf

=head1 VERSION

1.1

=head1 BUGS

None known

=head1 AUTHOR

Unknown. Modified by António Almeida <appa@perusio.net>

=head1 REPOSITORY

Source code at http://github.com/perusio/nginx-munin

=head1 LICENSE

MIT

=cut

my $ret = undef;

if (! eval "require LWP::UserAgent;") {

  $ret = "LWP::UserAgent not found";

}

chomp(my $fqdn=`hostname -f`);

## Environment defined variables.

## The default URL is nginx_status if different set it in the environment.

my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://$fqdn/nginx_status";

## The default user agent is ngnix-status-verifier/0.1 if different

## set it in the environment.

my $UA = exists $ENV{'ua'} ? $ENV{'ua'} : 'nginx-status-verifier/0.1';

if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {

  if ($ret) {

    print "no ($ret)\n";

    exit 1;

  }

  my $ua = LWP::UserAgent->new(timeout => 30);

  # Set the UA to something different from the libwww-perl.

  # That UA is blocked.

  $ua->agent($UA);

  my $response = $ua->request(HTTP::Request->new('GET',$URL));

  unless ($response->is_success and $response->content =~ /server/im)

    {

      print "no (no nginx status on $URL)\n";

      exit 1;

    } else {

      print "yes\n";

      exit 0;

    }

}

## Munin config method.

if (exists $ARGV[0] and $ARGV[0] eq "config") {

  print "graph_title NGINX requests\n";

  print "graph_args --base 1000\n";

  print "graph_category nginx\n";

  print "graph_vlabel Request per second\n";

  print "request.label req/sec\n";

  print "request.type DERIVE\n";

  print "request.min 0\n";

  print "request.draw LINE2\n";

  exit 0;

}

my $ua = LWP::UserAgent->new(timeout => 30);

# Set the UA to something different from the libwww-perl.

# That UA is blocked.

$ua->agent($UA);

my $response = $ua->request(HTTP::Request->new('GET',$URL));

if ($response->content =~ /^\s+(\d+)\s+(\d+)\s+(\d+)/m) {

  print "request.value $3\n";

} else {

  print "request.value U\n";

}

#!/usr/bin/perl -w

# -*- cperl -*-

# Magic markers:

#%# family=auto

#%# capabilities=autoconf

# nginx_status --- Determine the current status of Nginx

#                  using the http_stub_status module.

# Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>

# Author: António P. P. Almeida <appa@perusio.net>

# Permission is hereby granted, free of charge, to any person obtaining a

# copy of this software and associated documentation files (the "Software"),

# to deal in the Software without restriction, including without limitation

# the rights to use, copy, modify, merge, publish, distribute, sublicense,

# and/or sell copies of the Software, and to permit persons to whom the

# Software is furnished to do so, subject to the following conditions:

# The above copyright notice and this permission notice shall be included in

# all copies or substantial portions of the Software.

# Except as contained in this notice, the name(s) of the above copyright

# holders shall not be used in advertising or otherwise to promote the sale,

# use or other dealings in this Software without prior written authorization.

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

# DEALINGS IN THE SOFTWARE.

=head1 NAME

nginx_status - Munin plugin to show the connection status for nginx

=encoding utf8

=head1 APPLICABLE SYSTEMS

Any nginx host

=head1 CONFIGURATION

This shows the default configuration of this plugin.  You can override

the status URL and the User Agent.

  [nginx*]

      env.url http://localhost/nginx_status

      env.ua nginx-status-verifier/0.1

Nginx must also be configured.  Firstly the stub-status module must be

compiled, and secondly it must be configured like this:

  server {

        listen 127.0.0.1;

        server_name localhost;

        location /nginx_status {

                stub_status on;

                access_log   off;

                allow 127.0.0.1;

                deny all;

        }

  }

=head1 MAGIC MARKERS

  #%# family=auto

  #%# capabilities=autoconf

=head1 VERSION

1.1

=head1 BUGS

None known

=head1 AUTHOR

Unknown. Mantained by António Almeida <appa@perusio.net>

=head1 REPOSITORY

Source code at http://github.com/perusio/nginx-munin

=head1 LICENSE

MIT

=cut

my $ret = undef;

if (! eval "require LWP::UserAgent;") {

  $ret = "LWP::UserAgent not found";

}

chomp(my $fqdn=`hostname -f`);

## Environment defined variables.

## The default URL is nginx_status if different set it in the environment.

my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://$fqdn/nginx_status";

## The default user agent is ngnix-status-verifier/0.1 if different

## set it in the environment.

my $UA = exists $ENV{'ua'} ? $ENV{'ua'} : 'nginx-status-verifier/0.1';

## Munin autoconf method.

if (exists $ARGV[0] and $ARGV[0] eq "autoconf" ) {

  if ($ret) {

    print "no ($ret)\n";

    exit 1;

  }

  my $ua = LWP::UserAgent->new(timeout => 30);

  # Set the UA to something different from the libwww-perl.

  # This UA is blocked.

  $ua->agent($UA);

  my $response = $ua->request(HTTP::Request->new('GET',$URL));

  unless ($response->is_success and $response->content =~ /server/im) {

    print "no (no nginx status on $URL)\n";

    exit 1;

  } else {

    print "yes\n";

    exit 0;

  }

}

## Munin config method.

if (exists $ARGV[0] and $ARGV[0] eq "config") {

  print "graph_title NGINX status\n";

  print "graph_args --base 1000\n";

  print "graph_category nginx\n";

  print "graph_vlabel Connections\n";

  print "total.label Active connections\n";

  print "total.info  Active connections\n";

  print "total.draw LINE2\n";

  print "reading.label Reading\n";

  print "reading.info  Reading\n";

  print "reading.draw LINE2\n";

  print "writing.label Writing\n";

  print "writing.info  Writing\n";

  print "writing.draw LINE2\n";

  print "waiting.label Waiting\n";

  print "waiting.info  Waiting\n";

  print "waiting.draw LINE2\n";

  exit 0;

}

my $ua = LWP::UserAgent->new(timeout => 30);

# Set the UA to something different from the libwww-perl.

# That UA is blocked.

$ua->agent($UA);

my $response = $ua->request(HTTP::Request->new('GET',$URL));

# Active connections: 1845

# server accepts handled requests

# 4566318 4566318 84218236

# Reading: 2 Writing: 278 Waiting: 1565

if ($response->content =~ /Active connections:\s+(\d+).*Reading:\s+(\d+).*Writing:\s+(\d+).*Waiting:\s+(\d+)/s) {

  print "total.value $1\n";

  print "reading.value $2\n";

  print "writing.value $3\n";

  print "waiting.value $4\n";

} else {

  foreach (qw(total reading writing waiting)) {

    print "$_.value U\n";

  }

}

#!/usr/bin/perl

#

# $Log$

# 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.3  2003/12/18 19:02:36  jimmyo

# Typo

#

# Revision 1.2  2003/12/18 17:14:24  jimmyo

# Added autoconf-support

#

# Revision 1.1  2003/11/10 18:51:50  jimmyo

# Initial entries

#

#%# family=manual

#%# capabilities=autoconf

my $ret = undef;

if (! eval "require Net::IRC;")

{

    $ret = "Net::IRC not found";

}

if ($ARGV[0] and $ARGV[0] eq "autoconf")

{

    if ($ret)

    {

	print "no ($ret)\n";

	exit 1;

    }

    my $irc = new Net::IRC;

    my $conn;

    $irc = new Net::IRC; $conn = $irc->newconn(Nick => 'munin', Server => '192.168.1.1');

    if (!$conn)

    {

	print "no (Couldn't connect to IRC server)\n";

	exit 1;

    }

    print "yes\n";

    exit 0;

}

if($ARGV[0] and $ARGV[0] eq "config") {

    print "host_name $ENV{FQDN}\n";

    print "graph_title ircd status\n";

    print "graph_order clients channels\n";

    print "graph_args -l 0\n";

    print "clients.label clients\n";

    print "clients.draw LINE2\n";

    print "channels.label channels\n";

    print "channels.draw LINE2\n";

    exit 0;

}

my $irc = new Net::IRC;

my $conn = $irc->newconn(Nick => 'munin',

			 Server => '192.168.1.1');

my %result;

#$conn->debug(1);

sub luserclient {

    my($self, $event) = @_;

    if(($event->args)[1] =~  /There are (\d+) users and (\d+) invisible/) {

	$result{'clients'} = $1 + $2 - 1; # don't count this script

    }

}

sub luserchannels {

    my($self, $event) = @_;

    if(($event->args)[1] =~  /^(\d+)/) {

	$result{'channels'} = $1;

    }

}

sub quit {

    my($self, $event) = @_;

    open(STDERR, ">/dev/null");

    $self->quit();

    print "clients.value " . $result{'clients'} . "\n";

    print "channels.value " . $result{'channels'} . "\n";

}

$conn->add_global_handler('endofmotd', \&quit);

$conn->add_global_handler('luserclient', \&luserclient);

$conn->add_global_handler('luserchannels', \&luserchannels);

while(1) {

    $irc->do_one_loop();

}		 

# vim:syntax=perl

#!/bin/sh

#

# Plugin to graph perdition connections and errors 

# Requires: logtail

# 

# Copyright Micah Anderson <micah@riseup.net>

# Jan 23, 2005

#

#

#%# family=contrib

#%# capabilities=autoconf

# The different log lines we are interested in:

#

# buffy perdition[7583]: Connect: 64.45.82.181->69.50.164.185

# buffy perdition[20097]: Close: 217.19.50.108->69.50.74.154 user="mek" received=12 sent=23

# buffy perdition[7435]: Auth: 130.22.173.20->69.90.134.185 user="gotn" server="192.168.0.2" port="143" status="ok"

# buffy perdition[26986]: Auth: 72.13.2.186->69.92.134.215 user="moves" server="192.168.0.2" port="110" status="ok"

# Then there are some errors, I'm just going to put these all into one line, they could easily be

# separate out if we were interested in how many of each type of error, but 7 lines for this graph is a lot

# buffy perdition[20908]: Fatal Error reading authentication information from client "203.52.112.34->68.92.124.155": Exiting child

# buffy perdition[27754]: Fatal error establishing SSL connection to client

# buffy perdition[5139]: Fatal error negotiating setup. Exiting child.

# Changelog

# version 0.1 - Jan 23, 2005

# Micah Anderson <micah@riseup.net>

#  - initial author

# version 0.2 - Oct 10, 2007

# Micah Anderson <micah@riseup.net>

#  - fixed copyright and added changelog

#  - added TMP env variable

#  - set all TEMP_FILE variables to use $TMP

# Set the location of the perdition logs

PERDITION_LOG=${logfile:-/var/log/perdition.log}

OFFSET_FILE=/var/lib/munin/plugin-state/perdition.offset

LOGTAIL=${logtail:-/usr/sbin/logtail}

TMP=${TMP:-/tmp}

case `uname -s` in

Linux)

        TEMP_FILE=`mktemp -p $TMP/ munin-perdition.XXXXXX`

        if [ $? != 0 ]; then

                TEMP_FILE=`mktemp $TMP/munin-perdition.XXXXXX`

        fi

        ;;

FreeBSD)

        TEMP_FILE=`mktemp -t $TMP`

        STATUS=$?

        ;;

esac

if [ -z "$TEMP_FILE" ]; then

        # Yes, this is unsafe

        TEMP_FILE=$TMP/munin-perdition.$$

        rm -rf $TEMP_FILE

        touch $TEMP_FILE

fi

if [ ! -f "$TEMP_FILE" ]; then

    exit 3

fi

case $1 in

    autoconf|detect)

    if [ -f ${PERDITION_LOG} -a -x ${LOGTAIL} ] 

    then

	echo yes

	exit 0

    else

	echo "no (either $PERDITION_LOG was not found, or logtail was not in your path)"

	exit 1

    fi

    ;;

    config)

    cat <<EOF

graph_title Perdition Connections

graph_vlabel Number of Connections

graph_total Total

connection.label connections

disconnected.label disconnections

imap.label IMAP Auths

pop.label POP Auths

fatal.label Fatal Errors

EOF

    exit 0

    ;;

esac

ARGS=0

`$LOGTAIL /etc/hosts 2>/dev/null >/dev/null`

if [ $? = 66 ]; then

    if [ ! -n "$logtail" ]; then

        ARGS=1

    fi

fi

if [ $ARGS != 0 ]; then

    ${LOGTAIL} -f ${PERDITION_LOG} -o ${OFFSET_FILE} > ${TEMP_FILE}

else

    ${LOGTAIL} ${PERDITION_LOG} ${OFFSET_FILE} > ${TEMP_FILE}

fi

connection=`grep "Connect:" ${TEMP_FILE} | wc -l`

disconnected=`grep "Close:" ${TEMP_FILE} | wc -l`

imap=`grep 'port="143" status="ok"' ${TEMP_FILE} | wc -l`

pop=`grep 'port="110" status="ok"' ${TEMP_FILE} | wc -l`

fatal=`grep 'Fatal [e|E]rror' ${TEMP_FILE} | wc -l`

rm ${TEMP_FILE}

echo "connection.value ${connection}"

echo "disconnected.value ${disconnected}"

echo "imap.value ${imap}"

echo "pop.value ${pop}"

echo "fatal.value ${fatal}"

#!/bin/bash

#

# Script to monitor number of processes. Programs are configured

# in /etc/munin/plugin-conf.d/munin-node

#

# Parameters:

#

# 	config   (required)

# 	autoconf (optional - used by lrrd-config)

#

# Configuration example

#

# [multips]

# env.multipsnames pop3d imapd sslwrap

# env.regex_imapd ^[0-9]* imapd:

# env.regex_pop3d ^[0-9]* pop3d:

# 

# $Log$

# Revision 1.1  2004/01/29 19:42:45  jimmyo

# Added a new plugin generic/multips to count several procs in one graph. (SF#885579)

#

#

# Magic markers (optional):

#%# family=manual

#%# capabilities=autoconf

if [ "$1" = "autoconf" ]; then

        if [ -z "$multipsnames" ]; then

            echo "Configuration required $multipsnames"

        else

            echo yes

        fi

	exit 0

fi	  

if [ "$1" = "config" ]; then

	echo graph_title Number of selected processes

	echo 'graph_category processes'

	echo 'graph_args --base 1000 --vertical-label processes -l 0'

	for name in $multipsnames; do

		echo "$name.label $name"

		echo "$name.draw LINE2"

	done

	exit 0

fi

for name in $multipsnames; do

	printf "$name.value "

	eval REGEX='"${regex_'$name'-\<'$name'\>}"'

	PGREP=`which pgrep`

	if [ -n "$PGREP" ]; then

		$PGREP -f -l "$name" | grep "$REGEX" | wc -l

	elif [ -x /usr/ucb/ps ]; then

		# Solaris without pgrep. How old is that?

		/usr/ucb/ps auxwww | grep "$REGEX" | grep -v grep | wc -l

	else

		ps auxwww | grep "$REGEX" | grep -v grep | wc -l

	fi

done

#!/usr/bin/perl -w

#

# Plugin to monitor physical cpu usage in an IBM POWER P5 / OpenPower LPAR

#

# Usage: Place in /etc/munin/plugins (or make a symlink to it there)

#

# Parameters understood:

#

#       config

#       autoconf

#

# This should be run as root, so drop a file with something like this in

# /etc/munin/plugin-conf.d/lpar_cpu:

#       [lpar_cpu]

#       user root

#

# Great thanks to Nigel Griffith of IBM for the magic to get these values

#

# Author: Ingvar Hagelund <ingvar(at)linpro.no>

#

# Licence: GNU General Public Licence v2.0,

# see http://www.gnu.org/copyleft/gpl.html

use strict;

my $stats="/proc/ppc64/lparcfg";

my $cpuinfo="/proc/cpuinfo";

my $seconds=2;