TwiLight Notify springt nicht an

[Carsten K.]

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.

Code Auswählen Erweitern

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:

Code Auswählen Erweitern

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

[Dietmar63]

Du musst die Funktion TwiLightEvent($$) im define auch aufrufen

[Carsten K.]

HILFE - BIN ICH BLIND !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

Danke schön