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

98_fhemdebug.pm: add utf8check function (Forum #125866)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25657 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-02-08 13:58:59 +00:00
parent f12294f1a7
commit 2fe7ffb226
1 changed files with 47 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
fhem/FHEM/98_fhemdebug.pm
View File

@ -14,9 +14,12 @@ my $main_setReadingsVal;
sub
fhemdebug_Initialize($){
$cmds{"fhemdebug"}{Fn} = "fhemdebug_Fn";
$cmds{"fhemdebug"}{Hlp} = "{enable|disable|status|timerList}";
$cmds{"fhemdebug"}{Hlp} = "{enable|disable|status|timerList|utf8check}";
}
sub fhemdebug_utf8check($$$$);
sub
fhemdebug_Fn($$)
{
@ -69,6 +72,15 @@ fhemdebug_Fn($$)
*setReadingsVal = $main_setReadingsVal;
}
} elsif($param =~ m/^utf8check/) { #125866
my (@ret, %visited, $ret);
fhemdebug_utf8check("def", \%defs, \@ret, \%visited);
fhemdebug_utf8check("attr", \%attr, \@ret, \%visited);
fhemdebug_utf8check("modules", \%modules, \@ret, \%visited);
return "Checked ".int(keys %visited)." elements\n".
(int(@ret) ? "Strings with utf8-flag set:\n".join("\n", @ret) :
"Found no strings with utf8-flag");
} else {
return "Usage: fhemdebug {enable | disable | status | ".
"timerList | addTimerStacktrace {0|1} | forceEvents {0|1} }";
@ -76,6 +88,34 @@ fhemdebug_Fn($$)
return;
}
sub
fhemdebug_utf8check($$$$)
{
my ($prefix, $hp, $rp, $vp) = @_;
if(ref($rp) ne "ARRAY") {
Log 1, "utf8check problems at $prefix";
return;
}
for my $key (sort keys %{$hp}) {
my $path = $prefix."::".$key;
next if($vp->{$path} || index($prefix,"::$key") > 0);
$vp->{$path} = 1;
my $val = $hp->{$key};
my $rv = ref($val);
if($rv eq "HASH") {
fhemdebug_utf8check($path, $val, $rp, $vp);
} elsif($rv eq "ARRAY") {
} elsif(utf8::is_utf8($val)) {
push @{$rp}, $path . " => " . $hp->{$key};
}
}
}
sub
fhemdebug_CheckDefs($@)
{
@ -188,6 +228,12 @@ fhemdebug_timerList($)
call. This stacktrace will be shown in the timerList command.
</li>
<li>utf8check<br>
returns the list of strings with the internal utf8-bit set.
Such strings may cause various problems.
</li>
</ul>
</ul>