cleanup added
This commit is contained in:
parent
b4c5586ce7
commit
c9ae34f0c4
@ -104,7 +104,7 @@ sub TadoAPI_Define {
|
|||||||
|
|
||||||
my ( $user, $homeID ) = @a;
|
my ( $user, $homeID ) = @a;
|
||||||
Log3 $name, 3, "TadoAPI_Define $name: called ";
|
Log3 $name, 3, "TadoAPI_Define $name: called ";
|
||||||
|
|
||||||
defined $user ? ($hash->{STATE} = "defined") : ($hash->{DEF} = "no_device_code_set");
|
defined $user ? ($hash->{STATE} = "defined") : ($hash->{DEF} = "no_device_code_set");
|
||||||
|
|
||||||
# Initialize the device
|
# Initialize the device
|
||||||
@ -392,10 +392,18 @@ sub TadoAPI_Undefine {
|
|||||||
|
|
||||||
RemoveInternalTimer($hash);
|
RemoveInternalTimer($hash);
|
||||||
|
|
||||||
#todo remove tokenfile
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub TadoAPI_Delete {
|
||||||
|
my ( $hash, $name ) = @_;
|
||||||
|
RemoveInternalTimer($hash);
|
||||||
|
# Löschen von Token-File
|
||||||
|
unlink($tokenFile . "_" . $name);
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
sub TadoAPI_CheckStatus {
|
sub TadoAPI_CheckStatus {
|
||||||
my $hash = shift;
|
my $hash = shift;
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
|
Loading…
x
Reference in New Issue
Block a user