From a7062b25330dc603ee4e9d25e5d2f84b3f20bfbd Mon Sep 17 00:00:00 2001 From: Max Henkel Date: Thu, 8 Apr 2010 12:06:29 +0200 Subject: [PATCH] collectd2html.pl: Produce XHTML output. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit â¦ as requested in Debian bug #575029. Signed-off-by: Sebastian Harl --- contrib/collectd2html.pl | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) diff --git a/contrib/collectd2html.pl b/contrib/collectd2html.pl index 210fd646..22c43e59 100644 --- a/contrib/collectd2html.pl +++ b/contrib/collectd2html.pl @@ -118,14 +118,18 @@ open(OUT, ">$HTML"); my $title="Rrd plot for $HOST"; print OUT < - + + + $title + - END # list interesting rrd @@ -148,20 +152,20 @@ foreach my $rrd (@list){ # table of contents print OUT <

$title

END foreach my $bn (@rrds){ my $cleaned_bn = $bn; $cleaned_bn =~ tr/%\//__/; print OUT <$bn +$bn END } print OUT < +

END # graph interesting rrd @@ -206,7 +210,7 @@ for (my $i = 0; $i < scalar(@rrds); ++$i) { my $cleaned_bn = $bn; $cleaned_bn =~ tr/%\//__/; print OUT <

$bn

END # graph various ranges @@ -223,24 +227,23 @@ END my $cleaned_img = $img; $cleaned_img =~ s/%/%25/g; if (! $svg_p) { print OUT < ${bn} $span

${bn} $span

END } else { print OUT <

END } } print OUT <[top] +

[top]

END } print OUT < END -- 2.30.2