From eae1c17c17592a785112b46a04759ae5cf5ab93c Mon Sep 17 00:00:00 2001
From: borisneubert <>
Date: Thu, 28 May 2015 17:55:18 +0000
Subject: [PATCH] 57_Calendar: catch deadly regular expressions in get

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

diff --git a/fhem/FHEM/57_Calendar.pm b/fhem/FHEM/57_Calendar.pm
index 942528870..7863d586f 100644
--- a/fhem/FHEM/57_Calendar.pm
+++ b/fhem/FHEM/57_Calendar.pm
@@ -1076,9 +1076,13 @@ sub Calendar_Get($@) {
     return "argument is missing" if($#a != 2);
     my $regexp= $a[2];
     my @uids;
-    foreach my $event ($eventsObj->events()) {
-      push @uids, $event->uid() if($event->summary() =~ m/$regexp/);
-    }
+    eval {
+        foreach my $event ($eventsObj->events()) {
+            push @uids, $event->uid() if($event->summary() =~ m/$regexp/);
+        }
+    };
+    Log3($hash, 2, "Calendar " . $hash->{NAME} . 
+        ": The regular expression $regexp caused a problem: $@") if($@);
     return join(";", @uids);
   
   } else {