Meldungen der Unwetterzentrale per Telegram auf Handy senden

[Kitt]

Bei mir werden die Readings der UWZ jetzt mehrfach jede Sekunde aktualisiert....
Jedenfalls solange das notify aktiviert ist.

[CoolTux]

Noch mal auf DEF drücken und dann auf modify. Eventuell geht es dann

Du meinst doch damit das Dein UWZ alle paar Sekunden neue Werte ab holt, oder?

[Kitt]

Ja genau. Die Werte werden jede Sekunde mehrfach abgeholt.

Dein Tipp (Def / modify) hilft nicht.

Erst wenn ich das notify deaktiviere, hört es auf.

[Kitt]

SORRY!!!

Hatte im notify einen Fehler 

Ich denke, es läuft jetzt.

[Kitt]

Nach mehreren Tagen gab es nun endlich mal wieder eine Unwetterwarnung 
Leider hab ich keine Nachricht bekommen und stelle den Code mal hier rein. Vielleicht kann ja
jemand nochmal helfen

meine 99_myUtils.pm:

Code Auswählen Erweitern

##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.
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 Kitt msg 'Unwetterwarnung vor $wType' '$wTextLong - Unwetterwarnung endet am $wEnd' '' 1 ''";
                }
}


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


1;

mein Notify:

Code Auswählen Erweitern

CFGFN

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

Unwetter
NOTIFYDEV

Unwetterzentrale
NR

310
NTFY_ORDER

50-Unwetter
REGEXP

Unwetterzentrale:WarnCount:.[0-9]
STATE

active
TYPE

notify

[CoolTux]

Das Notify scheint nicht aus zu lösen

[Kitt]

Hast du eine Idee, woran das liegen könnte?
Ich dachte, ich hätte es so gemacht wie du geschrieben hattest? 

[CoolTux]

Heißt Dein UWZ Device denn auch Unwetterzentrale.
Gib mal ein list vom UWZ Device

[Kitt]

Code Auswählen Erweitern

Internals:
   CountryCode DE
   DEF        DE 66892 3600
   INTERVAL   3600
   INTERVALWARN 0
   NAME       Unwetterzentrale
   NR         28
   PLZ        66892
   STATE      Warnungen: 1
   TYPE       UWZ
   URL        http://feed.alertspro.meteogroup.com/AlertsPro/AlertsProPollService.php?method=getWarning&language=de&areaID=UWZDE66892
   VERSION    1.6.0
   READINGS:
     2017-08-07 18:33:31   WarnCount       1
     2017-08-07 18:33:31   WarnUWZLevel    2
     2017-08-07 18:33:31   WarnUWZLevel_Color gelb
     2017-08-07 18:33:31   Warn_0_AltitudeMax 9000
     2017-08-07 18:33:31   Warn_0_AltitudeMin -10
     2017-08-07 18:33:31   Warn_0_Creation 1502112060
     2017-08-07 18:33:31   Warn_0_End      1502227800
     2017-08-07 18:33:31   Warn_0_EventID  15021114555112.2
     2017-08-07 18:33:31   Warn_0_Hail     1
     2017-08-07 18:33:31   Warn_0_IconURL  http://www.unwetterzentrale.de/images/icons/gewitter-gelb.gif
     2017-08-07 18:33:31   Warn_0_LongText 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.
     2017-08-07 18:33:31   Warn_0_Severity 7
     2017-08-07 18:33:31   Warn_0_ShortText Örtlich Gewitter mit Starkregen um 10 l/qm möglich
     2017-08-07 18:33:31   Warn_0_Start    1502179200
     2017-08-07 18:33:31   Warn_0_Type     7
     2017-08-07 18:33:31   Warn_0_levelName alert_forewarn_orange
     2017-08-07 18:33:31   Warn_0_uwzLevel 2
     2017-08-07 18:33:30   currentIntervalMode normal
     2017-08-07 18:33:31   durationFetchReadings 1.00
     2017-08-07 18:33:31   lastConnection  18 values captured in 1.00 s
     2017-08-07 18:33:31   lastWarnCount   0
     2017-08-07 18:33:31   state           Warnungen: 1
   fhem:
     LOCAL      0
   helper:
Attributes:
   room       Draußen

[CoolTux]

Mach mal bitte genau so ei list noch mal vom notify.

[Kitt]

Code Auswählen Erweitern

Internals:
   CFGFN
   DEF        Unwetterzentrale:WarnCount:.[0-9] { uwzWarn($NAME,$EVTPART1); }
   NAME       Unwetter
   NOTIFYDEV  Unwetterzentrale
   NR         310
   NTFY_ORDER 50-Unwetter
   REGEXP     Unwetterzentrale:WarnCount:.[0-9]
   STATE      2017-08-07 20:33:31
   TYPE       notify
   READINGS:
     2017-08-07 19:31:27   state           active
Attributes:
   room       Draußen

[CoolTux]

Also 20:33 ist das Notify das letzte mal angesprungen. Also eigentlich alles schick. Schau mal im log ob es Fehlermeldungen gibt.

[Kitt]

Ok, dumme Frage (sorry): Wie mache ich das denn? 

[CoolTux]

FHEMWEB linke Seite ganz unten der Abschnitt steht Logfile. Da bitte rauf klicken

[Kitt]

Ich schicke hier mal die letzten Logs:

Code Auswählen Erweitern

2017.08.07 19:33:31 3: UWZ Unwetterzentrale: Run.1000 Done fetching data
2017.08.07 19:33:31 3: set pushmsg msg '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 '' : Please define pushmsg first
2017.08.07 19:33:31 3: Unwetter return value: lastWarnCount: 0
2017.08.07 19:36:44 3: GenShellSwitch command result: using pin 0
2017.08.07 19:36:44 3: GenShellSwitch command result: sending systemCode[11111] unitCode[1] command[1]
2017.08.07 19:36:44 2: GenShellSwitch set Schreibtischlampe on
2017.08.07 19:36:47 3: GenShellSwitch command result: using pin 0
2017.08.07 19:36:47 3: GenShellSwitch command result: sending systemCode[11111] unitCode[1] command[0]
2017.08.07 19:36:47 2: GenShellSwitch set Schreibtischlampe off
2017.08.07 19:36:50 3: GenShellSwitch command result: using pin 0
2017.08.07 19:36:50 3: GenShellSwitch command result: sending systemCode[11111] unitCode[2] command[1]
2017.08.07 19:36:50 2: GenShellSwitch set Lampe on
2017.08.07 19:36:52 3: GenShellSwitch command result: using pin 0
2017.08.07 19:36:52 3: GenShellSwitch command result: sending systemCode[11111] unitCode[2] command[0]
2017.08.07 19:36:52 2: GenShellSwitch set Lampe off
2017.08.07 20:00:53 3: ABFALL Abfall - CALENDAR:Abfallkalender triggered, updating ABFALL Abfall ...
2017.08.07 20:00:53 3: ABFALL_UPDATE
2017.08.07 20:33:31 3: UWZ Unwetterzentrale: Run.1000 Done fetching data
2017.08.07 20:33:31 3: set pushmsg msg '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 '' : Please define pushmsg first
2017.08.07 20:33:31 3: Unwetter return value: lastWarnCount: 0
2017.08.07 21:33:31 3: UWZ Unwetterzentrale: Run.1000 Done fetching data
2017.08.07 21:33:31 3: set pushmsg msg '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 '' : Please define pushmsg first
2017.08.07 21:33:31 3: Unwetter return value: lastWarnCount: 0
2017.08.07 22:33:31 3: UWZ Unwetterzentrale: Run.1000 Done fetching data
2017.08.07 22:33:31 3: set pushmsg msg '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 '' : Please define pushmsg first
2017.08.07 22:33:31 3: Unwetter return value: lastWarnCount: 0
2017.08.07 23:33:31 3: UWZ Unwetterzentrale: Run.1000 Done fetching data
2017.08.07 23:33:31 3: set pushmsg msg '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 '' : Please define pushmsg first
2017.08.07 23:33:31 3: Unwetter return value: lastWarnCount: 0