--- /dev/null
+#!/usr/bin/perl
+
+################################################################################
+#
+# collectd2html.pl
+#
+# Description:
+# Generate an html page with all rrd data gathered by collectd.
+#
+# Usage:
+# collectd2html.pl
+#
+# When run on <host>, it generated <host>.html and <host>.dir, the latter
+# containing all necessary images.
+#
+#
+# Copyright 2006 Vincent Stehlé <vincent.stehle@free.fr>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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 St, Fifth Floor, Boston, MA 02110-1301 USA
+#
+################################################################################
+
+use warnings;
+use strict;
+use Fatal qw(open close);
+use File::Basename;
+
+my $DIR = "/var/lib/collectd";
+my @COLORS = (0xff7777, 0x7777ff, 0x55ff55, 0xffcc77, 0xff77ff, 0x77ffff,
+ 0xffff77, 0x55aaff);
+my @tmp = `/bin/hostname`; chomp(@tmp);
+my $HOST = $tmp[0];
+my $IMG_DIR = "${HOST}.dir";
+my $HTML = "${HOST}.html";
+
+################################################################################
+#
+# fade_component
+#
+# Description:
+# Fade a color's component to the white.
+#
+################################################################################
+sub fade_component($)
+{
+ my($component) = @_;
+ return (($component + 255 * 5) / 6);
+}
+
+################################################################################
+#
+# fade_color
+#
+# Description:
+# Fade a color to the white.
+#
+################################################################################
+sub fade_color($)
+{
+ my($color) = @_;
+ my $r = 0;
+
+ for my $i (0 .. 2){
+ my $shft = ($i * 8);
+ my $component = (($color >> $shft) & 255);
+ $r |= (fade_component($component) << $shft);
+ }
+
+ return $r;
+}
+
+################################################################################
+#
+# main
+#
+################################################################################
+system("rm -fR $IMG_DIR");
+system("mkdir -p $IMG_DIR");
+local *OUT;
+open(OUT, ">$HTML");
+my $title="Rrd plot for $HOST";
+
+print OUT <<END;
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+<title>$title</title>
+</head>
+<body>
+<center>
+END
+
+# list interesting rrd
+my @rrds;
+my @list = `ls $DIR/*.rrd`; chomp(@list);
+
+foreach my $rrd (sort @list){
+ my $bn = basename($rrd);
+ $bn =~ s/\.rrd$//;
+ push(@rrds, $bn);
+}
+
+# table of contents
+print OUT <<END;
+<A name="top"></A><H1>$title</H1>
+<P>
+END
+
+foreach my $bn (@rrds){
+ my $cleaned_bn = $bn; $cleaned_bn =~ s/%/_/g;
+ print OUT <<END;
+<A href="#$cleaned_bn">$bn</A>
+END
+}
+
+print OUT <<END;
+</P>
+END
+
+# graph interesting rrd
+foreach my $bn (@rrds){
+ print "$bn\n";
+
+ my $rrd = "$DIR/${bn}.rrd";
+ my $cmd = "rrdtool info $rrd |grep 'ds\\[' |sed 's/^ds\\[//'"
+ ." |sed 's/\\].*//' |sort |uniq";
+ my @dss = `$cmd`; chomp(@dss);
+
+ # all DEF
+ my $i = 0;
+ my $defs = "";
+
+ foreach my $ds (@dss){
+ $defs .= " DEF:${ds}_avg=$rrd:$ds:AVERAGE"
+ ." DEF:${ds}_max=$rrd:$ds:MAX ";
+ }
+
+ # all AREA
+ $i = 0;
+
+ foreach my $ds (@dss){
+ my $color = $COLORS[$i % scalar(@COLORS)]; $i++;
+ my $faded_color = fade_color($color);
+ $defs .= sprintf(" AREA:${ds}_max#%06x ", $faded_color);
+ }
+
+ # all LINE
+ $i = 0;
+
+ foreach my $ds (@dss){
+ my $color = $COLORS[$i % scalar(@COLORS)]; $i++;
+ $defs .= sprintf(" LINE2:${ds}_avg#%06x:$ds"
+ ." GPRINT:${ds}_avg:AVERAGE:%%5.1lf%%sAvg"
+ ." GPRINT:${ds}_max:MAX:%%5.1lf%%sMax"
+ , $color);
+ }
+
+ my $cleaned_bn = $bn; $cleaned_bn =~ s/%/_/g;
+ print OUT <<END;
+<A name="$cleaned_bn"></A><H1>$bn</H1>
+END
+
+ # graph various ranges
+ foreach my $span qw(1hour 1day 1week 1month){
+ my $png = "$IMG_DIR/${bn}-$span.png";
+
+ my $cmd = "rrdtool graph $png"
+ ." -t \"$bn $span\" --imgformat PNG --width 600 --height 100"
+ ." --start now-$span --end now --interlaced"
+ ." $defs >/dev/null 2>&1";
+ system($cmd);
+
+ my $cleaned_png = $png; $cleaned_png =~ s/%/%25/g;
+ print OUT <<END;
+<P><IMG src="$cleaned_png" alt="${bn} $span"></P>
+END
+ }
+
+ print OUT <<END;
+<A href="#top">[top]</A>
+END
+}
+
+print OUT <<END;
+</center>
+</body>
+</html>
+END
+
+close(OUT);
projects / collectd.git / commitdiff