copy of the munin_stats munin plugin including the fix for #767032

1 files changed, 113 insertions, 0 deletions

diff --git a/etc/munin/plugins/munin_stats b/etc/munin/plugins/munin_stats
new file mode 100755
index 00000000..2a4f0b15
--- /dev/null
+++ b/etc/munin/plugins/munin_stats
@@ -0,0 +1,113 @@
+#!/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