eq3 firmware check funkioniert nicht mehr

[Otto123]

Der File heisst im downloadlink
2019-09-03 12:42:37   fw_link-06      http://www.eq-3.de/downloads/software/firmware/hm-es-tx-wm_update_v1_2_160628.tgz

Daraus macht das Tool nach allen regeln der Kunst 1.2

Sie bieten im Service Bereich beide an. Und die 2.2 von Heute, vielleicht müssen wir warten bis sie von a nach b kommt? Vielleicht hat Frank dazu ne Idee - ich weiß nicht ganz wie er in den neuen Bereich gekommen ist

[Nobby1805]

Sag ich ja ... Problem bei eq-3 

Code Auswählen Erweitern

https://www.eq-3.de/downloads/software/firmware/HM-ES-TX-WM_update_V2_2_190619_1.tgz

[Otto123]

Das heisst auch, wir sollten https verwenden:

Code Auswählen Erweitern

reading01Format https://www.eq-3.de%s

[frank]

1. fehlende readings

httpmod meldet jetzt bei dir schon mal "HTTP/1.1 200 OK". allerdings werden keine fw_link-readings generiert. aktuell müssten 19 solcher readings kommen. gestern abend gab es noch 20.

eventuell hattest du heute morgen pech, da gerade wieder am server gearbeitet wurde.
versuche mal ein "set eq3 reread" und schaue, ob die readings nun kommen.

wenn nicht, probiere erneut ein reread mit zusätzlichem attribut httpVersion, das bei mir gesetzt ist:

Code Auswählen Erweitern

attr eq3 httpVersion 1.1


2. fw prüfung

damit die prüfung auf neue fw funktioniert, muss nun auch das attribut userreadings geändert werden. : 

Code Auswählen Erweitern

newFwForDevices:MATCHED_READINGS.* {
my $ret = "";
my @data;
my @eq3FwList = map{@data = ReadingsVal("eq3","fw_link-".$_,"?") =~ m/firmware\/(.*?)_update_v([\d_]+)_(\d\d)(\d\d)(\d\d)/;
$data[0] =~ s/_/-/g;
sprintf("%s:%s:%s.%s.%s:%s",$data[0],$data[1],$data[4],$data[3],"20".$data[2],$_);
} ReadingsVal("eq3","MATCHED_READINGS","?") =~ m/fw_link-(\d\d)/g;

foreach my $dev (devspec2array("TYPE=CUL_HM:FILTER=DEF=......:FILTER=subType!=(virtual|)")) {
my $md = AttrVal($dev,"model","?");
my $v = AttrVal($dev,"firmware","0.0");
my ($h,$l) = split('\.',$v);
foreach my $newFw (grep m/^${md}:/i,@eq3FwList) {
my ($nh,$nl,$no,$date,$idx) = $newFw =~ m/^[^:]+:(\d+)_(\d+)_?(\d*):([^:]+):(\d\d)$/;
if(($nh > $h) || (($nh == $h) && ($nl > $l))) {
$ret .= "," if($ret ne "");
$ret .= $dev." (".$md." | fw_".$v." => fw".$idx."_".$nh.".".$nl.($no?sprintf(".%d",$no):"")." | ".$date.")";
}
}
}
return ($ret eq "")?"no fw-updates needed!":$ret;
}


da das userreading nun auch einen fehler meldet, falls der eq3-server keine oder falsche daten liefert, muss zusätzlich auch das attrttribut stateformat geändert werden. wer mit einer sub funktion in der 99_myUtils arbeitet, muss natürlich dort die sub ändern:

Code Auswählen Erweitern

{
my $ret ="";
my $lastCheck = ReadingsTimestamp($name,"MATCHED_READINGS","???");
$ret .= '<div style="text-align:left">';
$ret .= 'last <a title="eq3-downloads" href="http://www.eq-3.de/service/downloads.html">homematic</a>-fw-check => '.$lastCheck;
$ret .= '<br><br>';
$ret .= '<pre>';
$ret .= "| device                  | model                   | cur_fw | new_fw | release    |<br>";
$ret .= "------------------------------------------------------------------------------------<br>";
my $check = ReadingsVal($name,"newFwForDevices","error => no or wrong data from eq3-server!");
if($check eq "no fw-updates needed!") {
$ret .= '| ';
$ret .= '<b style="color:green">';
$ret .= sprintf("%-80s",$check);
$ret .= '</b>';
$ret .= ' |';
} elsif($check eq "error => no or wrong data from eq3-server!") {
$ret .= '| ';
$ret .= '<b style="color:red">';
$ret .= sprintf("%-80s",$check);
$ret .= '</b>';
$ret .= ' |';
} else {
my @devices = split(',',$check);
foreach my $devStr (@devices) {
my ($dev,$md,$ofw,$idx,$nfw,$date) = $devStr =~ m/^([^\s]+)\s\(([^\s]+)\s\|\sfw_(\d+\.\d+)\s=>\sfw(\d\d)_([\d\.]+)\s\|\s([^\)]+)\)$/;
my $link = ReadingsVal($name,"fw_link-".$idx,"???");
$ret .= '| ';
$ret .= '<a href="/fhem?detail='.$dev.'">'; 
$ret .= sprintf("%-23s",$dev);
$ret .= '</a>'; 
$ret .= " | "; 
$ret .= '<b'.(($md eq "?")?' title="missing attribute model => set device in teach mode to receive missing data" style="color:yellow"':' style="color:lightgray"').'>'; 
$ret .= sprintf("%-23s",$md);
$ret .= '</b>'; 
$ret .= " | "; 
$ret .= '<b'.(($ofw eq "0.0")?' title="missing attribute firmware => set device in teach mode to receive missing data" style="color:yellow"':' style="color:lightgray"').'>'; 
$ret .= sprintf("%6s",$ofw);
$ret .= '</b>'; 
$ret .= " | "; 
$ret .= '<a title="eq3-firmware.tgz" href="'.$link.'">'; 
$ret .= '<b style="color:red">'; 
$ret .= sprintf("%6s",$nfw);
$ret .= '</b>'; 
$ret .= '</a>'; 
$ret .= " | "; 
$ret .= sprintf("%-10s",$date);
$ret .= " |<br>"; 
}
}
$ret .= '</pre>';
$ret .= '</div>';
return $ret;
}




edit:  na hier war ja was los. ihr habt ja fast schon alles gefunden.

mit dieser regex kommt auch die nagelneue fw 2.2 für den tx. somit sind es aktuell wieder 20 fw-files bei mir.

Code Auswählen Erweitern

<a.href="(\/downloads\/software\/firmware\/[hH][mM][^"]+)

[frank]

ich habe gerade gesehen, dass das userreading noch mal geändert werden muss, da eq3 bei der neuen firmware das "v" im link nun auch wieder gross schreibt. was ist da bei denen bloss los.

Code Auswählen Erweitern

newFwForDevices:MATCHED_READINGS.* {
my $ret = "";
my @data;
if (ReadingsVal($name,"UNMATCHED_READINGS","?") eq "") {
my @eq3FwList = map{@data = ReadingsVal($name,"fw_link-".$_,"?") =~ m/firmware\/(.*?)_update_[vV]([\d_]+)_(\d\d)(\d\d)(\d\d)/;
$data[0] =~ s/_/-/g;
sprintf("%s:%s:%s.%s.%s:%s",$data[0],$data[1],$data[4],$data[3],"20".$data[2],$_);
} ReadingsVal($name,"MATCHED_READINGS","?") =~ m/fw_link-(\d\d)/g;

foreach my $dev (devspec2array("TYPE=CUL_HM:FILTER=DEF=......:FILTER=subType!=(virtual|)")) {
my $md = AttrVal($dev,"model","?");
my $v = AttrVal($dev,"firmware","0.0");
my ($h,$l) = split('\.',$v);
foreach my $newFw (grep m/^${md}:/i,@eq3FwList) {
my ($nh,$nl,$no,$date,$idx) = $newFw =~ m/^[^:]+:(\d+)_(\d+)_?(\d*):([^:]+):(\d\d)$/;
if(($nh > $h) || (($nh == $h) && ($nl > $l))) {
$ret .= "," if($ret ne "");
$ret .= $dev." (".$md." | fw_".$v." => fw".$idx."_".$nh.".".$nl.($no?sprintf(".%d",$no):"")." | ".$date.")";
}
}
}
} else {
$ret = "error => no or wrong data from eq3-server!";
}
return ($ret eq "")?"no fw-updates needed!":$ret;
}


zu diesem userreading braucht man auch noch das stateformat aus meinem vorherigen post, damit die neue fehlermeldung angezeigt werden kann.

[Otto123]

"Gegenvorschlag":

Code Auswählen Erweitern

m/Firmware\/(.*?)_update_V([\d_]+)_(\d\d)(\d\d)(\d\d)/i;

i
Do case-insensitive pattern matching. For example, "A" will match "a" under /i .

Da könnten sie in Zukunft Update groß schreiben

[frank]

mit "i" klappt es bei mir gerade nicht. ich hätte eigentlich 5 neue fw. nun nichts mehr.

warum funktioniert bei dir eigentlich das gross geschriebene "Firmware" am anfang der regex?

ausserdem habe ich noch im neuen fw link, hinter dem datum, ein "_1" gesehen. was ist das nun wieder?

jemand mit tx device und alter fw müsste das mal testen. also nobby?

[Otto123]

warum funktioniert bei dir eigentlich das gross geschriebene "Firmware" am anfang der regex?

Sorry für die Verwirrung, ich wollte dokumentieren mit /i brauchen wir nichts weiter im "Original" ändern.

Das klappt bei mir nur wenn ich /i anfüge. mmmh warum geht das bei Dir nicht? Ich hatte vorhin auch mal den Zustand auf einem anderen System, aber gerade nochmal getestet, das funktioniert.

[frank]

sorry, "i" funktioniert nun doch. ich hatte aus versehen, das "v" ganz rausgeschmissen. 

[frank]

"i" funktioniert so gut, dass ich die regex auch gleich noch geändert habe.

Code Auswählen Erweitern

reading01RegOpt gi
reading01Regex <a.href="(\/downloads\/software\/firmware\/hm[^"]+)

jetzt müssen sie sich aber schon anstrengen, um uns zu ärgern.   

[Nobby1805]

jemand mit tx device und alter fw müsste das mal testen. also nobby?

Ich musste noch eine weitere Änderung machen   
Entweder kam nur die Neue Version vom TX und sonst nichts oder es kamen alle, bis auf die V2.2. des TX 
Im Userreading habe ich jetzt [vV] eingebaut, dann klappt es ... wieso funktioniert die i-Option nicht innerhalb des Userreadings?

Code Auswählen Erweitern

| HM_4D106F               | HM-ES-TX-WM             |    1.0 |    2.2 | 19.06.2019 |
| HM_4D106F               | HM-ES-TX-WM             |    1.0 |    1.2 | 28.06.2016 |
| Innen                   | HM-TC-IT-WM-W-EU        |    1.1 |  1.3.2 | 27.08.2015 |
| Innen2                  | HM-TC-IT-WM-W-EU        |    1.2 |  1.3.2 | 27.08.2015 |
| Innen3                  | HM-TC-IT-WM-W-EU        |    1.2 |  1.3.2 | 27.08.2015 |
| Innen4                  | HM-TC-IT-WM-W-EU        |    1.1 |  1.3.2 | 27.08.2015 |
| Innen5                  | HM-TC-IT-WM-W-EU        |    1.2 |  1.3.2

[ms_steini]

nur zur Info,

Ihr dürft keine SVG mit gleichem Namen wie der HTTPMOD haben, dann gib's ne ganz schlimme Anzeige!

[Otto123]

ausserdem habe ich noch im neuen fw link, hinter dem datum, ein "_1" gesehen. was ist das nun wieder?
jemand mit tx device und alter fw müsste das mal testen. also nobby?

Aber im Tester funktioniert das einwandfrei:
https://regex101.com/r/9qZxph/1

Und bei mir auch bei allen Geräten wo ich testen kann.

Im Übrigen zum Testen von eq3 HTTPMOD, quasi jedes beliebige HM Gerät:)

Code Auswählen Erweitern

define HM_test CUL_HM AAFFEE
attr HM_test firmware 1.0
attr HM_test modelForce HM-ES-TX-WM
attr HM_test room CUL_HM

[Nobby1805]

Tja, ich habe mich auch gewundert ... er zeigte entweder 6 (mit kleinem v) oder 1 (mit großen V) Updates an ... erst mit [vV] waren es dann 7

[Otto123]

nur zur Info,

Ihr dürft keine SVG mit gleichem Namen wie der HTTPMOD haben, dann gib's ne ganz schlimme Anzeige!

Kannst Du da noch etwas ausholen? Wo gibt es ne schlimme Anzeige?