fhem Log Überwachung inkl. Benachrichtigung

[raiderxxl]

Hallo, ich hab über die Suche nichts gefunden deshalb stelle ich hier mal diese Frage...

Ich möchte gerne mein normales fhem Log überwachen.. quasi ein doif das mich wie auch immer informiert wenn innerhalb von X Sekunden/Minuten X Logeinträge hinzugekommen sind... da es ja ein fake lof ist sehe/weiss ich nicht die Definition.. Muss ja was mit dem Loglevel zu tun haben (Verbose) sonnst hätte ich mir ein doif gebaut das nach dem loglevel geht ...

Geht sowas überhaupt? Währ ne coole Funktion, ich hatte schon öfters irgendwelche Modul-ausfälle die mir das fhemlog geflutet haben und ich habe es nicht mitbekommen... 

Grüßle

Pascal

[Beta-User]

Du könntest mit einem at alle paar Minuten/Stunden die Zahl der Zeilen des logs mit @fileread() (https://wiki.fhem.de/wiki/DevelopmentModuleAPI#FileRead) auslesen und das als reading zu dem at speichern.
Vor dem update des readings sehen, ob dein eingestellter Schwellwert überschritten ist (Vergleich neu - alt) und ggf. die Info senden, dass das der Fall ist...

[Omega]

Habe das selber für mich auch vor kurzem so getestet (nach diesbezüglichen Hinweisen aus dem Forum):

Ein DOIF, dass regelmäßig die alte und die aktuelle Anzahl Zeilen im Logfile ermittelt und in Readings festhält

Code Auswählen Erweitern

defmod doif.linesInTheFile DOIF ([+00:20:05]) (setreading Logfile linesInTheFileOld [Logfile:linesInTheFile]) (setreading Logfile linesInTheFile {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]})
attr doif.linesInTheFile do always
attr doif.linesInTheFile room Server
Logfile ist das Fakelog Device.

Ein 2. DOIF, dass bei einer größeren Differenz eine Meldung ausgibt

Code Auswählen Erweitern

defmod doif.Logfile.Alarm DOIF ([Logfile:linesInTheFile] - [Logfile:linesInTheFileOld] > 15) (set pushSM_G935F message FHEM Logfile kontrollieren)
attr doif.Logfile.Alarm do always
attr doif.Logfile.Alarm cmdpause 1200
attr doif.Logfile.Alarm room Server

Nachteil: wenn FHEM mit sich selber beschäftigt ist, wird zwar das Log vollgeschrieben, die Meldung kann aber nicht mehr abgesetzt werden (ich habe derzeit das Problem, das FHEM ca. 1 x pro Woche wegen Speichermangel (bei 2GB RAM) "stirbt").

Aus diesem Grund habe ich diese Kontrolle auf die Systemebene verlagert. Wer meine "Probleme" nicht hat, kann aber gut mit den 2 DOIFs arbeiten.

LG
Holger

[raiderxxl]

Hallo Holger vielen Dank!

Werde ich gleich mal versuchen ....

Grüßle

Pascal

[Beta-User]

Aber warum packt Ihr das nicht alles in ein bißchen Perl-Code für ein einfaches at?

Also at alle +*20:05, dann aktuelle Zeilenzahl ermitteln, vergleichen, ggf. Info versenden, Zeilenzahl merken.
Ist das soviel schwieriger, als 2 weitere Devices zu verbraten und "do always" zu verwenden? Alle Bausteinchen sind ja jetzt bekannt...

Just my2ct.

[betateilchen]

Du könntest mit einem at alle paar Minuten/Stunden die Zahl der Zeilen des logs mit @fileread() (

Ihr wisst aber schon, dass in jedem FileLog device ein reading "linesInTheFile" existiert?

[Beta-User]

Ihr wisst aber schon, dass in jedem FileLog device ein reading "linesInTheFile" existiert?

Ist mir seit dem Post von Omega bekannt, aber danke nochmal für den Hinweis.

[betateilchen]

Ist mir seit dem Post von Omega bekannt

da steht DOIF drin, das blendet meine optische Texterkennung automatisch aus.

[Beta-User]

da steht DOIF drin, das blendet meine optische Texterkennung automatisch aus.

Geht mir fast genauso...
Und irgendwie werde ich den Verdacht nicht los, dass solche Konstruktionen dann zu sowas führen:

[...]ich habe derzeit das Problem, das FHEM ca. 1 x pro Woche wegen Speichermangel (bei 2GB RAM) "stirbt").

Ist hier zwar vermutlich nicht so, dass diese zwei DOIFs sowas bewirken, aber irgendwie empfinde ich es auch als "leichtgewichtiger", das einfach der logischen Reihenfolge nach abzuarbeiten:

Aber warum packt Ihr das nicht alles in ein bißchen Perl-Code für ein einfaches at?

Also at alle +*20:05, dann aktuelle Zeilenzahl ermitteln, vergleichen, ggf. Info versenden, Zeilenzahl merken.

Aber "do always" scheint einleuchtender zu sein .

[Damian]

Aber warum packt Ihr das nicht alles in ein bißchen Perl-Code für ein einfaches at?

Also at alle +*20:05, dann aktuelle Zeilenzahl ermitteln, vergleichen, ggf. Info versenden, Zeilenzahl merken.
Ist das soviel schwieriger, als 2 weitere Devices zu verbraten und "do always" zu verwenden? Alle Bausteinchen sind ja jetzt bekannt...

Just my2ct.

sehe ich auch so, deswegen alles in ein Device packen, ohne komplexe Attribute arbeiten und am besten Perl verwenden, damit es performanter ist

Code Auswählen Erweitern

defmod doif.linesInTheFile DOIF {
  if ([+00:20:05]) {
    fhem"setreading Logfile linesInTheFileOld [Logfile:linesInTheFile]";
    fhem"setreading Logfile linesInTheFile {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]}";
  }
}
{if ([?Logfile:linesInTheFile] - [?Logfile:linesInTheFileOld] > 15 or [+20:00]) {
    fhem"set pushSM_G935F message FHEM Logfile kontrollieren";
  }
}


Stichwort: DOIF im Perl-Mode, siehe: https://fhem.de/commandref_DE.html#DOIF_Perl_Modus

Den Code habe ich weitgehend von @Omega übernommen, ohne es auf Korrektheit zu prüfen .

[Beta-User]

Da versteht einer aber Spaß...

Aber wenn es um ungetesteten Code geht, wage ich es eben auch mal *grins*

Code Auswählen Erweitern


defmod at_check_loggrowth at +*20:00 {my $actualLinesNr = {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]};
my $delta = $actualLinesNr - ReadingsVal("Logfile","lastKnownLinesInTheFile",0);
fhem"set pushSM_G935F message FHEM Logfile kontrollieren, $delta lines more!" if ($delta > 15);
fhem"setreading Logfile lastKnownLinesInTheFile $actualLinesNr";
}

Beta-User

[raiderxxl]

Guten Morgen...
Ihr wisst aber das ich das im Anfängerbereich gepostet hab...
Mir ist gerade das Hirn Explodiert... 

Danke! Werde beide Versionen auch mal testen...

Grüßle

Pascal

[Beta-User]

Mir ist gerade das Hirn Explodiert... 

ymmd

Aber der Reihe nach nochmal, um das einfacher nachvollziehen zu können:

Also at alle +*20:05

Code Auswählen Erweitern

defmod at_check_loggrowth at +*20:00 {}

aktuelle Zeilenzahl ermitteln,

Code Auswählen Erweitern

my $actualLinesNr = {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]};

vergleichen,

Code Auswählen Erweitern

my $delta = $actualLinesNr - ReadingsVal("Logfile","lastKnownLinesInTheFile",0);
... if ($delta > 15);

ggf. Info versenden,

Code Auswählen Erweitern

fhem"set pushSM_G935F message FHEM Logfile kontrollieren, $delta lines more!" if ($delta > 15);

Zeilenzahl merken.

Code Auswählen Erweitern

fhem"setreading Logfile lastKnownLinesInTheFile $actualLinesNr";

Egal, in welcher "Sprache" du das machst, es sind immer dieselben Schritte erforderlich - man kann nur darüber streiten, ob es sinnvoller ist, Variablen z.B. dann für später aufzuheben (zwei Readings) oder ob man nur interne Infos braucht (my $...), die hinterher auch wieder vergessen werden dürfen.

Ihr wisst aber das ich das im Anfängerbereich gepostet hab...

Eben drum hier auch nochmal die Erläuterung . Es macht übrigens in jedem Fall Sinn, so einen Ablauf auch "in Worten" vorab zu beschreiben, dann kann man das leichter umsetzen (bzw. dann Fehler suchen, nach Bausteinchen recherchieren) usw...

Grüßle ebenfalls aus dem Schwabenland,

Beta-User

[Parador]

Hallo Zusammen,

ich habe mir die beiden Beispiele mal mit Copy&Paste bei mir angelegt... Leider klappen beide nicht, weil es mit der Ermittlung der Zeilen Probleme gibt.

Beim Beispiel von @Beta-User:

Code Auswählen Erweitern

defmod at_check_loggrowth at +*20:00 {my $actualLinesNr = {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]};
my $delta = $actualLinesNr - ReadingsVal("Logfile","lastKnownLinesInTheFile",0);
fhem"set pushSM_G935F message FHEM Logfile kontrollieren, $delta lines more!" if ($delta > 15);
fhem"setreading Logfile lastKnownLinesInTheFile $actualLinesNr";
}
habe ich als erstes Mal den ersten "at-Bereich" angepasst..

Code Auswählen Erweitern

defmod at_check_loggrowth at +*00:20:00 {my $actualLinesNr = {(split(' ',qx (wc -l [Logfile:&currentlogfile])))[0]};
my $delta = $actualLinesNr - ReadingsVal("Logfile","lastKnownLinesInTheFile",0);
fhem"set pushSM_G935F message FHEM Logfile kontrollieren, $delta lines more!" if ($delta > 15);
fhem"setreading Logfile lastKnownLinesInTheFile $actualLinesNr";
}
Damit war dann ein "alle 20 Minuten" eingestellt. Allerdings wird bei mir das Reading immer mit folgendem Text gefüllt:
lastKnownLinesInTheFile    HASH(0x58427c8)
wobei der Wert in Klammern immer wechselt... ich vermute also, dass eine Umrechnung nicht klappt...
Könnte da bitte nochmal jemand drüber schauen und mir weiterhelfen?

Vielen Dank bereits im Voraus!

[Beta-User]

...leider hatte ich den Ausgangscode auch nur kopiert...
Da war wohl irgendeine Spezialität drin, die in "normalem" "fhem-Perl" nicht geht. So sollte das passen (kann man noch etwas straffen):

Code Auswählen Erweitern

defmod at_check_loggrowth at +*20:00 { \
my $clf = InternalVal("Logfile","currentlogfile","none");; \
my $actualLinesNr = qx (wc -l $clf);; \
$actualLinesNr =~ s,^(\d+).*,$1,g;; \
my $delta = $actualLinesNr - ReadingsVal("Logfile","lastKnownLinesInTheFile",0);; \
fhem"set pushSM_G935F message FHEM Logfile kontrollieren, $delta lines more!" if ($delta > 15);; \
fhem"setreading Logfile lastKnownLinesInTheFile $actualLinesNr";; \
}

my $clf = InternalVal("Logfile","currentlogfile","none");; my $line = qx (wc -l $clf);; $line =~ s,^(\d+).*,$1,g;;