From 96fca292d69bc687255a064e68bab019bdebe31c Mon Sep 17 00:00:00 2001
From: borisneubert <>
Date: Sun, 2 Dec 2012 17:06:37 +0000
Subject: [PATCH] added support for weekly recurring calendar events

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

diff --git a/fhem/FHEM/57_Calendar.pm b/fhem/FHEM/57_Calendar.pm
index bd8d9d38d..3b319a70f 100644
--- a/fhem/FHEM/57_Calendar.pm
+++ b/fhem/FHEM/57_Calendar.pm
@@ -367,8 +367,9 @@ sub fromVEvent {
     my @rrparts= split(";", $rrule);
     my %r= map { split("=", $_); } @rrparts;
 
+    my @keywords= qw(FREQ INTERVAL UNTIL COUNT BYMONTHDAY BYDAY);
     foreach my $k (keys %r) {
-      if( $k ne "FREQ" and $k ne "INTERVAL" and $k ne "UNTIL" and $k ne "COUNT" and $k ne "BYMONTHDAY") {
+      if(not($k ~~ @keywords)) {
         main::Log 2, "Calendar: RRULE $rrule is not supported";
       }
     }
@@ -378,8 +379,8 @@ sub fromVEvent {
     $self->{interval} = exists($r{"INTERVAL"}) ? $r{"INTERVAL"} : 1;
     $self->{until} = tm($r{"UNTIL"}) if(exists($r{"UNTIL"}));
     $self->{count} = $r{"COUNT"} if(exists($r{"COUNT"}));
-    $self->{bymonthday} = $r{"BYMONTHDAY"} if(exists($r{"BYMONTHDAY"}));
-    
+    $self->{bymonthday} = $r{"BYMONTHDAY"} if(exists($r{"BYMONTHDAY"})); # stored but ignored
+    $self->{byday} = $r{"BYDAY"} if(exists($r{"BYDAY"})); # stored but ignored
 
     # advanceToNextOccurance until we are in the future
     my $t = time();