From cd3abaf84bb3ea61b9d7af444aa6e210befbd7e0 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 3 Aug 2013 06:29:04 +0000
Subject: [PATCH] rain sensor correct toggle

git-svn-id: https://svn.fhem.de/fhem/trunk@3586 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 6 +++---
 fhem/FHEM/HMConfig.pm  | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 38c415695..02772b3e9 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -880,7 +880,8 @@ sub CUL_HM_Parse($$) {##############################
 	    $val = hex($val)/2;
 	  }
 	  push @event, "state:$val";
-	  
+ 	  push @event, "level:".($val eq "off"?"0 %":"100 %");
+ 	  
 	  if ($mNo eq "00" && $chn eq "02" && $val eq "on"){
 	    $hHash->{helper}{pOn} = 1;
 	  }
@@ -1905,7 +1906,6 @@ sub CUL_HM_Set($@) {
   my $act = join(" ", @a[1..$#a]);
   my $ret;
   return "no set value specified" if(@a < 2);
-
   my $name    = $hash->{NAME};
   my $devName = $hash->{device}?$hash->{device}:$name;
   my $st      = AttrVal($devName, "subType", "");
@@ -4065,7 +4065,7 @@ sub CUL_HM_setAttrIfCh($$$$) {
 }
 sub CUL_HM_noDup(@) {#return list with no duplicates
   my %all;
-  $all{$_}=0 for @_;
+  $all{$_}=0 foreach (grep !/^$/,@_);
   delete $all{""}; #remove empties if present
   return (sort keys %all);
 }
diff --git a/fhem/FHEM/HMConfig.pm b/fhem/FHEM/HMConfig.pm
index b119284bd..c1819ad72 100644
--- a/fhem/FHEM/HMConfig.pm
+++ b/fhem/FHEM/HMConfig.pm
@@ -383,7 +383,7 @@ my %culHmRegDefine = (
 
   driveDown       =>{a=> 11.0,s=>2.0,l=>1,min=>0  ,max=>6000.0  ,c=>'factor'   ,f=>10      ,u=>'s'   ,d=>1,t=>"drive time up"},
   driveUp         =>{a=> 13.0,s=>2.0,l=>1,min=>0  ,max=>6000.0  ,c=>'factor'   ,f=>10      ,u=>'s'   ,d=>1,t=>"drive time up"},
-  driveTurn       =>{a=> 15.0,s=>1.0,l=>1,min=>0  ,max=>25.5    ,c=>'factor'   ,f=>10      ,u=>'s'   ,d=>1,t=>"Engine uncharge time, typically 0.5s. Do NOT set to 0 if operated with engine"},
+  driveTurn       =>{a=> 15.0,s=>1.0,l=>1,min=>0.5,max=>25.5    ,c=>'factor'   ,f=>10      ,u=>'s'   ,d=>1,t=>"engine uncharge - fhem min = 0.5s for protection. HM min= 0s (use regBulk if necessary)"},
   refRunCounter   =>{a=> 16.0,s=>1.0,l=>1,min=>0  ,max=>255     ,c=>''         ,f=>''      ,u=>''    ,d=>0,t=>"reference run counter"},
 #remote mainly                                                                                      
   longPress       =>{a=>  4.4,s=>0.4,l=>1,min=>0.3,max=>1.8     ,c=>'m10s3'    ,f=>''      ,u=>'s'   ,d=>0,t=>"time to detect key long press"},