From 60f88dfd7822ea014c81fb8c5c3736e890ce1a5a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 12 May 2011 17:45:59 +0000
Subject: [PATCH] MDIR with help of Bassem

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@902 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index d188f4745..207b92c71 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -93,7 +93,7 @@ my %culHmModel=(
   "0047" => "KFM-Display",
   "0048" => "IS-WDS-TH-OD-S-R3",
   "0049" => "KFM-Sensor",
-  "004A" => "HM-SEC-MDIR",
+  "004A" => "HM-SEC-MDIR",   # Tested
   "004C" => "HM-RC-12-SW",
   "004D" => "HM-RC-19-SW",
   "004E" => "HM-LC-DDC1-PCB",
@@ -305,6 +305,24 @@ CUL_HM_Parse($$)
 
     }
 
+  } elsif($st eq "motionDetector") { #####################################
+
+    # Code with help of Bassem
+    my $state;
+    if($cmd eq "A410" && $p =~ m/^0601(..)(..)/) {
+      ($state, undef) = ($1, $2);
+      push @event, "brightness:$state";
+      push @event, "state:alive";
+    }
+    if($cmd eq "A441" && $p =~ m/^01(......)/) {
+      $state = $1;
+      push @event, "state:motion";
+    }
+
+    CUL_HM_SendCmd($shash, "++8002".$id.$src."0101${state}00",1,0)
+       if($id eq $dst && $state);  # Send Ack
+
+
   } elsif($st eq "smokeDetector") { #####################################
 
     if($p =~ m/01..C8/) {