166 lines
4.2 KiB
Perl
Executable File
166 lines
4.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Munin plugin for monitoring swapspace usage
|
|
#
|
|
# FIELDS:
|
|
# Swap Alloc swap allocated (used)
|
|
# Swap Unalloc swap reserved but not allocated
|
|
# Swap Avail swap available for reservation
|
|
#
|
|
# Core logic developed by Brendan Gregg.
|
|
# REFERENCE: http://www.brendangregg.com/k9toolkit.html - the swap diagram.
|
|
#
|
|
# COPYRIGHT: Copyright (c) 2004 Brendan Gregg.
|
|
#
|
|
# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
#
|
|
# (http://www.gnu.org/copyleft/gpl.html)
|
|
|
|
# Perldoc
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
swapspace_info - Plugin to monitor Swapspace usage
|
|
|
|
=head1 AUTHOR
|
|
|
|
Christian Braum, chrisi_braum@web.de
|
|
|
|
Core logic developed by Brendan Gregg. See K9Toolkit:
|
|
http://www.brendangregg.com/K9Toolkit/swapinfo
|
|
|
|
=head1 LICENSE
|
|
|
|
GPL 2.
|
|
|
|
=cut
|
|
|
|
# Main
|
|
use strict;
|
|
use warnings;
|
|
|
|
if ( defined $ARGV[0] )
|
|
{
|
|
if ( $ARGV[0] eq "config" )
|
|
{
|
|
&config();
|
|
}
|
|
else
|
|
{
|
|
&output();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
&output();
|
|
}
|
|
|
|
sub value
|
|
{
|
|
my %h_swapvalue;
|
|
eval 'use Sun::Solaris::Kstat; 1;'
|
|
or die 'Please install Sun::Solaris::Kstat';
|
|
my $Kstat = Sun::Solaris::Kstat->new();
|
|
|
|
# --- Fetch Hardware info ---
|
|
### pagesize
|
|
$ENV{PATH} = "/usr/bin";
|
|
chomp(my $PAGESIZE = `pagesize`);
|
|
my $PAGETOMB = $PAGESIZE / (1024 * 1024);
|
|
my $PAGETOBYTE = $PAGESIZE;
|
|
my $BLOCKTOP = 512 / $PAGESIZE;
|
|
my %VMnow;
|
|
my %VMold;
|
|
my %VMinfo;
|
|
|
|
# --- Fetch VM info ---
|
|
foreach my $count (0..12)
|
|
{
|
|
#
|
|
# The values are counters that increment each second, here we
|
|
# check them several times and look for the value changing.
|
|
# (reading them once then again a second later was not reliable).
|
|
#
|
|
foreach my $var ("swap_avail","swap_alloc","swap_free")
|
|
{
|
|
$VMnow{$var} = $Kstat->{unix}->{0}->{vminfo}->{$var};
|
|
unless ($count)
|
|
{
|
|
$VMold{$var} = $VMnow{$var};
|
|
next;
|
|
}
|
|
if (($VMnow{$var} != $VMold{$var}) && (! $VMinfo{$var}))
|
|
{
|
|
$VMinfo{$var} = $VMnow{$var} - $VMold{$var};
|
|
}
|
|
}
|
|
select(undef, undef, undef, 0.1);
|
|
$Kstat->update();
|
|
}
|
|
|
|
# --- Calculations ---
|
|
|
|
### Swap
|
|
my $swap_free = $VMinfo{swap_free};
|
|
my $swap_avail = $VMinfo{swap_avail};
|
|
my $swap_alloc = $VMinfo{swap_alloc};
|
|
my $swap_unalloc = $swap_free - $swap_avail;
|
|
|
|
my $swap_unalloc_B = sprintf( "%d ", $swap_unalloc * $PAGETOBYTE );
|
|
my $swap_avail_B = sprintf( "%d ", $swap_avail * $PAGETOBYTE );
|
|
my $swap_alloc_B = sprintf( "%d ", $swap_alloc * $PAGETOBYTE );
|
|
my $swap_free_B = sprintf( "%d ", $swap_free * $PAGETOBYTE );
|
|
|
|
$h_swapvalue{"Alloc.value"} = "$swap_alloc_B";
|
|
$h_swapvalue{"Unalloc.value"} = "$swap_unalloc_B";
|
|
$h_swapvalue{"Avail.value"} = "$swap_avail_B";
|
|
|
|
return %h_swapvalue;
|
|
}
|
|
|
|
sub output
|
|
{
|
|
my %h_swapvalues=value();
|
|
print "Alloc.value " . $h_swapvalues{"Alloc.value"} . " \n";
|
|
print "Unalloc.value " . $h_swapvalues{"Unalloc.value"} . " \n";
|
|
print "Avail.value " . $h_swapvalues{"Avail.value"} . "\n";
|
|
}
|
|
|
|
sub config
|
|
{
|
|
print "graph_args --base 1024 -l 0 \n";
|
|
print "graph_vlabel Bytes\n";
|
|
print "graph_title Swapspace usage\n";
|
|
print "graph_category memory\n";
|
|
print "graph_info This graph shows what the machine uses Swapspace for.\n";
|
|
print "graph_order ";
|
|
|
|
print "Alloc ",
|
|
"Unalloc ",
|
|
"Avail ",
|
|
"\n";
|
|
|
|
print "Alloc.label Alloc \n";
|
|
print "Alloc.draw \n";
|
|
print "Alloc.info Swap used.\n";
|
|
print "Unalloc.label Unalloc \n";
|
|
print "Unalloc.draw \n";
|
|
print "Unalloc.info Swap reserved but not allocated.\n";
|
|
print "Avail.label Avail \n";
|
|
print "Avail.draw \n";
|
|
print "Avail.info Swap available.\n";
|
|
}
|