2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/apache/apache_smaps

98 lines
3.5 KiB
Plaintext
Raw Normal View History

2007-02-13 10:31:50 +01:00
#!/usr/bin/perl -w
# This plugin watches the Linux kernel SMAPS memory usage statistics
# available in kernel revisions later than 2.6.14. It watches only the
# Apache 2 processes, and creates averages, maximums and minimums for
# a given moment in time for the shared size and the virtual size of
# the processes. This is useful for estimating the constraints to give
# to Apache2::SizeLimit.
# Author: Kjetil Kjernsmo <kjetilk@opera.com>, based on work by William Viker
# Copyright (C) 2007 Opera Software ASA
#
# Contibutors: Earle Nietzel <earle.nietzel@gmail.com>
#
# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
use strict;
my $ret = undef;
if (!eval "require Linux::Smaps;") {
$ret = "Linux::Smaps not found, fix with cpan -i Linux::Smaps";
}
# allow process name and process user to be specified
my $PNAME = exists $ENV{'pname'} ? $ENV{'pname'} : "httpd";
my $PUSER = exists $ENV{'puser'} ? $ENV{'puser'} : "apache";
if (defined(@ARGV) && ($ARGV[0] eq 'config')) {
print "graph_title Apache Smaps\n";
print "graph_args --base 1024 -l 0\n";
print "graph_vlabel Bytes\n";
print "graph_category webserver\n";
2007-02-13 10:31:50 +01:00
print "graph_info This graph shows memory usage for each given process.\n";
print "shr_max.label Shared memory max\n";
print "shr_max.draw LINE2\n";
print "shr_max.info Max shared memory.\n";
print "shr_min.label Shared memory min\n";
print "shr_min.draw LINE2\n";
print "shr_min.info Minimum shared memory.\n";
print "shr_avg.label Shared memory average\n";
print "shr_avg.draw LINE2\n";
print "shr_avg.info Average shared memory.\n";
print "vsz_max.label Virtual memory max\n";
print "vsz_max.draw LINE2\n";
print "vsz_max.info Max Virtual memory.\n";
print "vsz_min.label Virtual memory min\n";
print "vsz_min.draw LINE2\n";
print "vsz_min.info Minimum Virtual memory.\n";
print "vsz_avg.label Virtual memory avg\n";
print "vsz_avg.draw LINE2\n";
print "vsz_avg.info Average Virtual memory.\n";
exit(0);
}
my $i = 0;
my $max_shared = 0;
my $sum_shared = 0;
my $min_shared = 1171541713117116171; # An insanely high number
my $max_virt = 0;
my $sum_virt = 0;
my $min_virt = 1171541713117116171; # An insanely high number
for my $pid (split(/\n/,`pgrep -x $PNAME -u $PUSER`)) {
my $map = Linux::Smaps->new($pid);
$i++;
my $shared = $map->shared_clean + $map->shared_dirty;
my $size = $map->size;
$sum_shared += $shared;
$max_shared = $shared if ($shared > $max_shared);
$min_shared = $shared if ($shared < $min_shared);
$sum_virt += $size;
$max_virt = $size if ($size > $max_virt);
$min_virt = $size if ($size < $min_virt);
}
# if no processes were found prevents divide by 0
if ($i gt 0) {
print "shr_max.value $max_shared\n";
print "shr_min.value $min_shared\n";
print "shr_avg.value ".$sum_shared/$i."\n";
print "vsz_max.value $max_virt\n";
print "vsz_min.value $min_virt\n";
print "vsz_avg.value ".$sum_virt/$i."\n";
}