eq3 firmware check funkioniert nicht mehr

[yersinia]

Evtl. wäre es sinnvoll, das auch in dem "Vorschläge"-Thread zu posten;

Erledigt

(@yersinia: Möchtest du das Thema attrTemplate nicht evtl. nochmal bei JSONMOD anschieben und das übernehmen?)

Da sehe ich bisher keinen Bedarf für. Bisher gibt es neun (mir bekannte) Vorlagen, davon sind zwei Corona-spezifisch. Zumal herrmannj dies noch einbauen müsste - ich glaube nicht, dass es hohe Priorität hätte derzeit.

[Beta-User]

Erledigt

Danke!

Da sehe ich bisher keinen Bedarf für. Bisher gibt es sieben (mir bekannte) Vorlagen, davon sind zwei Corona-spezifisch. Zumal herrmannj dies noch einbauen müsste - ich glaube nicht, dass es hohe Priorität hätte derzeit.

Na ja, der Aufwand, das grundsätzlich zu implementieren ist relativ gering (bei Bedarf suche ich den Patch für MQTT2_DEVICE raus, dürfte in <30 Min. erledigt sein).
Muss zugeben, dass ich auch bei MQTT2_DEVICE erst nicht gedacht hätte, dass es (so) großen Bedarf gäbe, und deine Sammlung ist sicher auch eine (gute!) Lösung, "best practice" vorzuhalten. Nur halt nur bedingt z.B. für englischsprachige User, die es ja durchaus auch gibt...

Andererseits: Wenn es (noch und relativ) wenige Beispiele gibt, ist der Pflegeaufwand für die templates auch nahezu null .

[yersinia]

Seh' ich grundsätzlich ähnlich und hab es als Wunsch in die Feature-Wunschliste mit aufgenommen.

[yersinia]

Mir ist aufgefallen, dass eq-3 download-link wesentlich mehr Geräte (insb HmIP) enthält als dieses httpmod template abfragt, daher hier eine neu Version:

Code Auswählen Erweitern

defmod hm_fw_check HTTPMOD https://update.homematic.com/firmware/api/firmware/search/DEVICE 86400
attr hm_fw_check userattr reading01AutoNumLen reading01Name reading01RegOpt reading01Regex reading02AutoNumLen reading02Name reading02RegOpt reading02Regex readingMaxAge readingMaxAgeReplacementMode:text,reading,internal,expression,delete showNewFWOnly:yes,no
attr hm_fw_check do_not_notify 1
attr hm_fw_check enableControlSet 1
attr hm_fw_check icon hm_ccu
attr hm_fw_check reading01AutoNumLen 3
attr hm_fw_check reading01Name hmfw-type
attr hm_fw_check reading01RegOpt g
attr hm_fw_check reading01Regex (?i)"type":"((?:\w+[-]*){1,})
attr hm_fw_check reading02AutoNumLen 3
attr hm_fw_check reading02Name hmfw-version
attr hm_fw_check reading02RegOpt g
attr hm_fw_check reading02Regex (?si)"version":"(\d+[.]\d+[.]\d+)
attr hm_fw_check readingMaxAge 10
attr hm_fw_check readingMaxAgeReplacementMode delete
attr hm_fw_check showError 1
attr hm_fw_check showMatched 1
attr hm_fw_check showNewFWOnly yes
attr hm_fw_check stateFormat {   my $ret ="";;\
my $lastCheck = FmtDateTime(InternalVal($name,".LastUpdate",0));;\
my $nextCheck = FmtDateTime(InternalVal($name,".TRIGGERTIME",0));;\
my $cellstyle = "padding:3pt;;border-bottom:1px dotted lightgray;;";;\
    $ret .= '<div style="text-align:left;;">';;;;\
    $ret .= '<div>last <a title="eq3-downloads" href="http://www.eq-3.de/service/downloads.html">homematic</a>-fw-check => '.$lastCheck;;\
    $ret .= '</div>';;\
    my $check = ReadingsVal($name,"newFwForDevices","error => no or wrong data from eq3-server!");;\
    if($check eq "no fw-updates needed!") {\
      $ret .= '<div style="color:limegreen;;font-weight:bold;;">';;\
      $ret .= $check;;\
      $ret .= '</div>';;\
    } elsif($check eq "error => no or wrong data from eq3-server!") {\
      $ret .= '<div style="color:red;;font-weight:bold;;">';;\
      $ret .= $check;;\
      $ret .= '</div>';;\
    } else {\
$ret .= '<div style="display:table;;width:100%;;">';;\
$ret .= '<div style="display:table-row;;">';;\
      $ret .= '<div style="display:table-cell;;'.$cellstyle.'width:50%;;font-weight:bold;;">device</div>';;\
  $ret .= '<div style="display:table-cell;;'.$cellstyle.'width:40%;;font-weight:bold;;">model</div>';;\
  $ret .= '<div style="display:table-cell;;'.$cellstyle.'width:5%;;font-weight:bold;;">current</div>';;\
  $ret .= '<div style="display:table-cell;;'.$cellstyle.'width:5%;;font-weight:bold;;">new</div>';;\
$ret .= '</div>';; #header\
      my @devices = split(',',$check);;\
      foreach my $devStr (@devices) {\
my ($dev,$idx) = $devStr =~ m/([^\s]+)\s[(](\d+)[)]/;;\
my $md = ReadingsVal($name,("hmfw-type-".$idx),"?");;\
my $ofw = InternalVal($dev,"firmware",AttrVal($dev,"firmware","0.0"));;\
my $nfw = ReadingsVal($name,("hmfw-version-".$idx),"none");;\
        my $fw_link = "https://ccu3-update.homematic.com/firmware/download?cmd=download&serial=0&product=".$md;;\
$ret .= '<div style="display:table-row;;">';;\
$ret .= '<div style="display:table-cell;;'.$cellstyle.'width:50%;;">';;\
        $ret .= '<a href="/fhem?detail='.$dev.'" target="_blank">';;\
$ret .= AttrVal($dev,"alias",$dev);;\
        $ret .= '</a></div>';;\
$ret .= '<div style="display:table-cell;;'.$cellstyle.'width:30%;;font-weight:bold;;color:lightgrey;;">';;\
        $ret .= $md;;\
        $ret .= '</div>';;\
$ret .= '<div style="display:table-cell;;'.$cellstyle.'width:10%;;font-weight:bold;;color:lightgrey;;">';;\
        $ret .= $ofw;;\
        $ret .= '</div>';;\
$ret .= '<div style="display:table-cell;;'.$cellstyle.'width:10%;;font-weight:bold;;color:red;;">';;\
        $ret .= '<a title="download firmware file" href="'.$fw_link.'" rel="noopener noreferrer" target="_blank" style="color:red;;">';;\
        $ret .= $nfw;;\
        $ret .= '</a></div>';;\
        $ret .= '</div>';; #row\
      }\
  $ret .= '</div>';; #table\
    }\
$ret .= "<div style=\"text-align:left;;\">(next check: ".$nextCheck.")</div>";;\
    $ret .= '</div>';;\
  return $ret;;\
}
attr hm_fw_check userReadings newFwForDevices:MATCHED_READINGS.* {\
  my $ret = "";;\
  my $newfwonly = AttrVal($name,"showNewFWOnly","yes");;\
  if (ReadingsVal($name,"UNMATCHED_READINGS","?") eq "") {\
    my @eq3FwList = map { \
sprintf(uc(ReadingsVal($name,"hmfw-type-".$_,"?")).":".ReadingsVal($name,"hmfw-version-".$_,"?").":".$_);;\
} ReadingsVal($name,"MATCHED_READINGS","?")=~ m/hmfw-version-(\d\d\d)/g;;\
\
foreach my $dev (devspec2array("TYPE=CUL_HM|HMCCUDEV:FILTER=DEF=(......|..............):FILTER=subType!=virtual")) {\
  my $md = uc(InternalVal($dev,"ccutype",AttrVal($dev,"model","?")));;\
  my $v = InternalVal($dev,"firmware",AttrVal($dev,"firmware","0.0"));;\
      my ($h,$l) = split('\.',$v);;\
      foreach my $newFW (grep m/^${md}:/i,@eq3FwList) {\
my ($fwmd, $fwv, $idx) = $newFW =~ m/([^:]+):(\d+[.]\d+[.]\d+):(\d+)$/;;\
my ($fwh, $fwl) = split('\.',$fwv);;\
if(($newfwonly eq "no") || (($fwh > $h) || (($fwh == $h) && ($fwl > $l)))) {\
          $ret .= "," if($ret ne "");;\
  $ret .= $dev." (".$idx.")";;\
        }\
      }\
    }\
  } else {\
    $ret = "error => no or wrong data from eq3-server!";;\
  }\
  return ($ret eq "")?"no fw-updates needed!":$ret;;\
}
attr hm_fw_check webCmd reread


EDIT 2020-12-03: Update nach #187 - Danke @betateilchen

[betateilchen]

Mir ist aufgefallen, dass "next_check" keine plausiblen Daten anzeigt.

Code Auswählen Erweitern

InternalVal($name,"TRIGGERTIME_FMT","2000-01-01 00:00:00")

Wo soll denn das hier verwendete Internal herkommen? Beim Blick in 98_HTTPMOD.pm finde ich nirgends einen Hinweis darauf, dass dieses Internal überhaupt irgendwo verwendet wird.

[frank]

stefan hat letztens im httpmod modul "aufgeräumt".
dabei sind einige internals verschwunden.

[yersinia]

Korrekt, das Internal TRIGGERTIME_FMT ist im httpmod weggefallen ([1], [2]) - das hatte ich im httpmod Thread aber auch mehrfach überlesen.
Ich hab es jetzt in #183 (und im template) auskommentiert. Mir ist noch nicht ganz klar, wie man den Zeitpunkt des nächsten checks berechnen kann - und ob es überhaupt jemanden interessiert.

[betateilchen]

Mir ist noch nicht ganz klar, wie man den Zeitpunkt des nächsten checks berechnen kann

Man muss gar nix berechnen, der timestamp für den nächsten Check steht im Internal ".TRIGGERTIME".
Der timestamp müsste nur in einem lesbaren Format in das stateFormat ausgegeben werden.

Code Auswählen Erweitern


my $lastCheck = FmtDateTime(InternalVal($name,".LastUpdate",0));
my $nextCheck = FmtDateTime(InternalVal($name,".TRIGGERTIME",0));


und ob es überhaupt jemanden interessiert.

wohl eher nicht 


Warum man in dem stateFormat aber so komplizierte Zeit-Umrechnungen macht, anstatt einfach FHEM Funktionen zu verwenden, ist mir ein Rätsel.


--

[yersinia]

Man muss gar nix berechnen, der timestamp für den nächsten Check steht im Internal ".TRIGGERTIME".

Kann ich nicht bestätigen. Enthält bei meinen Tests die Zeit des letzten Events (?) des Devices.

Aber wenn es niemand braucht, dann ist die Diskussion auch überflüssig....also wech damit!

[betateilchen]

Bei mir steht in .TRIGGERTIME definitiv ein timestamp von morgen.

Code Auswählen Erweitern


Internals:
   .LASTSEND  1606926757.30555
   .LastUpdate 1606926757.30393
   .MaxAgeEnabled 1
   .TRIGGERTIME 1607013157.30393
   .getList   
   .setList   interval reread:noArg stop:noArg start:noArg clearCookies:noArg upgradeAttributes:noArg storeKeyValue
   BUSY       0
   DEF        https://update.homematic.com/firmware/api/firmware/search/DEVICE 86400
   FUUID      5fbfc2ad-f33f-b166-d626-fac91657762a6aa6
   Interval   86400
   MainURL    https://update.homematic.com/firmware/api/firmware/search/DEVICE
   ModuleVersion 4.0.12 - 24.10.2020


[yersinia]

Code Auswählen Erweitern


my $lastCheck = FmtDateTime(InternalVal($name,".LastUpdate",0));
my $nextCheck = FmtDateTime(InternalVal($name,".TRIGGERTIME",0));


Warum man in dem stateFormat aber so komplizierte Zeit-Umrechnungen macht, anstatt einfach FHEM Funktionen zu verwenden, ist mir ein Rätsel.

Ich persönlich finde das Format YYYY-MM-DD hh:mm:ss unschön und für den Zweck schwer zu lesen. Daher die Konvertierung zu DD.MM hh:mm.
Und ohne Entwickler zu sein, geschweigedenn Perl-Erfahrung zu haben, baut man auf dem auf, was man bekommen hat und ergänzt es um Dinge, die man so im Internet findet. Wenn es funktioniert, ist es gut. Ob das Hemdsärmlige Vorgehen gute Code-Qualität hervorbringt, wage ich zu bezweifeln.
Wenn es eine bessere, schnellere, effizientere Lösung gibt, immer her damit.

Bei mir steht in .TRIGGERTIME definitiv ein timestamp von morgen.

Jup, mit der FmtDateTime()-Funktion stimmt es auch bei mir.

[betateilchen]

Hey, wenn man davor schon einen englischen Text schreibt, kann man auch ein englischsprachiges Datums-/Zeitformat verwenden.
Ausserdem ist das eine in FHEM durchaus übliche und bekannte Darstellungsvariante.

Es funktioniert aber natürlich auch mit Deinem persönlichen Lieblingsformat ganz einfach:

Code Auswählen Erweitern

my $lastCheck = POSIX::strftime("%d.%m. %H:%M",localtime(InternalVal($name,".LastUpdate",0)));

(identisch auf für $nextCheck verwendbar)

[yersinia]

Hey, wenn man davor schon einen englischen Text schreibt, kann man auch ein englischsprachiges Datums-/Zeitformat verwenden.
Ausserdem ist das eine in FHEM durchaus übliche und bekannte Darstellungsvariante.

Überzeugt. Folgen wir partiell der ISO 8601 und nutzen YYYY-MM-DD hh:mm:ss
(mir ist kein einheitlicher (iSv der globalen Sprachverteilung) Englischer Standard bekannt - da ist auch alles möglich: YMD, DMY, MM/DD/YYYY, ...)

Es funktioniert aber natürlich auch mit Deinem persönlichen Lieblingsformat ganz einfach:

Code Auswählen Erweitern

my $lastCheck = POSIX::strftime("%d.%m. %H:%M",localtime(InternalVal($name,".LastUpdate",0)));

(identisch auf für $nextCheck verwendbar)

Thx für den Code, ich werde es aktualisieren.

[Frini]

Hallo,
hat eq3 hier die Server-Struktur geändert?
Ich bekomme hier nur noch folgende Rückmeldung:
error => no or wrong data from eq3-server!

[yersinia]

Kann ich nicht bestätigen, letzte Aktualisierung bei mir um 14Uhr und lief.

Welche Version des Templates hast du? Ein list von deinem Device bitte.