From c96b3c94b15a45dfcbd6360ffe9abaca20809473 Mon Sep 17 00:00:00 2001 From: Sebastian Harl Date: Mon, 12 Nov 2007 13:05:54 +0100 Subject: [PATCH] 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 --- contrib/collectd2html.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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"; -- 2.30.2