[GELÖST]Prüfen ob ein von X Fenstern geöffnet

[Tommi ratlos]

Hallo zusammen,

ich suche nach einer Möglichkeit bei 3x HM-SEC-SCO an einem Thermostat festzustellen, ob eines der Fenster offen ist.
Der Thermostat erkennt das, aber wie kann ich das in myutils99.pm verwenden?


Es Gibt:
HM_SEC_<NAME>_Fenster_1
HM_SEC_<NAME>_Fenster_2
HM_SEC_<NAME>_Tuer
Der Code ist natürlich nicht richtig

Code Auswählen Erweitern


my $r_window = (ReadingsVal("HM_SEC_".$name."_".*, "state", ""));



Oder wie kann ich analog zu einem Notify "HM_RT_<NAME>_WindowRec:trigLast" verwenden.


Stehe gerade auf dem Schlauch

Gruß
Thomas

[marvin78]

Einfach: structure mit allen 3 Fenstern und diese auswerten.


Etwas schwieriger: Perl, devspec2array, forach.

[Thorsten Pferdekaemper]

Hi,
wenn es immer nur genau die drei sind, dann kann man erst einmal die drei "fest verdrahtet" per ReadingsVal abfragen und die Ergebnisse mit "or" verknüpfen.
Wenn das ganze allgemein sein soll, dann wie schon gesagt erst einmal mit devspec2array die passenden Namen ermitteln und für jedes davon ReadingsVal aufrufen.
Gruß,
   Thorsten

[Tommi ratlos]

Hallo,

es geht um mehrere Räume mit je ein bis vier Fensterkontakten.
Ich lese mich gerade in "devspec2array" ein, hört sich vielversprechend an.

Gruß
Thomas

[CoolTux]

Code Auswählen Erweitern


devspec2array("(FensterKontakt.*):FILTER=room=Wohnzimmer")


Findet alle Devices mit Anfangsnamen Fensterkontakt im Raum Wohnzimmer.

[Tommi ratlos]

Hallo,

habe es jetzt so Gelöst

Code Auswählen Erweitern


my $name = "Bad";
my @winopen = devspec2array("TYPE=CUL_HM:FILTER=model=HM-SEC-SCo:FILTER=NAME=.*_".$name."_.*:FILTER=state!=closed");
if(@winopen > 0){
    Log3(undef, 1, "AUF");
}


Danke
Thomas

[Thorsten Pferdekaemper]

Hi,
funktioniert das wirklich? Laut Doku zu devspec2array gibt es das Argument zurück, wenn nichts gefunden wird. D.h. es steht in @winopen immer was drin. Ich habe das allerdings nicht ausprobiert, es ist mir nur in der Doku aufgefallen.
Gruß,
   Thorsten

[Tommi ratlos]

Hi,

ja geht 
Was sollte denn dann Drinstehen?

Gruß
Thomas

[CoolTux]

Eigentlich sollte dann gar nichts drin stehen.

Eine mögliche Anwendung wäre eine Funktion in einer 99_myUtils

Code Auswählen Erweitern


sub statusFensterOffen($) {

    my $contactSensorDevice     = shift;
    $contactSensorDevice        = 'FensterKontakt.*' if( not defined($contactSensorDevice) );
   
    my @monitored=devspec2array("($contactSensorDevice):FILTER=STATE!=closed");
my $cnt_devs=@monitored;
my $i = 0;
my $msgtext = "";
foreach(@monitored) {
$msgtext .= AttrVal($_,"alias",$_);
if ($i < $cnt_devs - 2) {
  $msgtext .= ", ";
}
if ($i == $cnt_devs - 2) {
  $msgtext .= " und ";
}
$i++;
}

return $msgtext if ($cnt_devs > 0);
}


Kann man ja noch Anpassen/Erweitern

[Thorsten Pferdekaemper]

Hi,
siehe hier:
https://wiki.fhem.de/wiki/DevelopmentModuleAPI#devspec2array

Sollte keine Definition auf die übergebene Spezifikation passen, so wird $devspec als einziges zurückgegeben. Dieser Mechanismus ist aus historischen Gründen so gewählt um die Funktion devspec2array() transparent in Module einzufügen ohne große Änderungen im Code durchführen zu müssen. Daher ist es notwendig im Falle der Rückgabe eines einzelnen Elements dies nochmals auf Existenz in %defs zu prüfen.

Gruß,
   Thorsten

[CoolTux]

Kann ich aus der Praxis raus nicht bestätigen. Aber im Code habe ich nun nicht geschaut.

[Tommi ratlos]

Hallo nochmal,

Geht nicht:

Code Auswählen Erweitern


unless (@winopen){
}


Geht:

Code Auswählen Erweitern


if(@winopen > 0){
}

if(@winopen == 0){
}


Gruß
Thomas

[CoolTux]

Code Auswählen Erweitern


unless ( not defined(@winopen) ){
}

So sollte es eigentlich gehen.

[Tommi ratlos]

Hmm

Code Auswählen Erweitern


Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at ./FHEM/99_myUtils.pm line 31.


Gruß
Thomas

[CoolTux]

Ich Dussel. Habe mich hinreißen lassen. Mom


Nachtrag. Bleib Mal beim if, kann gerade nicht denken