From b4f5cef0614c225344cb462feebc7a70b6ed2aa7 Mon Sep 17 00:00:00 2001 From: Sebastian Date: Thu, 5 May 2022 09:20:56 +0200 Subject: [PATCH] debug ausgabe --- CHANGED | 2 +- FHEM/74_GardenaSmartDevice.pm | 24 ++++++++++++++++-------- controls_GardenaSmartDevice.txt | 4 ++-- 3 files changed, 19 insertions(+), 11 deletions(-) diff --git a/CHANGED b/CHANGED index bbc5983..25c2fd6 100644 --- a/CHANGED +++ b/CHANGED @@ -1 +1 @@ - change debug stuff + fix log line diff --git a/FHEM/74_GardenaSmartDevice.pm b/FHEM/74_GardenaSmartDevice.pm index 6258f31..8a6e096 100644 --- a/FHEM/74_GardenaSmartDevice.pm +++ b/FHEM/74_GardenaSmartDevice.pm @@ -885,14 +885,22 @@ sub setState { # ... offline my $activ_watering = 0; if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' ){ - $activ_watering = 1 if ( ReadingsVal( $name, 'watering-watering_timer_1_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - $activ_watering = 2 if ( ReadingsVal( $name, 'watering-watering_timer_2_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - $activ_watering = 3 if ( ReadingsVal( $name, 'watering-watering_timer_3_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - $activ_watering = 4 if ( ReadingsVal( $name, 'watering-watering_timer_4_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - $activ_watering = 5 if ( ReadingsVal( $name, 'watering-watering_timer_5_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - $activ_watering = 6 if ( ReadingsVal( $name, 'watering-watering_timer_6_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); - Log3 $name, 3, "[DEBUG] - GardenaSmartDevice ($name) - wasser timer: $activ_watering"; - ### eventuell auf binare bits und shiften + my $opened_ventils = 0; + ## clac bit wise 1 - 6 dec => 1 - 63 dec ( 0011 1111 ) + for (my $i = 1; $i < 7; $i++){ + my $zahl = ( ReadingsVal( $name, "watering-watering_timer_'.$i.'_duration", 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ) ? ($i -1) : 0; + $opened_ventils=$opened_ventils+(2**$zahl) if ( $zahl > 0 ); + Log3 $name, 3, "[DEBUG] - GardenaSmartDevice ($name) - wasser timer($i) =-1 ( $zahl ) : $opened_ventils"; + } + + # $activ_watering = 1 if ( ReadingsVal( $name, 'watering-watering_timer_1_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # $activ_watering = 2 if ( ReadingsVal( $name, 'watering-watering_timer_2_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # $activ_watering = 3 if ( ReadingsVal( $name, 'watering-watering_timer_3_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # $activ_watering = 4 if ( ReadingsVal( $name, 'watering-watering_timer_4_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # $activ_watering = 5 if ( ReadingsVal( $name, 'watering-watering_timer_5_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # $activ_watering = 6 if ( ReadingsVal( $name, 'watering-watering_timer_6_duration', 0 ) =~ m{\A[1-9]([0-9]+)?\z}xms ); + # Log3 $name, 3, "[DEBUG] - GardenaSmartDevice ($name) - wasser timer: $activ_watering"; + # ### eventuell auf binare bits und shiften my $state_string = $activ_watering > 0 # offen diff --git a/controls_GardenaSmartDevice.txt b/controls_GardenaSmartDevice.txt index fc026a8..f752ac5 100644 --- a/controls_GardenaSmartDevice.txt +++ b/controls_GardenaSmartDevice.txt @@ -1,2 +1,2 @@ -UPD 2022-05-03_21:36:59 49520 FHEM/73_GardenaSmartBridge.pm -UPD 2022-05-03_21:37:30 65392 FHEM/74_GardenaSmartDevice.pm +UPD 2022-05-05_08:36:31 49520 FHEM/73_GardenaSmartBridge.pm +UPD 2022-05-05_09:20:45 65861 FHEM/74_GardenaSmartDevice.pm