FHEM/mod-hombot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

weitere SetCommand eingebaut

Browse Source
This commit is contained in:
Marko Oldenburg 2015-11-30 15:22:59 +01:00
parent 7f5e90977b
commit 1b249a4ab9
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
74_HOMEBOT.pm
View File

@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use TcpServerUtils; use TcpServerUtils;
my $version = "0.0.5"; my $version = "0.0.6";
@ -377,14 +377,18 @@ sub HOMEBOT_Set($$@) {
$list .= "homing:noArg "; $list .= "homing:noArg ";
$list .= "pause:noArg "; $list .= "pause:noArg ";
$list .= "statusRequest:noArg "; $list .= "statusRequest:noArg ";
$list .= "cleanMode:CLEAN_SB,CLEAN_ZZ "; $list .= "cleanMode:CLEAN_SB,CLEAN_ZZ,CLEAN_SPOT ";
$list .= "repeat:true,false ";
$list .= "turbo:true,false ";
if( lc $cmd eq 'cleanstart' if( lc $cmd eq 'cleanstart'
|| lc $cmd eq 'homing' || lc $cmd eq 'homing'
|| lc $cmd eq 'pause' || lc $cmd eq 'pause'
|| lc $cmd eq 'statusrequest' || lc $cmd eq 'statusrequest'
|| lc $cmd eq 'cleanmode' ) { || lc $cmd eq 'cleanmode'
|| lc $cmd eq 'repeat'
|| lc $cmd eq 'turbo' ) {
Log3 $name, 5, "HOMEBOT ($name) - set $name $cmd ".join(" ", @val); Log3 $name, 5, "HOMEBOT ($name) - set $name $cmd ".join(" ", @val);
@ -435,7 +439,7 @@ sub HOMEBOT_SelectSetCmd($$@) {
my $url = "http://" . $host . ":" . $port . "/json.cgi?%7b%22COMMAND%22:%7b%22CLEAN_MODE%22:".$mode."%22%7d%7d"; my $url = "http://" . $host . ":" . $port . "/json.cgi?%7b%22COMMAND%22:%7b%22CLEAN_MODE%22:".$mode."%22%7d%7d";
Log3 $name, 4, "HOMEBOT ($name) - Homebot paused"; Log3 $name, 4, "HOMEBOT ($name) - set Cleanmode to $mode";
return HOMEBOT_HTTP_POST( $hash,$url ); return HOMEBOT_HTTP_POST( $hash,$url );
} }
@ -444,6 +448,26 @@ sub HOMEBOT_SelectSetCmd($$@) {
HOMEBOT_Get_stateRequestLocal( $hash ); HOMEBOT_Get_stateRequestLocal( $hash );
return undef; return undef;
} }
elsif( lc $cmd eq 'repeat' ) {
my $repeat = join( " ", @data );
my $url = "http://" . $host . ":" . $port . "/json.cgi?%7b%22COMMAND%22:%7b%22CLEAN_MODE%22:".$repeat."%22%7d%7d";
Log3 $name, 4, "HOMEBOT ($name) - set Repeat to $repeat";
return HOMEBOT_HTTP_POST( $hash,$url );
}
elsif( lc $cmd eq 'turbo' ) {
my $turbo = join( " ", @data );
my $url = "http://" . $host . ":" . $port . "/json.cgi?%7b%22COMMAND%22:%7b%22CLEAN_MODE%22:".$turbo."%22%7d%7d";
Log3 $name, 4, "HOMEBOT ($name) - set Turbo to $turbo";
return HOMEBOT_HTTP_POST( $hash,$url );
}
return undef; return undef;
} }