diff --git a/fhem/CHANGED b/fhem/CHANGED index ffb0829b4..02fc1a0ad 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - feature: 93_DbRep: new attribute fetchValueFn to change displayed values of + database field VALUE got by fetchrows command - feature: 93_DbLog: new attribute dbSchema to add database schema to tables Forum: #102679 - feature: 76_SMAInverter: V2.13.0, attr target-serial/target-susyid are set diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm index 8bffddbf1..7bf2f2d84 100644 --- a/fhem/FHEM/93_DbRep.pm +++ b/fhem/FHEM/93_DbRep.pm @@ -58,6 +58,8 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch'; # Version History intern our %DbRep_vNotesIntern = ( + "8.22.0" => "23.08.2019 new attr fetchValueFn. When fetching the database content, manipulate the VALUE-field before create reading ", + "8.21.2" => "14.08.2019 commandRef revised ", "8.21.1" => "31.05.2019 syncStandby considers executeBeforeProc, commandRef revised ", "8.21.0" => "28.04.2019 implement FHEM command \"dbReadingsVal\" ", "8.20.1" => "28.04.2019 set index verbose changed, check index \"Report_Idx\" in getInitData ", @@ -153,6 +155,8 @@ our %DbRep_vNotesIntern = ( # Version History extern: our %DbRep_vNotesExtern = ( + "8.22.0" => "23.08.2019 A new attribute \"fetchValueFn\" is provided. When fetching the database content, you are able to manipulate ". + "the value displayed from the VALUE database field before create the appropriate reading. ", "8.21.0" => "28.04.2019 FHEM command \"dbReadingsVal\" implemented.", "8.20.0" => "27.04.2019 With the new set \"index\" command it is now possible to list and (re)create the indexes which are ". "needed for DbLog and/or DbRep operation.", @@ -340,6 +344,7 @@ sub DbRep_Initialize($) { "fastStart:1,0 ". "fetchRoute:ascent,descent ". "fetchMarkDuplicates:red,blue,brown,green,orange ". + "fetchValueFn:textField-long ". "ftpDebug:1,0 ". "ftpDir ". "ftpDumpFilesKeep:1,2,3,4,5,6,7,8,9,10 ". @@ -1143,6 +1148,21 @@ sub DbRep_Attr($$$$) { } } + if ($aName eq "fetchValueFn") { + if($cmd eq "set") { + my $VALUE = "Hello"; + # Funktion aus Attr validieren + if( $aVal =~ m/^\s*(\{.*\})\s*$/s ) { + $aVal = $1; + } else { + $aVal = ""; + } + return "Your function does not match the form \"{}\"" if(!$aVal); + eval $aVal; + return "Bad function: $@" if($@); + } + } + if ($aName eq "sqlCmdHistoryLength") { if($cmd eq "set") { $do = ($aVal) ? 1 : 0; @@ -4874,6 +4894,7 @@ sub fetchrows_ParseDone($) { my $name = $hash->{NAME}; my $reading = AttrVal($name, "reading", undef); my $limit = AttrVal($name, "limit", 1000); + my $fvfn = AttrVal($name, "fetchValueFn", undef); my $color = ""; # Highlighting doppelter DB-Einträge $color =~ s/#// if($color =~ /red|blue|brown|green|orange/); my $ecolor = ""; # Ende Highlighting @@ -4945,6 +4966,19 @@ sub fetchrows_ParseDone($) { $reading_runtime_string = $ts."__".$dz."__".$dev."__".$rea.$zs; } } + + if($fvfn) { + my $VALUE = $val; + if( $fvfn =~ m/^\s*(\{.*\})\s*$/s ) { + $fvfn = $1; + } else { + $fvfn = ""; + } + if ($fvfn) { + eval $fvfn; + $val = $VALUE if(!$@); + } + } ReadingsBulkUpdateValue($hash, $reading_runtime_string, $val); } @@ -9543,13 +9577,11 @@ sub DbRep_delread($;$$) { # Highlighted Readings löschen und save statefile wegen Inkompatibilitär beim Restart if($key =~ / 5.9 und zu lang nach der neuen Festlegung if($do == 0 && $featurelevel > 5.9 && !goodReadingName($key)) { $do = 1; - # delete($defs{$name}{READINGS}{$key}); readingsDelete($hash,$key); } } @@ -11624,7 +11656,8 @@ return; Every reading of result is composed of the dataset timestring , an index, the device name and the reading name. The function has the capability to reconize multiple occuring datasets (doublets). - Such doublets are marked by an index > 1.
+ Such doublets are marked by an index > 1. Optional a Unique-Index is appended if + datasets with identical timestamp, device and reading but different value are existing.
Doublets can be highlighted in terms of color by setting attribut e"fetchMarkDuplicates".

Note:
@@ -11644,8 +11677,8 @@ return;
@@ -11654,10 +11687,11 @@ return;
+ + Note:
+ The used database user needs the ALTER and INDEX privilege.

@@ -12679,6 +12716,21 @@ sub bdump {

+ + +
  • fetchValueFn - When fetching the database content, you are able to manipulate the value fetched from the + VALUE database field before create the appropriate reading. You have to insert a Perl + function which is enclosed in {} .
    + The value of the database field VALUE is provided in variable $VALUE.

    + +
      + Example:
      + attr <name> fetchValueFn { $VALUE =~ s/^.*Used:\s(.*)\sMB,.*/$1." MB"/e }
      + + # From a long line a specific pattern is extracted and will be displayed als VALUE instead + the whole line +
    +


  • ftpUse - FTP Transfer after dump will be switched on (without SSL encoding). The created @@ -14037,10 +14089,12 @@ sub bdump { Die Leserichtung in der Datenbank kann durch das Attribut "fetchRoute" bestimmt werden.

    - Jedes Ergebnisreading setzt sich aus dem Timestring des Datensatzes, einem Index, dem Device - und dem Reading zusammen. + Jedes Ergebnisreading setzt sich aus dem Timestring des Datensatzes, einem Dubletten-Index, + dem Device und dem Reading zusammen. Die Funktion fetchrows ist in der Lage, mehrfach vorkommende Datensätze (Dubletten) zu erkennen. - Solche Dubletten sind mit einem Index > 1 gekennzeichnet.
    + Solche Dubletten sind mit einem Dubletten-Index > 1 gekennzeichnet. Optional wird noch ein + Unique-Index angehängt, wenn Datensätze mit identischem Timestamp, Device und Reading aber + unterschiedlichem Value vorhanden sind.
    Dubletten können mit dem Attribut "fetchMarkDuplicates" farblich hervorgehoben werden.

    Hinweis:
    @@ -14062,8 +14116,8 @@ sub bdump {
      Beispiel:
      - 2017-10-22_03-04-43__1__SMA_Energymeter__Bezug_WirkP_Kosten_Diff
      - # <Datum>_<Zeit>__<Index>__<Device>__<Reading> + 2017-10-22_03-04-43__1__SMA_Energymeter__Bezug_WirkP_Kosten_Diff__[1]
      + # <Datum>_<Zeit>__<Dubletten-Index>__<Device>__<Reading>__[Unique-Index]

    @@ -14073,10 +14127,11 @@ sub bdump {
      - - - + + + + @@ -14098,7 +14153,7 @@ sub bdump { - Listet die in der Datenbank vorhandenen Indexe auf bzw. legt die benötigten Indexe an. Ist ein Index bereits angelegt, wird er erneuert (gelöscht und erneut angelegt)

      - Die möglichen Optionen sind:

      + Die möglichen Optionen sind:

      fetchRoute : Leserichtung der Selektion innerhalb der Datenbank
      limit : begrenzt die Anzahl zu selektierenden bzw. anzuzeigenden Datensätze
      fetchMarkDuplicates : Hervorhebung von gefundenen Dubletten
      device : einschließen oder ausschließen von Datensätzen die <device> enthalten
      fetchRoute : Leserichtung der Selektion innerhalb der Datenbank
      fetchMarkDuplicates : Hervorhebung von gefundenen Dubletten
      fetchValueFn : der angezeigte Wert des VALUE Datenbankfeldes kann mit einer Funktion vor der Readingerstellung geändert werden
      limit : begrenzt die Anzahl zu selektierenden bzw. anzuzeigenden Datensätze
      reading : einschließen oder ausschließen von Datensätzen die <reading> enthalten
      time.* : eine Reihe von Attributen zur Zeitabgrenzung
      valueFilter : filtert die anzuzeigenden Datensätze mit einem regulären Ausdruck (Datenbank spezifischer REGEXP). Der REGEXP wird auf Werte des Datenbankfeldes 'VALUE' angewendet.
      @@ -14111,6 +14166,9 @@ sub bdump {

    + + Hinweis:
    + Der verwendete Datenbank-Nutzer benötigt das ALTER und INDEX Privileg.

    • @@ -15117,6 +15175,21 @@ sub bdump {

    + + +
  • fetchValueFn - Der angezeigte Wert des Datenbankfeldes VALUE kann vor der Erstellung des entsprechenden + Readings geändert werden. Das Attribut muss eine Perl Funktion eingeschlossen in {} + enthalten.
    + Der Wert des Datenbankfeldes VALUE wird in der Variable $VALUE zur Verfügung gestellt.

    + +
      + Beispiel:
      + attr <name> fetchValueFn { $VALUE =~ s/^.*Used:\s(.*)\sMB,.*/$1." MB"/e }
      + + # Von einer langen Ausgabe wird ein spezifisches Zeichenmuster extrahiert und als VALUE + anstatt der gesamten Zeile im Reading angezeigt. +
    +


  • ftpUse - FTP Transfer nach einem Dump wird eingeschaltet (ohne SSL Verschlüsselung). Das erzeugte