little fixes
This commit is contained in:
@ -301,9 +301,9 @@ sub Attr {
|
|||||||
}
|
}
|
||||||
elsif ( $attrName eq 'interval' ) {
|
elsif ( $attrName eq 'interval' ) {
|
||||||
if ( $cmd eq 'set' ) {
|
if ( $cmd eq 'set' ) {
|
||||||
RemoveInternalTimer($hash);
|
|
||||||
return 'Interval must be greater than 0'
|
return 'Interval must be greater than 0'
|
||||||
if ( $attrVal == 0 );
|
if ( $attrVal == 0 );
|
||||||
|
RemoveInternalTimer($hash);
|
||||||
$hash->{INTERVAL} = $attrVal;
|
$hash->{INTERVAL} = $attrVal;
|
||||||
Log3 $name, 3,
|
Log3 $name, 3,
|
||||||
"GardenaSmartBridge ($name) - set interval: $attrVal";
|
"GardenaSmartBridge ($name) - set interval: $attrVal";
|
||||||
@ -773,7 +773,7 @@ sub ResponseProcessing {
|
|||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
elsif ( defined($hash->{helper}{debug_device_list} ) ) {
|
elsif ( exists($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";
|
||||||
@ -783,10 +783,6 @@ sub ResponseProcessing {
|
|||||||
|
|
||||||
$decode_json = eval { decode_json($json) };
|
$decode_json = eval { decode_json($json) };
|
||||||
|
|
||||||
while ( ( my ( $t, $v ) ) = each %{ $decode_json} ) {
|
|
||||||
Log3 $name, 2, "DEBUG $t und $v";
|
|
||||||
}
|
|
||||||
|
|
||||||
delete $hash->{helper}{debug_device_list};
|
delete $hash->{helper}{debug_device_list};
|
||||||
return $msg;
|
return $msg;
|
||||||
}
|
}
|
||||||
|
@ -1,2 +1,2 @@
|
|||||||
UPD 2021-04-07_19:57:30 45186 FHEM/73_GardenaSmartBridge.pm
|
UPD 2021-04-07_20:07:59 45056 FHEM/73_GardenaSmartBridge.pm
|
||||||
UPD 2021-04-07_18:23:53 48268 FHEM/74_GardenaSmartDevice.pm
|
UPD 2021-04-07_18:23:53 48268 FHEM/74_GardenaSmartDevice.pm
|
||||||
|
Reference in New Issue
Block a user