diff --git a/CHANGED b/CHANGED index ac06948..e2a082d 100644 --- a/CHANGED +++ b/CHANGED @@ -1 +1 @@ - fixing + test diff --git a/FHEM/74_GardenaSmartDevice.pm b/FHEM/74_GardenaSmartDevice.pm index 7aedc72..1567745 100644 --- a/FHEM/74_GardenaSmartDevice.pm +++ b/FHEM/74_GardenaSmartDevice.pm @@ -303,9 +303,22 @@ sub Set { $abilities = 'watering' if ( AttrVal( $name, 'model', 'unknown' ) eq 'electronic_pressure_pump' ); + + my $setList = AttrVal($name, "setList", " "); + $setList =~ s/\n/ /g; + + if(AttrVal($name,"useSetExtensions",undef)) { + my $a0 = $a[0]; $a0 =~ s/([.?*])/\\$1/g; + if($setList !~ m/\b$a0\b/) { + unshift @a, $name; + return SetExtensions($hash, $setList, @a) + } + SetExtensionsCancel($hash); + } ### mower # service_id (eco, parkuntilfurhternotice, startpoints) - if ( lc $cmd eq 'parkuntilfurthernotice' ) { + + elsif ( lc $cmd eq 'parkuntilfurthernotice' ) { $payload = '"name":"park_until_further_notice"'; if ( $mainboard_version > 10.30 ) { $payload = diff --git a/controls_GardenaSmartDevice.txt b/controls_GardenaSmartDevice.txt index 63d955a..6a3611c 100644 --- a/controls_GardenaSmartDevice.txt +++ b/controls_GardenaSmartDevice.txt @@ -1,2 +1,2 @@ UPD 2022-05-15_17:15:26 49518 FHEM/73_GardenaSmartBridge.pm -UPD 2022-05-17_08:25:40 66255 FHEM/74_GardenaSmartDevice.pm +UPD 2022-05-17_10:04:27 66580 FHEM/74_GardenaSmartDevice.pm