FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

use utf8 encoded characters for substitution of German umlauts

Browse Source
This commit is contained in:
vuffiraa72 2019-08-09 19:31:24 +02:00
parent 77c6350b0b
commit 1f4156388d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
73_AutoShuttersControl.pm
View File

@ -3535,18 +3535,18 @@ sub CheckIfShuttersWindowRecOpen($) {
sub makeReadingName($) {
my ($rname) = @_;
my %charHash = (
"ä" => "ae",
"Ä" => "Ae",
"ü" => "ue",
"Ü" => "Ue",
"ö" => "oe",
"Ö" => "Oe",
"ß" => "ss"
chr(0xe4) => "ae", # ä
chr(0xc4) => "Ae", # Ä
chr(0xfc) => "ue", # ü
chr(0xdc) => "Ue", # Ü
chr(0xf6) => "oe", # ö
chr(0xd6) => "Oe", # Ö
chr(0xdf) => "ss" # ß
);
my $charHashkeys = join( "|", keys(%charHash) );
my $charHashkeys = join( "", keys(%charHash) );
return $rname if ( $rname =~ m/^\./ );
$rname =~ s/($charHashkeys)/$charHash{$1}/gi;
$rname =~ s/([$charHashkeys])/$charHash{$1}/gi;
$rname =~ s/[^a-z0-9._\-\/]/_/gi;
return $rname;
}