diff --git a/fhem/FHEM/57_Calendar.pm b/fhem/FHEM/57_Calendar.pm index a80bc68d8..2160b1af7 100644 --- a/fhem/FHEM/57_Calendar.pm +++ b/fhem/FHEM/57_Calendar.pm @@ -1335,7 +1335,7 @@ sub Calendar_Undef($$) {

You can also do some logging:

- define LogErna notify MyCalendar:modeAlarmed.*2767324dsfretfvds7dsfn3e4­dsa234r234sdfds6bh874­googlecom.* { Log3 %NAME, 1, "ALARM name=%NAME event=%EVENT part1=%EVTPART0 part2=%EVTPART1" } + define LogErna notify MyCalendar:modeAlarmed.*2767324dsfretfvds7dsfn3e4­dsa234r234sdfds6bh874­googlecom.* { Log3 $NAME, 1, "ALARM name=$NAME event=$EVENT part1=$EVTPART0 part2=$EVTPART1" }

@@ -1345,16 +1345,16 @@ sub Calendar_Undef($$) { You want the respective devices to switch on when the calendar event starts and to switch off when the calendar event ends.

define SwitchActorOn notify MyCalendar:modeStarted.* { - my $reading="%EVTPART0";; - my $uid= "%EVTPART1";; + my $reading="$EVTPART0";; + my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; if(defined $actor) { fhem("set $actor on") } }

define SwitchActorOff notify MyCalendar:modeEnded.* { - my $reading="%EVTPART0";; - my $uid= "%EVTPART1";; + my $reading="$EVTPART0";; + my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; if(defined $actor) { fhem("set $actor off") @@ -1363,7 +1363,7 @@ sub Calendar_Undef($$) {


You can also do some logging:

- define LogActors notify MyCalendar:mode(Started|Ended).* { my $reading= "%EVTPART0";; my $uid= "%EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; Log 3 %NAME, 1, "Actor: $actor, Reading $reading" } + define LogActors notify MyCalendar:mode(Started|Ended).* { my $reading= "$EVTPART0";; my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; Log 3 $NAME, 1, "Actor: $actor, Reading $reading" }

@@ -1538,7 +1538,7 @@ sub Calendar_Undef($$) {

Du kannst auch ein Logging aufsetzen:

- define LogErna notify MyCalendar:modeAlarmed.*2767324dsfretfvds7dsfn3e4­dsa234r234sdfds6bh874­googlecom.* { Log3 %NAME, 1, "ALARM name=%NAME event=%EVENT part1=%EVTPART0 part2=%EVTPART1" } + define LogErna notify MyCalendar:modeAlarmed.*2767324dsfretfvds7dsfn3e4­dsa234r234sdfds6bh874­googlecom.* { Log3 $NAME, 1, "ALARM name=$NAME event=$EVENT part1=$EVTPART0 part2=$EVTPART1" }

@@ -1548,16 +1548,16 @@ sub Calendar_Undef($$) { Du willst nun die entsprechenden Devices an- und ausschalten wenn das Kalender-Ereignis beginnt bzw. endet.

define SwitchActorOn notify MyCalendar:modeStarted.* { - my $reading="%EVTPART0";; - my $uid= "%EVTPART1";; + my $reading="$EVTPART0";; + my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; if(defined $actor) { fhem("set $actor on") } }

define SwitchActorOff notify MyCalendar:modeEnded.* { - my $reading="%EVTPART0";; - my $uid= "%EVTPART1";; + my $reading="$EVTPART0";; + my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; if(defined $actor) { fhem("set $actor off") @@ -1566,7 +1566,7 @@ sub Calendar_Undef($$) {


Auch hier kann ein Logging aufgesetzt werden:

- define LogActors notify MyCalendar:mode(Started|Ended).* { my $reading= "%EVTPART0";; my $uid= "%EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; Log 3 %NAME, 1, "Actor: $actor, Reading $reading" } + define LogActors notify MyCalendar:mode(Started|Ended).* { my $reading= "$EVTPART0";; my $uid= "$EVTPART1";; my $actor= fhem("get MyCalendar summary $uid");; Log 3 $NAME, 1, "Actor: $actor, Reading $reading" }