From 81096df6e0dd5e2fb9c914576637e7b23e7f32ab Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Thu, 23 Feb 2017 12:53:19 +0100 Subject: [PATCH] add german commandref --- 82_LGTV_WebOS.pm | 147 +++++++++++++++++++++++++++++++++++++++++++---- 1 file changed, 137 insertions(+), 10 deletions(-) diff --git a/82_LGTV_WebOS.pm b/82_LGTV_WebOS.pm index 85df3f5..bed35b7 100644 --- a/82_LGTV_WebOS.pm +++ b/82_LGTV_WebOS.pm @@ -51,7 +51,7 @@ use Encode qw(encode_utf8); -my $version = "0.1.0"; +my $version = "0.1.1"; @@ -401,7 +401,6 @@ sub LGTV_WebOS_Set($@) { return "usage: screenMsg " if( @args < 1 ); my $msg = join(" ", @args); - #$msg =~ s/รค/u/g; $payload{$lgCommands{$cmd}->[1]} = $msg; $uri = $lgCommands{$cmd}->[0]; @@ -635,13 +634,11 @@ sub LGTV_WebOS_Read($) { Log3 $name, 4, "LGTV_WebOS ($name) - received correct JSON string, start response processing: $buf"; LGTV_WebOS_ResponseProcessing($hash,$buf); - #return; } elsif( $buf =~ /HTTP\/1.1 101 Switching Protocols/ ) { Log3 $name, 4, "LGTV_WebOS ($name) - received HTTP data string, start response processing: $buf"; LGTV_WebOS_ResponseProcessing($hash,$buf); - #return; } else { @@ -669,14 +666,14 @@ sub LGTV_WebOS_ProcessRead($$) { Log3 $name, 4, "LGTV_WebOS ($name) - No PARTIAL buffer"; } - + Log3 $name, 5, "LGTV_WebOS ($name) - Incoming data: " . $data; - + $buffer = $buffer . $data; Log3 $name, 5, "LGTV_WebOS ($name) - Current processing buffer (PARTIAL + incoming data): " . $buffer; my ($json,$tail) = LGTV_WebOS_ParseMsg($hash, $buffer); - + while($json) { @@ -692,8 +689,8 @@ sub LGTV_WebOS_ProcessRead($$) { Log3 $name, 5, "LGTV_WebOS ($name) - Nach Sub: Laenge JSON: " . length($json) . " Content: " . $json . " Tail: " . $tail; } - - + + $tail = '' if(length($tail) > 30000); $hash->{PARTIAL} = $tail; @@ -844,8 +841,9 @@ sub LGTV_WebOS_WriteReadings($$) { my $count = 0; foreach my $programList ( @{$decode_json->{payload}{programList}} ) { - + if($count < 1) { + readingsBulkUpdate($hash,'channelCurrentTitle',$programList->{programName}); readingsBulkUpdate($hash,'channelCurrentStartTime',LGTV_WebOS_FormartStartEndTime($programList->{localStartTime})); readingsBulkUpdate($hash,'channelCurrentEndTime',LGTV_WebOS_FormartStartEndTime($programList->{localEndTime})); @@ -1333,3 +1331,132 @@ sub LGTV_WebOS_FormartStartEndTime($) { 1; + + +=pod +=item device +=item summary Controls LG SmartTVs run with WebOS Operating System (in beta phase) +=item summary_DE Steuert LG SmartTVs mit WebOS Betriebssystem (derzeit Beta Status) + +=begin html + + +

LGTV_WebOS

+ +=end html + +=begin html_DE + + +

LGTV_WebOS

+ +=end html_DE + +=cut