FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-29 17:37:09 +00:00
Code Issues Releases Wiki Activity

added support for weekly recurring calendar events

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2249 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2012-12-02 17:06:37 +00:00
parent b39b68a979
commit 96fca292d6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/57_Calendar.pm
View File

@ -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();