From: Sebastian Harl Date: Mon, 12 Nov 2007 12:05:54 +0000 (+0100) Subject: collectd2html.pl: Cleaned up Eddy's patch. X-Git-Tag: collectd-4.2.2~1^2 X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=c96b3c94b15a45dfcbd6360ffe9abaca20809473;p=collectd.git collectd2html.pl: Cleaned up Eddy's patch. * Use Perl's undef to identify invalid values. * Renamed the "host-is" command line option to "host". Signed-off-by: Sebastian Harl Signed-off-by: Florian Forster --- diff --git a/contrib/collectd2html.pl b/contrib/collectd2html.pl index da143d70..32d63055 100644 --- a/contrib/collectd2html.pl +++ b/contrib/collectd2html.pl @@ -16,6 +16,9 @@ # # Copyright 2006 Vincent Stehlé # +# Patch to configure the data directory and hostname by Eddy Petrisor +# . +# # 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 @@ -39,17 +42,17 @@ use File::Basename; use Getopt::Long qw(:config no_ignore_case bundling pass_through); my $DIR = "/var/lib/collectd"; -my $HOST = "_UNDEFINED_"; +my $HOST = undef; GetOptions ( - "host-is=s" => \$HOST, + "host=s" => \$HOST, "data-dir=s" => \$DIR ); my @COLORS = (0xff7777, 0x7777ff, 0x55ff55, 0xffcc77, 0xff77ff, 0x77ffff, 0xffff77, 0x55aaff); my @tmp = `/bin/hostname`; chomp(@tmp); -$HOST = $tmp[0] if ( $HOST =~ /_UNDEFINED_/ ); +$HOST = $tmp[0] if (! defined $HOST); my $IMG_DIR = "${HOST}.dir"; my $HTML = "${HOST}.html";