Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

FritzBoxUtils.pm: fix login for old Firmware Versions (Forum #87526)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16691 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-05-05 17:11:26 +00:00
parent 5eebd80a83
commit a2948d7ea5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
FHEM/FritzBoxUtils.pm
View File

@ -34,11 +34,12 @@ FB_doCheckPW($$$)
if($data =~ m/iswriteaccess/) { # Old version if($data =~ m/iswriteaccess/) { # Old version
my @d = ( "login:command/response=$chlAnsw", 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 = join("&", map {join("=", map {urlEncode($_)} split("=",$_,2))} @d);
$data = GetFileFromURL(FB_host2URL($host)."cgi-bin/webcm", undef, $data, 1); $data = GetFileFromURL(FB_host2URL($host)."cgi-bin/webcm", undef, $data, 1);
my $isOk = ($data =~ m/checkStatus/); my $sid = $1 if($data =~ /<SID>(\w+)<\/SID>/i);
return $isOk; $sid = undef if($sid =~ m/^0*$/);
return $sid;
} else { # FritzOS >= 5.50 } else { # FritzOS >= 5.50
my @d = ( "response=$chlAnsw", "page=/login_sid.lua" ); my @d = ( "response=$chlAnsw", "page=/login_sid.lua" );