[Gelöst] If Bedingung in einer sub

[dk3572]

Hallo,

je nachdem wo Bewegung erkannt wurde, möchte ich auch dort die Sprachausgabe.
Hierfür rufe ich eine sub auf in der ich das cmd-event des DOIF auswerte.
Leider gibt es mir immer nur über das 1. if (BM_Wohnzimmer) die Sparche aus.

Ist jemand so nett und hilft mir auf die Sprünge?

Danke im Voraus und VG
Dieter

Code Auswählen Erweitern

DEF        ([?Bewohner] eq "zuhause" && [?du_TTS:cnt] > 0 && ([BM_Wohnzimmer] eq "motion" or [BM_Kueche_Motion] eq "motion")) ({TTSSayQueue()}) DOELSE
   FUUID      5e3eed05-f33f-cd72-3f12-16920cbfa0495499
   FVERSION   98_DOIF.pm:0.234030/2020-12-22
   MODEL      FHEM
   NAME       di_TTSQueue
   NOTIFYDEV  BM_Wohnzimmer,BM_Kueche_Motion,global
   NR         350
   NTFY_ORDER 50-di_TTSQueue
   STATE      cmd_2
   TYPE       DOIF
   VERSION    23403 2020-12-22 15:43:36
   READINGS:
     2020-12-23 13:39:56   Device          BM_Wohnzimmer
     2020-12-23 13:39:56   cmd             2
     2020-12-23 13:39:56   cmd_event       BM_Wohnzimmer
     2020-12-23 13:39:56   cmd_nr          2
     2020-12-23 13:39:42   e_BM_Kueche_Motion_STATE nomotion
     2020-12-23 13:39:56   e_BM_Wohnzimmer_STATE nomotion
     2020-12-23 11:57:43   mode            enabled
     2020-12-23 13:39:56   state           cmd_2
   Regex:
     accu:
     cond:
       BM_Kueche_Motion:
         0:
           &STATE     ^BM_Kueche_Motion$
       BM_Wohnzimmer:
         0:
           &STATE     ^BM_Wohnzimmer$
   attr:
     cmdState:
     wait:
     waitdel:
   condition:
     0          ::InternalDoIf($hash,'Bewohner','STATE') eq "zuhause" && ::ReadingValDoIf($hash,'du_TTS','cnt') > 0 && (::InternalDoIf($hash,'BM_Wohnzimmer','STATE') eq "motion" or ::InternalDoIf($hash,'BM_Kueche_Motion','STATE') eq "motion")
   do:
     0:
       0          {TTSSayQueue()}
     1:
       0         
   helper:
     DEVFILTER  ^global$|^BM_Wohnzimmer$|^BM_Kueche_Motion$
     NOTIFYDEV  global|BM_Wohnzimmer|BM_Kueche_Motion
     event      nomotion,dark: 1
     globalinit 1
     last_timer 0
     sleeptimer -1
     timerdev   BM_Wohnzimmer
     timerevent nomotion,dark: 1
     triggerDev BM_Wohnzimmer
     DOIF_eventa:
       cmd_nr: 2
       cmd: 2
       cmd_event: BM_Wohnzimmer
       cmd_2
     DOIF_eventas:
       cmd_nr: 2
       cmd: 2
       cmd_event: BM_Wohnzimmer
       state: cmd_2
     timerevents:
       nomotion
       dark: 1
     timereventsState:
       state: nomotion
       dark: 1
     triggerEvents:
       nomotion
       dark: 1
     triggerEventsState:
       state: nomotion
       dark: 1
   internals:
     all         Bewohner:STATE BM_Wohnzimmer:STATE BM_Kueche_Motion:STATE
   readings:
   trigger:
   uiState:
   uiTable:
Attributes:
   DbLogExclude .*
   comment    DOIF steuert Ausgabe von Sprachnachrichten die vom Dummy du_TTS gesammelt werden.
Zugehörig 99_myTtsUtils.pm <sub TTSSayQueue()>
   do         always

Code Auswählen Erweitern

sub TTSSayQueue() {
    my $text = '';
    my $cnt = ReadingsNum('du_TTS', 'cnt', 0);
    my $bm = ReadingsVal('di_TTSQueue', 'cmd_event', '');

    if ($cnt > 0) {

        for (my $i = 1; $i <= $cnt; $i++) {
            $text .= ReadingsVal('du_TTS', 'queue-' . $i, '') . '. ';
        }
   
    if ($bm eq "BM_Wohnzimmer"){
        fhem("set ECHO_G090LV03644201AX speak_ssml <speak>$text</speak>")}

    if ($bm eq "BM_Kueche_Motion"){
        fhem("set ECHO_G090P30874340EX4 speak_ssml <speak>$text</speak>")}

        fhem("deletereading du_TTS queue-.*");
        fhem("setreading du_TTS cnt 0");
    }
   
    return undef;
}

[Otto123]

Hi,

schreib doch einfach mal ins Log was da so an Werten drin steht in Deiner Sub

Code Auswählen Erweitern

Log 1, "BM: $bm CNT: $cnt Text: $text";

Gruß Otto

[dk3572]

Hi,

danke für deine Unterstützung.

Es wird alles ausgewertet und übergeben, allerdings nur bei 2 Versuchen.
Danach wird immer nur noch BM_Wohnzimmer übergeben.

Kann es sein, dass das Reading des DOIF schneller übergeben wird als es gesetzt wird?

3 x hintereinander in Küche getestet, funktioniert.
1 x in Wohnzimmer getestet, funktioniert.
Wenn ich jetzt wieder Küche teste, wird im Wohnzimmer ausgegeben.

[Otto123]

Sowas war auch meine Vermutung,... Ich sehe aber gerade:
Du fragst Zustände ab, ich würde gezielt auf den Event reagieren!

ich glaube so:

Code Auswählen Erweitern

([BM_Wohnzimmer:"^motion"] or [BM_Kueche_Motion:"^motion"] )
oder sogar so:

Code Auswählen Erweitern

["^BM_:^motion$"]
Triggert auf alle Geräte die mit BM:_ beginnen und auf genau den Event "motion"
da kein or auch keine Klammer

Und je länger ich darüber nachdenke, einfach ein notify mit BM und motion triggern, die beiden Readings in der Sub abfragen, $NAME beim Aufruf der Sub nutzen, da wird die Sub einfacher

[dk3572]

Funktioniert leider nicht. Es muss aber wohl mit dem Bewegungsmelder Wohnzimmer und dem DOIF zusammen hängen.

Würdest du mir bei der sub mit deinem Vorschlag unter die Arme greifen?
Was meinst du mit $NAME nutzen?

Ich hätte mir jetzt mit z.B. my $bew = ReadinsVal von Bewohner geholt.
Der du_TTS cnt wird ja in der sub schon abgefragt und muss größer 0 sein.

[Damian]

Funktioniert leider nicht. Es muss aber wohl mit dem Bewegungsmelder Wohnzimmer und dem DOIF zusammen hängen.

Sollte aber. Erstens solltest du schauen, ob bei Bewegung motion-Events kommen - was ich mal unterstelle.

Deine Abfrage:

[BM_Wohnzimmer] eq "motion"

ist schon "gefährlich". Diese triggert bei jedem Event von BM_Wohnzimmer.

Ebenfalls die Auswertung von "internen" DOIF-Readings halte ich nicht für sinnvoll.

Dieser Einzeiler sollte schon ausreichen:

Code Auswählen Erweitern

DOIF { if ([?Bewohner] eq "zuhause" and [?du_TTS:cnt] > 0 and ["^BM:motion"]) {::TTSSayQueue($device)}}

In TTSSayQueue kannst du den übergebenen Parameter unmittelbar auswerten, statt die Readings von DOIF.

Und wenn es nicht funktioniert, dann postest du am besten hier die Events der BMs.

Überholen kann sich da nichts.

[Otto123]

Der Vorschlag von Damian ist hier Mist: ["^BM:motion"] triggert auch auf nomotion ich denke da ist  mein letzter Vorschlag aus #3 exakter
In deiner  Sub (nach Damians Vorschlag mit $device - entspricht meinem Vorschlag mit $NAME im notify)
so den Bewegungsmelder durch Übergabe haben:

Code Auswählen Erweitern

sub TTSSayQueue($) {
my ($bm) = @_;
...
}

[dk3572]

Vielen Dank für eure Hilfe, aber was ist nun der bessere Weg?

Bei dem DOIF von Damian bekomme ich schon mal diesen Fehler:

Code Auswählen Erweitern

error   condition c01: Too many arguments for main::TTSSayQueue,"

Wenn ich das Beispiel von Otto nehme,

Code Auswählen Erweitern

([?Bewohner] eq "zuhause" && [?du_TTS:cnt] > 0 && ([BM_Wohnzimmer:"^motion"] or [BM_Kueche_Motion:"^motion"])) ({TTSSayQueue($NAME)}) DOELSE

wie baue ich das in der sub ein?

[Otto123]

Den Einzeiler von Damian habe ich nur teilweise verstanden, da kann ich zu dem Fehler nichts sagen.

Du nimmst nicht mein Beispiel, Du haust alles durcheinander 
$NAME -> notify
$device -> DOIF

Wie Du den Parameter in die SUB einbaust habe ich doch geschrieben?

[dk3572]

sorry, habe mich vertan, du hast in der Tat das notify vorgeschlagen.
Leider bekomme ich dieses auch nicht hin.
Wenn ich es so versuche:

Code Auswählen Erweitern

(BM_Wohnzimmer:motion.*|BM_Kueche_Motion:motion.*) {TTSSayQueue($NAME)}

erhalte ich diesen Fehler:

Code Auswählen Erweitern

Too many arguments for main::TTSSayQueue at (eval 160856) line 1, near "$NAME)"

Wie muss das notify aussehen?

[Otto123]

Hast Du denn die Sub geändert?

Siehe #6

Wenn Du ein notify probieren willst musst Du in der Sub noch die Zusatz Bedingungen einfügen!
Der Trigger ist nicht falsch aber nicht gut. Die Klammern braucht es nicht

Code Auswählen Erweitern

BM_Wohnzimmer:motion.*|BM_Kueche_Motion:motion.*
So ist es kürzer und ich denke der Event ist doch exakt motion?

Code Auswählen Erweitern

BM_.*:motion

[dk3572]

Danke noch mal für deine Hilfe.

Ich möchte zuerst das notify anlegen.
Dann kümmere ich mich um die sub.
Eins nach dem Anderen 

Deine Version von notify mag zwar kürzer sein, aber ich habe noch einige Bewegungsmelder mehr die mit BM_ anfangen.

Und wo und wie ich den $NAME einfüge weiß ich leider auch noch nicht.
Ich halte bei meiner Schreibweise immer die Fehlermeldung.

Vielleicht kannst du mir ja doch noch weiterhelfen?

Danke und ein schönes Weihnachtsfest.

[Beta-User]

Wirf' den prototype weg...

Code Auswählen Erweitern

sub subname { 

[...] 
return;
}@Otto: neben prototype könntest du eventuell mal shift+"defined-or" statt @_ vertiefen  

[dk3572]

Notify sieht nun so aus:

Code Auswählen Erweitern

(BM_Wohnzimmer:motion.*|BM_Kueche_Motion:motion.*) TTSSayQueue ($NAME)

Sub sieht so aus:

Code Auswählen Erweitern

sub TTSSayQueue($) {
    my $text = '';
    my $cnt = ReadingsNum('du_TTS', 'cnt', 0);
    my ($bm) = @_;

    if ($cnt > 0) {

        for (my $i = 1; $i <= $cnt; $i++) {
            $text .= ReadingsVal('du_TTS', 'queue-' . $i, '') . '. ';
        }
   
    if ($bm eq "BM_Wohnzimmer"){
        fhem("set ECHO_G090LV03644201AX speak_ssml <speak>$text</speak>")}

    if ($bm eq "BM_Kueche_Motion"){
        fhem("set ECHO_G090P30874340EX4 speak_ssml <speak>$text</speak>")}

        fhem("deletereading du_TTS queue-.*");
        fhem("setreading du_TTS cnt 0");

    }
   
    return undef;
}

Steht folgende Warnung im Log:

Code Auswählen Erweitern

PERL WARNING: Prototype mismatch: sub main::TTSSayQueue () vs ($) at ./FHEM/99_myTtsUtils.pm line 56

Ich lese mir hier im Forum viel an, studiere Wiki´s und probiere aus.
Leider bin ich kein Programierer und daher auf Hilfe angewiesen.
Ich bin auch dankbar für eure Mühe, aber die Andeutungen für die Ausführung helfen mir nicht weiter.

Mit Sicherheit ist es für euch Profis ein Klacks mein Anliegen umzusetzen.
Wäre also einer so nett und beschreibt etwas genauer wie das notify und wie die sub auszusehen hat?

Vielen lieben Dank dafür.

[Beta-User]

Wirf' den prototype GANZ raus und starte dann FHEM neu.

Code Auswählen Erweitern

sub TTSSayQueue {