FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

10_EIB-pm: removed special handling DPT7 in write, fixed DPT7 encoding

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9061 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
andi291 2015-08-12 18:04:34 +00:00
parent d1ad0c0369
commit 02845fd14c
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fhem/FHEM/10_EIB.pm
View File

@ -8,6 +8,7 @@
# ABU 20150617 added dpt1, removed special handling of dpt5, added default-values for messages without dpt, changed retVal of EIB_ParseByDatapointType
# MH 20150622 added getGx/setGx Readings and Attr EIBreadingX
# ABU 20150617 cleanup unused lines, finalized dpt-handling, cleanup logging, added debug-par
# ABU 20150729 removed special handling DPT7 in write, fixed DPT7 encoding
package main;
use strict;
@ -193,9 +194,11 @@ EIB_Get($@)
{
my ($hash, @a) = @_;
return "No get for dummies" if(IsDummy($hash->{NAME}));
return "" if($a[1] && $a[1] eq "?"); # Temporary hack for FHEMWEB
IOWrite($hash, "B", "r" . $hash->{GROUP});
return "Current value for $hash->{NAME} ($hash->{GROUP}) requested.";
}
@ -255,12 +258,14 @@ EIB_Set($@)
$model = "" unless defined($model); ##MH avoid uninit msg
my $code = $eib_dpttypes{"$model"}{"CODE"};
if (defined($code) && $code eq 'dpt7') { #MH avoid uninit msg
IOWrite($hash, "B", "b" . $groupcode . $c);
}
else {
#ABU removed due to incorrect DPT7-sending
#if (defined($code) && $code eq 'dpt7') { #MH avoid uninit msg
# IOWrite($hash, "B", "b" . $groupcode . $c);
#}
#else {
IOWrite($hash, "B", "w" . $groupcode . $c);
}
#}
###########################################
# Delete any timer for on-for_timer
@ -442,14 +447,17 @@ EIB_EncodeByDatapointType($$$$) #MH added groupnr
} elsif ($code eq "dpt7")
{
my $fullval = sprintf("00%.2x",$value);
$transval = $fullval;
if($adjustment eq "255") {
$transval = ($fullval / 2.55);
$transval = sprintf("%.0f",$transval);
} else {
$transval = $fullval;
my $fullval = "";
if($adjustment eq "255")
{
$fullval = sprintf("00%.4x",($value/2.55));
} else
{
$fullval = sprintf("00%.4x",$value);
}
$transval = $fullval;
Log3 $hash, 5,"EIB $code encode $value = $fullval translated: $transval";