testing #67
@ -303,9 +303,22 @@ sub Set {
|
|||||||
$abilities = 'watering'
|
$abilities = 'watering'
|
||||||
if ( AttrVal( $name, 'model', 'unknown' ) eq 'electronic_pressure_pump' );
|
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
|
### mower
|
||||||
# service_id (eco, parkuntilfurhternotice, startpoints)
|
# service_id (eco, parkuntilfurhternotice, startpoints)
|
||||||
if ( lc $cmd eq 'parkuntilfurthernotice' ) {
|
|
||||||
|
elsif ( lc $cmd eq 'parkuntilfurthernotice' ) {
|
||||||
$payload = '"name":"park_until_further_notice"';
|
$payload = '"name":"park_until_further_notice"';
|
||||||
if ( $mainboard_version > 10.30 ) {
|
if ( $mainboard_version > 10.30 ) {
|
||||||
$payload =
|
$payload =
|
||||||
|
@ -1,2 +1,2 @@
|
|||||||
UPD 2022-05-15_17:15:26 49518 FHEM/73_GardenaSmartBridge.pm
|
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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user