mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

14_CUL_TCM97001.pm: Remove unused Code

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8374 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dancer0705
2015-04-04 18:59:26 +00:00
parent ffee585c75
commit dd52b87acf
1 changed files with 9 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
fhem/FHEM/14_CUL_TCM97001.pm
View File

@@ -318,20 +318,6 @@ CUL_TCM97001_Parse($$)
if($def) { if($def) {
$name = $def->{NAME}; $name = $def->{NAME};
} }
my $bin = undef;
my $bin1= undef;
$bin1=sprintf("%024b",hex(substr($msg,0,length($msg)-8)));
while (length($bin1) < (length($msg)-8)*4) {
# suffix 0
$bin1 = '0'.$bin1;
}
$bin1=substr($bin1,((length($msg)-8)*8));
my $bin2=sprintf("%024b",hex(substr($msg,length($msg)-8,length($msg)-1)));
while (length($bin2) < 32) {
# suffix 0
$bin2 = '0'.$bin2;
}
$bin = $bin1 . $bin2;
my @a = split("", $msg); my @a = split("", $msg);
my $bitReverse = undef; my $bitReverse = undef;
@@ -646,7 +632,8 @@ CUL_TCM97001_Parse($$)
$attr{$name}{model} = $model; $attr{$name}{model} = $model;
return $name; return $name;
} else { } else {
Log3 $name, 4, "CUL_TCM97001 Device not interplmeted yet name $name msg $msg"; $name = $defUnknown->{NAME};
Log3 $name, 4, "CUL_TCM97001 Device not interplmeted yet name Unknown msg $msg";
if (!$defUnknown) { if (!$defUnknown) {
Log3 "Unknown", 2, "CUL_TCM97001 Unknown device Unknown, please define it"; Log3 "Unknown", 2, "CUL_TCM97001 Unknown device Unknown, please define it";
return "UNDEFINED CUL_TCM97001_Unknown CUL_TCM97001 Unknown" if(!$defUnknown); return "UNDEFINED CUL_TCM97001_Unknown CUL_TCM97001 Unknown" if(!$defUnknown);
@@ -656,13 +643,8 @@ CUL_TCM97001_Parse($$)
if ($defUnknown) { if ($defUnknown) {
$defUnknown->{lastT} = $now; $defUnknown->{lastT} = $now;
};
my $defSvg = $defs{"SVG_CUL_TCM97001_Unknown"};
if ($defSvg) {
CommandDelete(undef, $defSvg->{NAME});
} }
$attr{$name}{model} = $model; $attr{$name}{model} = $model;
readingsBeginUpdate($defUnknown); readingsBeginUpdate($defUnknown);
readingsBulkUpdate($defUnknown, "state", $state); readingsBulkUpdate($defUnknown, "state", $state);
@@ -670,12 +652,16 @@ CUL_TCM97001_Parse($$)
if(defined($rssi)) { if(defined($rssi)) {
$defUnknown->{RSSI} = $rssi; $defUnknown->{RSSI} = $rssi;
} }
my $defSvg = $defs{"SVG_CUL_TCM97001_Unknown"};
if ($defSvg) {
CommandDelete(undef, $defSvg->{NAME});
}
return $name; return $name;
} }
return undef; return undef;
} }