Keine Meldung wenn das Fenster geschlossen ist

[holzwurm83]

Hallo zusammen,

sorry wenn ich das Thema anschneiden muss, aber irgendwie stehe ich da voll auf dem Schlauch.

Ich habe mir ein DOIF eingerichtet welches mir eine verzögerte Meldung ausgeben soll, wenn ein Fenster offen ist. Mein problem ist allerdings, dass wenn innerhalb der Zeit das Fenster geschlossen wurde ich trotzdem eine Meldung bekomme, die ich aber nicht mehr benötige. Das heißt, wenn innerhalb der Verzögerung das Fenster wieder geschlossen wird soll keine Meldung mehr gesendet werden.

Code Auswählen Erweitern

defmod di_window_open DOIF ([".*_Fenster_.*:open"]) (set teleBot _msg  Fenster $DEVICE schließen)
attr di_window_open do resetwait
attr di_window_open repeatcmd 900
attr di_window_open repeatsame 3
attr di_window_open room Setup
attr di_window_open wait 900

[CoolTux]

Dir fehlt eine Abbruchbedingung. Also ein zweiter Zweig. DOELSEIF

[holzwurm83]

Dann heb ich da wohl was falsch gemacht. Ich hatte das mit

setreading di_window_open wait_timer no timer

probiert, aber das hat nichts gebracht, oder wie muss dieser Zweig in dem Fall genau aussehen?

[CoolTux]

Da muss mal jemand mit Ahnung ran. Das Problem ist ja das du sicherlich den Abbruch haben willst wenn genau dieses Fenster geschlossen wird und nicht irgendein anderes.
Auf jeden Fall muss da eine Abbruchbedingung rein.

[Newbie]

Schon mal in die Commandref geschaut?

da gibt es zum Beisoiel das hier:

Verzögerte Fenster-offen-Meldung mit Wiederholung für mehrere Fenster

Code Auswählen Erweitern

define di_window DOIF
subs {
  sub logwin {                                       # Definition der Funktion namens "logwin"
    my ($window)=@_;                                 # übernehme Parameter in die Variable $window
    Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
    set_Exec ("$window",1800,"logwin",$window);      # setze Timer auf 30 Minuten für eine wiederholte Meldung
  }
}
{ if (["_window$:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")')}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
{ if (["_window$:closed"]) {del_Exec ("$DEVICE")}}                       # wenn, Fenster geschlossen wird, dann lösche Timer

Sollte sich doch leicht an deine Bedürfnisse anpassen lassen.

[holzwurm83]

Danke dir, dass habe ich im Commandref auch gefunden, habe es nur nicht hinbekommen und wollte es eigentlich relativ einfach halten

[holzwurm83]

So, ich habe ich das jetzt einmal umgebaut und ausprobiert.

Code Auswählen Erweitern

define di_window DOIF
subs {
  sub logwin {                                       # Definition der Funktion namens "logwin"
    my ($window)=@_;                                 # übernehme Parameter in die Variable $window
    Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
    set_Exec ("$window",1800,"logwin",$window);      # setze Timer auf 30 Minuten für eine wiederholte Meldung
  }
}
{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")')}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
{ if ([".*_Fenster_.*:closed"]) {del_Exec ("$DEVICE")}}                       # wenn, Fenster geschlossen wird, dann lösche Timer

Soweit scheint das jetzt doch zu funktionieren.

Was ich nur noch nicht verstehe, wie ich die Meldung

Code Auswählen Erweitern

set teleBot _msg  Fenster $DEVICE schließen
da einbauen soll

[Newbie]

Code Auswählen Erweitern


....
{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")','fhem_set("teleBot _msg  Fenster $DEVICE schließen")')}}
....


[Damian]

Code Auswählen Erweitern


....
{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")','fhem_set("teleBot _msg  Fenster $DEVICE schließen")')}}
....


Das dürfte nicht funktionieren, da an dieser Stelle optional ein Parameter für die davor angegebene Funktion übergeben wird.

Entweder die Funktion logwin erweitern:

subs {
  sub logwin {                                       # Definition der Funktion namens "logwin"
    my ($window)=@_;                                 # übernehme Parameter in die Variable $window
    Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
    fhem_set("teleBot _msg  Fenster $window schließen");
    set_Exec ("$window",1800,"logwin",$window);      # setze Timer auf 30 Minuten für eine wiederholte Meldung
  }
}

Dann wird die Meldung allerdings wiederholt.

Oder einmalig mit einem eigenen Timer z. B. 20 Minuten nach dem Öffnen:

Code Auswählen Erweitern

{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")');set_Exec ("$DEVICE_teleBot",1200,'fhem_set("teleBot _msg  Fenster $DEVICE schließen")')}}

[holzwurm83]

Hallo Damian,

ich habe nun beide Versionen ausprobiert. Ich bekomme leider einen Fehler angezeigt:

Code Auswählen Erweitern

in logwin("WZ_Fenster_OST_L"): syntax error at (eval 3016413) line 1, near ")("

Das war meine letze version, die ich ausprobiert habe:

Code Auswählen Erweitern

define di_window DOIF
subs {
  sub logwin {                                       # Definition der Funktion namens "logwin"
    my ($window)=@_;                                 # übernehme Parameter in die Variable $window
    Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
fhem_set("teleBot _msg  Fenster $window schließen");
    set_Exec ("$window",30,"logwin",$window);      # setze Timer auf 30 Minuten für eine wiederholte Meldung
  }
}
{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",10,'logwin("$DEVICE")')}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
{ if ([".*_Fenster_.*:closed"]) {del_Exec ("$DEVICE")}}                       # wenn, Fenster geschlossen wird, dann lösche Timer

[Damian]

Ersetze mal

Code Auswählen Erweitern

{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",10,'logwin("$DEVICE")')}}

durch

Code Auswählen Erweitern

{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",10,'logwin',"$DEVICE")}}

[holzwurm83]

Hi,

habe das so ausgetauscht und habe nun folgendes im DEF stehen:

Code Auswählen Erweitern

subs {
  sub logwin {                                       # Definition der Funktion namens "logwin"
    my ($window)=@_;                                 # übernehme Parameter in die Variable $window
    Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
fhem_set("teleBot _msg  Fenster $window schließen");
    set_Exec ("$window",1800,"logwin",$window);      # setze Timer auf 30 Minuten für eine wiederholte Meldung
  }
}
{ if ([".*_Fenster_.*:open"]) {set_Exec ("$DEVICE",600,'logwin',"$DEVICE")}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
{ if ([".*_Fenster_.*:closed"]) {del_Exec ("$DEVICE")}}                       # wenn, Fenster geschlossen wird, dann lösche Timer

allerdings hat er nun in der Zeile 5 einen weiteren Fehler.

Code Auswählen Erweitern

in logwin: Undefined subroutine &main::fhem_set called at (eval 3064334) line 5.

[Damian]

Ich vermute, dass du eine alte DOIF-Version hast. Die letzte ist von gestern.

[holzwurm83]

Ich vermute, dass du eine alte DOIF-Version hast. Die letzte ist von gestern.

Danke dir, dass war der entscheidende Punkt....