From 0b2fd8fa1d9c1b7d0df5622b3b95be0547b3e9fb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 29 Mar 2011 18:57:04 +0000
Subject: [PATCH] Smoky "all-clear" status

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 3de11fe72..2be455169 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -311,6 +311,9 @@ CUL_HM_Parse($$)
       push @event, "state:on";
       push @event, "smoke_detect:on";
 
+    } elsif($p =~ m/^01..01$/) {
+      push @event, "state:all-clear";   # Entwarnung
+
     } elsif($p =~ m/^06010000$/) {
       push @event, "state:alive";
 
@@ -433,10 +436,15 @@ CUL_HM_Parse($$)
     
     if($cmd eq "A410" && $p =~ m/^0601(..)(..)/) {
       my ($lst, $flg) = ($1, $2);
-           if($lst eq "C8") { push @event, "contact:open";
-      } elsif($lst eq "FF") { push @event, "contact:tilted";
-      } elsif($lst eq "00") { push @event, "contact:closed";
+           if($lst eq "C8" && $flg eq "00") { push @event, "contact:tilted";
+      } elsif($lst eq "FF" && $flg eq "00") { push @event, "contact:closed";
+      } elsif($lst eq "00" && $flg eq "10") { push @event, "contact:movement_tilted";
+      } elsif($lst eq "00" && $flg eq "20") { push @event, "contact:movement_closed";
+      } elsif($lst eq "FF" && $flg eq "10") { push @event, "contact:lock_on";
+      } elsif($lst eq "00" && $flg eq "30") { push @event, "contact:open";
       }
+
+
       CUL_HM_SendCmd($shash, "++8002".$id.$src."0101".$lst."00",1,0)  # Send Ack
         if($id eq $dst);
     }