Merge branch 'collectd-4.0' into collectd-4.1
[collectd.git] / contrib / collectd2html.pl
1 #!/usr/bin/perl
2
3 ################################################################################
4 #
5 # collectd2html.pl
6 #
7 # Description:
8 #   Generate an html page with all rrd data gathered by collectd.
9 #
10 # Usage:
11 #   collectd2html.pl
12 #
13 #   When run on <host>, it generated <host>.html and <host>.dir, the latter
14 #   containing all necessary images.
15 #
16 #
17 # Copyright 2006 Vincent StehlĂ© <vincent.stehle@free.fr>
18 #
19 # This program is free software; you can redistribute it and/or modify
20 # it under the terms of the GNU General Public License as published by
21 # the Free Software Foundation; either version 2 of the License, or
22 # (at your option) any later version.
23 #
24 # This program is distributed in the hope that it will be useful,
25 # but WITHOUT ANY WARRANTY; without even the implied warranty of
26 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
27 # GNU General Public License for more details.
28 #
29 # You should have received a copy of the GNU General Public License
30 # along with this program; if not, write to the Free Software
31 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
32 #
33 ################################################################################
34
35 use warnings;
36 use strict;
37 use Fatal qw(open close);
38 use File::Basename;
39 use Getopt::Long qw(:config no_ignore_case bundling pass_through);
40
41 my $DIR  = "/var/lib/collectd";
42 my $HOST = "_UNDEFINED_";
43
44 GetOptions (
45     "host-is=s"  => \$HOST,
46     "data-dir=s" => \$DIR
47 );
48
49 my @COLORS = (0xff7777, 0x7777ff, 0x55ff55, 0xffcc77, 0xff77ff, 0x77ffff,
50         0xffff77, 0x55aaff);
51 my @tmp = `/bin/hostname`; chomp(@tmp);
52 $HOST = $tmp[0] if ( $HOST =~ /_UNDEFINED_/ );
53 my $IMG_DIR = "${HOST}.dir";
54 my $HTML = "${HOST}.html";
55
56 ################################################################################
57 #
58 # fade_component
59 #
60 # Description:
61 #   Fade a color's component to the white.
62 #
63 ################################################################################
64 sub fade_component($)
65 {
66         my($component) = @_;
67         return (($component + 255 * 5) / 6);
68 }
69
70 ################################################################################
71 #
72 # fade_color
73 #
74 # Description:
75 #   Fade a color to the white.
76 #
77 ################################################################################
78 sub fade_color($)
79 {
80         my($color) = @_;
81         my $r = 0;
82
83         for my $i (0 .. 2){
84                 my $shft = ($i * 8);
85                 my $component = (($color >> $shft) & 255);
86                 $r |= (fade_component($component) << $shft);
87         }
88
89         return $r;
90 }
91
92 ################################################################################
93 #
94 # main
95 #
96 ################################################################################
97 system("rm -fR $IMG_DIR");
98 system("mkdir -p $IMG_DIR");
99 local *OUT;
100 open(OUT, ">$HTML");
101 my $title="Rrd plot for $HOST";
102
103 print OUT <<END;
104 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
105    "http://www.w3.org/TR/html4/loose.dtd">
106 <html>
107 <head>
108 <title>$title</title>
109 </head>
110 <body>
111 <center>
112 END
113
114 # list interesting rrd
115 my @rrds;
116 my @list = `ls $DIR/*.rrd`; chomp(@list);
117
118 foreach my $rrd (sort @list){
119         my $bn = basename($rrd);
120         $bn =~ s/\.rrd$//;
121         push(@rrds, $bn);
122 }
123
124 # table of contents
125 print OUT <<END;
126 <A name="top"></A><H1>$title</H1>
127 <P>
128 END
129
130 foreach my $bn (@rrds){
131         my $cleaned_bn = $bn; $cleaned_bn =~ s/%/_/g;
132         print OUT <<END;
133 <A href="#$cleaned_bn">$bn</A>
134 END
135 }
136
137 print OUT <<END;
138 </P>
139 END
140
141 # graph interesting rrd
142 foreach my $bn (@rrds){
143         print "$bn\n";
144
145         my $rrd = "$DIR/${bn}.rrd";
146         my $cmd = "rrdtool info $rrd |grep 'ds\\[' |sed 's/^ds\\[//'" 
147                 ." |sed 's/\\].*//' |sort |uniq";
148         my @dss = `$cmd`; chomp(@dss);
149
150         # all DEF
151         my $i = 0;
152         my $defs = "";
153
154         foreach my $ds (@dss){
155                 $defs .= " DEF:${ds}_avg=$rrd:$ds:AVERAGE"
156                         ." DEF:${ds}_max=$rrd:$ds:MAX ";
157         }
158
159         # all AREA
160         $i = 0;
161
162         foreach my $ds (@dss){
163                 my $color = $COLORS[$i % scalar(@COLORS)]; $i++;
164                 my $faded_color = fade_color($color);
165                 $defs .= sprintf(" AREA:${ds}_max#%06x ", $faded_color);
166         }
167
168         # all LINE      
169         $i = 0;
170
171         foreach my $ds (@dss){
172                 my $color = $COLORS[$i % scalar(@COLORS)]; $i++;
173                 $defs .= sprintf(" LINE2:${ds}_avg#%06x:$ds"
174                         ." GPRINT:${ds}_avg:AVERAGE:%%5.1lf%%sAvg"
175                         ." GPRINT:${ds}_max:MAX:%%5.1lf%%sMax"
176                         , $color);
177         }
178
179         my $cleaned_bn = $bn; $cleaned_bn =~ s/%/_/g;
180         print OUT <<END;
181 <A name="$cleaned_bn"></A><H1>$bn</H1>
182 END
183
184         # graph various ranges
185         foreach my $span qw(1hour 1day 1week 1month){
186                 my $png = "$IMG_DIR/${bn}-$span.png";
187
188                 my $cmd = "rrdtool graph $png"
189                         ." -t \"$bn $span\" --imgformat PNG --width 600 --height 100"
190                         ." --start now-$span --end now --interlaced"
191                         ." $defs >/dev/null 2>&1";
192                 system($cmd);
193
194                 my $cleaned_png = $png; $cleaned_png =~ s/%/%25/g;
195                 print OUT <<END;
196 <P><IMG src="$cleaned_png" alt="${bn} $span"></P>
197 END
198         }
199
200         print OUT <<END;
201 <A href="#top">[top]</A>
202 END
203 }
204
205 print OUT <<END;
206 </center>
207 </body>
208 </html>
209 END
210
211 close(OUT);