Vermute Bug in Color.pm

[ht]

Hi justme1968,

ich verwende Color::devStateIcon für einen Homematic Dimmer wie folgt (unnötige Zeilen weggelassen):

define wg_Licht CUL_HM ...
attr wg_Licht devStateIcon {Color::devStateIcon($name,"dimmer",undef,"pct")}
attr wg_Licht eventMap 65$:dim
attr wg_Licht model HM-LC-Dim1TPBU-FM
attr wg_Licht webCmd on:off:dim:statusRequest

Das funktioniert prima, nur beim ausgeschalteten Dimmer, also pct ist 0, kriege ich das Icon für 6%.

Ich vermute, dass es an der folgenden Zeile aus Color.pm liegt:

$percent = ::CommandGet("","$name $pct") if( !$percent );

(Das ist die Zeile 384 im Code-Stand von gestern).

1. Ist die if-Bedingung so gewollt, denn für meinen Wert 0 wird jetzt das CommandGet ausgeführt. Oder sollte hier auf "!defined($percent)" geprüft werden?
2. Ich bin mir nicht sicher, wozu das CommandGet dienen soll, und von daher auch nicht, ob es so richtig. Für meinen Wert müsste es doch "$name param $pct" sein, damit der gewünschte Wert kommt, oder?

Da ich zwar entwicklen kann, aber sowohl bei perl als auch der FHEM-Entwicklung ziemlicher Anfänger bin, ist das wirklich nur eine Vermutung. Falls es an meiner Config liegt, würde ich mich über eine Rückmeldung freuen.

Danke,
Volker