From 315ead533e3d4e67ce3908a13ebe5b75ef9060c4 Mon Sep 17 00:00:00 2001 From: Holger Levsen Date: Mon, 27 Jul 2015 14:31:57 +0200 Subject: move etc to hosts/jenkins/etc --- etc/munin/plugins/munin_stats | 112 ------------------------------------------ 1 file changed, 112 deletions(-) delete mode 100755 etc/munin/plugins/munin_stats (limited to 'etc/munin/plugins/munin_stats') diff --git a/etc/munin/plugins/munin_stats b/etc/munin/plugins/munin_stats deleted file mode 100755 index 8c7c82a2..00000000 --- a/etc/munin/plugins/munin_stats +++ /dev/null @@ -1,112 +0,0 @@ -#!/usr/bin/perl -# -*- perl -*- -# Copyright (C) 2006-2009 Rodolphe Quiedeville -# -# 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 -- cgit v1.2.3-70-g09d2