ready for release #46
@ -242,6 +242,7 @@ sub Define {
|
|||||||
$hash->{VERSION} = version->parse($VERSION)->normal;
|
$hash->{VERSION} = version->parse($VERSION)->normal;
|
||||||
$hash->{INTERVAL} = 60;
|
$hash->{INTERVAL} = 60;
|
||||||
$hash->{NOTIFYDEV} = "global,$name";
|
$hash->{NOTIFYDEV} = "global,$name";
|
||||||
|
$hash->{helper}{debug_device} = 'none';
|
||||||
|
|
||||||
CommandAttr( undef, $name . ' room GardenaSmart' )
|
CommandAttr( undef, $name . ' room GardenaSmart' )
|
||||||
if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
|
if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
|
||||||
@ -714,8 +715,11 @@ sub ErrorHandling {
|
|||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
if (defined($hash->{helper}{debug_device})){
|
if (defined($hash->{helper}{debug_device})
|
||||||
Log3 $name, 5, "GardenaSmartBridge DEBUG Device";
|
&& $hash->{helper}{debug_device} ne 'none'
|
||||||
|
){
|
||||||
|
Log3 $name, 4, "GardenaSmartBridge DEBUG Device";
|
||||||
|
$hash->{helper}{debug_device} = 'none';
|
||||||
my @device_spec = ("name", "id", "category");
|
my @device_spec = ("name", "id", "category");
|
||||||
my $devJson=$decode_json->{devices};
|
my $devJson=$decode_json->{devices};
|
||||||
my $output = '.:{ DEBUG OUTPUT for '.$devJson->{name}.' }:. \n';
|
my $output = '.:{ DEBUG OUTPUT for '.$devJson->{name}.' }:. \n';
|
||||||
@ -1224,7 +1228,7 @@ sub createHttpValueStrings {
|
|||||||
&& defined( $hash->{helper}{locations_id} ) );
|
&& defined( $hash->{helper}{locations_id} ) );
|
||||||
}
|
}
|
||||||
|
|
||||||
$uri = '/devices/'.InternalVal($hash->{helper}{debug_device}, 'DEVICEID', 0 ) if ( exists ($hash->{helper}{debug_device}));
|
$uri = '/devices/'.InternalVal($hash->{helper}{debug_device}, 'DEVICEID', 0 ) if ( ($hash->{helper}{debug_device}) ne 'none' );
|
||||||
$uri = '/auth/token' if ( !defined( $hash->{helper}{session_id} ) );
|
$uri = '/auth/token' if ( !defined( $hash->{helper}{session_id} ) );
|
||||||
|
|
||||||
if ( defined( $hash->{helper}{locations_id} ) ) {
|
if ( defined( $hash->{helper}{locations_id} ) ) {
|
||||||
|
@ -1,2 +1,2 @@
|
|||||||
UPD 2021-06-28_15:56:58 47009 FHEM/73_GardenaSmartBridge.pm
|
UPD 2021-07-28_21:42:12 47158 FHEM/73_GardenaSmartBridge.pm
|
||||||
UPD 2021-07-16_20:26:01 56217 FHEM/74_GardenaSmartDevice.pm
|
UPD 2021-07-28_21:36:45 56217 FHEM/74_GardenaSmartDevice.pm
|
||||||
|
Loading…
x
Reference in New Issue
Block a user