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

tc-it humidity

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4864 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-02-09 18:02:23 +00:00
parent ca4b70c4e4
commit ce4f2ee898
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/00_HMLAN.pm
View File

@ -522,10 +522,9 @@ sub HMLAN_Parse($$) {##########################################################
# 00 21= ??(seen with 'R') - see below
# 00 2x= should: AES was accepted, here is the response
# 00 30= should: AES response failed
# 00 40= ??(seen with 'E') after 0100
# 00 41= ??(seen with 'R')
# 00 4x= AES response accepted
# 00 50= ??(seen with 'R')
# 00 81= ??
# 00 8x= first AES-response for this device?
# 01 xx= ?? 0100 AES response send (gen autoMsgSent)
# 02 xx= prestate to 04xx. Message is still sent. This is a warning
# 04 xx= nothing sent anymore. Any restart unsuccessful except power

9
fhem/FHEM/10_CUL_HM.pm
View File

@ -712,10 +712,10 @@ sub CUL_HM_Parse($$) {##############################
my $i=0;
$devH->{helper}{rpt}{ts} = gettimeofday();
CUL_HM_SndCmd(${$ack}[$i++],${$ack}[$i++]) while ($i<@{$ack});
Log3 $name,4,"CUL_HM $name dup: repeat ack, dont process";
Log3 $name,4,"CUL_HM $name dupe: repeat ack, dont process";
}
else{
Log3 $name,4,"CUL_HM $name dup: dont process";
Log3 $name,4,"CUL_HM $name dupe: dont process";
}
return (@entities,$name); #return something to please dispatcher
}
@ -1016,7 +1016,7 @@ sub CUL_HM_Parse($$) {##############################
my $chn = 1;
$shash = $modules{CUL_HM}{defptr}{"$src$chn"}
if($modules{CUL_HM}{defptr}{"$src$chn"});
my ($t,$h) = (hex(substr($p,0,4)),hex(substr($p,4,2)));
my ($t,$h) = (hex(substr($p,0,4)),hex(substr($p,6,2)));
$t -= 0x8000 if($t > 1638.4);
$t = sprintf("%0.1f", $t/10);
push @event, "temperature:$t";
@ -2205,7 +2205,7 @@ sub CUL_HM_parseSDteam(@){#handle SD team events
#C8: Smoke Alarm
#C7: tone off
#01: no alarm
my ($No,$state) = (substr($p,2,2),substr($p,4,2));
my (undef,$No,$state) = unpack 'A2A2A2',$p;
if(($dHash) && # update source(ID reported in $dst)
(!$dHash->{helper}{alarmNo} || $dHash->{helper}{alarmNo} ne $No)){
$dHash->{helper}{alarmNo} = $No;
@ -3310,6 +3310,7 @@ sub CUL_HM_Set($@) {
if ($cmd eq "virtHum") {$hash->{helper}{vd}{vinH} = $valu;}
else {$hash->{helper}{vd}{vin} = $valu;}
}
$attr{$devName}{msgRepeat} = 0;#force no repeat
if ($cmd eq "valvePos"){
my @pId = grep !/^$/,split(',',AttrVal($name,"peerIDs",""));
return "virtual TC support one VD only. Correct number of peers"