diff --git a/FHEM/73_GardenaSmartBridge.pm b/FHEM/73_GardenaSmartBridge.pm index 08ea97d..d08efc0 100644 --- a/FHEM/73_GardenaSmartBridge.pm +++ b/FHEM/73_GardenaSmartBridge.pm @@ -427,7 +427,7 @@ sub Set { } elsif ( lc $cmd eq 'debug_devices_list' ) { $hash->{helper}{debug_device_list} = 'set'; - Log3 $name, 2, Dumper($hash->{helper}); + #Log3 $name, 2, Dumper($hash->{helper}); Write($hash, undef, undef, undef, undef); } elsif ( lc $cmd eq 'deleteaccountpassword' ) { @@ -498,7 +498,7 @@ sub ErrorHandling { my $dname = $dhash->{NAME}; - Log3 $name, 2, "GardenaSmartBridge ($name) - Request: $data"; + Log3 $name, 4, "GardenaSmartBridge ($name) - Request: $data"; my $decode_json = eval { decode_json($data) }; if ($@) { @@ -756,20 +756,18 @@ sub ResponseProcessing { return; } - elsif ( defined($hash->{helper}{debug_device_list} ) ) - { + elsif ( defined($hash->{helper}{debug_device_list} ) ) { Log3 $name, 4, "Debug Devices List"; my $msg; $msg = "test krams"; my @buffer = split( '"devices":\[', $json ); my ( $json, $tail ) = ParseJSON( $hash, $buffer[1] ); + $decode_json = eval { decode_json($json) }; - while ( ( my ( $t, $v ) ) = each %{ $decode_json} ) - { - - Log3 $name, 2, "DEBUG $t und $v"; - + + while ( ( my ( $t, $v ) ) = each %{ $decode_json} ) { + Log3 $name, 2, "DEBUG $t und $v"; } undef($hash->{helper}{debug_device_list}); diff --git a/controls_GardenaSmartDevice.txt b/controls_GardenaSmartDevice.txt index 77ef842..3893605 100644 --- a/controls_GardenaSmartDevice.txt +++ b/controls_GardenaSmartDevice.txt @@ -1,2 +1,2 @@ -UPD 2021-03-30_13:04:26 43507 FHEM/73_GardenaSmartBridge.pm -UPD 2021-03-25_09:33:11 45622 FHEM/74_GardenaSmartDevice.pm +UPD 2021-04-03_22:13:41 44359 FHEM/73_GardenaSmartBridge.pm +UPD 2021-04-03_07:51:48 45622 FHEM/74_GardenaSmartDevice.pm