FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

98_HTTPMOD: small bug fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24678 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
StefanStrobel 2021-06-24 19:45:06 +00:00
parent 0c5506c936
commit ed2fa97b7c
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/98_HTTPMOD.pm
View File

@ -140,7 +140,7 @@ BEGIN {
));
};
my $Module_Version = '4.1.08 - 1.4.2021';
my $Module_Version = '4.1.09 - 24.6.2021';
my $AttrList = join (' ',
'(reading|get|set)[0-9]+(-[0-9]+)?Name',
@ -2151,7 +2151,7 @@ sub CheckRedirects {
Log3 $name, 4, "$name: no header to look for redirects";
return;
}
my @header = split("\r\n", $header);
my @header = split("[\r\n]+", $header);
my @header0 = split(" ", shift @header);
my $code = $header0[1];
Log3 $name, 4, "$name: checking for redirects, code=$code, ignore=$request->{ignoreredirects}";
@ -2171,6 +2171,7 @@ sub CheckRedirects {
map { $redirAdr = $1 if ( $_ =~ m{ [Ll]ocation: \s* (\S+) $ }xms ) } @header;
if (!$redirAdr) {
Log3 $name, 3, "$name: Error: got Redirect but no Location-Header from server";
return;
}
$redirAdr = "/$redirAdr" if($redirAdr !~ m/^http/ && $redirAdr !~ m/^\//);
my $rurl = ($redirAdr =~ m/^http/) ? $redirAdr : $addr.$redirAdr;

12
fhem/lib/FHEM/HTTPMOD/Utils.pm
View File

@ -18,6 +18,10 @@
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
#
##############################################################################
#
# todo: rights checking for eval
# timeout functions
#
package FHEM::HTTPMOD::Utils;
@ -245,7 +249,7 @@ sub ValidRegex {
#
# var names can not only start with % but also @ and $
# when a hash is passed and the target variable name starts with $
# then it is assigned the hash reference not a new copy of the hash
# then it is assigned the hash reference not a new copy of the hash.
# same for arrays.
#
# special keys:
@ -561,7 +565,7 @@ sub StoreKeyValue {
my $key = getUniqueId().$index;
my $enc = "";
if(eval { use Digest::MD5; 1 }) {
if(eval "use Digest::MD5; 1") {
$key = Digest::MD5::md5_hex(unpack "H*", $key);
$key .= Digest::MD5::md5_hex($key);
}
@ -598,7 +602,7 @@ sub ReadKeyValue {
Log3 $name, 4, "$name: ReadKeyValue could not find key $kName in file";
return;
}
if (eval { use Digest::MD5; 1 }) {
if (eval "use Digest::MD5; 1") {
$key = Digest::MD5::md5_hex(unpack "H*", $key);
$key .= Digest::MD5::md5_hex($key);
}
@ -668,7 +672,7 @@ sub FlattenJSON {
my $buffer = shift; # buffer containing JSON data
my $name = $hash->{NAME}; # Fhem device name
eval { use JSON };
eval "use JSON";
return if($@);
my $decoded = eval { decode_json($buffer) };