FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

change little code parts

Browse Source
This commit is contained in:
Marko Oldenburg
2021-04-03 22:16:32 +02:00
parent 230735d591
commit 947825f629
2 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/73_GardenaSmartBridge.pm
View File

@ -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});

4
controls_GardenaSmartDevice.txt
View File

@ -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