From a2948d7ea50b1a44d66ec50aadf9da7b7b6b754c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 5 May 2018 17:11:26 +0000
Subject: [PATCH] FritzBoxUtils.pm: fix login for old Firmware Versions (Forum
 #87526)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16691 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/FritzBoxUtils.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/FHEM/FritzBoxUtils.pm b/FHEM/FritzBoxUtils.pm
index e52c24708..0efdff842 100644
--- a/FHEM/FritzBoxUtils.pm
+++ b/FHEM/FritzBoxUtils.pm
@@ -34,11 +34,12 @@ FB_doCheckPW($$$)
 
   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" );