Hallöchen :)
ich möchte über TwiLight.light das Licht im WOhnzimmer einschalten.
Dazu habe ich das TwiLight-Modul und eine Funktion in 99_myUtils.pm.
sub TwiLightEvent($$)
{
my ($p1, $Ereignis) = @_;
my @Ereignisarray = split(/.*:\s/,$Ereignis);
my $Ereignisteil1 = $Ereignisarray[1];
my $tvIsOn = (ReadingsVal ("WohnzimmerTV", "presence", "none") eq "present");
my $tvIsOff = (!$tvIsOn);
my $tvCheckAfterTime = AttrVal("dum_TvLightCheck", "checkAfterTime", "");
Log 1, "TWILIGHT: p1=$p1 1=$Ereignisarray[1] 0=$Ereignisarray[0]";
if ($tvIsOff) { return; }
if ($tvIsOn && $p1 eq "light" && $Ereignisteil1 < 6)
{
fhem "set WohnzimmerTV ambiMode internal";
WzLichtEin();
}
# set ambilight off during daytime
if ($tvIsOn && $p1 eq "light" && $Ereignisteil1 >= 6)
{
fhem "set WohnzimmerTV ambiMode manual";
}
}
Das Notify habe ich wie folgt definiert:
Twi_Light:.* { LightEvent($EVTPART0, $EVENT) }
Da ich bereits etliche ähnliche Notify auf anderen Geräten habe, bin ich nun etwas verwirrt; der Event springt nicht an.
Ich hätte zumindest erwartet, dass ich die Log-Meldung bekomme :'(
Könnt Ihr mir einen Hinweis geben, was ich übersehe?
Viele Grüße
Du musst die Funktion TwiLightEvent($$) im define auch aufrufen
HILFE - BIN ICH BLIND !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :o
Danke schön