From: Max Henkel Date: Thu, 8 Apr 2010 10:06:29 +0000 (+0200) Subject: collectd2html.pl: Produce XHTML output. X-Git-Tag: collectd-4.9.3~12^2~1 X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=a7062b25330dc603ee4e9d25e5d2f84b3f20bfbd;p=collectd.git collectd2html.pl: Produce XHTML output. … as requested in Debian bug #575029. Signed-off-by: Sebastian Harl --- 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

-

+

$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

+

$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 < - ${bn} $span

+ ${bn} $span

END } } print OUT <[top] +

[top]

END } print OUT < END