From 6dd36c396d53d85527397f9f81140ec812c46def Mon Sep 17 00:00:00 2001 From: klaus-schauer <> Date: Sat, 18 Apr 2015 05:48:55 +0000 Subject: [PATCH] 10_EnOcean: subType gateway/dimming: set-command set reading dim git-svn-id: https://svn.fhem.de/fhem/trunk@8449 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_EnOcean.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/fhem/FHEM/10_EnOcean.pm b/fhem/FHEM/10_EnOcean.pm index cf9cd977b..7da674276 100755 --- a/fhem/FHEM/10_EnOcean.pm +++ b/fhem/FHEM/10_EnOcean.pm @@ -1,5 +1,6 @@ ############################################## # $Id$ +# 2015-04-18 # EnOcean Security in Perl, teach-in, VAES, MAC and message handling # Copyright: Jan Schneider (timberwolf at tec-observer dot de) @@ -1600,6 +1601,7 @@ sub EnOcean_Set($@) shift(@a); } $sendDimCmd = 1; + readingsSingleUpdate ($hash, "dim", $dimVal, 1); } elsif ($cmd eq "dimup") { return "Usage: $cmd dim/% [rampTime/s lock|unlock]" @@ -1615,6 +1617,7 @@ sub EnOcean_Set($@) shift(@a); } $sendDimCmd = 1; + readingsSingleUpdate ($hash, "dim", $dimVal, 1); } elsif ($cmd eq "dimdown") { return "Usage: $cmd dim/% [rampTime/s lock|unlock]" @@ -1630,6 +1633,7 @@ sub EnOcean_Set($@) shift(@a); } $sendDimCmd = 1; + readingsSingleUpdate ($hash, "dim", $dimVal, 1); } elsif ($cmd eq "on") { $rampTime = 1; @@ -1655,12 +1659,14 @@ sub EnOcean_Set($@) } } $sendDimCmd = 1; + readingsSingleUpdate ($hash, "dim", $dimVal, 1); } elsif ($cmd eq "off") { $dimVal = 0; $rampTime = 1; $setCmd = 8; $sendDimCmd = 1; + readingsSingleUpdate ($hash, "dim", $dimVal, 1); } else { my $cmdList = "dim:slider,0,1,100 on:noArg off:noArg teach:noArg";