patch_waterpump #58
@@ -65,7 +65,6 @@ use FHEM::Meta;
 | 
				
			|||||||
use Time::Local;
 | 
					use Time::Local;
 | 
				
			||||||
use Time::Piece;
 | 
					use Time::Piece;
 | 
				
			||||||
use Time::Seconds;
 | 
					use Time::Seconds;
 | 
				
			||||||
use SetExtensions;
 | 
					 | 
				
			||||||
 | 
					
 | 
				
			||||||
# try to use JSON::MaybeXS wrapper
 | 
					# try to use JSON::MaybeXS wrapper
 | 
				
			||||||
#   for chance of better performance + open code
 | 
					#   for chance of better performance + open code
 | 
				
			||||||
@@ -167,7 +166,7 @@ sub Initialize {
 | 
				
			|||||||
    $hash->{AttrList} =
 | 
					    $hash->{AttrList} =
 | 
				
			||||||
        "readingValueLanguage:de,en "
 | 
					        "readingValueLanguage:de,en "
 | 
				
			||||||
      . "model:watering_computer,sensor,sensor2,mower,ic24,power,electronic_pressure_pump"
 | 
					      . "model:watering_computer,sensor,sensor2,mower,ic24,power,electronic_pressure_pump"
 | 
				
			||||||
      . "IODev setList useSetExtensions "
 | 
					      . "IODev "
 | 
				
			||||||
      . $readingFnAttributes;
 | 
					      . $readingFnAttributes;
 | 
				
			||||||
    $hash->{parseParams} = 1;
 | 
					    $hash->{parseParams} = 1;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
@@ -303,21 +302,9 @@ 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 = $name; $a0 =~ s/([.?*])/\\$1/g;
 | 
					 | 
				
			||||||
    if($setList !~ m/\b$a0\b/) {
 | 
					 | 
				
			||||||
      return SetExtensions($hash, $setList, @aArga) 
 | 
					 | 
				
			||||||
    }
 | 
					 | 
				
			||||||
    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_10:24:40 66559 FHEM/74_GardenaSmartDevice.pm
 | 
					UPD 2022-05-17_10:35:47 66210 FHEM/74_GardenaSmartDevice.pm
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user