mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FritzBoxUtils.pm: avoid WARNING on bogus result (Forum #73335)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14541 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2017-06-19 09:13:10 +00:00
parent 0077bf94bc
commit b271dc5230
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/FritzBoxUtils.pm
View File

@@ -18,7 +18,7 @@ FB_doCheckPW($$$)
my $data = GetFileFromURL("http://$host/login_sid.lua", undef, undef, 1); my $data = GetFileFromURL("http://$host/login_sid.lua", undef, undef, 1);
return undef if(!$data); return undef if(!$data);
my $chl; my $chl="";
$chl = $1 if($data =~ /<Challenge>(\w+)<\/Challenge>/i); $chl = $1 if($data =~ /<Challenge>(\w+)<\/Challenge>/i);
my $chlAnsw .= "$chl-$pw"; my $chlAnsw .= "$chl-$pw";
$chlAnsw =~ s/(.)/$1.chr(0)/eg; # works probably only with ascii $chlAnsw =~ s/(.)/$1.chr(0)/eg; # works probably only with ascii