From d161a78fd28c659fdf8d35b8ac40d998c0889537 Mon Sep 17 00:00:00 2001 From: markooldenburg Date: Mon, 15 Feb 2016 09:10:15 +0000 Subject: [PATCH] 74_HOMBOT: Bugfix, some set commands not work git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10851 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/74_HOMBOT.pm | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 1e24c2c4e..f3d0afdd8 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 74_HOMBOT: some set commands not work - feature: 32_mailcheck: added set active/inactive commands - feature: 02_RSS: new attribute urlOverride - feature: 71_YAMAHA_NP: Added auto reading update for tuner and player diff --git a/fhem/FHEM/74_HOMBOT.pm b/fhem/FHEM/74_HOMBOT.pm index cdd582998..b097125d6 100644 --- a/fhem/FHEM/74_HOMBOT.pm +++ b/fhem/FHEM/74_HOMBOT.pm @@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday); use HttpUtils; use Blocking; -my $version = "0.2.0"; +my $version = "0.2.1"; @@ -548,8 +548,8 @@ sub HOMBOT_Set($$@) { $list .= "cleanMode:SB,ZZ,SPOT "; $list .= "repeat:true,false "; $list .= "turbo:true,false "; - $list .= "nickname " ; - $list .= "schedule " ; + $list .= "nickname "; + $list .= "schedule "; if( lc $cmd eq 'cleanstart' @@ -572,7 +572,7 @@ sub HOMBOT_Set($$@) { return "set command only works if state not equal initialized, please wait for next interval run" if( ReadingsVal( $hash->{NAME}, "state", 0 ) eq "initialized"); return "to many character for Nickname" if(( $wordlenght < 2 || $wordlenght > 16 ) && lc $cmd eq 'nickname' ); - return HOMBOT_SelectSetCmd( $hash, $cmd, @val ) if( ( ( @val ) && lc $cmd eq 'statusrequest' || lc $cmd eq 'cleanstart'|| lc $cmd eq 'homing' || lc $cmd eq 'pause' ) ); + return HOMBOT_SelectSetCmd( $hash, $cmd, @val ) if( ( ( @val ) || lc $cmd eq 'cleanstart'|| lc $cmd eq 'homing' || lc $cmd eq 'pause' ) ); } return "Unknown argument $cmd, bearword as argument or wrong parameter(s), choose one of $list";