FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 16:46:35 +00:00
Code Issues Releases Wiki Activity

22_HOMEMODE: fix crash caused by wrong usage of updated function Calendar_GetEvents

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16547 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
deespe 2018-04-03 19:53:35 +00:00
parent 88d3ee3944
commit 2d842745bb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/22_HOMEMODE.pm
View File

@ -16,7 +16,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use vars qw{%attr %defs %modules $FW_CSRF}; use vars qw{%attr %defs %modules $FW_CSRF};
my $HOMEMODE_version = "1.4.3"; my $HOMEMODE_version = "1.4.4";
my $HOMEMODE_Daytimes = "05:00|morning 10:00|day 14:00|afternoon 18:00|evening 23:00|night"; my $HOMEMODE_Daytimes = "05:00|morning 10:00|day 14:00|afternoon 18:00|evening 23:00|night";
my $HOMEMODE_Seasons = "03.01|spring 06.01|summer 09.01|autumn 12.01|winter"; my $HOMEMODE_Seasons = "03.01|spring 06.01|summer 09.01|autumn 12.01|winter";
my $HOMEMODE_UserModes = "gotosleep,awoken,asleep"; my $HOMEMODE_UserModes = "gotosleep,awoken,asleep";
@ -3081,7 +3081,8 @@ sub HOMEMODE_EventCommands($$$$)
my $summary; my $summary;
my $description = ""; my $description = "";
my $t = time(); my $t = time();
foreach (Calendar_GetEvents($defs{$cal},$t,undef,undef)) my @filters = ( { ref => \&filter_true, param => undef } );
foreach (Calendar_GetEvents($defs{$cal},$t,@filters))
{ {
next unless ($_->{uid} eq $event); next unless ($_->{uid} eq $event);
$summary = $_->{summary}; $summary = $_->{summary};
@ -3384,7 +3385,8 @@ sub HOMEMODE_CalendarEvents($$)
else else
{ {
my $t = time(); my $t = time();
foreach (Calendar_GetEvents($defs{$cal},$t,undef,undef)) my @filters = ( { ref => \&filter_true, param => undef } );
foreach (Calendar_GetEvents($defs{$cal},$t,@filters))
{ {
my $evt = $_->{summary}; my $evt = $_->{summary};
Log3 $name,5,"Calendar_GetEvents event: $evt"; Log3 $name,5,"Calendar_GetEvents event: $evt";