--- programmi/contrib_collectd2html.pl 2010-09-10 16:42:20.000000000 +0700
+++ programmi/files_am1.org/progaaa_dl9_diff 2010-09-11 01:11:44.000000000 +0700
@@ -37,7 +37,7 @@
use warnings;
use strict;
-use Fatal qw(open close);
+use Fatal qw(close);
use File::Basename;
use Getopt::Long qw(:config no_ignore_case bundling pass_through);
@@ -45,12 +45,14 @@
my $HOST = undef;
my $IMG_FMT = "PNG";
my $RECURSIVE = 1;
+my $embed_p = "";
GetOptions (
"host=s" => \$HOST,
"data-dir=s" => \$DIR,
"image-format=s" => \$IMG_FMT,
- "recursive" => \$RECURSIVE
+ "recursive" => \$RECURSIVE,
+ "embed-img" => \$embed_p
);
if (($DIR !~ m/\/rrd\/?$/) && (-d "$DIR/rrd")) {
@@ -70,6 +72,12 @@
my $IMG_DIR = "${HOST}.dir";
my $HTML = "${HOST}.xhtml";
+if ($embed_p && ! $svg_p) {
+ $embed_p = "";
+ warn ("The --embed-img option is not compatible with formats",
+ " other than SVG");
+}
+
################################################################################
#
# fade_component
@@ -114,7 +122,8 @@
system("rm -fR $IMG_DIR");
system("mkdir -p $IMG_DIR");
local *OUT;
-open(OUT, ">$HTML");
+open(OUT, ">$HTML")
+ or die "Couldn't write ($HTML): $!";
my $title="Rrd plot for $HOST";
print OUT <