mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 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 3527545a41
commit e35a24573c
2 changed files with 7 additions and 7 deletions
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 21= ??(seen with 'R') - see below
# 00 2x= should: AES was accepted, here is the response # 00 2x= should: AES was accepted, here is the response
# 00 30= should: AES response failed # 00 30= should: AES response failed
# 00 40= ??(seen with 'E') after 0100 # 00 4x= AES response accepted
# 00 41= ??(seen with 'R')
# 00 50= ??(seen with 'R') # 00 50= ??(seen with 'R')
# 00 81= ?? # 00 8x= first AES-response for this device?
# 01 xx= ?? 0100 AES response send (gen autoMsgSent) # 01 xx= ?? 0100 AES response send (gen autoMsgSent)
# 02 xx= prestate to 04xx. Message is still sent. This is a warning # 02 xx= prestate to 04xx. Message is still sent. This is a warning
# 04 xx= nothing sent anymore. Any restart unsuccessful except power # 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; my $i=0;
$devH->{helper}{rpt}{ts} = gettimeofday(); $devH->{helper}{rpt}{ts} = gettimeofday();
CUL_HM_SndCmd(${$ack}[$i++],${$ack}[$i++]) while ($i<@{$ack}); 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{ 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 return (@entities,$name); #return something to please dispatcher
} }
@@ -1016,7 +1016,7 @@ sub CUL_HM_Parse($$) {##############################
my $chn = 1; my $chn = 1;
$shash = $modules{CUL_HM}{defptr}{"$src$chn"} $shash = $modules{CUL_HM}{defptr}{"$src$chn"}
if($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 -= 0x8000 if($t > 1638.4);
$t = sprintf("%0.1f", $t/10); $t = sprintf("%0.1f", $t/10);
push @event, "temperature:$t"; push @event, "temperature:$t";
@@ -2205,7 +2205,7 @@ sub CUL_HM_parseSDteam(@){#handle SD team events
#C8: Smoke Alarm #C8: Smoke Alarm
#C7: tone off #C7: tone off
#01: no alarm #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) if(($dHash) && # update source(ID reported in $dst)
(!$dHash->{helper}{alarmNo} || $dHash->{helper}{alarmNo} ne $No)){ (!$dHash->{helper}{alarmNo} || $dHash->{helper}{alarmNo} ne $No)){
$dHash->{helper}{alarmNo} = $No; $dHash->{helper}{alarmNo} = $No;
@@ -3310,6 +3310,7 @@ sub CUL_HM_Set($@) {
if ($cmd eq "virtHum") {$hash->{helper}{vd}{vinH} = $valu;} if ($cmd eq "virtHum") {$hash->{helper}{vd}{vinH} = $valu;}
else {$hash->{helper}{vd}{vin} = $valu;} else {$hash->{helper}{vd}{vin} = $valu;}
} }
$attr{$devName}{msgRepeat} = 0;#force no repeat
if ($cmd eq "valvePos"){ if ($cmd eq "valvePos"){
my @pId = grep !/^$/,split(',',AttrVal($name,"peerIDs","")); my @pId = grep !/^$/,split(',',AttrVal($name,"peerIDs",""));
return "virtual TC support one VD only. Correct number of peers" return "virtual TC support one VD only. Correct number of peers"