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

latin1ToUtf8 added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3598 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-08-06 07:18:41 +00:00
parent de81eeb249
commit f560080eed
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem.pl
View File

@ -97,6 +97,7 @@ sub redirectStdinStdErr();
sub setGlobalAttrBeforeFork($);
sub setReadingsVal($$$$);
sub evalStateFormat($);
sub latin1ToUtf8($);
sub CommandAttr($$);
sub CommandDefaultAttr($$);
@ -3420,4 +3421,13 @@ computeClientArray($$)
return \@a;
}
sub
latin1ToUtf8($)
{
# http://perldoc.perl.org/perluniintro.html, UNICODE IN OLDER PERLS
my ($s)= @_;
$s =~ s/([\x80-\xFF])/chr(0xC0|ord($1)>>6).chr(0x80|ord($1)&0x3F)/eg;
return $s;
}
1;