are likely never passed to the libm you have a good chance to be lucky.
+Contact
+-------
+
+ For questions, bugreports, development information and basically all other
+ concerns please send an email to collectd's mailinglist at
+ <collectd at verplant.org>.
+
+ For live discussion and more personal contact visit us in IRC, we're in
+ channel #collectd on freenode.
+
+
Author
------
Sebastian tokkee Harl <sh at tokkee.org>,
and many contributors (see `AUTHORS').
+ Please send bugreports and patches to the mailinglist, see `Contact' above.
+
use strict;
use Fatal qw(open close);
use File::Basename;
+use Getopt::Long qw(:config no_ignore_case bundling pass_through);
+
+my $DIR = "/var/lib/collectd";
+my $HOST = "_UNDEFINED_";
+
+GetOptions (
+ "host-is=s" => \$HOST,
+ "data-dir=s" => \$DIR
+);
-my $DIR = "/var/lib/collectd";
my @COLORS = (0xff7777, 0x7777ff, 0x55ff55, 0xffcc77, 0xff77ff, 0x77ffff,
0xffff77, 0x55aaff);
my @tmp = `/bin/hostname`; chomp(@tmp);
-my $HOST = $tmp[0];
+$HOST = $tmp[0] if ( $HOST =~ /_UNDEFINED_/ );
my $IMG_DIR = "${HOST}.dir";
my $HTML = "${HOST}.html";
&& (fields_num != 2))
return (1);
else if (fields_num == 2)
+ {
+ if ((service = strchr (fields[1], '.')) != NULL)
+ *service = '\0';
service = fields[1];
+ }
node = fields[0];
if (strcasecmp ("Listen", key) == 0)