FHEM Forum

FHEM - Hardware => FRITZ!Box => Thema gestartet von: loescher am 04 Mai 2018, 17:10:00

Titel: FritzBoxUtils.pm: Patch, um ältere Modelle zu unterstützen
Beitrag von: loescher am 04 Mai 2018, 17:10:00
Hallo Rudi,

In dem Thread
https://forum.fhem.de/index.php/topic,69408.30.html (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.
Titel: Antw:FritzBoxUtils.pm: Patch, um ältere Modelle zu unterstützen
Beitrag von: rudolfkoenig am 05 Mai 2018, 19:14:10
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.
Titel: Antw:FritzBoxUtils.pm: Patch, um ältere Modelle zu unterstützen
Beitrag von: loescher am 05 Mai 2018, 20:21:13
Super vielen Dank!
Sollte jemand Probleme damit haben, kann er sich ja gerne bei mir melden  ;)
LG,
Stephan.