From 84fae0d3115dbe955bc5107494ae137937bda5eb Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Wed, 23 Oct 2013 22:32:29 +0000
Subject: [PATCH] make dimmer/blind statusupdate optional

git-svn-id: https://svn.fhem.de/fhem/trunk@4104 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 14 ++++++++++----
 fhem/FHEM/98_HMinfo.pm |  2 +-
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index e736230b7..233c00f33 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -990,6 +990,7 @@ sub CUL_HM_Parse($$) {##############################
     if (($mTp eq "02" && $p =~ m/^01/) ||  # handle Ack_Status
 	    ($mTp eq "10" && $p =~ m/^06/))	{ #    or Info_Status message here
 
+	  my $rSUpdt = 0;# require status update
       my ($subType,$chn,$val,$err) = ($1,hex($2),hex($3)/2,hex($4)) 
  	                     if($p =~ m/^(..)(..)(..)(..)/);
 	  $chn = sprintf("%02X",$chn&0x3f);
@@ -1017,8 +1018,9 @@ sub CUL_HM_Parse($$) {##############################
 			push @event,"phyLevel:$pl %";      #phys level 
 			$physLvl = $pl." %";
 		  }
-		  else{                                #invalid PhysLevel   
-		    CUL_HM_stateUpdatDly($name,3);     # update for device!
+		  else{                                #invalid PhysLevel
+            $rSUpdt = 1;		  
+		    CUL_HM_stateUpdatDly($shash->{NAME},3);     # update to get level
 		  }
 		}
 	  }
@@ -1041,7 +1043,11 @@ sub CUL_HM_Parse($$) {##############################
         push @event, "$eventName:up:$vs"   if(($err&0x30) == 0x10);
         push @event, "$eventName:down:$vs" if(($err&0x30) == 0x20);
         push @event, "$eventName:stop:$vs" if(($err&0x30) == 0x00);
-		CUL_HM_stateUpdatDly($name,120)    if(($err&0x30) != 0x00);
+		if (!$rSUpdt){#dont touch if necessary for dimmer
+		  if(($err&0x30) != 0x00) {CUL_HM_stateUpdatDly($shash->{NAME},120);}
+		  else                    {CUL_HM_unQEntity($shash->{NAME},
+		                                  $modules{CUL_HM}{helper}{qReqStat});}
+		}
 	  }
 	  if ($st eq "dimmer"){
         push @event,"overload:".(($err&0x02)?"on":"off");
@@ -4752,7 +4758,7 @@ sub CUL_HM_stateUpdatDly($$){#delayed queue of status-request
 sub CUL_HM_stateUpdat($){#delay timeout - now queue statusRequest
   my $name = shift;
   (undef,$name)=split":",$name,2;
-  CUL_HM_qStateUpdatIfEnab($name,1) if ($name);
+  CUL_HM_qStateUpdatIfEnab($name) if ($name);
 }
 sub CUL_HM_qStateUpdatIfEnab($@){#in:name or id, queue stat-request after 12 s
    my ($name,$force) = @_;
diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 5f312af33..1d0d7ac16 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1,5 +1,5 @@
 ##############################################
-# $Id$
+# $Id: 98_HMinfo.pm 4101 2013-10-23 14:25:19Z martinp876 $
 package main;
 use strict;
 use warnings;