#!/usr/bin/perl # -*- perl -*- # FIXME: this copy of the munin_stats munin plugin includes the fix for #767032 # Copyright (C) 2006-2009 Rodolphe Quiedeville <rodolphe@quiedeville.org> # # 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # # $Id$ # # Magic markers (used by munin-node-configure and some installation scripts): #%# family=auto #%# capabilities=autoconf use strict; use warnings; use Munin::Plugin; my @logs = qw/update html limits/; use Munin::Master::GraphOld; my $conffile = "$Munin::Common::Defaults::MUNIN_CONFDIR/munin.conf"; if (! graph_check_cron() ) { push (@logs, "graph"); } my $logdir = ($ENV{'logdir'} || $ENV{'MUNIN_LOGDIR'} || '/var/log/munin'); if ($ARGV[0] and $ARGV[0] eq 'autoconf') { my $munin_update_location = "$Munin::Common::Defaults::MUNIN_LIBDIR/munin-update"; if (! -e $munin_update_location) { print "no (munin-update was not found at $munin_update_location)\n"; exit 0; } if (! -x $munin_update_location) { print "no ($munin_update_location was found, but is not executable)\n"; exit 0; } else { print "yes\n"; exit 0; } } if ($ARGV[0] and $ARGV[0] eq "config") { print "graph_title Munin processing time\n"; if (! graph_check_cron() ) { print "graph_info This graph shows the run time of the four different processes making up a munin-master run. Munin-master is run from cron every 5 minutes and we want each of the programmes in munin-master to complete before the next instance starts. Especially munin-update and munin-graph are time consuming and their run time bears watching. If munin-update uses too long time to run please see the munin-update graph to determine which host is slowing it down. If munin-graph is running too slow you need to get clever (email the munin-users mailing list) unless you can buy a faster computer with better disks to run munin on.\n"; } else { print "graph_info This graph shows the run time of the thre different processes making up a munin-master run. Munin-master is run from cron every 5 minutes and we want each of the programmes in munin-master to complete before the next instance starts. Especially munin-update is time consuming and its run time bears watching. If munin-update uses too long time to run please see the munin-update graph to determine which host is slowing it down.\n"; } print "graph_args --base 1000 -l 0\n", "graph_scale yes\n", "graph_vlabel seconds\n", "graph_category munin\n"; foreach my $log (@logs) { print "$log.label munin $log\n"; print "$log.draw AREASTACK\n"; } print "update.warning 240\n"; print "update.critical 285\n"; if (! graph_check_cron() ) { print "graph.warning 240\n"; print "graph.critical 285\n"; } exit 0; } my %positions = restore_state(); my %times; foreach my $log (@logs) { my $logfile = "$logdir/munin-$log.log"; my $time = 'U'; if (! -r $logfile) { print "$log.extinfo Can't open $logfile for reading\n"; print "$log.value $time\n"; next; } if (exists $positions{$log}) { my ($LOGFILE, undef) = tail_open($logfile, $positions{$log}); while (<$LOGFILE>) { $time = $1 if (/finished \((\d+\.\d+)\ssec\)$/); } $positions{$log} = tail_close($LOGFILE); } else { # Do nothing on first run except find the current file end. $positions{$log} = (stat $logfile)[7]; } print "$log.value $time\n"; } save_state(%positions); # vim: ft=perl : ts=4 : expandtab