FritzBoxUtils.pm: Patch, um ältere Modelle zu unterstützen

Begonnen von loescher, 04 Mai 2018, 17:10:00

Vorheriges Thema - Nächstes Thema

loescher

Hallo Rudi,

In dem Thread
https://forum.fhem.de/index.php/topic,69408.30.html
wird dieser Patch für FritzBoxUtils.pm vorgestellt:

--- FritzBoxUtils.pm 2018-04-30 21:59:47.464743250 +0200
+++ FritzBoxUtils.pm.NEW 2018-05-04 16:50:23.018790053 +0200
@@ -34,11 +34,12 @@

   if($data =~ m/iswriteaccess/) {      # Old version
     my @d = ( "login:command/response=$chlAnsw",
-              "getpage=../html/de/internet/connect_status.txt" );
+              "getpage=../html/login_sid.xml" );
     $data = join("&", map {join("=", map {urlEncode($_)} split("=",$_,2))} @d);
     $data = GetFileFromURL(FB_host2URL($host)."cgi-bin/webcm", undef, $data, 1);
-    my $isOk = ($data =~ m/checkStatus/);
-    return $isOk;
+    my $sid = $1 if($data =~ /<SID>(\w+)<\/SID>/i);
+    $sid = undef if($sid =~ m/^0*$/);
+    return $sid;

   } else {                            # FritzOS >= 5.50
     my @d = ( "response=$chlAnsw", "page=/login_sid.lua" );


Damit funktionieren dann auch ältere FritzBoxen, wie bei mir die 7170.
Könntest du bitte den Patch offiziell einbauen?

LG,
Stephan.

rudolfkoenig

Da dieser Patch nur Geraete mit FRITZ!OS vor 5.50 betrifft, kann ich es nicht testen.
Allerdings sollte der Schaden auch begrenzt sein, habe es deswegen eingecheckt.

loescher

Super vielen Dank!
Sollte jemand Probleme damit haben, kann er sich ja gerne bei mir melden  ;)
LG,
Stephan.