Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

93_DbRep: change DbRep_charfilter

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18385 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-01-23 00:19:16 +00:00
parent 34043d1f59
commit cf772d29e7
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
FHEM/93_DbRep.pm
View File

@ -57,6 +57,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch';
# Versions History intern # Versions History intern
our %DbRep_vNotesIntern = ( our %DbRep_vNotesIntern = (
"8.10.1" => "23.01.2019 change DbRep_charfilter to eliminate \xc2",
"8.10.0" => "19.01.2019 sqlCmd, dbValue may input SQL session variables, Forum:#96082 ", "8.10.0" => "19.01.2019 sqlCmd, dbValue may input SQL session variables, Forum:#96082 ",
"8.9.10" => "18.01.2019 fix warnings Malformed UTF-8 character during importFromFile, Forum:#96056 ", "8.9.10" => "18.01.2019 fix warnings Malformed UTF-8 character during importFromFile, Forum:#96056 ",
"8.9.9" => "06.01.2019 diffval_DoParse: 'ORDER BY TIMESTAMP' added to statements Forum:https://forum.fhem.de/index.php/topic,53584.msg882082.html#msg882082", "8.9.9" => "06.01.2019 diffval_DoParse: 'ORDER BY TIMESTAMP' added to statements Forum:https://forum.fhem.de/index.php/topic,53584.msg882082.html#msg882082",
@ -5208,8 +5209,8 @@ sub expfile_DoParse($) {
$outfile =~ s/%TSB/$rsf/g; $outfile =~ s/%TSB/$rsf/g;
my @t = localtime; my @t = localtime;
$outfile = ResolveDateWildcards($outfile, @t); $outfile = ResolveDateWildcards($outfile, @t);
if (open(FH, ">:utf8", "$outfile")) { if (open(FH, ">", "$outfile")) {
binmode (FH) if(!$utf8); binmode (FH);
} else { } else {
$err = encode_base64("could not open ".$outfile.": ".$!,""); $err = encode_base64("could not open ".$outfile.": ".$!,"");
return "$name|''|''|$err|''|''|''"; return "$name|''|''|$err|''|''|''";
@ -8894,7 +8895,10 @@ sub DbRep_charfilter($) {
my ($txt) = @_; my ($txt) = @_;
# nur erwünschte Zeichen, Filtern von Steuerzeichen # nur erwünschte Zeichen, Filtern von Steuerzeichen
$txt =~ s/\xb0/1degree1/g;
$txt =~ s/\xC2//g;
$txt =~ tr/ A-Za-z0-9!"#$§%&'()*+,-.\/:;<=>?@[\\]^_`{|}~äöüÄÖÜ߀//cd; $txt =~ tr/ A-Za-z0-9!"#$§%&'()*+,-.\/:;<=>?@[\\]^_`{|}~äöüÄÖÜ߀//cd;
$txt =~ s/1degree1/°/g;
return($txt); return($txt);
} }