Ist es möglich ein Reading per perl zuüberschreiben?

[kevkolb]

Mein Ziel ist es durch ein at Befehl der täglich um 05:55 ausgeführt wird soll überprüft werden ob ein Sensor neue Werte geliebter hat. Wenn das update der Werte grösser als 12 Stunden ist soll ein Reading geändert werden. Hier der at Befehl:

Code Auswählen Erweitern

*05:55:55 {check_if_alive("MYSENSORS_03", 12);}
Ich habe ein kleines script versucht zu schreiben:
99_myUtil.pm

Code Auswählen Erweitern

sub check_if_alive($$) {
  # Erwartet:
  # 1. Devicename
  # 2. Zeit in Stunden (älter als X --> Device dead)
  # Returns:
  # 0 -> Device dead
  # 1 -> Device alive
  # 2 -> Error
  my ($Device,$zeit) = @_;
  my ($Device) = @_;
  my $now = time;
  my $last_state_time = time_str2num(ReadingsTimestamp($Device,'humidity','0'));
  if ($last_state_time eq "0") {
    return 2;
  }

  my $age_in_hours = ($now - $last_state_time) / 3600;

  if ($age_in_hours > $zeit) {
    Log 1, ("check_if_alive: $Device dead,  is alive, letztes state war $age_in_hours Stunden her");
    Log 2, readingsBeginUpdate($Device");
    readingsBulkUpdate($Device, "battery", "low");
    readingsEndUpdate($Device, 1);
    return 0;
  }
Wenn ich den at Befehl ausführe steht folgendes im Log.

Code Auswählen Erweitern

2016.12.01 14:57:58 1 : check_if_alive: MYSENSORS_03 is alive, letztes state war 0 Stunden her
2016.12.01 14:57:58 3 : Sensoren_at: Can't use string ("MYSENSORS_03") as a HASH ref while "strict refs" in use at fhem.pl line 3911.
Und natürlich ist auch das reading nicht geupdated worden.

Bitte um Anregungen

[Otto123]

Hi,

ich bin nicht so die Perl Leuchte aber mir fällt folgendes auf:

Du kannst offenbar den Bezug auf ein Objekt MYSENSORS_03 nicht herstellen --> http://perldoc.perl.org/strict.html#strict-refs
Ich hoffe Du meinst 99_myUtils.pm 
Wozu diese Folge:

Code Auswählen Erweitern

  my ($Device,$zeit) = @_;
  my ($Device) = @_;

Ist gar die zweite Zeile das Problem?

Also nur Anregungen 

Gruß Otto

[Puschel74]

Wie Otto schon geschrieben hat stossen auch mir die 2 Zuweisungen schräg auf.
Allerdings sehe ich auch hier noch

Code Auswählen Erweitern

Log 2, readingsBeginUpdate($Device");
ein Problem.
a) entweder ein " zuviel oder ein " zuwenig
b) was soll readingsBeginUpdate ins Log schreiben?
Ok, b verwende ich nicht daher ist das eher eine Frage als ein Hinweis.

Allerdings bekomme ich diese Zeile

Code Auswählen Erweitern

Log 1, ("check_if_alive: $Device dead,  is alive, letztes state war $age_in_hours Stunden her");
mit dieser

2016.12.01 14:57:58 1 : check_if_alive: MYSENSORS_03 is alive, letztes state war 0 Stunden her

nicht zusammen.
Irgendwie fehlt mir hier das dead aus der Log-Anweisung.
$Device beinhaltet MYSENSORS_03 - das ist mir klar aber wo verschwindet das dead 

[kevkolb]

Erstmal danke für eure Rückmeldungen.

Ich hoffe Du meinst 99_myUtils.pm 
Wozu diese Folge:
Code: [Auswählen]
  my ($Device,$zeit) = @_;
  my ($Device) = @_;

Ist gar die zweite Zeile das Problem?

Habe es auch ohne der zweiten Zuweisung ausprobiert. Leider keine Änderung im Ergebnis.
Das Problem ist, ich kann von mir auch nicht behaupten ich könnt Perl!

Wie Otto schon geschrieben hat stossen auch mir die 2 Zuweisungen schräg auf.
Allerdings sehe ich auch hier noch
Code: [Auswählen]
Log 2, readingsBeginUpdate($Device");
ein Problem.
a) entweder ein " zuviel oder ein " zuwenig
b) was soll readingsBeginUpdate ins Log schreiben?
Ok, b verwende ich nicht daher ist das eher eine Frage als ein Hinweis.

a) Da ist ein " zuviel. Hatte da mal "MYSENSOR_03" drin stehen gehabt um zu probieren ob dann die Readings geupdatet werden.
b) War auch nur so eine Idee um vielleicht meiner Lösung ein Stück näher zu kommen. Was ich jetzt weiss ist das der Fehler genau in der Zeile kommt.

Allerdings bekomme ich diese Zeile
Code: [Auswählen]
Log 1, ("check_if_alive: $Device dead,  is alive, letztes state war $age_in_hours Stunden her");
mit dieser
Zitat
2016.12.01 14:57:58 1 : check_if_alive: MYSENSORS_03 is alive, letztes state war 0 Stunden her
nicht zusammen.
Irgendwie fehlt mir hier das dead aus der Log-Anweisung.

Das liegt daran ich hatte den else-Teil nicht gepostet:

Code Auswählen Erweitern

else {
    Log 1, ("check_if_alive: $Device is alive, is alive, letztes state war  $age_in_hours Stunden her");
    Log 1, readingsBeginUpdate(&$Device);
    readingsBulkUpdate("$Device", "battery", "ok");
    readingsEndUpdate("$Device", 1);
    return 1;
  }

Aber nochmal zurück zu meiner Problemstellung. Vielleicht kann man das auch anders lösen.
Ich habe Sensoren die ihre Daten an Fhem weiterleiten. Es wird z.B. das Reading temperature geupdatet. Ich möchte falls bei einem Sensor kein update des Readings seit einer Zeitspanne X bekommen hat ein neues Reading battery auf "low" gesetzt wird.

Danke im Voraus für euere Unterstützung

[MadMax-FHEM]

Hi,

ich habe etwas ähnliches (oder genau das) für meine Wasserstandsanzeige gebaut.

Kann aber grad nicht nachsehen, mache ich sobald ich zuhause bin...

Aus dem Kopf habe ich es in etwa so gemacht (bzw. schon mal für dich "angepasst"):

Code Auswählen Erweitern

sub my_CheckWasserstandsSensor($$)
{
my ($Device,$zeit) = @_;

if(ReadingsAge($Device, "humidity", 0) > ($zeit*60*60))
{
   {fhem "setreading $Device battery dead"}
}
else
{
   {fhem "setreading $Device battery ok"}
}
}

Zur Sicherheit schau ich aber noch mal nach, wenn ich wieder zuhause bin...

Habe auch im Kopf, dass es ein Modul gibt (vgl.bar bei HM den ActionDetector) welches allgemein (also für jedes "Gerät") genau das tut.
Wollte schon umstellen, hatte nur keine Zeit.

Vielleicht hilft die Forensuche...
...bzw. vielleicht war es das:

https://forum.fhem.de/index.php/topic,8821.msg46651.html#msg46651

Gruß, Joachim

[Bennemannc]

Hallo,

mal so am Rande gefragt - genau das macht doch das watchdog Modul

define <name> watchdog <regexp1> <timespec> <regexp2> <command>

Startet einen beliebigen FHEM Befehl wenn nach dem Empfang des Ereignisses <regexp1> nicht innerhalb von <timespec> ein <regexp2> Ereignis empfangen wird.
Der Syntax für <regexp1> und <regexp2> ist der gleiche wie regexp für notify.
<timespec> ist HH:MM[:SS]
<command> ist ein gewöhnlicher fhem Befehl wie z.B. in at oderr notify

Gruß Christoph

[kevkolb]

@MadMax-FHEM

Danke schön, das war genau die Lösung die ich gesucht habe!!!

[MadMax-FHEM]

Gerne!

Was jetzt:

die Lösung aus dem Kopf

oder

das Modul??

Nur für den der hier drüber stolpert und auch die Lösung sucht...

Gruß, Joachim

[kevkolb]

Ja klar. Hier die Lösung die für mich super funktioniert:

Code Auswählen Erweitern

sub check_if_alive($$) {
  my ($Device,$zeit) = @_;
  my $Age = ReadingsAge($Device,"humidity",0);
  if (ReadingsAge($Device,"humidity",13) > ($zeit)) {
    Log 1, ("check_if_alive: $Device dead, last state was $Age hours ago");
   {fhem "setreading $Device battery low"};
  } else {
    Log 1, ("check_if_alive: $Device is alive, last state was $Age hours ago");
    {fhem "setreading $Device battery ok"};
  }}

Sobald ein Sensor länger als 12 Stunden nichts gesendet hat wird das reading battery auf low gesetzt.
Hier noch der at Befehl für Fhem:

Code Auswählen Erweitern

*05:55:55 {check_if_alive("1F_MYSENSOR", 12);;check_if_alive("SZ_MYSENSOR", 12);;check_if_alive("WZ_MYSENSOR", 12);;}

Jetzt wird jeden Tag um 05:55:55 Uhr alle Sensoren überprüft ob sie ausgefallen sind.