FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

minor bugs

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6150 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-06-21 19:09:37 +00:00
parent fb8e767011
commit f74b432b3d
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/00_HMLAN.pm
View File

@ -747,9 +747,11 @@ sub HMLAN_SimpleWrite(@) {#####################################################
my $chn = substr($msg,52,2);
if (!$hDst->{chn} || $hDst->{chn} ne $chn){
my $updt = $modules{CUL_HM}{defptr}{$dst}{helper}{io}{newChn};
Log3 $hash, HMLAN_getVerbLvl($hash,$src,$dst,"5")
if ($updt){
Log3 $hash, HMLAN_getVerbLvl($hash,$src,$dst,"5")
, 'HMLAN_Send: '.$name.' S:'.$updt;
syswrite($hash->{TCPDev}, $updt."\r\n") if($hash->{TCPDev});
syswrite($hash->{TCPDev}, $updt."\r\n") if($hash->{TCPDev});
}
}
$hDst->{chn} = $chn;
}

8
fhem/FHEM/10_CUL_HM.pm
View File

@ -1143,12 +1143,12 @@ sub CUL_HM_Parse($$) {#########################################################
elsif($md =~ m/HM-CC-RT-DN/) { ##############################################
my %ctlTbl=( 0=>"auto", 1=>"manu", 2=>"party",3=>"boost");
if ($mTp eq "10" && $p =~ m/^0A(....)(..)(..)(..)/) {#info-level
my ($chn,$setTemp,$actTemp,$err,$bat,$vp,$ctrlMode) =
("04",hex($1),hex($1),hex($2),hex($2),hex($3), hex($4));
my ($chn,$setTemp,$err,$vp,$ctrlMode) =
("04",hex($1),hex($2),hex($3), hex($4));
my $actTemp =(($setTemp ) & 0x3ff)/10;
$setTemp =(($setTemp >>10) & 0x3f )/2;
$actTemp =(($actTemp ) & 0x3ff)/10;
my $bat =(($err ) & 0x1f)/10+1.5;
$err = ($err >> 5) & 0x7 ;
$bat =(($bat ) & 0x1f)/10+1.5;
$vp = ($vp ) & 0x7f ;
my $uk0 = ($ctrlMode ) & 0x3f ;#unknown
$ctrlMode = ($ctrlMode >> 6) & 0x3 ;