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

96 lines
3.7 KiB
Plaintext
Raw Normal View History

2010-08-29 20:31:12 +02:00
#!/usr/bin/perl
#
# Script by Simon Avery ( http://digdilem.org / digdilem@gmail.com ) to query munin.conf and collate various types of graphs on the same page from different machines.
# Eg - show all the load daily graphs for all your machines on one page. Review ALL your machines' disk space, memory, cpu, loads for the past day, week, month or year - one click!
# Reason: Makes it easier (for me!) to review a lot of machines (I have 28) for unusual patterns.
#
# Options - supply on the url:
# period=day / week (default: day)
# type = df / whatever (default:df) - which reporting type to use.
# scale=pixel (How many pixels wide to scale the graphs, override default with $cellwidth below
#
# Installation:
# 1. Copy this script to a webfolder of your choice, ensuring CGI is allowed there.
# 2. Edit the four variables below to suit your configuration.
# 3. Visit the script in your web browser.
#
# History:
# v.1 - 30 August, 2010: Initial release.
my $htmldir = '/internal/munin'; # What's the web address for munin's html dir? (Hint - where you normally go to see munin's overview)
my $cfgfile = '/etc/munin/munin.conf'; # Where's the config file - must be readable
my $numwide=5; # How many graphs to go wide per row?
my $default_cellwidth=350; # How many pixels wide for the graphs? (Default)
use CGI qw/:standard/;
my $q = CGI->new;
print $q->header() , $q->start_html('Morenin - Multiple server graphing tool');
my $type = param("type") || 'df'; # Default type
my $period = param("period") || 'day'; # Default period
my $cellwidth = param("scale") || $default_cellwidth; # Default image scale
my @list; # list of names
my $imgdir; # find from munin's conf
open(CFG,"<$cfgfile") or die("Can't open munin config file: $cfgfile - $!\n");
while(<CFG>) {
my $tidy = trim($_);
if ($tidy =~ /htmldir/i) { # Guess where the images are, so I can test whether to try and display them or not.
$tidy =~ s/\t/ /g;
($junk,$imgdir) = split(/ /,$tidy);
}
# search for identifier, Not very elegant, doesn't account for horribly done config files.
if ($tidy =~ m/^\[(.*)\]/) {
push(@list,$1);
}
}
close(CFG);
sort(@list); # Sort it alpha-numerically
print "Morenin - graphing ".scalar(@list)." <a href=\"$htmldir\">Munin</a> graphs for type $type, period <b>$period</b>:\n";
# Some default links - add more here if you want 'em
print qq~
<a href="?type=$type&period=day">Daily</a> ::
<a href="?type=$type&period=week">Weekly</a> ::
<a href="?type=$type&period=month">Monthly</a> ::
<a href="?type=$type&period=year">Yearly</a> ...::...
<a href="?period=$period&type=load">Load</a> ::
<a href="?period=$period&type=cpu">CPU</a> ::
<a href="?period=$period&type=df">DiskUse</a> ::
<a href="?period=$period&type=memory">Memory</a> ::
<a href="?period=$period&type=mysql_queries">MySql</a>
~;
if (! defined $htmldir) { print "<br>Error: Can't find htmldir from config, this isn't going to work..."; }
# Now output the frames and links
my $widcnt=1; # Temp counter
print "<hr><table border=\"1\"><tr>\n";
foreach $i (@list[1..$#list]) # Step through each entry
{
next if (! -e "$imgdir/$i/$i-$type-$period.png"); # First check an image is there and not a null entry;
print "<td valign=\"top\">$i<br>";
print "<a href=\"$htmldir/$i/$i-$type.html\" title=\"Click to visit server's $type page\">\n";
print "<img src=\"$htmldir/$i/$i-$type-$period.png\" alt=\"$i-$type-$period.png\" width=\"$cellwidth\">";
print "</a>\n";
print "</td>\n";
if ($widcnt++ >= $numwide) { print "</tr><tr>\n"; $widcnt=1; } # wrap the cells
}
print "</tr></table>\n";
$q->end_html;
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}