FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-28 11:01:59 +00:00
Code Issues Releases Wiki Activity

26_KM273.pm:2016-06-02 V0012 KM273_ReadElementList byte nibbles in extid turned

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12038 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mike3436 2016-08-21 12:50:34 +00:00
parent 0783ac01a8
commit 46fd7b6f78
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/26_KM273.pm
View File

@ -71,6 +71,7 @@
# 0009 31.05.2016 mike3436 KM273_ReadElementList if expected readCounter isn't reached on second read, and read data has identical length, try to analyse # 0009 31.05.2016 mike3436 KM273_ReadElementList if expected readCounter isn't reached on second read, and read data has identical length, try to analyse
# 0010 31.05.2016 mike3436 KM273_ReadElementList bugfix if expected readCounter isn't reached by read data; delete lists on module reload # 0010 31.05.2016 mike3436 KM273_ReadElementList bugfix if expected readCounter isn't reached by read data; delete lists on module reload
# 0011 01.06.2016 mike3436 KM273_ReadElementList negative min values corrected: value interpretation has to be as signed int64, XDHW_TIME+XDHW_STOP_TEMP added to KM273_gets # 0011 01.06.2016 mike3436 KM273_ReadElementList negative min values corrected: value interpretation has to be as signed int64, XDHW_TIME+XDHW_STOP_TEMP added to KM273_gets
# 0012 02.06.2016 mike3436 KM273_ReadElementList byte nibbles in extid turned
package main; package main;
use strict; use strict;
@ -2081,7 +2082,7 @@ sub KM273_ReadElementList($)
if ($len1 <= 8) if ($len1 <= 8)
{ {
$KM273_ReadElementListStatus{readIndex} += $len1; $KM273_ReadElementListStatus{readIndex} += $len1;
$value1 <<= 4*(8-$len1) if ($len1 < 8); $value1 <<= 8*(8-$len1) if ($len1 < 8);
$KM273_ReadElementListStatus{readData} .= pack("NN",$value1>>32,$value1&0xffffffff); $KM273_ReadElementListStatus{readData} .= pack("NN",$value1>>32,$value1&0xffffffff);
} }
@ -2104,7 +2105,7 @@ sub KM273_ReadElementList($)
{ {
if ($imax-$i1 > 18) if ($imax-$i1 > 18)
{ {
my ($idx,$extid,$max2,$min2,$len2) = unpack("nh14NNc",substr($KM273_ReadElementListStatus{readData},$i1,18)); my ($idx,$extid,$max2,$min2,$len2) = unpack("nH14NNc",substr($KM273_ReadElementListStatus{readData},$i1,18));
$min2 = unpack 'l*', pack 'L*', $min2; # unsigned long to signed long $min2 = unpack 'l*', pack 'L*', $min2; # unsigned long to signed long
$max2 = unpack 'l*', pack 'L*', $max2; $max2 = unpack 'l*', pack 'L*', $max2;
if (($idx > $idLast) && ($len2 > 1) && ($len2 < 100)) if (($idx > $idLast) && ($len2 > 1) && ($len2 < 100))