Auslösen von und Frage zu Notify

[Mundus]

Hi,

ich nutze das nachfolgende Notify für ein UWZ-Device

Code Auswählen Erweitern


defmod nt_uwzOrt notify uwzOrt.*Warnungen.* {\
my $anzWarn = ReadingsVal("uwzOrt","WarnCount","FEHLER");;\
my $warnText = ReadingsVal("uwzOrt","Warn_0_ShortText","FEHLER");;\
my $warnDBeginn = ReadingsVal("uwzOrt","Warn_0_Start_Date","FEHLER");;\
my $warnDEnde = ReadingsVal("uwzOrt","Warn_0_End_Date","FEHLER");;\
my $warnTBeginn = ReadingsVal("uwzOrt","Warn_0_Start_Time","FEHLER");;\
my $warnTEnde = ReadingsVal("uwzOrt","Warn_0_End_Time","FEHLER");;\
\
my $emailText = "Die UWZ meldet $anzWarn\
von $warnDBeginn, $warnTBeginn Uhr bis $warnDEnde, $warnTEnde Uhr $warnText";;\
EMailVersenden("meine\@email.de","UWZ-Warnung","$emailText");;\
}


Das Notify soll aber nur auslösen, wenn der uwzOrt.*Warnungen.* >= 1 ist. Sprich, wenn alle Warnmeldungen abgelaufen sind, ändert sich der Status auf 0, hierfür soll aber keine E-Mail geschickt werden. Nun kann ich natürlich das Suchmuster so lassen wie es ist und anschließend mittels Wenn-Dann

Code Auswählen Erweitern

if ($EVTPART1 >= 1) weiterarbeiten, aber ich würde es gerne im Suchmuster direkt abarbeiten. Geht das und wie müsste dieser Befehl aussehen?

Außerdem würde ich gerne alle bestehenden Warnung in der Variablen $emailText aufnehmen und dann versenden. Nun war meine Überlegung mittels eines Loops (For) alle Readings auszulesen. Leider gelingt mir das nicht....

Code Auswählen Erweitern


my $i = 0;
for ($i;$i<$anzWarn;$i++){
my $warnText = ReadingsVal("uwzOrt","Warn_$i_ShortText","FEHLER");
my $warnDBeginn = ReadingsVal("uwzOrt","Warn_$i_Start_Date","FEHLER");
my $warnDEnde = ReadingsVal("uwzOrt","Warn_$i_End_Date","FEHLER");
my $warnTBeginn = ReadingsVal("uwzOrt","Warn_$i_Start_Time","FEHLER");
my $warnTEnde = ReadingsVal("uwzOrt","Warn_$i_End_Time","FEHLER");

my $emailText .=  "
von $warnDBeginn, $warnTBeginn Uhr bis $warnDEnde, $warnTEnde Uhr $warnText";
}
Dies funktioniert bei mir nicht. Habt ihr hierzu eine Idee?

Gruß und Danke

Mundus

[igami]

Habt ihr hierzu eine Idee?

Es gibt da ein passendes Attribut:

ignoreRegexp regexp
It is hard to create a regexp which is _not_ matching something, this attribute helps in this case, as the event is ignored if matches the argument. The syntax is the same as for the original regexp.

[Otto123]

Moin,

funktioniert das bei Perl so mit der Variablen im Namen ohne Leerzeichen im String?
Hast Du mal probiert was dabei rauskommt? Für die FHEM Kommandozeile:

Code Auswählen Erweitern

{my $i=0;;ReadingsVal("uwzOrt","Warn_$i_ShortText","FEHLER")}
Ist das nicht ein Fall für concatenation?

Code Auswählen Erweitern

{my $i=0;;ReadingsVal("uwzOrt","Warn_".$i."_ShortText","FEHLER")}
Hab es jetzt aber selbst nicht getestet!

Gruß Otto

[CoolTux]

Code Auswählen Erweitern


notifyUnwetterwarnung Unwetterzentrale:WarnCount:.[0-9]


Als Denkbeispiel

[Wzut]

Dies funktioniert bei mir nicht. Habt ihr hierzu eine Idee?

my $emailText ausserhalb der for Schleife deklarieren und in der Schleife dann ohne my ---- > $emailText .= 
Bei my $anzWarn = ReadingsVal("uwzOrt","WarnCount","FEHLER") würd ich auch sicher stellen das es in jedem Fall immer nummerisch ist,
d.h. lieber my $anzWarn = ReadingsNuml("uwzOrt","WarnCount",-1) und ggf dann gleich return if ($anzWarn <0) da ja dann eh nichts sinnvolles mehr kommen kann.

[Mundus]

Ist das nicht ein Fall für concatenation?

Code Auswählen Erweitern

{my $i=0;;ReadingsVal("uwzOrt","Warn_".$i."_ShortText","FEHLER")}

Der Hinweis war super, es funktioniert wie gewünscht. Den Hinweis von Wzut habe ich auch berücksichtigt. Lediglich den Hinweis von CoolTux konnte ich nocht nicht ausprobieren, werde aber diese Varainte auf jeden Fall ausprobieren und mich wieder melden.

Gruß und vielen Dank für die super Ideen.