From 5d298ca8a5bc7bedd5782caebab2f1c6859239e6 Mon Sep 17 00:00:00 2001
From: pahenning <>
Date: Thu, 24 Nov 2016 18:42:39 +0000
Subject: [PATCH] 95_Alarm.pm: Bugfix zero delay

git-svn-id: https://svn.fhem.de/fhem/trunk@12649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/95_Alarm.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/95_Alarm.pm b/fhem/FHEM/95_Alarm.pm
index a32a5ce25..ff64471ba 100644
--- a/fhem/FHEM/95_Alarm.pm
+++ b/fhem/FHEM/95_Alarm.pm
@@ -40,7 +40,7 @@ my $alarmname       = "Alarms";    # link text
 my $alarmhiddenroom = "AlarmRoom"; # hidden room
 my $alarmpublicroom = "Alarm";     # public room
 my $alarmno         = 8;
-my $alarmversion    = "2.8";
+my $alarmversion    = "2.81";
 
 #########################################################################################
 #
@@ -441,6 +441,17 @@ sub Alarm_Arm($$$$$){
       my $cmdact  = AttrVal($name, "armact", 0);
       if( ($xdl eq '')|($xdl eq '0:00')|($xdl eq '00:00') ){
          CommandAttr(undef,$name.' level'.$level.'xec armed');
+         readingsSingleUpdate( $hash, "level".$level,"armed",0 );
+         #--transform commands from fhem to perl level
+         my @cmdactarr = split(/;/,$cmdact);
+         my $cmdactf;
+         if( int(@cmdactarr) == 1 ){
+           fhem("$cmdact");
+         }else{
+             for(my $i=0;$i<int(@cmdactarr);$i++){
+               fhem("$cmdactarr[$i]");
+           }
+         }
          $msg = "[Alarm $level] armed from alarmSensor $dev with event $evt"; 
          Log3 $hash,3,$msg; 
       } elsif( $xdl =~ /([0-9])?:([0-5][0-9])?/  ){