From 591f279da2062b275ec9bbde40ab38439008bba1 Mon Sep 17 00:00:00 2001 From: andi291 <> Date: Sun, 26 Jul 2015 17:56:10 +0000 Subject: [PATCH] # MH various changes/fixes from forum e.g dpt9, 0 is not necessarily off, ... # MH 20140313 changed Log to Log3, verbose instead of loglevel # MH 20140313 testing setstate.... # MH 20141202 changing to readingsupdate # MH 20150518 . based on SVN 10_EIB.pm 8584 2015-05-15 18:46:52Z andi291 # 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 git-svn-id: https://svn.fhem.de/fhem/trunk@8988 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_EIB.pm | 458 +++++++++++++++++++++++--------------------- 1 file changed, 240 insertions(+), 218 deletions(-) diff --git a/fhem/FHEM/10_EIB.pm b/fhem/FHEM/10_EIB.pm index f726ef38c..271a6fdb4 100644 --- a/fhem/FHEM/10_EIB.pm +++ b/fhem/FHEM/10_EIB.pm @@ -1,10 +1,20 @@ ############################################## # $Id$ +# MH various changes/fixes from forum e.g dpt9, 0 is not necessarily off, ... +# MH 20140313 changed Log to Log3, verbose instead of loglevel +# MH 20140313 testing setstate.... +# MH 20141202 changing to readingsupdate +# MH 20150518 . based on SVN 10_EIB.pm 8584 2015-05-15 18:46:52Z andi291 +# 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 package main; use strict; use warnings; +my $debug=0; + # Open Tasks # - precision for model percent to 0,1 # - allow defined groups that are only used for sending of data (no status shown) @@ -34,6 +44,9 @@ my %models = ( my %eib_dpttypes = ( + #Binary value + "dpt1" => {"CODE"=>"dpt1", "UNIT"=>"", "factor"=>1}, + # 1-Octet unsigned value "dpt5" => {"CODE"=>"dpt5", "UNIT"=>"", "factor"=>1}, "percent" => {"CODE"=>"dpt5", "UNIT"=>"%", "factor"=>100/255, "slider"=>"0,1,100"}, @@ -41,6 +54,7 @@ my %eib_dpttypes = ( "angle" => {"CODE"=>"dpt5", "UNIT"=>"°", "factor"=>360/255}, # alias for dpt5.003 "dpt5.004" => {"CODE"=>"dpt5", "UNIT"=>"%", "factor"=>1}, "percent255" => {"CODE"=>"dpt5", "UNIT"=>"%", "factor"=>1 , "slider"=>"0,1,255"}, #alias for dpt5.004 + "dpt5.Slider" => {"CODE"=>"dpt5", "UNIT"=>"", "factor"=>100/255, "slider"=>"0,1,100"}, ##MH same as percent w.o. unit # 2-Octet unsigned Value (current, length, brightness) "dpt7" => {"CODE"=>"dpt7", "UNIT"=>""}, @@ -85,10 +99,6 @@ my %eib_dpttypes = ( # 14-Octet String "dpt16" => {"CODE"=>"dpt16", "UNIT"=>""}, - - - - ); @@ -104,9 +114,10 @@ EIB_Initialize($) $hash->{DefFn} = "EIB_Define"; $hash->{UndefFn} = "EIB_Undef"; $hash->{ParseFn} = "EIB_Parse"; - $hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 dummy:1,0 showtime:1,0 loglevel:0,1,2,3,4,5,6 ". + $hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 dummy:1,0 showtime:1,0 " . + "EIBreadingX:1,0 " . "$readingFnAttributes " . - "model:".join(",", keys %eib_dpttypes); + "model:".join(",", keys %eib_dpttypes); } @@ -168,11 +179,12 @@ sub EIB_SetState($$$$) { my ($hash, $tim, $vt, $val) = @_; - Log(5,"EIB setState tim: $tim vt: $vt val: $val"); + Log3 $hash, 5,"EIB setState for $hash->{NAME} tim: $tim vt: $vt val: $val"; $val = $1 if($val =~ m/^(.*) \d+$/); - #return "Undefined value $val" if(!defined($eib_c2b{$val})); - return undef; + #return "Undefined value from EIBsetstate $val" if(!defined($eib_c2b{$val})); + #return undef; + return undef if(!defined($eib_c2b{$val})); } ################################### @@ -223,8 +235,7 @@ EIB_Set($@) return "groupnr $groupnr not known." if(!$hash->{CODE}{$groupnr}); my $v = join(" ", @a); - #Log GetLogLevel($name,2), "EIB set $v"; - Log 5, "EIB set $v"; + Log3 $name, 5, "EIB set $v"; (undef, $v) = split(" ", $v, 2); # Not interested in the name... if($value eq "raw" && defined($arg1)) { @@ -233,17 +244,18 @@ EIB_Set($@) $c = $arg1; } elsif ($value eq "value" && defined($arg1)) { # value to be translated according to datapoint type - $c = EIB_EncodeByDatapointType($hash,$name,$arg1); + $c = EIB_EncodeByDatapointType($hash,$name,$arg1,$groupnr); #MH add group in call # set the value to the back translated value - $v = EIB_ParseByDatapointType($hash,$name,$c); + $v = EIB_ParseByDatapointType($hash,$name,$c,$groupnr); # MH probably stupid - but required!!!! } my $groupcode = $hash->{CODE}{$groupnr}; - #IOWrite($hash, "B", "w" . $groupcode . $c); - my $model = $attr{$name}{"model"}; + $model = $attr{$name}{"model"}; ##MH + $model = "" unless defined($model); ##MH avoid uninit msg + my $code = $eib_dpttypes{"$model"}{"CODE"}; - if ($code eq 'dpt7') { + if (defined($code) && $code eq 'dpt7') { #MH avoid uninit msg IOWrite($hash, "B", "b" . $groupcode . $c); } else { @@ -263,7 +275,7 @@ EIB_Set($@) my $dur = $arg1; my $to = sprintf("%02d:%02d:%02d", $dur/3600, ($dur%3600)/60, $dur%60); $modules{EIB}{ldata}{$name} = $to; - Log 4, "Follow: +$to set $name off g$groupnr"; + Log3 $name, 4, "Follow: +$to set $name off g$groupnr"; CommandDefine(undef, $name . "_timer at +$to set $name off g$groupnr"); } @@ -279,18 +291,18 @@ EIB_Set($@) if($value =~ m/on-till/ && defined($arg1)) { my ($err, $hr, $min, $sec, $fn) = GetTimeSpec($arg1); if($err) { - Log(2,"Error trying to parse timespec for $a[0] $a[1] $a[2] : $err"); + Log3 $name, 2, "Error trying to parse timespec for $a[0] $a[1] $a[2] : $err"; } else { my @lt = localtime; my $hms_till = sprintf("%02d:%02d:%02d", $hr, $min, $sec); my $hms_now = sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0]); if($hms_now ge $hms_till) { - Log 4, "on-till: won't switch as now ($hms_now) is later than $hms_till"; + Log3 $name, 4, "on-till: won't switch as now ($hms_now) is later than $hms_till"; } else { $modules{EIB}{till}{$name} = $hms_till; - Log 4, "Follow: $hms_till set $name off g$groupnr"; + Log3 $name, 4, "Follow: $hms_till set $name off g$groupnr"; CommandDefine(undef, $name . "_till at $hms_till set $name off g$groupnr"); } } @@ -299,22 +311,14 @@ EIB_Set($@) ########################## # Look for all devices with the same code, and set state, timestamp - my $code = "$hash->{GROUP}"; + $code = "$hash->{GROUP}"; ##MH reuse variable my $tn = TimeNow(); - #foreach my $n (keys %{ $modules{EIB}{defptr}{$code} }) { - - # my $lh = $modules{EIB}{defptr}{$code}{$n}; - # $lh->{CHANGED}[0] = $v; - # $lh->{STATE} = $v; - # $lh->{READINGS}{state}{TIME} = $tn; - # $lh->{READINGS}{state}{VAL} = $v; - # readingsSingleUpdate($lh,"state",$v,1); - #} - my $defptr = $modules{EIB}{defptr}{$code}; foreach my $n (keys %{ $defptr }) { readingsSingleUpdate($defptr->{$n}, "state", $v, 1); + readingsSingleUpdate($defptr->{$n},"setG" . $groupnr,$v,1) if (AttrVal($defptr->{$n}{NAME},'EIBreadingX',0) == 1); #MH reading setGroup + print "setg = $defptr->{$n}{NAME} , $groupnr , attr = " . AttrVal($defptr->{$n}{NAME},'EIBreadingX',0) . " \n" if ($debug eq 1); } return $ret; } @@ -351,9 +355,9 @@ EIB_Parse($$) if($def) { foreach my $n (keys %{ $def }) { my $lh = $def->{$n}; - foreach my $c (keys %{ $lh->{CODE} } ) + foreach my $gnr (keys %{ $lh->{CODE} } ) #MH { - $c = $lh->{CODE}{$c}; + my $c = $lh->{CODE}{$gnr}; #MH if($c eq $dev) { $n = $lh->{NAME}; # It may be renamed @@ -361,18 +365,16 @@ EIB_Parse($$) next if(IsIgnored($n)); # Little strange. # parse/translate by datapoint type - $v = EIB_ParseByDatapointType($lh,$n,$rawv); + $v = EIB_ParseByDatapointType($lh,$n,$rawv,$gnr); # MH added optional groupnr - #$lh->{CHANGED}[0] = $v; - #$lh->{STATE} = $v; $lh->{RAWSTATE} = $rawv; $lh->{LASTGROUP} = $dev; - #$lh->{READINGS}{state}{TIME} = TimeNow(); - #$lh->{READINGS}{state}{VAL} = $v; readingsSingleUpdate($lh,"state",$v,1); + readingsSingleUpdate($lh,'getG' . $gnr,$v,1) if (defined($attr{$n}{"EIBreadingX"}) && $attr{$n}{"EIBreadingX"} == 1); #MH get readingsvalue + print "GETG = $n , group= $gnr , attr = " . $attr{$n}{"EIBreadingX"} . " \n" if ($debug eq 1); - Log 5, "EIB $n $v"; + Log3 $n, 5, "EIB $n $v"; push(@list, $n); $found = 1; @@ -387,39 +389,56 @@ EIB_Parse($$) if($found==0) { my $dev_name = eib_hex2name($dev); - Log(3, "EIB Unknown device $dev ($dev_name), Value $val, please define it"); + Log3 $dev, 3, "EIB Unknown device $dev ($dev_name), Value $val, please define it"; return "UNDEFINED EIB_$dev EIB $dev"; } } } sub -EIB_EncodeByDatapointType($$$) +EIB_EncodeByDatapointType($$$$) #MH added groupnr { - my ($hash, $name, $value) = @_; - my $model = $attr{$name}{"model"}; - - # nothing to do if no model is given - return $value if(!defined($model)); + my ($hash, $name, $value, $gnr) = @_; + my @model_array = split(" ",$attr{$name}{"model"}) if (defined($attr{$name}{"model"})); + my $model = $model_array[0]; + + if (!defined($model)) { + Log3 $hash, 4,"EIB encode $value for $name"; + return $value; + } + + if (defined($gnr)) { + $model = $model_array[$gnr-1] if (defined($model_array[$gnr-1])); + } + + Log3 $hash, 5,"EIB_EncodeByDatapointType: $name, Value= $value, model= $model"; my $dpt = $eib_dpttypes{"$model"}; - Log(4,"EIB encode $value for $name model: $model dpt: $dpt"); - return $value if(!defined($dpt)); + + if (!defined($dpt)) { + Log3 $hash, 4,"EIB encode $value for $name model: $model"; + return $value; + } my $code = $eib_dpttypes{"$model"}{"CODE"}; my $unit = $eib_dpttypes{"$model"}{"UNIT"}; my $transval = undef; my $adjustment = $eib_dpttypes{"$model"}{"ADJUSTMENT"}; - Log(4,"EIB encode $value for $name model: $model dpt: $code unit: $unit"); + Log3 $hash, 4,"EIB encode $value for $name model: $model dpt: $code unit: $unit"; - if ($code eq "dpt5") + if ($code eq "dpt1") + { + $transval = $value; + Log3 $hash, 5,"EIB $code encode $value translated: $transval"; + } + elsif ($code eq "dpt5") { my $dpt5factor = $eib_dpttypes{"$model"}{"factor"}; my $fullval = sprintf("00%.2x",($value/$dpt5factor)); $transval = $fullval; - Log(5,"EIB $code encode $value = $fullval factor = $dpt5factor translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value = $fullval factor = $dpt5factor translated: $transval"; } elsif ($code eq "dpt7") { @@ -432,25 +451,12 @@ EIB_EncodeByDatapointType($$$) $transval = $fullval; } - Log(5,"EIB $code encode $value = $fullval translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value = $fullval translated: $transval"; } elsif($code eq "dpt9") { - #my $sign = $value<0?-1:1; - #my $absval = abs($value); - #my $exp = $absval==0?0:int(log($absval)/log(2)); - #my $mant = $absval / (2**$exp) *100; - #$mant = ((~($mant+1))&0x07FF) if($sign<0); - - #my $fullval = $mant+2048*$exp; - #$fullval |=0x8000 if($sign<0); - - #$transval = sprintf("00%.4x",$fullval); - - #Log(5,"EIB $code encode $value = $fullval sign: $sign mant: $mant exp: $exp translated: $transval"); - $transval = encode_dpt9($value); - Log(5,"EIB $code encode $value translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value translated: $transval"; } elsif ($code eq "dpt10") { @@ -458,6 +464,7 @@ EIB_EncodeByDatapointType($$$) my ($secs,$mins,$hours,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year+=1900; $mon++; + $value = sprintf("%02d:%02d:%02d",$hours,$mins,$secs); # value for log # calculate offset for weekday if ($wday eq "0") { @@ -465,12 +472,11 @@ EIB_EncodeByDatapointType($$$) } my $hoffset = 32*$wday; - #my $fullval = $secs + ($mins<<8) + ($hours<<16); my $fullval = $secs + ($mins<<8) + (($hoffset + $hours)<<16); $transval = sprintf("00%.6x",$fullval); - Log(5,"EIB $code encode $value = $fullval hours: $hours mins: $mins secs: $secs translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value = $fullval hours: $hours mins: $mins secs: $secs translated: $transval"; } elsif ($code eq "dpt10_ns") { @@ -491,7 +497,7 @@ EIB_EncodeByDatapointType($$$) $transval = sprintf("00%.6x",$fullval); - Log(5,"EIB $code encode $value = $fullval hours: $hours mins: $mins secs: $secs translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value = $fullval hours: $hours mins: $mins secs: $secs translated: $transval"; } elsif ($code eq "dpt11") { @@ -503,81 +509,97 @@ EIB_EncodeByDatapointType($$$) my $fullval = ($year-2000) + ($month<<8) + ($day<<16); $transval = sprintf("00%.6x",$fullval); - Log(5,"EIB $code encode $value = $fullval day: $day month: $month year: $year translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value = $fullval day: $day month: $month year: $year translated: $transval"; } elsif ($code eq "dpt12") { my $fullval = sprintf("00%.8x",$value); $transval = $fullval; - Log(5,"EIB $code encode $value = $fullval translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value" . '=' . " $fullval translated: $transval"; } elsif($code eq "dpt14") { $transval = encode_dpt14($value); - Log(5,"EIB $code encode $value translated: $transval"); + Log3 $hash, 5,"EIB $code encode $value translated: $transval"; } elsif ($code eq "dptxx") { } - # set state to translated value if(defined($transval)) { - Log(4,"EIB $name translated $value $unit to $transval"); + Log3 $hash, 4,"EIB $name translated $value $unit to $transval"; $value = "$transval"; } else { - Log(4,"EIB $name model $model value $value could not be translated/encoded. Just do a dec2hex translation"); - $value = sprintf("00%.2x",$value); - + Log3 $hash, 4,"EIB $name model $model value $value could not be translated/encoded. Just do a dec2hex translation"; + $value = sprintf("00%.2x",$value); } return $value; } sub -EIB_ParseByDatapointType($$$) +EIB_ParseByDatapointType($$$$) #MH added groupnr { - my ($hash, $name, $value) = @_; - my $model = $attr{$name}{"model"}; + my ($hash, $name, $value, $gnr) = @_; #MH + my @model_array = split(" ",$attr{$name}{"model"}) if (defined($attr{$name}{"model"})); + my $model = $model_array[0]; # nothing to do if no model is given return $value if(!defined($model)); + if (defined($gnr)) { + $model = $model_array[$gnr-1] if defined ($model_array[$gnr-1]); + } + + print "EIB_ParseByDatapointType: $name, val= $value, Group= $gnr, Model= $model \n" if ($debug eq 1); + my $dpt = $eib_dpttypes{"$model"}; - Log(4,"EIB parse $value for $name model: $model dpt: $dpt"); - return $value if(!defined($dpt)); + #nothing to do if no dpt is given + if (!defined($dpt)) { + Log3 $hash, 4,"EIB parse $value for $name model: $model" if (defined($model)); + Log3 $hash, 4,"EIB parse $value for $name" if (!defined($model)); + return $value; + } my $code = $eib_dpttypes{"$model"}{"CODE"}; my $unit = $eib_dpttypes{"$model"}{"UNIT"}; my $transval = undef; - Log(4,"EIB parse $value for $name model: $model dpt: $code unit: $unit"); + Log3 $hash, 5,"EIB parse $value for $name model: $model dpt: $code unit: $unit"; + print "EIB_ParseByDatapointType: $name, val= $value, Group= $gnr, Model= $model, code= $code, unit= $unit \n" if ($debug eq 1); - if ($code eq "dpt5") + #ABU aus Übersichtlichkeitsgründen voran gestellt + if ($code ne "dpt1") { - if ($value eq "on") - { - $value = "1"; - } + $value = 0 if ($value eq "off"); + $value = 1 if ($value eq "on"); + } + + #Je nach DPT ist was zu tun... + if ($code eq "dpt1") + { + $value = "off" if ($value eq 0); + $value = "on" if ($value eq 1); + $transval = $value; + } + elsif ($code eq "dpt5") + { my $dpt5factor = $eib_dpttypes{"$model"}{"factor"}; my $fullval = hex($value); $transval = $fullval; - $transval = sprintf("%.0f",$transval * $dpt5factor) if($dpt5factor != 0); - - Log(5,"EIB $code parse $value = $fullval factor = $dpt5factor translated: $transval"); + $transval = sprintf("%.0f",$transval * $dpt5factor) if($dpt5factor != 0); } elsif ($code eq "dpt7") { my $fullval = hex($value); $transval = $fullval; - - Log(5,"EIB $code parse $value = $fullval translated: $transval"); } elsif($code eq "dpt9") { @@ -590,9 +612,6 @@ EIB_ParseByDatapointType($$$) $transval = (1<<$exp)*0.01*$mant; - Log(5,"EIB $code parse $value = $fullval sign: $sign mant: $mant exp: $exp translated: $transval"); - - } elsif ($code eq "dpt10") { # Time @@ -602,8 +621,6 @@ EIB_ParseByDatapointType($$$) my $secs = ($fullval & 0x3F); $transval = sprintf("%02d:%02d:%02d",$hours,$mins,$secs); - Log(5,"EIB $code parse $value = $fullval hours: $hours mins: $mins secs: $secs translated: $transval"); - } elsif ($code eq "dpt10_ns") { # Time @@ -613,8 +630,6 @@ EIB_ParseByDatapointType($$$) my $secs = ($fullval & 0x3F); $transval = sprintf("%02d:%02d",$hours,$mins); - Log(5,"EIB $code parse $value = $fullval hours: $hours mins: $mins translated: $transval"); - } elsif ($code eq "dpt11") { # Date @@ -627,15 +642,11 @@ EIB_ParseByDatapointType($$$) $year += 2000 if($year<90); $transval = sprintf("%02d.%02d.%04d",$day,$month,$year); - Log(5,"EIB $code parse $value = $fullval day: $day month: $month year: $year translated: $transval"); - } elsif ($code eq "dpt12") { my $fullval = hex($value); $transval = $fullval; - Log(5,"EIB $code parse $value = $fullval translated: $transval"); - } elsif ($code eq "dpt14") # contributed by Olaf { # 4 byte single precision float @@ -650,12 +661,10 @@ EIB_ParseByDatapointType($$$) $transval = $sign * (2 ** $expo) * ($mant / (1 <<23)); - Log(5,"EIB $code parse $value translated: $transval"); } elsif ($code eq "dpt16") { - $transval= decode_dpt16($value); + $transval= decode_dpt16($value); - Log(5,"EIB $code parse $value translated: $transval"); } elsif ($code eq "dptxx") { } @@ -663,12 +672,14 @@ EIB_ParseByDatapointType($$$) # set state to translated value if(defined($transval)) { - Log(4,"EIB $name translated to $transval $unit"); + Log3 $hash, 4, "EIB_ParseByDatapointType: $name, origval= $value, transval= $transval, Group= $gnr, Model= $model, code= $code, unit= $unit"; + print "EIB_ParseByDatapointType: $name, origval= $value, transval= $transval, Group= $gnr, Model= $model, code= $code, unit= $unit \n" if ($debug eq 1); $value = "$transval $unit"; + $value =~ s/^\s+|\s+$//g; } else { - Log(4,"EIB $name model $model value $value could not be translated."); + Log3 $hash, 4, "EIB_ParseByDatapointType: $name, origval= $value could not be translated, Group= $gnr, Model= $model, code= $code, unit= $unit"; #MH } return $value; @@ -691,6 +702,7 @@ sub decode_dpt16($) } return sprintf("%s","$res"); } + ############################# sub eib_hex2name($) @@ -711,7 +723,7 @@ eib_name2hex($) { my $v = shift; my $r = $v; - Log(5, "name2hex: $v"); +# Log(5, "name2hex: $v"); if($v =~ /^([0-9]{1,2})\/([0-9]{1,2})\/([0-9]{1,3})$/) { $r = sprintf("%01x%01x%02x",$1,$2,$3); } @@ -724,7 +736,7 @@ eib_name2hex($) ############################# # 2byte signed float -sub encode_dpt9 { +sub encode_dpt9($) { my $state = shift; my $data; my $retVal; @@ -740,8 +752,6 @@ sub encode_dpt9 { } $data = $sign | ($exp << 11) | ($mant & 0x07ff); - #Log(1,"State: $state Sign: $sign Exp: $exp Mant: $mant Data: $data"); - $retVal = sprintf("00%.4x",$data); return $retVal; @@ -755,8 +765,6 @@ sub encode_dpt14 { my $packed_float = pack "f", $real; my $data = sprintf("%04X", unpack("L", pack("f", $real))); - #Log(1,"Shift: $real Value: $data"); - return $data } @@ -767,139 +775,136 @@ sub encode_dpt14 {

EIB / KNX

- -
+
  • EIBreadingX - + Enable additional readings for this EIB-device. With this Attribute set, a reading setG<x> will be updated when a set command is issued from FHEM, a reading getG<x> will be updated as soon a Value is received from EIB-Bus (<x> stands for the groupnr. - see define statement). The logic for the state reading remains unchanged. This is especially useful when the define statement contains more than one group parameter. +

    If set to 1, the following additional readings will be available:

    + 
    +      setGx will be updated on a SET command issued by FHEM. <x> stands for the groupnr. - see define statement
+      getGx will be updated on reception of a message from EIB-bus.
+
    +

    Example:

    + 
    +      define myDimmer EIB 0/1/1 0/1/2
+      attr myDimmer EIBreadingX 1
+      attr myDimmer model dpt1 dpt5.slider # GA 0/1/1 will be interpreted as on/off, GA 0/1/2 will be handled as dpt5 and show a slider on FHEMWEB
+      attr myDimmer eventmap /on:An/off:Aus/value g2:dim/
+      attr myDimmer webcmd on off dim
+      attr myDimmer stateFormat getG2 % # copies actual dim-level (as sent/received to/from dimmer) into STATE 
+
    +
    • + + + =end html =cut