FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 16:59:18 +00:00
Code Issues Releases Wiki Activity

Undef added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1236 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-02-06 16:05:59 +00:00
parent bcf7a5daa6
commit 84e0cc001c
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fhem/FHEM/00_TCM.pm
View File

@ -50,6 +50,7 @@ TCM_Initialize($)
# Normal devices
$hash->{DefFn} = "TCM_Define";
$hash->{UndefFn} = "TCM_Undef";
$hash->{GetFn} = "TCM_Get";
$hash->{SetFn} = "TCM_Set";
$hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 loglevel:0,1,2,3,4,5,6";
@ -610,7 +611,7 @@ TCM_ReadAnswer($$)
if(defined($buf)) {
$data .= uc(unpack('H*', $buf));
Log 5, "TCM/RAW (ReadAnswer): $data";
Log $ll5, "TCM/RAW (ReadAnswer): $data";
if($hash->{MODEL} eq "120") {
if(length($data) >= 28) {
@ -645,7 +646,26 @@ TCM_ReadAnswer($$)
}
}
}
}
sub
TCM_Undef($$)
{
my ($hash, $arg) = @_;
my $name = $hash->{NAME};
foreach my $d (sort keys %defs) {
if(defined($defs{$d}) &&
defined($defs{$d}{IODev}) &&
$defs{$d}{IODev} == $hash)
{
my $lev = ($reread_active ? 4 : 2);
Log GetLogLevel($name,$lev), "deleting port for $d";
delete $defs{$d}{IODev};
}
}
DevIo_CloseDev($hash);
return undef;
}
1;