[Gelöst] Alarmanlage, Abfrage und Ausgabe der Sensoren, die Alarm auslösen

[Gueco315]

Hallo Zusammen,

ich habe eine Alarmanlage mit Fhem Hausmitteln programmiert, läuft soweit prima.
Durch Nutzung einer Vielzahl von Homematic Tür- und Fenstersensoren habe ich 3 Structures gebildet.
Eins für die Aktoren im Keller, ein zweites für die im Erdgeschoss und für die beiden Zusammen ein Homestrucure.
Bei Aktivierung des Dummys Alarmanlage_scharfstellen, frage ich den Homestruc auf "geschlossen" ab. Es melden sich die Sensoren, die auf sind, somit verhindere ich die AKtivierung der Alarmanlage, weil diese nur auf on geht wenn alles Fenster und Türen geschlossen sind. So weit so gut.

Nun zu meinem Problem, meiner Frage:
Die Sensoren haben alle Bezeichnungen wie KG_FK_Keller_Li zum Beispiel. Bedeutet: Sensor Fenster Kellerraum links.
Pushover meldet mir dann den Aktor mit diesem Namen. Auch im Fall eines Einbruchs.

Gerne hätte ich die Ausgabe des Alias(da passt der Name) oder kann ich feste readings für die Sensoren bilden oder muss ich eine Routine schreiben.
Denn im Schlafzimmer lasse ich mir bei dem Squeezebox Radio auch die Einbruchsstelle mitteilen.

Bin für jeden Denkansatz dankbar.

Gruß GÜnter


ich habe folgendes Problem:

[MadMax-FHEM]

Pushover meldet mir dann den Aktor mit diesem Namen. Auch im Fall eines Einbruchs.

Gerne hätte ich die Ausgabe des Alias(da passt der Name) oder kann ich feste readings für die Sensoren bilden oder muss ich eine Routine schreiben.

Wie machst du die pushover-Nachricht bzw. die Ansage?

Einfach "dort" ein AttrVal($name, "alias", "n.a.) einbauen. Bzw. je nachdem wie/wo du das machst auch statt $name $DEVICE oder $NAME oder oder oder...

Gruß, Joachim

[Gueco315]

Hallo Joachim,

vielen Dank für die schnelle Antwort.

Beim Aktivieren der Alarmanlage frage ich das wie folgt ab:

Code Auswählen Erweitern

Alarm:on IF ([Hausfenster:state] eq "closed") (set Pushover msg 'ALARMANLAGE' '-> ist scharf geschaltet!!!!' '' 1 '') ELSE
(set Pushover msg 'ALARMANLAGE' '-> Deaktiviert! Erst [Hausfenster:LastDevice_Abs] schließen!!!!' '' 1 '', sleep 2, set Alarm off)

[Gueco315]

.. wie sieht der Code dann konkret aus?

[MadMax-FHEM]

Naja, ich nutze "setmagic" nicht aber ich denke evtl. so und ich nutze auch kein DOIF, von daher wiß ich nicht wie es da "nach Perl geht", aber evtl. so ähnlich:

Code Auswählen Erweitern

({my $DevName=ReadingsVal("Hausfenster", "LastDevice_Abs", "n.a."); $DevName=AttrVal($DevName, "alias", "n.a."); fhem("set Pushover msg 'ALARMANLAGE' '-> Deaktiviert! Erst $DevName schließen!!!!' '' 1 ''; sleep 2; set Alarm off")})

Evtl. geht auch:

Code Auswählen Erweitern

({my $DevName=AttrVal(ReadingsVal("Hausfenster", "LastDevice_Abs", "n.a."), "alias", "n.a."); fhem("set Pushover msg 'ALARMANLAGE' '-> Deaktiviert! Erst $DevName schließen!!!!' '' 1 ''; sleep 2; set Alarm off")})

Wie gesagt, keine Ahnung wie bei DOIF Perl geht...
In einem notify wäre es ohne die äußeren runden Klammern...

Evtl. ins passende Unterforum zu DOIF verschieben...

Gruß, Joachim

[Gueco315]

Hallo Joachim,

dank deiner Hilfe und ChatGPT läuft es jetzt:

Code Auswählen Erweitern

Alarm:on {
    my $DevName = AttrVal(ReadingsVal("Hausfenster", "LastDevice_Abs", "n.a."), "alias", "n.a.");

    if (ReadingsVal("Hausfenster", "state", "") eq "closed") {
        fhem("set Pushover msg ALARMANLAGE -> ist scharf geschaltet!!!!");
    } else {
        fhem("set Pushover msg ALARMANLAGE -> Deaktiviert! Erst $DevName schließen!!!!");
        sleep(2);
        fhem("set Alarm off");
    }
}
Danke nochmal.

Gruß Günter

[Beta-User]

Mach aus dem Perl-sleep ein fhem-sleep....

[Gueco315]

Code Auswählen Erweitern

Alarm:on {
    my $DevName = AttrVal(ReadingsVal("Hausfenster", "LastDevice_Abs", "n.a."), "alias", "n.a.");

    if (ReadingsVal("Hausfenster", "state", "") eq "closed") {
        fhem("set Pushover msg ALARMANLAGE -> ist scharf geschaltet!!!!");
    } else {
        fhem("set Pushover msg ALARMANLAGE -> Deaktiviert! Erst $DevName schließen!!!!");
        fhem("sleep 2");
        fhem("set Alarm off")
    }
}
Wie setzte ich den Beitrag auf Gelöst? Finde den Button nicht mehr

[TomLee]

Hallo,

ich meine das wird so nicht klappen, das sind drei Funktionen die einfach hintereinander abgearbeitet werden:

Code Auswählen Erweitern

        fhem("set Pushover msg ALARMANLAGE -> Deaktiviert! Erst $DevName schließen!!!!");
        fhem("sleep 2");
        fhem("set Alarm off")
Du musst einen fhem-Befehl draus machen:

Code Auswählen Erweitern

fhem("set Pushover msg ALARMANLAGE -> Deaktiviert! Erst $DevName schließen!!!!;sleep 2;set Alarm off");

Wie setzte ich den Beitrag auf Gelöst? Finde den Button nicht mehr

Im ersten Beitrag den Betreff aktualisieren.

[Beta-User]

dank deiner Hilfe und ChatGPT läuft es jetzt:

Auch eine KI ist nicht unfehlbar - was man nicht nur an der mangelnden Unterscheidung von FHEM-sleep und Perl-sleep sehen kann, sondern auch an dem hier:

Code Auswählen Erweitern

    my $DevName = AttrVal(ReadingsVal("Hausfenster", "LastDevice_Abs", "n.a."), "alias", "n.a.");Preisfrage: Was kommt da raus, wenn man keinen alias gesetzt hat?

(Lösungsansatz: Erst die Ausgabe von ReadingsVal() in eine Variable nehmen, und dann diese Variable auch als default-Rückgabe verwenden... Bekommt man vielleicht auch ohne KI hin.)

[Prof. Dr. Peter Henning]

ChatGPT ist auch nicht "eine KI". Sondern ein reines Sprachmodell. Wer um Himmels willen würde denn von einem Menschen, der nur gut Texte wiedergeben, aber nicht programmieren kann, die Lösung einer Programmieraufgabe erwarten? Es ist reiner Zufall, dass dies manchmal gut geht.

Bin für jeden Denkansatz dankbar.

Prima, also dann: Den eigenen Code als Lernerfahrung wegstecken und das Modul 95_Alarm.pm nutzen.

LG

pah