diff --git a/98_TadoAPI.pm b/98_TadoAPI.pm index 2c96fed..7c63821 100644 --- a/98_TadoAPI.pm +++ b/98_TadoAPI.pm @@ -104,7 +104,7 @@ sub TadoAPI_Define { my ( $user, $homeID ) = @a; Log3 $name, 3, "TadoAPI_Define $name: called "; - + defined $user ? ($hash->{STATE} = "defined") : ($hash->{DEF} = "no_device_code_set"); # Initialize the device @@ -392,10 +392,18 @@ sub TadoAPI_Undefine { RemoveInternalTimer($hash); - #todo remove tokenfile return; } +sub TadoAPI_Delete { + my ( $hash, $name ) = @_; + RemoveInternalTimer($hash); + # Löschen von Token-File + unlink($tokenFile . "_" . $name); + + return; +} + sub TadoAPI_CheckStatus { my $hash = shift; my $name = $hash->{NAME};