change little code parts
This commit is contained in:
@ -427,7 +427,7 @@ sub Set {
|
|||||||
}
|
}
|
||||||
elsif ( lc $cmd eq 'debug_devices_list' ) {
|
elsif ( lc $cmd eq 'debug_devices_list' ) {
|
||||||
$hash->{helper}{debug_device_list} = 'set';
|
$hash->{helper}{debug_device_list} = 'set';
|
||||||
Log3 $name, 2, Dumper($hash->{helper});
|
#Log3 $name, 2, Dumper($hash->{helper});
|
||||||
Write($hash, undef, undef, undef, undef);
|
Write($hash, undef, undef, undef, undef);
|
||||||
}
|
}
|
||||||
elsif ( lc $cmd eq 'deleteaccountpassword' ) {
|
elsif ( lc $cmd eq 'deleteaccountpassword' ) {
|
||||||
@ -498,7 +498,7 @@ sub ErrorHandling {
|
|||||||
|
|
||||||
my $dname = $dhash->{NAME};
|
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) };
|
my $decode_json = eval { decode_json($data) };
|
||||||
if ($@) {
|
if ($@) {
|
||||||
@ -756,20 +756,18 @@ sub ResponseProcessing {
|
|||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
elsif ( defined($hash->{helper}{debug_device_list} ) )
|
elsif ( defined($hash->{helper}{debug_device_list} ) ) {
|
||||||
{
|
|
||||||
Log3 $name, 4, "Debug Devices List";
|
Log3 $name, 4, "Debug Devices List";
|
||||||
my $msg;
|
my $msg;
|
||||||
$msg = "test krams";
|
$msg = "test krams";
|
||||||
|
|
||||||
my @buffer = split( '"devices":\[', $json );
|
my @buffer = split( '"devices":\[', $json );
|
||||||
my ( $json, $tail ) = ParseJSON( $hash, $buffer[1] );
|
my ( $json, $tail ) = ParseJSON( $hash, $buffer[1] );
|
||||||
|
|
||||||
$decode_json = eval { decode_json($json) };
|
$decode_json = eval { decode_json($json) };
|
||||||
while ( ( my ( $t, $v ) ) = each %{ $decode_json} )
|
|
||||||
{
|
while ( ( my ( $t, $v ) ) = each %{ $decode_json} ) {
|
||||||
|
Log3 $name, 2, "DEBUG $t und $v";
|
||||||
Log3 $name, 2, "DEBUG $t und $v";
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
undef($hash->{helper}{debug_device_list});
|
undef($hash->{helper}{debug_device_list});
|
||||||
|
@ -1,2 +1,2 @@
|
|||||||
UPD 2021-03-30_13:04:26 43507 FHEM/73_GardenaSmartBridge.pm
|
UPD 2021-04-03_22:13:41 44359 FHEM/73_GardenaSmartBridge.pm
|
||||||
UPD 2021-03-25_09:33:11 45622 FHEM/74_GardenaSmartDevice.pm
|
UPD 2021-04-03_07:51:48 45622 FHEM/74_GardenaSmartDevice.pm
|
||||||
|
Reference in New Issue
Block a user