Meldungen der Unwetterzentrale per Telegram auf Handy senden

[CoolTux]

Hatte ich nicht gesagt du möchtest bitte darauf achten das Du Dein Pushover Devicenamen entsprechend an passt 

Lese Dir in der myUtils noch mal genau den set Befehl für Pushover durch.
Und in Zukunft Versuche bitte nicht einfach zu kopieren, sondern schaue Dir den Code an und Versuche zu verstehen was da passiert. Man muss nicht alles gleich auf Anhieb verstehen, aber es hilft für die Zukunft 


Grüße

[Kitt]

Oh ja, du hast Recht.
Ich hatte den Namen einmal geändert und einmal übersehen...

[CoolTux]

Und jetzt gehst?

[Kitt]

Jein...

Ich bekomme die Nachrichten jetzt auf Handy geschickt. Aber ich habe noch 2 Probleme damit.

Die Nachricht kommt jede Stunde, auch wenn sich der Unwetterstatus nicht ändert. Ich habe es jetzt mal mit
event-on-change-reading WarnCount
in der UWZ versucht, weiß aber nicht, ob das Sinn macht.

Dann sieht die Nachricht so aus:

Code Auswählen Erweitern

'Vorwarnung für Unwetterwarnung vor 0' 'Ab Dienstagmittag sind örtlich Gewitter möglich. Dabei besteht vor allem die Gefahr von Starkregen mit um 10 l/qm Regen im einer Stunde. Auch kleiner Hagel mit einem Durchmesser um 0,5 cm und Sturmböen um 75 km/h sind nicht ausgeschlossen. Dienstagabend lassen die Gewitter nach. - Unwetterwarnung endet am 0 um 0' '' 0 ''

Irgendwas stimmt mit der Zeit-/Datumsausgabe nicht, oder?

[CoolTux]

Das event-on-change-reading ist gut. Setze noch Attribut human-readable

[Kitt]

Daaaanke! Ich warte dann mal wieder auf eine Warnung und gebe dann Bescheid 

[Dia81]

Daaaanke! Ich warte dann mal wieder auf eine Warnung und gebe dann Bescheid 

und funktioniert es jetzt richtig? Genau das suche ich nämlich auch

[NicoH]

Hallo zusammen,

habe mir mal den Beitrag und die myUtils eingebunden... leider bekomme ich beim define immer eine FM das ein "right curly" fehlt !?

Was mache ich falsch... oder muß ich ne Brille haben ?

Sorry !!

define Push_UWZ notify Unwetterzentrale:WarnCount:.[0-9] { uwzWarn($NAME,$EVTPART1); }

Danke für die Hilfe....

[CoolTux]

Mach am besten erstmal nur ein leeres { }

Und dann gehst du auf modify und fügst den Rest in die Klammern.

[NicoH]

Ich hab das Semicolon weg gelassen dann ging es... hinter her wieder im DEF eingefügt... Aber leider macht das Notify nichts... 3 Warnungen sind aktuell draussen aber es kommt per Push nichts...

[CoolTux]

Es triggern nur bei Änderung von WarnCount

[NicoH]

Ich werde mal beobachten ! Vielen Dank erstmal !

[raiderxxl]

Hier mal eine etwas aktuellere Version

Code Auswählen Erweitern


sub uwzWarn($$) {

my ($name,$event) = @_;
my $hash = $defs{$name};


my $countWarn = ReadingsVal($name,"WarnCount","");
        my $wNb = ReadingsVal( $name, "WarnCount", 0 ) - 1;
        my $unwetterText = "<div class=\"top-space-min\">";
        my $warnnumber = "";
        my $warnbild ="";



if( ReadingsVal( $name, "WarnCount", 0 ) > ReadingsVal( $name, "lastWarnCount", 0 ) && ($event) > 0 ) {

                my $wType = ReadingsVal( $name, "Warn_${wNb}_Type_Str", 0 );
my $wTextShort = ReadingsVal( $name, "Warn_${wNb}_ShortText", 0 );
                my $wTextLong = ReadingsVal( $name, "Warn_${wNb}_LongText", 0 );
my $wEnd = ReadingsVal( $name, "Warn_${wNb}_End_Date", 0 )." um ".ReadingsVal( $name, "Warn_${wNb}_End_Time", 0 );


                if( ReadingsVal( $name, "Warn_${wNb}_uwzLevel", 0 ) < 3) {
       
                     fhem "set pushmsg msg 'Vorwarnung für Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd' '' 0 ''";

                } elsif( ReadingsVal( $name, "Warn_${wNb}_uwzLevel", 0 ) > 2) {
       
                    fhem "set pushmsg msg 'Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd' '' 1 ''";
                }
}


    readingsSingleUpdate ( $hash, "lastWarnCount", $wNb, 0 );
}

Ich hatte noch Code drin um für TabletUI ein Reading mit HTML Code zu füllen. Wenn da Interesse besteht kann ich das nach liefern.


set pushmsg msg

hier bitte pushmsg als Devicenamen für Pushover anpassen.

Und hier das entsprechende Notify

Code Auswählen Erweitern


Unwetterzentrale:WarnCount:.[0-9] { uwzWarn($NAME,$EVTPART1); }


Name vom UWZ Device ist bei mir Unwetterzentrale. Bitte anpassen wenn nötig.



Grüße

Hi Ist das noch so einigermaßen Gültig?

Muss ich am UWZ Device noch event-on-change-reading eintragen?

Kann ich das so machen wenn ich mir das gleichzeitig noch Vorlesen lassen möchte?
Ziel ist das ich eine Pushnachricht bekomme und ein oder zwei Echos mir den Text Vorlesen...

Code Auswählen Erweitern

sub uwzWarn($$) {

my ($name,$event) = @_;
my $hash = $defs{$name};


my $countWarn = ReadingsVal($name,"WarnCount","");
        my $wNb = ReadingsVal( $name, "WarnCount", 0 ) - 1;
        my $unwetterText = "<div class=\"top-space-min\">";
        my $warnnumber = "";
        my $warnbild ="";



if( ReadingsVal( $name, "WarnCount", 0 ) > ReadingsVal( $name, "lastWarnCount", 0 ) && ($event) > 0 ) {

                my $wType = ReadingsVal( $name, "Warn_${wNb}_Type_Str", 0 );
my $wTextShort = ReadingsVal( $name, "Warn_${wNb}_ShortText", 0 );
                my $wTextLong = ReadingsVal( $name, "Warn_${wNb}_LongText", 0 );
my $wEnd = ReadingsVal( $name, "Warn_${wNb}_End_Date", 0 )." um ".ReadingsVal( $name, "Warn_${wNb}_End_Time", 0 );


                if( ReadingsVal( $name, "Warn_${wNb}_uwzLevel", 0 ) < 3) {
       
                     fhem "set pushmsg msg 'Vorwarnung für Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd' '' 0 ''";
     fhem "set ECHO_G000MW0773560CLX speak 'Vorwarnung für Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd'";

                } elsif( ReadingsVal( $name, "Warn_${wNb}_uwzLevel", 0 ) > 2) {
       
                    fhem "set pushmsg msg 'Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd' '' 1 ''";
    fhem "set ECHO_G000MW0773560CLX speak 'Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd'";
                }
}


    readingsSingleUpdate ( $hash, "lastWarnCount", $wNb, 0 );
}


Noty

defmod UWZPushover_Test notify Unwetterzentrale:WarnCount:.[0-9] { uwzWarn($NAME,$EVTPART1);; }



Sorry für die Doofe Frage aber so gut im Coden bin ich nicht...

Mein Notify funktioniert NicoH da fehlt hinten noch ein ; ansonsten ist meines gleich...

Grüßle

Pascal

[CoolTux]

Code Auswählen Erweitern


event-on-change-reading     WarnCount,state


Sollte ausreichend sein.
Der Rest passt soweit denke ich.

[NicoH]

Danke hab alles so abgeändert... man schauen... Hoffe das die Warnung sich noch mal ändert