FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 12:18:46 +00:00
Code Issues Releases Wiki Activity

MAX: Parse WallThermostat's Ack Message

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2502 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2013-01-13 12:00:51 +00:00
parent 907ebcc9e6
commit eecec8fbb2
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/10_MAX.pm
View File

@ -481,8 +481,9 @@ MAX_Parse($$)
if( length($args[0]) == 4 ) { if( length($args[0]) == 4 ) {
#This is the message that WallMountedThermostats send to paired HeatingThermostats #This is the message that WallMountedThermostats send to paired HeatingThermostats
($desiredTemperature,$temperature) = unpack("CC",pack("H*",$args[0])); ($desiredTemperature,$temperature) = unpack("CC",pack("H*",$args[0]));
} elsif( length($args[0]) == 14 ) { } elsif( length($args[0]) == 14 or length($args[0]) == 13) {
#This is the message we get from the Cube over MAXLAN and which is probably send by WallMountedThermostats to the Cube #len=14: This is the message we get from the Cube over MAXLAN and which is probably send by WallMountedThermostats to the Cube
#len=13: Payload of the Ack message, last field "temperature" is missing
($bits2,$displayActualTemperature,$desiredTemperature,$null1,$heaterTemperature,$null2,$temperature) = unpack("aCCCCCC",pack("H*",$args[0])); ($bits2,$displayActualTemperature,$desiredTemperature,$null1,$heaterTemperature,$null2,$temperature) = unpack("aCCCCCC",pack("H*",$args[0]));
#$heaterTemperature/10 is the temperature measured by a paired HeatingThermostat #$heaterTemperature/10 is the temperature measured by a paired HeatingThermostat
#we don't do anything with it here, because this value also appears as temperature in the HeatingThermostat's ThermostatState message #we don't do anything with it here, because this value also appears as temperature in the HeatingThermostat's ThermostatState message
@ -503,13 +504,16 @@ MAX_Parse($$)
} }
$desiredTemperature /= 2.0; #convert to degree celcius $desiredTemperature /= 2.0; #convert to degree celcius
$temperature /= 10.0; #convert to degree celcius if(defined($temperature)) {
$temperature /= 10.0; #convert to degree celcius
Log 5, "desiredTemperature $desiredTemperature, temperature $temperature"; Log 5, "desiredTemperature $desiredTemperature, temperature $temperature";
readingsBulkUpdate($shash, "temperature", $temperature);
} else {
Log 5, "desiredTemperature $desiredTemperature"
}
#This formatting must match with in MAX_Set:$templist #This formatting must match with in MAX_Set:$templist
readingsBulkUpdate($shash, "desiredTemperature", sprintf("%2.1f",$desiredTemperature)); readingsBulkUpdate($shash, "desiredTemperature", sprintf("%2.1f",$desiredTemperature));
readingsBulkUpdate($shash, "temperature", $temperature);
}elsif($msgtype eq "ShutterContactState"){ }elsif($msgtype eq "ShutterContactState"){
my $bits = pack("H2",$args[0]); my $bits = pack("H2",$args[0]);