Fenster offen -> nach 10 min. Mail

[Charles]

Hallo,

ich hab aus dem Wiki den folgenden Code. Ich möchte eine Benachrichtigung, wenn das Fenster länger als 10 min offen steht:

Code Auswählen Erweitern

#----------------- Mail Fenster offen 10 min ---------------------
define WarnungPerEMail notify SchlafKontakt.* {\
if(("%" !~ m/opened/) && (time > $main::NewMailtime)) {\
  {FB_Mail('xxx-1+nobody.strip@@api.prowlapp.com','Fenster offen!','@ %')};;\
  $main::NewMailtime = time + 600;;\
}\
}

dazu noch der Code für 99_myUtilis:

Code Auswählen Erweitern

sub
myUtils_Initialize($$)
{
my ($hash) = @_;
my $NewMailtime = time;
}


sub FB_mail {
  my $rcpt = $_[0];
  my $subject = $_[1];
  my $text = $_[2];
  system("/bin/echo \"$text\" > /var/tmp/fhem_nachricht.txt");
  system("/sbin/mailer send -i '/var/tmp/fhem_nachricht.txt' -s \"$subject\" -t \"$rcpt\"");
  system("rm /var/tmp/fhem_nachricht.txt");
}

Das funktioniert so nicht. Die Fehlermeldung lautet:

Code Auswählen Erweitern

2013.11.27 16:14:46 3: WarnungPerEMail return value: Undefined subroutine &main::FB_Mail called at (eval 419) line 1.

Der Pushservice in der FB ist angeschaltet.

Wo könnte denn der Fehler liegen?

Charles

[Ganneff]

    {FB_Mail('xxx-1+nobody.strip@@api.prowlapp.com','Fenster offen!','@ %')};;\
sub FB_mail {
[/code]

Das funktioniert so nicht. Die Fehlermeldung lautet:

Code Auswählen Erweitern

2013.11.27 16:14:46 3: WarnungPerEMail return value: Undefined subroutine &main::FB_Mail called at (eval 419) line 1.

Wo könnte denn der Fehler liegen?

Ich hab mal absichtlich sehr selektiv zitiert.

[Charles]

Hallo,

hab jetzt nur mal

Code Auswählen Erweitern

{FB_Mail('xxx-1+nobody.strip@api.prowlapp.com','Pumpe 10 min an!','@ %')} direkt an fhem geschickt.
Dieser Fehler wird gemeldet:
Undefined subroutine &main::FB_Mail called at (eval 1763) line 1.

Ich danke für Hilfe.
Charles

[Puschel74]

Hallo,

und an dem von Ganneff zitierten Beitrag fällt dir nichts auf?

Ich sag nur - FHEM ist case-sensitiv.

Undefined subroutine &main::FB_Mail called at (eval 1763) line 1.

Dieser Fehler ist normal und auch logisch das der kommt egal wie du die Mail aus FHEM schicken willst   

Grüsse

[Charles]

Hallo Puschel74,

da fiel es mir wie Schuppen aus den Augen!
Hab ich ausgebessert, aber noch nicht getestet.
Brauch ich den die Funktion FB_mail in meinen 99_myUtlilis?
Ist doch eigentlich schon in FritzBoxUtils drin, oder?

Danke
Charles

[Charles]

Die Mail-Funktion funktioniert jetzt, allerdings kriege ich gleich beim Fensteröffnen eine Mail und nicht erst 10 min. später. Die Bedingung ist noch nicht oK.

Code Auswählen Erweitern

if(time() > $main::NewMailtime) {\
  {FB_mail('xxx+1-nobody@@api.prowlapp.com','Fenster offen!','@ %')};;\
  $main::NewMailtime = time() + 600;;\
Ich hab mal hinter time die Klammern gemacht. Brauchte die denn nicht in PERL?

Charles

[Charles]

Hallo,

ich hab jetzt selber eine Lösung gefunden So sieht sie aus:

Code Auswählen Erweitern

#----------------- Mail Fenster offen 10 min ---------------------
define fenster_offen notify SchlafKontakt:opened {\
fhem("define at_offen_10 at +00:10 trigger fenster_offen_10") \
}
define fenster_zu notify SchlafKontakt:closed {\
  fhem("delete($data{fenster_offen_10})") \
}
define fenster_offen_10 notify fenster_offen_10 {\
FB_mail('xxx+1-nobody@@api.prowlapp.com','Fenster offen!','@ %') \
}
Scheint zu funktionieren!

Charles

[Charles]

Hallo,

es gibt doch eine Fehlermeldung, anscheinend ist hier ein Fehler:

Code Auswählen Erweitern

fhem("delete($data{fenster_offen_10})") \
Log:
2013.11.28 17:14:46 3: delete() : Unknown command delete(), try help.

Wie gehts denn richtig?

Charles

[gemx]

Gibt es einen Grund warum du sowas per notify und vergleichsweise komplizierten nachfolge Funktionen baust?

Genau für so eine Aufgabe gibt es doch das Watchdog modul.
z.B.

Code Auswählen Erweitern


define fenster_zu_lang_offen watchdog *.opened 00:10:00 *.closed {FB_mail('xxx+1-nobody@@api.prowlapp.com','Fenster offen!','@ %')}

Steht auch in der commandref.
Sollte doch genau das sein was du suchst oder?

[OiledAmoeba]

Ich habe es auch per watchdog gelöst. Ein notify brauchst du aber trotzdem noch. Beim Fenster_zu Event muss der den watchdog mit [watchdog Name .]  wieder zurücksetzen. Sonst löst der nur einmal aus und dann nie wieder...

Gesendet von meinem GT-I9100 mit Tapatalk

[Charles]

Hallo,
auch noch Baustelle,

hab mein funktionierendes Skript gegen den Vorschlag ausgetauscht, den Code hab ich aus dem Fhem-Wiki

Code Auswählen Erweitern


define fenster_offen watchdog SchlafKontakt:opened 00:10 SchlafKontakt:closed {\
FB_mail('xxx+1-nobody@@api.prowlapp.com','Schlafzimmerfenster steht noch offen!','@ %') \
}
attr fenster_offen regexp1WontReactivate 1

Wie gesagt, geht nicht, wobei ich die letzte Zeile überhaupt nicht verstehe.
Wäre auch hier erfreut über jemanden, der mir den Fehler zeigt

Danke
Charles

[Puschel74]

Hallo,

Wie gesagt, geht nicht,

Geht nicht gibts nicht.
Fehlermeldung aus dem FHEM-LogFile?

Grüße

[ThorstenH]

Ich habe noch ein

fhem("setstate watchdog_window_open_threestatesensor_wohnzimmer_fenster_mitte defined");

Um den watchdog sofort nach der Mail wieder zu aktivieren.

[Charles]

Hallo Puschel74,

hab jetzt mal das Log durchforstet nach dem Ansprechen des watchdogs und hab gefunden, dass das Skript doch funktioniert:

Code Auswählen Erweitern

2013.12.08 2013.12.08 13:14:41 3: MaxScan_Shutter_Notify SchlafKontakt onoff: 1
2013.12.08 13:22:08 3: Watchdog fenster_offen triggered
2013.12.08 13:22:11 3: Mail sent to xxx+1-nobody@@api.prowlapp.com

Vielleicht ist die Mailadresse falsch (den Fehler finde ich!), also ein nicht fhem-Problem. Das hilft mir jetzt sehr viel weiter, weil ich weiß, daß das Skript oK ist!

Ist es denn so, dass die letzte Zeile den Watchdog wieder reaktiviert oder muss ich da noch was dazufügen wie von ThorstenH vorgeschlagen?

Danke Charles

[Puschel74]

Hallo,

da ich watchdog nicht verwende kan ich dir diesbezüglich nichts sagen ausser ...
Probieren geht über studieren 

Aber schön das FHEM wohl was gemacht hat.

Grüße

[ThorstenH]

Hier ist das vollständige define:

Code Auswählen Erweitern


define watchdog_window_open_threestatesensor_kueche_fenster_links watchdog threestatesensor_kueche_fenster_links:open 00:30:00 threestatesensor_kueche_fenster_links:closed  {\
  system("/volume1/addons/fhem/bin/sendmail.sh", "Kuechenfenster ist offen!", "Das linke Kuechenfenster ist offen.");;\
  fhem("setstate watchdog_window_open_threestatesensor_kueche_fenster_links defined");;\
}
attr watchdog_window_open_threestatesensor_kueche_fenster_links regexp1WontReactivate


Nur meinen Mailversand mache ich mit einem bash skript.

[Charles]

Hallo ThorstenH,

habe die zusätzliche Zeile für mich angepasst und eingebaut. Werde ich morgen mal testen.
Danke für die Hilfe!

Charles

[strauch]

Funktioniert das eigtl. auch mit FHTTK Fenster Sensoren, die melden ja regelmäßig offen, aber mit der Variablen: regexp1WontReactivate sollte das doch dann einfach ignoriert werden oder? Macht da eine Schleife Sinn die das abfängt. Ich hab sowohl HM als auch FHT TürFensterkontakte und ich bastel gerade an einer Lösung für beides. Ich glaube sowas wäre auch mal im Wiki gut, die da drin ist, ist schon sehr umständlich.

Ich teste das heute Abend mal mit meinen HM Sensoren.

[strauch]

Ich hab gestern Abend mal ein wenig gebastelt. Es funktioniert, aber es gibt 2 Dinge die mich an dem Code wundern, vielleicht kann da noch mal jemand drauf schauen.

Ich hab eine Variante für HM-SEC-SC und eine für FHTTK:

Code Auswählen Erweitern

define watchdog_hm_Fenster watchdog hm_Fenster:open 00:30 hm_Fenster:closed {\
eMail('email@adresse.de','FHEM: Fenster zu lange offen','Homematic Fenster zu lange offen');;\\
fhem('setstate watchdog_hm_Fenster defined');;\\
}
attr watchdog_hm_Fenster regexp1WontReactivate 1


Code Auswählen Erweitern

define watchdog_fhttk_Fenster watchdog fhttk_Fenster:Window:.Open 00:30 fhttk_Fenster:Window:.Closed {\
eMail('email@adresse.de','FHEM: Fenster zu lange offen','FHTTK Fenster zu lange offen');;\\
fhem('setstate watchdog_fhttk_Fenster defined');;\\
}
attr watchdog_fhttk_Fenster regexp1WontReactivate 1

Warum brauche ich hier kein doppeltes @ in der Mailadresse? Und warum klappt das obwohl ich keinerlei ; gesetzt habe? Müsste das nicht am ende einer Funktion? Ich will aber auch keine Zeichen setzten die unnötig sind. Kann das vielleicht noch jemand für das MAX System anpassen, muss es da vielleicht wie bei HM sein nur opened heißen?

Für Max:

Code Auswählen Erweitern

define watchdog_max_Fenster watchdog max_Fenster:opened 00:30 max_Fenster:closed {\
eMail('email@adresse.de','FHEM: Fenster zu lange offen','MAX! Fenster zu lange offen');;\\
fhem('setstate watchdog_max_Fenster defined');;\\
}
attr watchdog_max_Fenster regexp1WontReactivate 1


Dann würde ich die E-Mail verschicken noch in eine Funktion auslagern für die myUtils Datei, dann brauch man die nicht für jeden Watchdog einzeln definieren. Und dann würde ich das ganze mal für das Wiki aufbereiten.

[extraem]

Hallo

ich hätte jetzt gerne noch eine Benachrichtigung wenn das Fenster wieder geschlossen wurde (wenn es zuvor länger als x offen war)

Reicht es wenn ich den Befehl von open auf closed und umgekehrt ändere

[justme1968]

man muss den watchdog wieder reaktivieren.

normalerweise macht man das mit

Code Auswählen Erweitern

trigger <watchdog> . am ende der routine die ausgeführt werden soll.

gruss
  andre

[extraem]

mein watchdog zur Meldung nach 20 Minuten Fenster offen sieht so aus

Code Auswählen Erweitern

define fenster_offen_badog watchdog OG_BAD_WS:offen 00:20 OG_BAD_WS:geschlossen {\
prowl('Bad OG Fenster steht noch offen!','Bad OG Fenster steht noch offen!') \
fhem('setstate fenster_offen_badog defined');;\
}
attr fenster_offen_badog regexp1WontReactivate 1

und was brauche ich damit ich eine Meldung bekomme wenn das Fenster wieder geschlossen wird

[Charles]

Hallo,

mein Skript sieht genauso aus und es funktioniert hervorragend. Hab heute das Fenster ganz vergessen. Da kamen dann stündlich Erinnerungsmails.
Warum die dann stündlich kamen, weiss ich nicht.
trigger <watchdog> ist bei mir anscheinend nicht nötig. Wahrscheinlich genügt der setstate-Befehl den watchdog zu reaktivieren

Zum Fenster_zu Mail Problem würde ich sagen, Du schreibst dir einen extra watchdog oder ein notify für "Fenster schliessen".

Charles

[strauch]

und was brauche ich damit ich eine Meldung bekomme wenn das Fenster wieder geschlossen wird

ein notify nur genau andersherum

Code Auswählen Erweitern


[code]define fenster_geschlossen_notify notify OG_BAD_WS:geschlossen  {\
prowl('Bad OG Fenster ist jetzt geschlossen!','Bad OG Fenster ist wieder geschlossen!'); \
}

[extraem]

das hatte ich schon versucht aber da bekomme ich alle 30 s eine Nachricht das das Fenster geschlossen ist auch wenn es zuvor gar nicht offen war

Gibt es keine Lösung bei der nur eine Nachricht kommt und auch nur dann wenn sich der Status von offen auf geschlossen ändert

Danke

[justme1968]

genau dafür ist watchdog da. eventuell auch threshold wenn du etwas für beide richtungen suchst.

gruss
  andre

[c2j2]

Besser spät als garnicht

a) Merker, ob der Text ausgegeben wurde:

Code Auswählen Erweitern


defmod FensterTestStatusWarnung dummy


b) erzeuge ein "at", wenn ein Fenster (beginnen alle mit "Fenster_" bei mir) [ausgenommen Kinderzimmer] geöffnet wird. Jedes Fenster hat bei mir ausserdem einen "comment" mit dem Namen zum Vorlesen. Die Warnung wird 5 mal, alle 5 Minuten, ausgegeben.

Code Auswählen Erweitern


defmod di_Fenster_opened DOIF (["^Fenster_(?!kinder):open"] and [Meteo_Temperatur] < 15)     (defmod di_$DEVICE_warnung at +*{5}00:05 setreading FensterTestStatusWarnung $DEVICE 1;;;;set MyTTS tts Das Fenster {(AttrVal("$DEVICE","comment","$DEVICE"))} ist schon seit mindestens 5 Minuten offen)


c) löscht das "at", wenn ein Fenster wieder geschlossen wird, und gibt " Danke" aus, wenn es schon mal gewarnt hat:

Code Auswählen Erweitern


defmod di_Fenster_closed DOIF (["^Fenster_:close"] and defined($defs{"di_$DEVICE_warnung"})) (delete di_$DEVICE_warnung, IF ([FensterTestStatusWarnung:$DEVICE] > 0) (setreading FensterTestStatusWarnung $DEVICE 0, set MyTTS tts Danke))


Hat mich ein paar Stunden meines Lebens gekostet Aber über diesen Trick bekommt mal den Check für alle Fenster auf ein Mal.

[bioklima]

Ich habe diesen Schnipsel auf eine Sonos-Ansage umgebogen. Nach der Warnmeldung über das offene Fenster wird die aktuelle Musik fortgesetzt, nach dem "Danke" jedoch nicht. Ich bekommen nicht heraus, woran das liegt. Vielleicht hat jemand von Euch eine Idee:

Code Auswählen Erweitern

define di_Fenster_opened DOIF (["^zwFenster_(?!ELW_Bad):open"] and [netatmo_M02_00_00_02_20_c2:temperature] < 7) (defmod di_$DEVICE_warnung at +*{5}00:05 setreading FensterTestStatusWarnung $DEVICE 1;;;; set Sonos_Wohnzimmer Speak1 45 de-DE Das Fenster {(AttrVal("$DEVICE","comment","$DEVICE"))} ist schon seit mindestens 10 Minuten offen;; set zwSonosWZ_sw on)


define di_zwFenster_closed DOIF (["^zwFenster_(?!ELW_Bad):close"] and defined($defs{"di_$DEVICE_warnung"})) (delete di_$DEVICE_warnung, IF ([FensterTestStatusWarnung:$DEVICE] > 0) (setreading FensterTestStatusWarnung $DEVICE 0, set Sonos_Wohnzimmer Speak1 35 de-DE Danke))


[eddso]

Hallo,
habe versucht das nachzubauen leider klappt der at gar nicht:

Code Auswählen Erweitern


defmod di_FensterStatusOpened (["^Fenster_:open"] and [_WEATHER:temperature] < 15) (defmod at_$DEVICE_warnung at +*{5}00:05 setreading dm_FensterStatusWarnung $DEVICE 1;;;; set _TELEGRAM send @@eddso36 Das Fenster {(AttrVal("$DEVICE","comment","$DEVICE"))} ist schon seit mindestens 5 Minuten offen)

Value des Readings sieht dann so aus:

Code Auswählen Erweitern


1; set _TELEGRAM send @@eddso36 Das Fenster Fenster_HWR ist schon seit mindestens 5 Minuten offen

also es wird nicht als 2 Befehle interpretiert.
Wo liegt das Problem?

Und mal eine generelle Frage: ist es good practices so was mit at zu lösen. Es werden permanent neue at angelegt und gelöscht was die liste 'Last unsaved structural changes:' auf der Seite unter Save Config ? schnell ziemlich lang macht und suggeriert als ob ich was in der Config vergessen habe zu speichern.

Gruß Edu

[amenomade]

Mach das nicht mit einem at, sondern mit dem "wait" Attribut von DOIF
https://fhem.de/commandref_DE.html#DOIF_wait

Und mit Aggregationsfunktion des DOIFs kannst Du alle auf einmal in einem Nachricht packen.
https://fhem.de/commandref_DE.html#DOIF_aggregation

Alternative im Perl-Modus des DOIFs mit https://fhem.de/commandref_DE.html#DOIF_set_Exec

Alternative über Watchdog.

Das setzen von ATs ist ja doof wegen "save"

[andies]

Ich lasse die Nachricht nach einer Weile auch löschen und prüfe vorher, wie kalt es draussen ist bzw was die vorhergesagte Minimaltemperatur des Tages ist. Dann kriege ich eine Telegramnachricht die mir anbietet, mit einem Kurzbefehl (hier /o2) noch eine Mail zu versenden:

Code Auswählen Erweitern


defmod BadUntenfensterMail DOIF ([BadUntenfenster:state] =~ "open" and [BresserTemeo_1:temperature]<12 and [MeinWetter:fc0_tempMax]<14) (set TelegramBot _msg Badezimmerfenster unten ist offen! [emoji394] mit /o2;;sleep 2;; defmod BaduntenMailWeg at +1:00:00 set TelegramBot msgDelete [TelegramBot:sentMsgId])




Gesendet von iPad mit Tapatalk Pro

[eddso]

Danke für die Anregungen,
die Aufgabe ist ja im Beitragnamen. Lösungen:
a) Habe zuvor mit einem watchdog für alle Fenster hantiert das Problem war das ich im <command> watchdog keine Variablen wie $DEVICE, $EVENT, usw. benutzen kann und damit nicht weis von welchem Fenster der Event kommt. Watchdog wäre eigentlich das richtige dafür.
Damit bleibt mit watchdog nur die Lösung für jedes Fenster eigenen watchdog:

Code Auswählen Erweitern


define wd_Fenster_HWR watchdog Fenster_HWR:contact:.open 00:05:00 Fenster_HWR:contact:.close {
if ( ReadingsVal('_WEATHER', 'temperature', 25) < 15 ) {
    fhem('set _TELEGRAM send @@eddso36 Das Fenster HWR ist schon seit mindestens 5 Minuten offen')
}
}


b) Immer AT Devices anlegen ist nicht zweckmäßig.

c) DOIF kann das <command> verzögern aber falls das Fenster innerhalb der erlaubter Zeit offen ist dann wird das DOIF trotzdem ausgeführt was nicht erwünscht ist. Ich hoffe das die laufenden verzögerten DOIFs stören sich nicht untereinander da habe ich wenig Erfahrung mit. Etwa so: nach wait 5 min noch mal prüfen ob Fenster immer noch offen erst dann Senden.

Code Auswählen Erweitern


defmod di_FensterStatusOpened DOIF (["^Fenster_:open"] and [_WEATHER:temperature] < 15) {
if ( ReadingsVal($DEVICE, 'contact', 'close') eq 'open' ) {
    fhem("set _TELEGRAM send @@eddso36 Das Fenster $DEVICE ist schon seit mindestens 5 Minuten offen")
}
}
attr di_FensterStatusOpened wait 300


Würde die Variante c) Probleme machen? Ist das $DEVICE immer vom richtigem Gerät? Fehlauslösung sehe ich nur wenn ich Fenster für 1 min öffne und nach 4 Minuten wieder für 1 Minute öffne.
Gibt es noch jemanden der es schöner gelöst hat?
MfG Edu

[amenomade]

DOIF kann das <command> verzögern aber falls das Fenster innerhalb der erlaubter Zeit offen ist dann wird das DOIF trotzdem ausgeführt was nicht erwünscht ist.

Nicht wenn eine Zustandsänderung erfolgt. In dem Fall wird der Timer abgebrochen, und das Kommando nicht ausgeführt.

Das flexibelste ist warhscheinlich DOIF im Perl Modus mit set_Exec wie schon erwähnt: Du kannst genannte Timers pro Device setzen und löschen. Es gibt sogar im CommandRef ein Beispiel, was ungefähr macht, was Du möchstest: siehe "Verzögerte Fenster-offen-Meldung mit Wiederholung für mehrere Fenster"

[eddso]

vielen dank amenomade, das ist wirklich guter schubs an die richtige stelle. Das Teste ich mal.
MfG Edu