Licht bei Bedingungen einschalten

Aufgabe

Es soll unter bestimmten Bedingungen beim Öffnen einer Tür das Licht eingeschaltet werden. An der Haustür ist dazu ein Tür-Kontakt angebracht.

Wenn die Tür geöffnet wird (doorContact = on) soll das Licht in der Wohnung angeschaltet werden, allerdings nur, wenn folgende Bedingungen zutreffen:

es ist 30 Minuten nach Sonnenuntergang (es ist dunkel)
innerhalb der letzten 20 Minuten wurde der Lampenstatus nicht auf "off" gesetzt

Die zweite Bedingung soll erreichen, dass das Licht nicht eingeschaltet wird, wenn jemand es manuell vor kurzem ausgeschaltet hat. Es soll insbesondere verhindert werden, dass beim Verlassen des Gebäudes das Licht wieder eingeschaltet wird, weil z.B. beim Verschließen die Tür noch mal kurz geöffnet wird.

Script

define storeLastOff notify .*:off { $data{lastOffTime} = time() } 
define sunSetOn notify doorContact:on { \ 
 if($data{lastOffTime}+20*60 < time() &&\ 
   sunset_abs(1800) lt sprintf("%02d:%02d", $hour, $min)) {\ 
  fhem "set light on";;\ 
 }\ 
}

Erläuterungen

Die Zeitangaben sind in Sekunden, sunset_abs(1800) entspricht also den geforderten 30 Minuten.

sprintf ist ein PERL Befehl, der aus den Variablenwerten aktuelle Stunde ("hour") und aktuelle Minute ("min") einen formatierten String erzeugt.

Konkret würde der Befehl:

sprintf("%02d:%02d",$hour,$min)

die Werte von "hour" und "min" auslesen und daraus einen Uhrzeitstring wie 20:31 bauen.

%02d erzeugt dabei eine ganzzahlige Nummer, die auch 2 führende Nullen haben kann (z.b. für Mitternacht),

wobei

%d = ganzzahlige Nummer (im Gegensatz z.b. zu %f = dezimale Ziffer mit Nachkommastellen)
02 = zwei führende Nullen (im Gegensatz z.b. zu .3= drei Nachkommastellen)

definiert.

Diese genaue Formatierung ist wichtig, weil ansonsten z.B. 09:02 Uhr beim blossen Zusammenfügen der "hour" und "min" Variablen zu 9:2 Uhr führen würde und der Vergleich mit der Uhrzeit die sunset_abs ausgibt scheitern würde, da 09:02 ungleich 9:2 ist.

Für weitere Details siehe z.b. hier:

PERL Dokumentation http://perldoc.perl.org/functions/sprintf.html
Notify-Section in FHEM commandref/notify