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
This commit is contained in:
markooldenburg
2016-02-15 09:10:15 +00:00
parent ec510cb87a
commit d161a78fd2
2 changed files with 5 additions and 4 deletions

View File

@@ -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

View File

@@ -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";