mirror of
https://github.com/collectd/collectd.git
synced 2026-02-09 04:09:15 +08:00
18159adcef
"my" variable $cmd masks earlier declaration in same scope at /tmp/contrib_collectd2html.pl line 223. syntax error at /tmp/contrib_collectd2html.pl line 219, near "$span qw(1hour 1day 1week 1month)" Global symbol "$span" requires explicit package name at /tmp/contrib_collectd2html.pl line 221. Global symbol "$span" requires explicit package name at /tmp/contrib_collectd2html.pl line 224. Global symbol "$span" requires explicit package name at /tmp/contrib_collectd2html.pl line 225. Global symbol "$span" requires explicit package name at /tmp/contrib_collectd2html.pl line 232. Global symbol "$span" requires explicit package name at /tmp/contrib_collectd2html.pl line 237. syntax error at /tmp/contrib_collectd2html.pl line 245, near "}"
259 lines
5.9 KiB
Perl
259 lines
5.9 KiB
Perl
#!/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>
|
|
#
|
|
# Patch to configure the data directory and hostname by Eddy Petrisor
|
|
# <eddy.petrisor@gmail.com>.
|
|
#
|
|
# 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;
|
|
use Getopt::Long qw(:config no_ignore_case bundling pass_through);
|
|
|
|
my $DIR = "/var/lib/collectd";
|
|
my $HOST = undef;
|
|
my $IMG_FMT = "PNG";
|
|
my $RECURSIVE = 1;
|
|
|
|
GetOptions (
|
|
"host=s" => \$HOST,
|
|
"data-dir=s" => \$DIR,
|
|
"image-format=s" => \$IMG_FMT,
|
|
"recursive" => \$RECURSIVE
|
|
);
|
|
|
|
if (($DIR !~ m/\/rrd\/?$/) && (-d "$DIR/rrd")) {
|
|
$DIR .= "/rrd";
|
|
}
|
|
|
|
if (defined($HOST) && ($DIR !~ m/\/$HOST\/?$/) && (-d "$DIR/$HOST")) {
|
|
$DIR .= "/$HOST";
|
|
}
|
|
|
|
my @COLORS = (0xff7777, 0x7777ff, 0x55ff55, 0xffcc77, 0xff77ff, 0x77ffff,
|
|
0xffff77, 0x55aaff);
|
|
my @tmp = `/bin/hostname -f`; chomp(@tmp);
|
|
$HOST = $tmp[0] if (! defined $HOST);
|
|
my $svg_p = ($IMG_FMT eq "SVG");
|
|
my $IMG_SFX = $svg_p ? ".svg" : ".png";
|
|
my $IMG_DIR = "${HOST}.dir";
|
|
my $HTML = "${HOST}.xhtml";
|
|
|
|
################################################################################
|
|
#
|
|
# 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 XHTML 1.1//EN"
|
|
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
<head>
|
|
<style type="text/css" media="screen">
|
|
.graph { text-align: center; }
|
|
object.graph { width: 670; height: 179; }
|
|
</style>
|
|
<title>$title</title>
|
|
<meta http-equiv="Content-Type"
|
|
content="application/xhtml+xml; charset=us-ascii" />
|
|
</head>
|
|
<body>
|
|
END
|
|
|
|
# list interesting rrd
|
|
my @rrds;
|
|
my @list;
|
|
|
|
if ($RECURSIVE) {
|
|
@list = `find $DIR -type f -name '*.rrd'`;
|
|
}
|
|
else {
|
|
@list = `ls $DIR/*.rrd`;
|
|
}
|
|
chomp(@list);
|
|
|
|
@list = sort @list;
|
|
foreach my $rrd (@list){
|
|
$rrd =~ m/^$DIR\/(.*)\.rrd$/;
|
|
push(@rrds, $1);
|
|
}
|
|
|
|
# table of contents
|
|
print OUT <<END;
|
|
<h1><a id="top">$title</a></h1>
|
|
<p>
|
|
END
|
|
|
|
foreach my $bn (@rrds){
|
|
my $cleaned_bn = $bn;
|
|
$cleaned_bn =~ tr/%\//__/;
|
|
print OUT <<END;
|
|
<a href="#$cleaned_bn">$bn</a>
|
|
END
|
|
}
|
|
|
|
print OUT <<END;
|
|
</p>
|
|
END
|
|
|
|
# graph interesting rrd
|
|
for (my $i = 0; $i < scalar(@rrds); ++$i) {
|
|
my $bn = $rrds[$i];
|
|
print "$bn\n";
|
|
|
|
my $rrd = $list[$i];
|
|
my $cmd = "rrdtool info $rrd |grep 'ds\\[' |sed 's/^ds\\[//'"
|
|
." |sed 's/\\].*//' |sort |uniq";
|
|
my @dss = `$cmd`; chomp(@dss);
|
|
|
|
# all DEF
|
|
my $j = 0;
|
|
my $defs = "";
|
|
|
|
foreach my $ds (@dss){
|
|
$defs .= " DEF:${ds}_avg=$rrd:$ds:AVERAGE"
|
|
." DEF:${ds}_max=$rrd:$ds:MAX ";
|
|
}
|
|
|
|
# all AREA
|
|
$j = 0;
|
|
|
|
foreach my $ds (@dss){
|
|
my $color = $COLORS[$j % scalar(@COLORS)]; $j++;
|
|
my $faded_color = fade_color($color);
|
|
$defs .= sprintf(" AREA:${ds}_max#%06x ", $faded_color);
|
|
}
|
|
|
|
# all LINE
|
|
$j = 0;
|
|
|
|
foreach my $ds (@dss){
|
|
my $color = $COLORS[$j % scalar(@COLORS)]; $j++;
|
|
$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 =~ tr/%\//__/;
|
|
print OUT <<END;
|
|
<h2><a id="$cleaned_bn">$bn</a></h2>
|
|
END
|
|
|
|
# graph various ranges
|
|
foreach my $span (qw(1hour 1day 1week 1month)){
|
|
system("mkdir -p $IMG_DIR/" . dirname($bn));
|
|
my $img = "$IMG_DIR/${bn}-$span$IMG_SFX";
|
|
|
|
my $cmd = "rrdtool graph $img"
|
|
." -t \"$bn $span\" --imgformat $IMG_FMT --width 600 --height 100"
|
|
." --start now-$span --end now --interlaced"
|
|
." $defs >/dev/null 2>&1";
|
|
system($cmd);
|
|
|
|
my $cleaned_img = $img; $cleaned_img =~ s/%/%25/g;
|
|
if (! $svg_p) {
|
|
print OUT <<END;
|
|
<p class="graph"><img src="$cleaned_img" alt="${bn} $span" /></p>
|
|
END
|
|
} else {
|
|
print OUT <<END;
|
|
<p class="graph"><object data="$cleaned_img" type="image/svg+xml">
|
|
${bn} $span</object></p>
|
|
END
|
|
}
|
|
}
|
|
|
|
print OUT <<END;
|
|
<p><a href="#top">[top]</a></p>
|
|
END
|
|
}
|
|
|
|
print OUT <<END;
|
|
<hr />
|
|
<p>
|
|
<a href="http://validator.w3.org/check?uri=referer"><img
|
|
src="http://www.w3.org/Icons/valid-xhtml10"
|
|
alt="Valid XHTML 1.0 Strict" height="31" width="88" /></a>
|
|
</p>
|
|
</body>
|
|
</html>
|
|
END
|
|
|
|
close(OUT);
|