FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

add set command for ic24

Browse Source
This commit is contained in:
Marko Oldenburg 2018-06-27 14:39:53 +02:00
parent 2e6cc4cc85
commit 9a3a8cb04f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
74_GardenaSmartDevice.pm
View File

@ -100,7 +100,7 @@ sub GardenaSmartDevice_Initialize($) {
$hash->{AttrFn} = "GardenaSmartDevice_Attr"; $hash->{AttrFn} = "GardenaSmartDevice_Attr";
$hash->{AttrList} = "readingValueLanguage:de,en ". $hash->{AttrList} = "readingValueLanguage:de,en ".
"model:watering_computer,sensor,mower ". "model:watering_computer,sensor,mower,ic24 ".
"IODev ". "IODev ".
$readingFnAttributes; $readingFnAttributes;
@ -227,6 +227,12 @@ sub GardenaSmartDevice_Set($@) {
$payload = '"name":"cancel_override"'; $payload = '"name":"cancel_override"';
### Watering ic24
} elsif( lc $cmd eq 'watering_timer_1' ) {
my $duration = join( " ", @args );
$payload = '"name":"watering_timer_1","parameters":{"duration":' . $duration . '}';
### Sensors ### Sensors
} elsif( lc $cmd eq 'refresh' ) { } elsif( lc $cmd eq 'refresh' ) {
@ -249,6 +255,7 @@ sub GardenaSmartDevice_Set($@) {
my $list = ''; my $list = '';
$list .= 'parkUntilFurtherNotice:noArg parkUntilNextTimer:noArg startResumeSchedule:noArg startOverrideTimer:slider,0,60,1440 startpoint' if( AttrVal($name,'model','unknown') eq 'mower' ); $list .= 'parkUntilFurtherNotice:noArg parkUntilNextTimer:noArg startResumeSchedule:noArg startOverrideTimer:slider,0,60,1440 startpoint' if( AttrVal($name,'model','unknown') eq 'mower' );
$list .= 'manualOverride:slider,0,1,59 cancelOverride:noArg' if( AttrVal($name,'model','unknown') eq 'watering_computer' ); $list .= 'manualOverride:slider,0,1,59 cancelOverride:noArg' if( AttrVal($name,'model','unknown') eq 'watering_computer' );
$list .= 'watering_timer_1,0,1,59' if( AttrVal($name,'model','unknown') eq 'ic24' );
$list .= 'refresh:temperature,light,humidity' if( AttrVal($name,'model','unknown') eq 'sensor' ); $list .= 'refresh:temperature,light,humidity' if( AttrVal($name,'model','unknown') eq 'sensor' );
return "Unknown argument $cmd, choose one of $list"; return "Unknown argument $cmd, choose one of $list";
@ -256,6 +263,7 @@ sub GardenaSmartDevice_Set($@) {
$abilities = 'mower' if( AttrVal($name,'model','unknown') eq 'mower' ) and $abilities ne 'mower_settings'; $abilities = 'mower' if( AttrVal($name,'model','unknown') eq 'mower' ) and $abilities ne 'mower_settings';
$abilities = 'outlet' if( AttrVal($name,'model','unknown') eq 'watering_computer' ); $abilities = 'outlet' if( AttrVal($name,'model','unknown') eq 'watering_computer' );
$abilities = 'watering' if( AttrVal($name,'model','unknown') eq 'ic24' );
$hash->{helper}{deviceAction} = $payload; $hash->{helper}{deviceAction} = $payload;