commit - afef60893ef8310b745e4adb7d3e6e8dfee47463
commit + 61fef9f3fb67f2d1223a14eaa263cc6a60dbdc47
blob - 1bf846be38a4db77832f736976b884fa9bb7865f
blob + f1b0e8f0485c75b431cdce471136b54e4ddb64d9
--- huectl.pl
+++ huectl.pl
my ($bridgename) = @ARGV;
if (!$bridgename) { _return_error_with($USAGE); }
-#my @config_files = map { -e $_ ? $_ : () } ('./hue.conf', './.hue.conf', '/etc/hue.conf', "$ENV{'HOME'}/.hue.conf", "$ENV{'HOME'}/hue.conf");
my @config_files = grep { -e } ('./hue.conf', './.hue.conf', '/etc/hue.conf', "$ENV{'HOME'}/.hue.conf", "$ENV{'HOME'}/hue.conf");
my $config = Config::Tiny->read($config_files[-1], 'utf8');
my $bridge = $config->{$bridgename}{ip} || _return_error_with("$USAGE\nError: bridge-name '$bridgename' not found.\n");