From 96bc5cdc30b6b2916af80b7d466e8dba63b9b70c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 26 Dec 2010 10:41:28 +0000
Subject: [PATCH] dimmer message regexp

git-svn-id: https://svn.fhem.de/fhem/trunk@779 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 4915a9a81..d8bff4b9f 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -182,9 +182,13 @@ CUL_HM_Parse($$)
         $sname = $culHmModel{$model} . "_" . $src;
         $sname =~ s/-/_/g;
       }
+      Log 3, "CUL_HM Unknown device $sname, please define it";
+      return "UNDEFINED $sname CUL_HM $src $msg";
+    } {
+      Log 3, "CUL_HM Unknown device $sname. Start pairing on the device" .
+                "to generate the fhem-device with autocreate";
+      return "";
     }
-    Log 3, "CUL_HM Unknown device $sname, please define it";
-    return "UNDEFINED $sname CUL_HM $src $msg";
   }
 
   my $name = $shash->{NAME};
@@ -230,7 +234,7 @@ CUL_HM_Parse($$)
           $st eq "dimmer" ||
           $st eq "blindActuator") {
 
-    if($p =~ m/^(0.0.)(..)00/) {
+    if($p =~ m/^(0.0.)(..).0/) {
       my $lt = $1;
       my $val = hex($2)/2;
       $val = ($val == 100 ? "on" : ($val == 0 ? "off" : "$val %"));