From b04f1b8f9f170bab1363c6904f1e116838ada976 Mon Sep 17 00:00:00 2001
From: StefanStrobel <>
Date: Thu, 4 Feb 2021 16:19:26 +0000
Subject: [PATCH] 98_HTTPMOD: fix a bug regading utf8 encoding by default

git-svn-id: https://svn.fhem.de/fhem/trunk@23672 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HTTPMOD.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/98_HTTPMOD.pm b/fhem/FHEM/98_HTTPMOD.pm
index fbd61ea55..c5cf9f9ca 100755
--- a/fhem/FHEM/98_HTTPMOD.pm
+++ b/fhem/FHEM/98_HTTPMOD.pm
@@ -141,7 +141,7 @@ BEGIN {
     ));
 };
 
-my $Module_Version = '4.1.01 - 18.1.2021';
+my $Module_Version = '4.1.02 - 4.2.2021';
 
 my $AttrList = join (' ', 
       '(reading|get|set)[0-9]+(-[0-9]+)?Name', 
@@ -1479,11 +1479,10 @@ sub FormatReading {
     $expr    = GetFAttr($name, $context, $num, "Expr", $expr) if ($context ne "set");   # not for set!
     $expr    = GetFAttr($name, $context, $num, "OExpr", $expr);                         # new syntax
     
-    # if no encode is specified and bodyDecode did decode automatically, then encode as utf8 by default
+    # if no encode is specified and bodyDecode did decode, then encode as utf8 by default
     #my $fDefault   = ($featurelevel > 5.9 ? 'auto' : '');
-    #my $fDefault   = 'none';
-    #my $bodyDecode = AttrVal($name, 'bodyDecode', $fDefault);
-    #$encode = 'utf8' if (!$encode && $bodyDecode eq 'auto');
+    my $bodyDecode = AttrVal($name, 'bodyDecode', '');
+    $encode = 'utf8' if (!$encode && $bodyDecode ne 'none');
 
     $val = decode($decode, $val) if ($decode && $decode ne 'none');
     $val = encode($encode, $val) if ($encode && $encode ne 'none');