FHEM/mod-LGTV_WebOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix Umlaute bei screenMsg

Browse Source
This commit is contained in:
Marko Oldenburg
2017-07-04 18:54:45 +02:00
parent 5d5358e43e
commit 556e11074a
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
82_LGTV_WebOS.pm
View File

@@ -31,8 +31,19 @@
################################# #################################
######### Wichtige Hinweise und Links ################# ######### Wichtige Hinweise und Links #################
#
## Das JSON Modul immer in einem eval aufrufen
# $data = eval{decode_json($data)};
#
# if($@){
# Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@");
#
# readingsSingleUpdate($hash, "state", "error", 1);
#
# return;
# }
##
##
## ##
# #
@@ -49,14 +60,14 @@ use MIME::Base64;
use IO::Socket::INET; use IO::Socket::INET;
use Digest::SHA qw(sha1_hex); use Digest::SHA qw(sha1_hex);
use JSON qw(decode_json encode_json); use JSON qw(decode_json encode_json);
use Encode qw(encode_utf8); use Encode qw(encode_utf8 decode_utf8);
use Blocking; use Blocking;
my $version = "0.6.0"; my $version = "0.8.0";
@@ -412,7 +423,7 @@ sub LGTV_WebOS_Set($@) {
return "usage: screenMsg <message>" if( @args < 1 ); return "usage: screenMsg <message>" if( @args < 1 );
my $msg = join(" ", @args); my $msg = join(" ", @args);
$payload{$lgCommands{$cmd}->[1]} = $msg; $payload{$lgCommands{$cmd}->[1]} = decode_utf8($msg);
$uri = $lgCommands{$cmd}->[0]; $uri = $lgCommands{$cmd}->[0];
} elsif($cmd eq 'on' or $cmd eq 'off') { } elsif($cmd eq 'on' or $cmd eq 'off') {