morenin

#!/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;
}