Presence mit at

[schrader]

ok habe es so geändert
define Film2 notify TV.* {\
   my $now = sprintf("%%02d:%%02d",$hour,$min);;\
   my $TV = Value("TV");;\
   Log 3, "Zeit $now ,Status $TV";;\
 if (($TV eq "present") && ($now gt "20:15:00")) {\
     fhem("set TV_Licht on") if(Value("TV_Licht") ne "on")\
     Log 3, "Licht anschalten....";;\
 } else {\
     fhem("set TV_Licht off") if(Value("TV_Licht") ne "off")\
     Log 3, "Licht ausschalten....";;\
 }\
}

von
define Film2 notify TV.* {\
   my $now = sprintf("%%02d:%%02d",$hour,$min);;\
   my $TV = Value("TV");;\
   Log 3, "Zeit $now ,Status $TV";;\
 if (($TV eq "present") && ($now gt "20:15:00")) {\
     fhem("set TV_Licht on");;\
     Log 3, "Licht anschalten....";;\
 } else {\
     fhem("set TV_Licht off");;\
     Log 3, "Licht ausschalten....";;\
 }\
}

aber es kommt
2013.05.26 19:21:46 3: Film2 return value: syntax error at (eval 30565) line 1, near ")      Log "
syntax error at (eval 30565) line 1, near ")      Log "

2013.05.26 19:22:19 3: Film2 return value: syntax error at (eval 30569) line 1, near ")      Log "
syntax error at (eval 30569) line 1, near ")      Log "

2013.05.26 19:22:52 3: Film2 return value: syntax error at (eval 30573) line 1, near ")      Log "
syntax error at (eval 30573) line 1, near ")      Log "

[Puschel74]

Hallo,

klar kommt die Fehlermeldung.

Du hast die Änderung auch falsch von mir übernommen.
Es fehlen die ;; am Ende der Zeile(n).

Grüße

[schrader]

sorryyyyyyy....
so sollte jetzt richtig sein jetzt taucht nur noch dieses im LOG auf
2013.05.26 19:42:42 3: Zeit 19:42 ,Status present
2013.05.26 19:42:42 3: Licht ausschalten....
2013.05.26 19:43:15 3: Zeit 19:43 ,Status present
2013.05.26 19:43:15 3: Licht ausschalten....
2013.05.26 19:43:48 3: Zeit 19:43 ,Status present
2013.05.26 19:43:48 3: Licht ausschalten....
2013.05.26 19:44:21 3: Zeit 19:44 ,Status present
2013.05.26 19:44:21 3: Licht ausschalten....

das heist für mich das er zwar war nimmt das der TV present ist aber keine Sende aktion auf das TV_Licht ausführt oder....
Also auch kein Funkkontingent verbraucht wird....

[Zrrronggg!]

Diese ;; hier

Log 3, "Licht ausschalten....";;\
}\
}

kannst du weglassen, die anderen nicht.

Die am Ende sind überflüssig, da die Semikolons ja Befehle voneinander trennen. Wenn nach dem letzten nix mehr zum trennen kommt, braucht man auch keine Trennzeichen mehr.

[Puschel74]

Hallo,

Code Auswählen Erweitern

define Film2 notify TV.* {\
my $now = sprintf("%%02d:%%02d",$hour,$min);;\
my $TV = Value("TV");;\
Log 3, "Zeit $now ,Status $TV";;\
if (($TV eq "present") && ($now gt "20:15:00")) {\
fhem("set TV_Licht on") if(Value("TV_Licht") ne "on");;\
# Log 3, "Licht anschalten...."\
} else {\
fhem("set TV_Licht off") if(Value("TV_Licht") ne "off");;\
# Log 3, "Licht ausschalten...."\
}\
}

Das meinte Zrrronggg! mit den ;; am Ende vor der }
Und wenn du noch ein # vor das Log setzt hast du auch nichtmehr soviel Logeinträge - da der Code ja funktioniert.

Grüße

[MisterEltako]

Die Logfiles dienen in erster Linie dazu das Problem/Fehler einzugrenzen. Danach kann man sie löschen.Ich persönlich würde es so verändern, da ich gern verfolge, was so passiert und mit welchen Werten. Aber da hat jeder seinen eigenen Geschmackm

define Film2 notify TV.* {\
my $now = sprintf("%%02d:%%02d",$hour,$min);;\
my $TV = Value("TV");;\
if (($TV eq "present") && ($now gt "20:15:00") && (Value("TV_Licht") ne "on")) {\
fhem("set TV_Licht on");;\
Log 3, "Licht anschalten....Zeit $now, Status $TV";;\
} elsif (Value("TV_Licht") ne "off"){\
fhem("set TV_Licht off");;\
Log 3, "Licht ausschalten....Zeit $now, Status $TV";;\
}\
}

MfG, MisterEltako.