testing #67
@ -65,7 +65,6 @@ use FHEM::Meta;
|
||||
use Time::Local;
|
||||
use Time::Piece;
|
||||
use Time::Seconds;
|
||||
use SetExtensions;
|
||||
|
||||
# try to use JSON::MaybeXS wrapper
|
||||
# for chance of better performance + open code
|
||||
@ -166,8 +165,8 @@ sub Initialize {
|
||||
$hash->{AttrFn} = \&Attr;
|
||||
$hash->{AttrList} =
|
||||
"readingValueLanguage:de,en "
|
||||
. "model:watering_computer,sensor,sensor2,mower,ic24,power,electronic_pressure_pump "
|
||||
. "IODev setList useSetExtensions "
|
||||
. "model:watering_computer,sensor,sensor2,mower,ic24,power,electronic_pressure_pump"
|
||||
. "IODev "
|
||||
. $readingFnAttributes;
|
||||
$hash->{parseParams} = 1;
|
||||
|
||||
@ -303,21 +302,9 @@ 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 = $name; $a0 =~ s/([.?*])/\\$1/g;
|
||||
if($setList !~ m/\b$a0\b/) {
|
||||
return SetExtensions($hash, $setList, @aArga)
|
||||
}
|
||||
SetExtensionsCancel($hash);
|
||||
}
|
||||
### mower
|
||||
# service_id (eco, parkuntilfurhternotice, startpoints)
|
||||
|
||||
elsif ( lc $cmd eq 'parkuntilfurthernotice' ) {
|
||||
if ( lc $cmd eq 'parkuntilfurthernotice' ) {
|
||||
$payload = '"name":"park_until_further_notice"';
|
||||
if ( $mainboard_version > 10.30 ) {
|
||||
$payload =
|
||||
|
@ -1,2 +1,2 @@
|
||||
UPD 2022-05-15_17:15:26 49518 FHEM/73_GardenaSmartBridge.pm
|
||||
UPD 2022-05-17_10:24:40 66559 FHEM/74_GardenaSmartDevice.pm
|
||||
UPD 2022-05-17_10:35:47 66210 FHEM/74_GardenaSmartDevice.pm
|
||||
|
Loading…
x
Reference in New Issue
Block a user