Google-Kalender zur Steuerung von Dummies
Mit dem Kalendermodul Calendar ist es möglich, Ereignisse aus Kalendern im ICal-Format abzufragen. Dies und der Wiki-Eintrag Wochenende, Feiertage und Schulferien hat mich dazu veranlasst, dass ich durch Kalendereinträge im Google-Kalender den Status meiner beiden Dummies "Urlaub" und "Besuch" steuere. Durch diese beiden Dummies werden zum Beispiel die Rolläden im Schlafzimmer oder Gästezimmer bei Besuch oder Urlaub anders gesteuert als ohne Besuch oder unter der Woche. Auch meine Zirkulationspumpe soll so bedarfsgerecht gesteuert werden. Dass am Wochenende anders gesteuert wird, ist ja mit $we kein Problem. Zuerst wird dafür der Kalender definiert:
define Kalender_Christian Calendar ical url <der richtige Kalenderlink> 14400
Den Kalenderlink [1] findet man wie beschrieben heraus. Dann habe ich meine Dummies definiert:
define Urlaub_dummy dummy attr Urlaub_dummy room Kalender attr Urlaub_dummy setList ja nein attr Urlaub_dummy webCmd ja:nein define Gast_dummy dummy attr Gast_dummy room Kalender attr Gast_dummy setList ja nein attr Gast_dummy webCmd ja:nein
Und nun mussten die Notifys definiert werden, um bei entsprechenden Einträgen im Google-Kalender den Status der Dummies zu setzen.
define Kalender_Christian_Start notify Kalender_Christian:modeStarted.*googlecom.* {\ Kalenderstart("$EVENT");;\ } define Kalender_Christian_Ende notify Kalender_Christian:modeEnded.*googlecom.* {\ Kalenderende("$EVENT");;\ }
Um nicht für verschiedene Dummies immer einzelne Notifys zu bauen, wird hier bei mir je eine Funktion aus meiner 99_MyUtils.pm aufgerufen und das Event als Parameter übergeben. Die beiden zugehörigen Funktionen für den Start und das Ende des Kalenderevents schauen so aus:
sub
Kalenderstart ($)
{
my ($Ereignis) = @_;
my @Ereignisarray = split(/.*:\s/,$Ereignis);
my $Ereignisteil1 = $Ereignisarray[1];
my @uids = split(/;/,$Ereignisteil1);
foreach my $uid (@uids) {
my $Kalendertext = fhem("get Kalender_Christian summary uid=$uid 1");
if ($Kalendertext =~ /Urlaub/) {
fhem("set Urlaub_dummy ja");
}
if ($Kalendertext =~ /Besuch/) {
fhem("set Gast_dummy ja");
}
}
}
sub Kalenderende ($) {
my ($Ereignis) = @_;
my @Ereignisarray = split(/.*:\s/,$Ereignis);
my $Ereignisteil1 = $Ereignisarray[1];
my @uids = split(/;/,$Ereignisteil1);
foreach my $uid (@uids) {
my $Kalendertext = fhem("get Kalender_Christian summary uid=$uid 1");
if ($Kalendertext =~ /Urlaub/) {
fhem("set Urlaub_dummy nein");
}
if ($Kalendertext =~ /Besuch/) {
fhem("set Gast_dummy nein");
}
}
}
Zur Erläuterung: Als Ereignis wird z.B. "modeStarted: 9aas2amo7td47th4sf7mlocl48googlecom" oder bei 2 gleichzeitigen
Ereignissen: "modeStarted: arqpe2a2snu6qn64dt0men7nd0googlecom;j0pjiupfb1sk3m5s64hbeo6880googlecom"
übergeben. Da uns aber nur die eindeutige UID interessiert, wird das Ereignis beim Vorkommen der Zeichen ": Leerzeichen"
also nach modeStarted: geteilt (split(/.*:\s/,$Ereignis)
). Die beiden Teile werden in ein Array (@Ereignisarray
) gespeichert.
Und als 2. Element in dem Array ist nun die uns interessierende UID ($Ereignisarray[1]
) vorhanden, mit welcher wir weiter
arbeiten. Da auch mit dem Fall mehrerer gleichzeitiger Ereignisse umgegangen werden können soll, müssen wir bei mehreren
UIDs diese wieder splitten. Diesmal beim Vorkommen des Semikolons als Trennzeichen (split(/;/,$Ereignisteil1)
). Auch die
UIDs werden wieder in einem Array gespeichert und dann mittels der foreach-Schleife nacheinander abgearbeitet. Und
hierbei wird abhängig von der mittels UID abgerufenen Kalenderbeschreibung (fhem("get Kalender_Christian summary
uid=$uid 1")
) ein Vergleich auf die Werte "Besuch" oder "Urlaub" durchgeführt (if ($Kalendertext =~ /Urlaub/)
) und davon
abhängig der Dummy-Status gesetzt.
Abhängig von diesen Dummies reagiert dann meine Rollosteuerung.