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

add cancel timer vor i24c model

Browse Source
This commit is contained in:
Marko Oldenburg 2020-04-26 16:06:41 +02:00
parent bfcf96602a
commit 29ab9a53c7
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
74_GardenaSmartDevice.pm
View File

@ -339,20 +339,28 @@ sub Set($@) {
### watering_computer ### watering_computer
elsif ( lc $cmd eq 'manualoverride' ) { elsif ( lc $cmd eq 'manualoverride' ) {
my $duration = join( " ", @args ); my $duration = join(' ', @args);
$payload = $payload =
'"properties":{"name":"watering_timer_1' '"properties":{"name":"watering_timer_1'
. '","value":{"state":"manual","duration":' . '","value":{"state":"manual","duration":'
. $duration * 60 . $duration * 60
. ',"valve_id":1}}'; . ',"valve_id":1}}';
} }
elsif ( lc $cmd eq 'canceloverride' ) { elsif ( $cmd =~ m{\AcancelOverrideValve\d\z}xms ) {
my $valve_id = 1;
if ( $cmd =~ m{\AcancelOverrideValve(\d)\z}xms ) {
$valve_id = $1;
}
$payload = $payload =
'"properties":{"name":"watering_timer_1' '"properties":{"name":"watering_timer_'
. $valve_id
. '","value":{"state":"idle","duration":' . '","value":{"state":"idle","duration":'
. 0 . 0
. ',"valve_id":1}}'; . ',"valve_id":'
. $valve_id . '}}';
} }
elsif ( lc $cmd eq 'on' or lc $cmd eq 'off' or lc $cmd eq 'on-for-timer' ) { elsif ( lc $cmd eq 'on' or lc $cmd eq 'off' or lc $cmd eq 'on-for-timer' ) {
@ -360,12 +368,12 @@ sub Set($@) {
$payload = '"properties":{"value":"' . $val . '"}'; $payload = '"properties":{"value":"' . $val . '"}';
} }
### Watering ic24 ### Watering ic24
elsif ( $cmd =~ /manualDurationValve/ ) { elsif ( $cmd =~ m{\AmanualDurationValve\d\z}xms ) {
my $valve_id; my $valve_id;
my $duration = join( " ", @args ); my $duration = join( " ", @args );
if ( $cmd =~ m#(\d)$# ) { if ( $cmd =~ m{\AmanualDurationValve(\d)\z}xms ) {
$valve_id = $1; $valve_id = $1;
} }
@ -405,7 +413,7 @@ sub Set($@) {
if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' );
$list .= $list .=
'manualDurationValve1:slider,1,1,59 manualDurationValve2:slider,1,1,59 manualDurationValve3:slider,1,1,59 manualDurationValve4:slider,1,1,59 manualDurationValve5:slider,1,1,59 manualDurationValve6:slider,1,1,59' 'manualDurationValve1:slider,1,1,59 manualDurationValve2:slider,1,1,59 manualDurationValve3:slider,1,1,59 manualDurationValve4:slider,1,1,59 manualDurationValve5:slider,1,1,59 manualDurationValve6:slider,1,1,59 cancelOverrideValve1:noArg cancelOverrideValve2:noArg cancelOverrideValve3:noArg cancelOverrideValve4:noArg cancelOverrideValve5:noArg cancelOverrideValve6:noArg'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' );
$list .= 'refresh:temperature,light,humidity' $list .= 'refresh:temperature,light,humidity'