2044 lines
67 KiB
Perl
2044 lines
67 KiB
Perl
###############################################################################
|
|
#
|
|
# Developed with Kate
|
|
#
|
|
# (c) 2017-2020 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
|
# All rights reserved
|
|
#
|
|
# Special thanks goes to comitters:
|
|
# - Vitolinker / Commandref
|
|
#
|
|
#
|
|
# This script is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# any later version.
|
|
#
|
|
# The GNU General Public License can be found at
|
|
# http://www.gnu.org/copyleft/gpl.html.
|
|
# A copy is found in the textfile GPL.txt and important notices to the license
|
|
# from the author is found in LICENSE.txt distributed with these scripts.
|
|
#
|
|
# This script is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
#
|
|
# $Id$
|
|
#
|
|
###############################################################################
|
|
|
|
#################################
|
|
######### 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;
|
|
# }
|
|
##
|
|
##
|
|
##
|
|
#
|
|
|
|
################################
|
|
|
|
package main;
|
|
|
|
my $missingModul = "";
|
|
|
|
use strict;
|
|
use warnings;
|
|
use FHEM::Meta;
|
|
|
|
eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
|
|
eval "use IO::Socket::INET;1" or $missingModul .= "IO::Socket::INET ";
|
|
eval "use Digest::SHA qw(sha1_hex);1" or $missingModul .= "Digest::SHA ";
|
|
eval "use Encode qw(encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
|
|
eval "use Blocking;1" or $missingModul .= "Blocking ";
|
|
|
|
# try to use JSON::MaybeXS wrapper
|
|
# for chance of better performance + open code
|
|
eval {
|
|
require JSON::MaybeXS;
|
|
import JSON::MaybeXS qw( decode_json encode_json );
|
|
1;
|
|
};
|
|
|
|
if ($@) {
|
|
$@ = undef;
|
|
|
|
# try to use JSON wrapper
|
|
# for chance of better performance
|
|
eval {
|
|
|
|
# JSON preference order
|
|
local $ENV{PERL_JSON_BACKEND} =
|
|
'Cpanel::JSON::XS,JSON::XS,JSON::PP,JSON::backportPP'
|
|
unless ( defined( $ENV{PERL_JSON_BACKEND} ) );
|
|
|
|
require JSON;
|
|
import JSON qw( decode_json encode_json );
|
|
1;
|
|
};
|
|
|
|
if ($@) {
|
|
$@ = undef;
|
|
|
|
# In rare cases, Cpanel::JSON::XS may
|
|
# be installed but JSON|JSON::MaybeXS not ...
|
|
eval {
|
|
require Cpanel::JSON::XS;
|
|
import Cpanel::JSON::XS qw(decode_json encode_json);
|
|
1;
|
|
};
|
|
|
|
if ($@) {
|
|
$@ = undef;
|
|
|
|
# In rare cases, JSON::XS may
|
|
# be installed but JSON not ...
|
|
eval {
|
|
require JSON::XS;
|
|
import JSON::XS qw(decode_json encode_json);
|
|
1;
|
|
};
|
|
|
|
if ($@) {
|
|
$@ = undef;
|
|
|
|
# Fallback to built-in JSON which SHOULD
|
|
# be available since 5.014 ...
|
|
eval {
|
|
require JSON::PP;
|
|
import JSON::PP qw(decode_json encode_json);
|
|
1;
|
|
};
|
|
|
|
if ($@) {
|
|
$@ = undef;
|
|
|
|
# Fallback to JSON::backportPP in really rare cases
|
|
require JSON::backportPP;
|
|
import JSON::backportPP qw(decode_json encode_json);
|
|
1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Declare functions
|
|
sub LGTV_WebOS_Initialize($);
|
|
sub LGTV_WebOS_Define($$);
|
|
sub LGTV_WebOS_Undef($$);
|
|
sub LGTV_WebOS_Set($@);
|
|
sub LGTV_WebOS_Open($);
|
|
sub LGTV_WebOS_Close($);
|
|
sub LGTV_WebOS_Read($);
|
|
sub LGTV_WebOS_Write($@);
|
|
sub LGTV_WebOS_Attr(@);
|
|
sub LGTV_WebOS_Handshake($);
|
|
sub LGTV_WebOS_ResponseProcessing($$);
|
|
sub LGTV_WebOS_Header2Hash($);
|
|
sub LGTV_WebOS_Pairing($);
|
|
sub LGTV_WebOS_CreateSendCommand($$$;$);
|
|
sub LGTV_WebOS_Hybi10Encode($;$$);
|
|
sub LGTV_WebOS_WriteReadings($$);
|
|
sub LGTV_WebOS_GetCurrentChannel($);
|
|
sub LGTV_WebOS_GetForgroundAppInfo($);
|
|
sub LGTV_WebOS_GetAudioStatus($);
|
|
sub LGTV_WebOS_TimerStatusRequest($);
|
|
sub LGTV_WebOS_GetExternalInputList($);
|
|
sub LGTV_WebOS_ProcessRead($$);
|
|
sub LGTV_WebOS_ParseMsg($$);
|
|
sub LGTV_WebOS_Get3DStatus($);
|
|
sub LGTV_WebOS_GetChannelProgramInfo($);
|
|
sub LGTV_WebOS_FormartStartEndTime($);
|
|
sub LGTV_WebOS_Presence($);
|
|
sub LGTV_WebOS_PresenceRun($);
|
|
sub LGTV_WebOS_PresenceDone($);
|
|
sub LGTV_WebOS_PresenceAborted($);
|
|
sub LGTV_WebOS_WakeUp_Udp($@);
|
|
|
|
my %lgCommands = (
|
|
|
|
"getServiceList" => ["ssap://api/getServiceList"],
|
|
"getChannelList" => ["ssap://tv/getChannelList"],
|
|
"getVolume" => ["ssap://audio/getVolume"],
|
|
"getAudioStatus" => ["ssap://audio/getStatus"],
|
|
"getCurrentChannel" => ["ssap://tv/getCurrentChannel"],
|
|
"getChannelProgramInfo" => ["ssap://tv/getChannelProgramInfo"],
|
|
"getForegroundAppInfo" =>
|
|
["ssap://com.webos.applicationManager/getForegroundAppInfo"],
|
|
"getAppList" => ["ssap://com.webos.applicationManager/listApps"],
|
|
"getAppStatus" => ["ssap://com.webos.service.appstatus/getAppStatus"],
|
|
"getExternalInputList" => ["ssap://tv/getExternalInputList"],
|
|
"get3DStatus" => ["ssap://com.webos.service.tv.display/get3DStatus"],
|
|
"powerOff" => ["ssap://system/turnOff"],
|
|
"powerOn" => ["ssap://system/turnOn"],
|
|
"3DOn" => ["ssap://com.webos.service.tv.display/set3DOn"],
|
|
"3DOff" => ["ssap://com.webos.service.tv.display/set3DOff"],
|
|
"volumeUp" => ["ssap://audio/volumeUp"],
|
|
"volumeDown" => ["ssap://audio/volumeDown"],
|
|
"channelDown" => ["ssap://tv/channelDown"],
|
|
"channelUp" => ["ssap://tv/channelUp"],
|
|
"play" => ["ssap://media.controls/play"],
|
|
"stop" => ["ssap://media.controls/stop"],
|
|
"pause" => ["ssap://media.controls/pause"],
|
|
"rewind" => ["ssap://media.controls/rewind"],
|
|
"fastForward" => ["ssap://media.controls/fastForward"],
|
|
"closeViewer" => ["ssap://media.viewer/close"],
|
|
"closeApp" => ["ssap://system.launcher/close"],
|
|
"openApp" => ["ssap://system.launcher/open"],
|
|
"closeWebApp" => ["ssap://webapp/closeWebApp"],
|
|
"openChannel" => [ "ssap://tv/openChannel", "channelNumber" ],
|
|
"launchApp" => [ "ssap://system.launcher/launch", "id" ],
|
|
"screenMsg" => [ "ssap://system.notifications/createToast", "message" ],
|
|
"mute" => [ "ssap://audio/setMute", "mute" ],
|
|
"volume" => [ "ssap://audio/setVolume", "volume" ],
|
|
"switchInput" => [ "ssap://tv/switchInput", "input" ],
|
|
);
|
|
|
|
my %openApps = (
|
|
'Maxdome' => 'maxdome',
|
|
'AmazonLovefilm' => 'lovefilm.de',
|
|
'AmazonVideo' => 'amazon',
|
|
'YouTube' => 'youtube.leanback.v4',
|
|
'Netflix' => 'netflix',
|
|
'TV' => 'com.webos.app.livetv',
|
|
'GooglePlay' => 'googleplaymovieswebos',
|
|
'Browser' => 'com.webos.app.browser',
|
|
'Chili.tv' => 'Chilieu',
|
|
'TVCast' => 'de.2kit.castbrowsing',
|
|
'Smartshare' => 'com.webos.app.smartshare',
|
|
'Scheduler' => 'com.webos.app.scheduler',
|
|
'Miracast' => 'com.webos.app.miracast',
|
|
'TVGuide' => 'com.webos.app.tvguide',
|
|
'Timemachine' => 'com.webos.app.timemachine',
|
|
'ARDMediathek' => 'ard.mediathek',
|
|
'Arte' => 'com.3827031.168353',
|
|
'WetterMeteo' => 'meteonews',
|
|
'Notificationcenter' => 'com.webos.app.notificationcenter',
|
|
'Plex' => 'cdp-30',
|
|
'SkyOnline' => 'de.sky.skyonline',
|
|
'Smart-IPTV' => 'com.1827622.109556',
|
|
'Spotify' => 'spotify-beehive',
|
|
'DuplexIPTV' => 'com.duplexiptv.app',
|
|
'Disney+' => 'com.disney.disneyplus-prod',
|
|
);
|
|
|
|
my %openAppsPackageName = reverse %openApps;
|
|
|
|
sub LGTV_WebOS_Initialize($) {
|
|
|
|
my ($hash) = @_;
|
|
|
|
# Provider
|
|
$hash->{ReadFn} = "LGTV_WebOS_Read";
|
|
$hash->{WriteFn} = "LGTV_WebOS_Write";
|
|
|
|
# Consumer
|
|
$hash->{SetFn} = "LGTV_WebOS_Set";
|
|
$hash->{DefFn} = "LGTV_WebOS_Define";
|
|
$hash->{UndefFn} = "LGTV_WebOS_Undef";
|
|
$hash->{AttrFn} = "LGTV_WebOS_Attr";
|
|
$hash->{AttrList} =
|
|
"disable:1 "
|
|
. "channelGuide:1 "
|
|
. "pingPresence:1 "
|
|
. "wakeOnLanMAC "
|
|
. "wakeOnLanBroadcast "
|
|
. "wakeupCmd "
|
|
. $readingFnAttributes;
|
|
|
|
return FHEM::Meta::InitMod( __FILE__, $hash );
|
|
}
|
|
|
|
sub LGTV_WebOS_Define($$) {
|
|
|
|
my ( $hash, $def ) = @_;
|
|
|
|
my @a = split( "[ \t][ \t]*", $def );
|
|
|
|
return $@ unless ( FHEM::Meta::SetInternals($hash) );
|
|
use version 0.60; our $VERSION = FHEM::Meta::Get( $hash, 'version' );
|
|
|
|
return "too few parameters: define <name> LGTV_WebOS <HOST>" if ( @a != 3 );
|
|
return
|
|
"Cannot define LGTV_WebOS device. Perl modul ${missingModul} is missing."
|
|
if ($missingModul);
|
|
|
|
my $name = $a[0];
|
|
my $host = $a[2];
|
|
|
|
$hash->{HOST} = $host;
|
|
$hash->{VERSION} = version->parse($VERSION)->normal;
|
|
$hash->{PARTIAL} = '';
|
|
$hash->{helper}{device}{channelguide}{counter} = 0;
|
|
$hash->{helper}{device}{registered} = 0;
|
|
$hash->{helper}{device}{runsetcmd} = 0;
|
|
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - defined with host $host";
|
|
|
|
$attr{$name}{devStateIcon} = 'on:10px-kreis-gruen:off off:10px-kreis-rot:on'
|
|
if ( !defined( $attr{$name}{devStateIcon} ) );
|
|
$attr{$name}{room} = 'LGTV' if ( !defined( $attr{$name}{room} ) );
|
|
CommandDeleteReading( undef, $name . ' presence' )
|
|
if ( AttrVal( $name, 'pingPresence', 0 ) == 0 );
|
|
|
|
$modules{LGTV_WebOS}{defptr}{ $hash->{HOST} } = $hash;
|
|
|
|
if ($init_done) {
|
|
LGTV_WebOS_TimerStatusRequest($hash);
|
|
}
|
|
else {
|
|
InternalTimer( gettimeofday() + 15,
|
|
"LGTV_WebOS_TimerStatusRequest", $hash );
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub LGTV_WebOS_Undef($$) {
|
|
|
|
my ( $hash, $arg ) = @_;
|
|
|
|
my $host = $hash->{HOST};
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash);
|
|
|
|
LGTV_WebOS_Close($hash);
|
|
delete $modules{LGTV_WebOS}{defptr}{ $hash->{HOST} };
|
|
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - device $name deleted";
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub LGTV_WebOS_Attr(@) {
|
|
|
|
my ( $cmd, $name, $attrName, $attrVal ) = @_;
|
|
my $hash = $defs{$name};
|
|
|
|
my $orig = $attrVal;
|
|
|
|
if ( $attrName eq "disable" ) {
|
|
if ( $cmd eq "set" and $attrVal eq "1" ) {
|
|
RemoveInternalTimer($hash);
|
|
readingsSingleUpdate( $hash, "state", "disabled", 1 );
|
|
$hash->{PARTIAL} = '';
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - disabled";
|
|
}
|
|
|
|
elsif ( $cmd eq "del" ) {
|
|
readingsSingleUpdate( $hash, "state", "active", 1 );
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - enabled";
|
|
LGTV_WebOS_TimerStatusRequest($hash);
|
|
}
|
|
}
|
|
|
|
if ( $attrName eq "disabledForIntervals" ) {
|
|
if ( $cmd eq "set" ) {
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - enable disabledForIntervals";
|
|
readingsSingleUpdate( $hash, "state", "Unknown", 1 );
|
|
}
|
|
|
|
elsif ( $cmd eq "del" ) {
|
|
readingsSingleUpdate( $hash, "state", "active", 1 );
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - delete disabledForIntervals";
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub LGTV_WebOS_TimerStatusRequest($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer( $hash, 'LGTV_WebOS_TimerStatusRequest' );
|
|
|
|
readingsBeginUpdate($hash);
|
|
|
|
if ( !IsDisabled($name)
|
|
and $hash->{CD}
|
|
and $hash->{helper}{device}{registered} == 1 )
|
|
{
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - run get functions";
|
|
|
|
LGTV_WebOS_Presence($hash)
|
|
if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
|
|
|
|
if ( $hash->{helper}{device}{channelguide}{counter} > 2
|
|
and AttrVal( $name, 'channelGuide', 0 ) == 1
|
|
and ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' )
|
|
{
|
|
|
|
LGTV_WebOS_GetChannelProgramInfo($hash);
|
|
$hash->{helper}{device}{channelguide}{counter} = 0;
|
|
|
|
}
|
|
else {
|
|
|
|
LGTV_WebOS_GetAudioStatus($hash);
|
|
InternalTimer( gettimeofday() + 2,
|
|
'LGTV_WebOS_GetCurrentChannel', $hash )
|
|
if ( ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' );
|
|
InternalTimer( gettimeofday() + 4,
|
|
'LGTV_WebOS_GetForgroundAppInfo', $hash );
|
|
InternalTimer( gettimeofday() + 6, 'LGTV_WebOS_Get3DStatus',
|
|
$hash );
|
|
InternalTimer( gettimeofday() + 8,
|
|
'LGTV_WebOS_GetExternalInputList', $hash );
|
|
}
|
|
|
|
}
|
|
elsif ( IsDisabled($name) ) {
|
|
|
|
LGTV_WebOS_Close($hash);
|
|
LGTV_WebOS_Presence($hash)
|
|
if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
|
|
$hash->{helper}{device}{runsetcmd} = 0;
|
|
readingsBulkUpdateIfChanged( $hash, 'state', 'disabled' );
|
|
|
|
}
|
|
else {
|
|
|
|
LGTV_WebOS_Presence($hash)
|
|
if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'channel', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelName', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelMedia', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextTitle', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime', '-' );
|
|
|
|
$hash->{helper}{device}{runsetcmd} = 0;
|
|
}
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
LGTV_WebOS_Open($hash) if ( !IsDisabled($name) and not $hash->{CD} );
|
|
|
|
$hash->{helper}{device}{channelguide}{counter} =
|
|
$hash->{helper}{device}{channelguide}{counter} + 1;
|
|
InternalTimer( gettimeofday() + 10, "LGTV_WebOS_TimerStatusRequest",
|
|
$hash );
|
|
}
|
|
|
|
sub LGTV_WebOS_Set($@) {
|
|
|
|
my ( $hash, $name, $cmd, @args ) = @_;
|
|
my ( $arg, @params ) = @args;
|
|
|
|
my $uri;
|
|
my %payload;
|
|
my $inputs;
|
|
my @inputs;
|
|
|
|
if ( $cmd eq 'connect' ) {
|
|
return "usage: connect" if ( @args != 0 );
|
|
|
|
LGTV_WebOS_Open($hash);
|
|
|
|
return undef;
|
|
|
|
}
|
|
elsif ( $cmd eq 'clearInputList' ) {
|
|
return "usage: clearInputList" if ( @args != 0 );
|
|
|
|
delete $hash->{helper}{device}{inputs};
|
|
delete $hash->{helper}{device}{inputapps};
|
|
|
|
return undef;
|
|
|
|
}
|
|
elsif ( $cmd eq 'pairing' ) {
|
|
return "usage: pairing" if ( @args != 0 );
|
|
|
|
LGTV_WebOS_Pairing($hash);
|
|
|
|
return undef;
|
|
|
|
}
|
|
elsif ( $cmd eq 'screenMsg' ) {
|
|
return "usage: screenMsg <message>" if ( @args < 1 );
|
|
|
|
my $msg = join( " ", @args );
|
|
$payload{ $lgCommands{$cmd}->[1] } = decode_utf8($msg);
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'on' or $cmd eq 'off' ) {
|
|
return "usage: on/off" if ( @args != 0 );
|
|
|
|
if ( $cmd eq 'off' ) {
|
|
$uri = $lgCommands{powerOff};
|
|
}
|
|
elsif ( $cmd eq 'on' ) {
|
|
if ( AttrVal( $name, 'wakeOnLanMAC', 'none' ) ne 'none' ) {
|
|
LGTV_WebOS_WakeUp_Udp(
|
|
$hash,
|
|
AttrVal( $name, 'wakeOnLanMAC', 0 ),
|
|
AttrVal( $name, 'wakeOnLanBroadcast', '255.255.255.255' )
|
|
);
|
|
return;
|
|
}
|
|
elsif ( AttrVal( $name, 'wakeupCmd', 'none' ) ne 'none' ) {
|
|
my $wakeupCmd = AttrVal( $name, 'wakeupCmd', 'none' );
|
|
if ( $wakeupCmd =~ s/^[ \t]*\{|\}[ \t]*$//g ) {
|
|
Log3 $name, 4,
|
|
"LGTV_WebOS executing wake-up command (Perl): $wakeupCmd";
|
|
eval $wakeupCmd;
|
|
return;
|
|
}
|
|
else {
|
|
Log3 $name, 4,
|
|
"LGTV_WebOS executing wake-up command (fhem): $wakeupCmd";
|
|
fhem $wakeupCmd;
|
|
return;
|
|
}
|
|
}
|
|
else {
|
|
$uri = $lgCommands{powerOn};
|
|
}
|
|
}
|
|
|
|
}
|
|
elsif ( $cmd eq '3D' ) {
|
|
return "usage: 3D on/off" if ( @args != 1 );
|
|
|
|
if ( $args[0] eq 'off' ) {
|
|
$uri = $lgCommands{'3DOff'};
|
|
}
|
|
elsif ( $args[0] eq 'on' ) {
|
|
$uri = $lgCommands{'3DOn'};
|
|
}
|
|
|
|
}
|
|
elsif ( $cmd eq 'mute' ) {
|
|
return "usage: mute" if ( @args != 1 );
|
|
|
|
if ( $args[0] eq 'off' ) {
|
|
|
|
$uri = $lgCommands{volumeDown}->[0];
|
|
|
|
}
|
|
elsif ( $args[0] eq 'on' ) {
|
|
|
|
$payload{ $lgCommands{$cmd}->[1] } = 'true';
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
}
|
|
|
|
}
|
|
elsif ( $cmd eq 'volume' ) {
|
|
return "usage: volume" if ( @args != 1 );
|
|
|
|
$payload{ $lgCommands{$cmd}->[1] } = int( join( " ", @args ) );
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'launchApp' ) {
|
|
return "usage: launchApp" if ( @args != 1 );
|
|
|
|
$payload{ $lgCommands{$cmd}->[1] } = $openApps{ join( " ", @args ) };
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'input' ) {
|
|
return "usage: input" if ( @args != 1 );
|
|
|
|
my $inputLabel = join( " ", @args );
|
|
$payload{ $lgCommands{launchApp}->[1] } =
|
|
$hash->{helper}{device}{inputs}{$inputLabel};
|
|
$uri = $lgCommands{launchApp}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'volumeUp' ) {
|
|
return "usage: volumeUp" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'volumeDown' ) {
|
|
return "usage: volumeDown" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'channelDown' ) {
|
|
return "usage: channelDown" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'channelUp' ) {
|
|
return "usage: channelUp" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'channel' ) {
|
|
return "usage: channel" if ( @args != 1 );
|
|
|
|
$payload{ $lgCommands{openChannel}->[1] } = join( " ", @args );
|
|
$uri = $lgCommands{openChannel}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'getServiceList' ) {
|
|
return "usage: getServiceList" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'getChannelList' ) {
|
|
return "usage: getChannelList" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'getAppList' ) {
|
|
return "usage: getAppList" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'getExternalInputList' ) {
|
|
return "usage: getExternalInputList" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'play' ) {
|
|
return "usage: play" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'stop' ) {
|
|
return "usage: stop" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'fastForward' ) {
|
|
return "usage: fastForward" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'rewind' ) {
|
|
return "usage: rewind" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
elsif ( $cmd eq 'pause' ) {
|
|
return "usage: pause" if ( @args != 0 );
|
|
|
|
$uri = $lgCommands{$cmd}->[0];
|
|
|
|
}
|
|
else {
|
|
my $list = "";
|
|
$list .=
|
|
'connect:noArg pairing:noArg screenMsg mute:on,off volume:slider,0,1,100 volumeUp:noArg volumeDown:noArg channelDown:noArg channelUp:noArg getServiceList:noArg on:noArg off:noArg';
|
|
$list .=
|
|
' 3D:on,off stop:noArg play:noArg pause:noArg rewind:noArg fastForward:noArg clearInputList:noArg channel';
|
|
$list .= ' launchApp:' . join( ',', => map qq{$_} => keys %openApps );
|
|
$list .= ' input:'
|
|
. join( ',',
|
|
=> map qq{$_} => keys %{ $hash->{helper}{device}{inputs} } )
|
|
if ( defined( $hash->{helper}{device}{inputs} )
|
|
and ref( $hash->{helper}{device}{inputs} ) eq "HASH" );
|
|
|
|
return "Unknown argument $cmd, choose one of $list";
|
|
}
|
|
|
|
$hash->{helper}{device}{runsetcmd} = $hash->{helper}{device}{runsetcmd} + 1;
|
|
LGTV_WebOS_CreateSendCommand( $hash, $uri, \%payload );
|
|
}
|
|
|
|
sub LGTV_WebOS_Open($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
my $host = $hash->{HOST};
|
|
my $port = 3000;
|
|
my $timeout = 0.1;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Baue Socket Verbindung auf";
|
|
|
|
my $socket = new IO::Socket::INET(
|
|
PeerHost => $host,
|
|
PeerPort => $port,
|
|
Proto => 'tcp',
|
|
Timeout => $timeout
|
|
)
|
|
or return Log3 $name, 4,
|
|
"LGTV_WebOS ($name) Couldn't connect to $host:$port"; # open Socket
|
|
|
|
$hash->{FD} = $socket->fileno();
|
|
$hash->{CD} = $socket; # sysread / close won't work on fileno
|
|
$selectlist{$name} = $hash;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Socket Connected";
|
|
|
|
LGTV_WebOS_Handshake($hash);
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - start Handshake";
|
|
|
|
}
|
|
|
|
sub LGTV_WebOS_Close($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
return if ( !$hash->{CD} );
|
|
|
|
close( $hash->{CD} ) if ( $hash->{CD} );
|
|
delete( $hash->{FD} );
|
|
delete( $hash->{CD} );
|
|
delete( $selectlist{$name} );
|
|
|
|
readingsSingleUpdate( $hash, 'state', 'off', 1 );
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Socket Disconnected";
|
|
}
|
|
|
|
sub LGTV_WebOS_Write($@) {
|
|
|
|
my ( $hash, $string ) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - WriteFn called";
|
|
|
|
return Log3 $name, 4, "LGTV_WebOS ($name) - socket not connected"
|
|
unless ( $hash->{CD} );
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - $string";
|
|
syswrite( $hash->{CD}, $string );
|
|
return undef;
|
|
}
|
|
|
|
sub LGTV_WebOS_Read($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $len;
|
|
my $buf;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - ReadFn started";
|
|
|
|
$len = sysread( $hash->{CD}, $buf, 10240 );
|
|
|
|
if ( !defined($len) or !$len ) {
|
|
|
|
LGTV_WebOS_Close($hash);
|
|
|
|
return;
|
|
}
|
|
|
|
unless ( defined $buf ) {
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - no data received";
|
|
return;
|
|
}
|
|
|
|
if ( $buf =~ /(\{"type":".+}}$)/ ) {
|
|
|
|
$buf =~ /(\{"type":".+}}$)/;
|
|
$buf = $1;
|
|
|
|
Log3 $name, 4,
|
|
"LGTV_WebOS ($name) - received correct JSON string, start response processing: $buf";
|
|
LGTV_WebOS_ResponseProcessing( $hash, $buf );
|
|
|
|
}
|
|
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 );
|
|
|
|
}
|
|
else {
|
|
|
|
Log3 $name, 4,
|
|
"LGTV_WebOS ($name) - coruppted data found, run LGTV_WebOS_ProcessRead: $buf";
|
|
LGTV_WebOS_ProcessRead( $hash, $buf );
|
|
}
|
|
}
|
|
|
|
sub LGTV_WebOS_ProcessRead($$) {
|
|
|
|
my ( $hash, $data ) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $buffer = '';
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - process read";
|
|
|
|
if ( defined( $hash->{PARTIAL} ) and $hash->{PARTIAL} ) {
|
|
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL};
|
|
$buffer = $hash->{PARTIAL};
|
|
|
|
}
|
|
else {
|
|
|
|
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) {
|
|
|
|
$hash->{LAST_RECV} = time();
|
|
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - Decoding JSON message. Length: "
|
|
. length($json)
|
|
. " Content: "
|
|
. $json;
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - Vor Sub: Laenge JSON: "
|
|
. length($json)
|
|
. " Content: "
|
|
. $json
|
|
. " Tail: "
|
|
. $tail;
|
|
|
|
LGTV_WebOS_ResponseProcessing( $hash, $json )
|
|
unless ( not defined($tail) and not($tail) );
|
|
|
|
( $json, $tail ) = LGTV_WebOS_ParseMsg( $hash, $tail );
|
|
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - Nach Sub: Laenge JSON: "
|
|
. length($json)
|
|
. " Content: "
|
|
. $json
|
|
. " Tail: "
|
|
. $tail;
|
|
}
|
|
|
|
$tail = ''
|
|
if ( length($tail) > 30000 );
|
|
$hash->{PARTIAL} = $tail;
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - PARTIAL lenght: " . length($tail);
|
|
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - Tail: " . $tail;
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL};
|
|
}
|
|
|
|
sub LGTV_WebOS_Handshake($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
my $host = $hash->{HOST};
|
|
my $wsKey = encode_base64( gettimeofday() );
|
|
|
|
my $wsHandshakeCmd = "";
|
|
$wsHandshakeCmd .= "GET / HTTP/1.1\r\n";
|
|
$wsHandshakeCmd .= "Host: $host\r\n";
|
|
$wsHandshakeCmd .= "User-Agent: FHEM\r\n";
|
|
$wsHandshakeCmd .= "Upgrade: websocket\r\n";
|
|
$wsHandshakeCmd .= "Connection: Upgrade\r\n";
|
|
$wsHandshakeCmd .= "Sec-WebSocket-Version: 13\r\n";
|
|
$wsHandshakeCmd .= "Sec-WebSocket-Key: " . $wsKey . "\r\n";
|
|
|
|
LGTV_WebOS_Write( $hash, $wsHandshakeCmd );
|
|
|
|
$hash->{helper}{wsKey} = $wsKey;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - send Handshake to WriteFn";
|
|
|
|
LGTV_WebOS_TimerStatusRequest($hash);
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - start timer status request";
|
|
|
|
LGTV_WebOS_Pairing($hash);
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - start pairing routine";
|
|
}
|
|
|
|
sub LGTV_WebOS_ResponseProcessing($$) {
|
|
|
|
my ( $hash, $response ) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
########################
|
|
### Response has HTML Header
|
|
if ( $response =~ /HTTP\/1.1 101 Switching Protocols/ ) {
|
|
|
|
my $data = $response;
|
|
my $header = LGTV_WebOS_Header2Hash($data);
|
|
|
|
################################
|
|
### Handshake for first Connect
|
|
if ( defined( $header->{'Sec-WebSocket-Accept'} ) ) {
|
|
|
|
my $keyAccept = $header->{'Sec-WebSocket-Accept'};
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - keyAccept: $keyAccept";
|
|
|
|
my $wsKey = $hash->{helper}{wsKey};
|
|
my $expectedResponse = trim(
|
|
encode_base64(
|
|
pack(
|
|
'H*',
|
|
sha1_hex(
|
|
trim($wsKey)
|
|
. "258EAFA5-E914-47DA-95CA-C5AB0DC85B11"
|
|
)
|
|
)
|
|
)
|
|
);
|
|
|
|
if ( $keyAccept eq $expectedResponse ) {
|
|
|
|
Log3 $name, 3,
|
|
"LGTV_WebOS ($name) - Sucessfull WS connection to $hash->{HOST}";
|
|
readingsSingleUpdate( $hash, 'state', 'on', 1 );
|
|
|
|
}
|
|
else {
|
|
LGTV_WebOS_Close($hash);
|
|
Log3 $name, 3,
|
|
"LGTV_WebOS ($name) - ERROR: Unsucessfull WS connection to $hash->{HOST}";
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
elsif ( $response =~ m/^{"type":".+}}$/ ) {
|
|
|
|
return Log3 $name, 4, "LGTV_WebOS ($name) - garbage after JSON object"
|
|
if ( $response =~ m/^{"type":".+}}.+{"type":".+/ );
|
|
|
|
Log3 $name, 4,
|
|
"LGTV_WebOS ($name) - JSON detected, run LGTV_WebOS_WriteReadings";
|
|
|
|
my $json = $response;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Corrected JSON String: $json"
|
|
if ($json);
|
|
|
|
if ( not defined($json) or not($json) ) {
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Corrected JSON String empty";
|
|
return;
|
|
}
|
|
|
|
my $decode_json = eval { decode_json( encode_utf8($json) ) };
|
|
if ($@) {
|
|
Log3 $name, 3, "LGTV_WebOS ($name) - JSON error while request: $@";
|
|
return;
|
|
}
|
|
|
|
LGTV_WebOS_WriteReadings( $hash, $decode_json );
|
|
|
|
return undef;
|
|
}
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - no Match found";
|
|
}
|
|
|
|
sub LGTV_WebOS_WriteReadings($$) {
|
|
|
|
my ( $hash, $decode_json ) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $mute;
|
|
my $response;
|
|
my %channelList;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Beginn Readings writing";
|
|
|
|
readingsBeginUpdate($hash);
|
|
|
|
if ( ref( $decode_json->{payload}{services} ) eq "ARRAY"
|
|
and scalar( @{ $decode_json->{payload}{services} } ) > 0 )
|
|
{
|
|
foreach my $services ( @{ $decode_json->{payload}{services} } ) {
|
|
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'service_' . $services->{name},
|
|
'v.' . $services->{version}
|
|
);
|
|
}
|
|
}
|
|
|
|
elsif ( ref( $decode_json->{payload}{devices} ) eq "ARRAY"
|
|
and scalar( @{ $decode_json->{payload}{devices} } ) > 0 )
|
|
{
|
|
|
|
foreach my $devices ( @{ $decode_json->{payload}{devices} } ) {
|
|
|
|
if (
|
|
not
|
|
defined( $hash->{helper}{device}{inputs}{ $devices->{label} } )
|
|
or not defined(
|
|
$hash->{helper}{device}{inputapps}{ $devices->{appId} }
|
|
)
|
|
)
|
|
{
|
|
|
|
$hash->{helper}{device}{inputs}{ $devices->{label} } =
|
|
$devices->{appId};
|
|
$hash->{helper}{device}{inputapps}{ $devices->{appId} } =
|
|
$devices->{label};
|
|
}
|
|
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'extInput_' . $devices->{label},
|
|
'connect_' . $devices->{connected}
|
|
);
|
|
}
|
|
}
|
|
|
|
elsif ( ref( $decode_json->{payload}{programList} ) eq "ARRAY"
|
|
and scalar( @{ $decode_json->{payload}{programList} } ) > 0 )
|
|
{
|
|
use Date::Parse;
|
|
my $count = 0;
|
|
foreach my $programList ( @{ $decode_json->{payload}{programList} } ) {
|
|
|
|
if (
|
|
str2time(
|
|
LGTV_WebOS_FormartStartEndTime(
|
|
$programList->{localEndTime}
|
|
)
|
|
) > time()
|
|
)
|
|
{
|
|
if ( $count < 1 ) {
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',
|
|
$programList->{programName} );
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'channelCurrentStartTime',
|
|
LGTV_WebOS_FormartStartEndTime(
|
|
$programList->{localStartTime}
|
|
)
|
|
);
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'channelCurrentEndTime',
|
|
LGTV_WebOS_FormartStartEndTime(
|
|
$programList->{localEndTime}
|
|
)
|
|
);
|
|
|
|
}
|
|
elsif ( $count < 2 ) {
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',
|
|
$programList->{programName} );
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'channelNextStartTime',
|
|
LGTV_WebOS_FormartStartEndTime(
|
|
$programList->{localStartTime}
|
|
)
|
|
);
|
|
readingsBulkUpdateIfChanged(
|
|
$hash,
|
|
'channelNextEndTime',
|
|
LGTV_WebOS_FormartStartEndTime(
|
|
$programList->{localEndTime}
|
|
)
|
|
);
|
|
}
|
|
|
|
$count++;
|
|
return if ( $count > 1 );
|
|
}
|
|
}
|
|
}
|
|
|
|
elsif (defined( $decode_json->{payload}{'mute'} )
|
|
or defined( $decode_json->{payload}{'muted'} ) )
|
|
{
|
|
|
|
if (
|
|
defined( $decode_json->{payload}{'mute'} )
|
|
and ( $decode_json->{payload}{'mute'} eq 'true'
|
|
or $decode_json->{payload}{'mute'} == 1 )
|
|
)
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
|
|
|
|
}
|
|
elsif ( defined( $decode_json->{payload}{'mute'} ) ) {
|
|
if ( $decode_json->{payload}{'mute'} eq 'false'
|
|
or $decode_json->{payload}{'mute'} == 0 )
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
|
|
}
|
|
}
|
|
|
|
if (
|
|
defined( $decode_json->{payload}{'muted'} )
|
|
and ( $decode_json->{payload}{'muted'} eq 'true'
|
|
or $decode_json->{payload}{'muted'} == 1 )
|
|
)
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
|
|
|
|
}
|
|
elsif (
|
|
defined( $decode_json->{payload}{'muted'} )
|
|
and ( $decode_json->{payload}{'muted'} eq 'false'
|
|
or $decode_json->{payload}{'muted'} == 0 )
|
|
)
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
|
|
}
|
|
}
|
|
|
|
elsif ( defined( $decode_json->{payload}{status3D}{status} ) ) {
|
|
if ( $decode_json->{payload}{status3D}{status} eq 'false'
|
|
or $decode_json->{payload}{status3D}{status} == 0 )
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, '3D', 'off' );
|
|
|
|
}
|
|
elsif ($decode_json->{payload}{status3D}{status} eq 'true'
|
|
or $decode_json->{payload}{status3D}{status} == 1 )
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, '3D', 'on' );
|
|
}
|
|
|
|
readingsBulkUpdateIfChanged( $hash, '3DMode',
|
|
$decode_json->{payload}{status3D}{pattern} );
|
|
}
|
|
|
|
elsif ( defined( $decode_json->{payload}{appId} ) ) {
|
|
|
|
if ( ( $decode_json->{payload}{appId} =~ /com.webos.app.externalinput/
|
|
or $decode_json->{payload}{appId} =~ /com.webos.app.hdmi/ )
|
|
and defined ($hash->{helper}{device}{inputapps}{ $decode_json->{payload}{appId} } )
|
|
and $hash->{helper}{device}{inputapps}{ $decode_json->{payload}{appId} }
|
|
)
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'input',
|
|
$hash->{helper}{device}{inputapps}
|
|
{ $decode_json->{payload}{appId} } );
|
|
readingsBulkUpdateIfChanged( $hash, 'launchApp', '-' );
|
|
|
|
}
|
|
elsif ( defined ( $openAppsPackageName{ $decode_json->{payload}{appId} } )
|
|
and $openAppsPackageName{ $decode_json->{payload}{appId} } )
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'launchApp',
|
|
$openAppsPackageName{ $decode_json->{payload}{appId} } );
|
|
readingsBulkUpdateIfChanged( $hash, 'input', '-' );
|
|
}
|
|
|
|
|
|
}
|
|
|
|
if ( defined( $decode_json->{type} ) ) {
|
|
|
|
if ( $decode_json->{type} eq 'registered'
|
|
and defined( $decode_json->{payload}{'client-key'} ) )
|
|
{
|
|
|
|
$hash->{helper}{device}{registered} = 1;
|
|
|
|
}
|
|
elsif (
|
|
(
|
|
$decode_json->{type} eq 'response'
|
|
and ( $decode_json->{payload}{returnValue} eq 'true'
|
|
or $decode_json->{payload}{returnValue} == 1 )
|
|
)
|
|
or ( $decode_json->{type} eq 'registered' )
|
|
and defined( $decode_json->{payload}{'client-key'} )
|
|
)
|
|
{
|
|
|
|
$response = 'ok';
|
|
readingsBulkUpdateIfChanged( $hash, 'pairing', 'paired' );
|
|
$hash->{helper}{device}{runsetcmd} =
|
|
$hash->{helper}{device}{runsetcmd} - 1
|
|
if ( $hash->{helper}{device}{runsetcmd} > 0 );
|
|
|
|
}
|
|
elsif ( $decode_json->{type} eq 'error' ) {
|
|
|
|
$response = "error - $decode_json->{error}";
|
|
|
|
if ( $decode_json->{error} eq '401 insufficient permissions'
|
|
or $decode_json->{error} eq
|
|
'401 insufficient permissions (not registered)' )
|
|
{
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'pairing', 'unpaired' );
|
|
}
|
|
|
|
$hash->{helper}{device}{runsetcmd} =
|
|
$hash->{helper}{device}{runsetcmd} - 1
|
|
if ( $hash->{helper}{device}{runsetcmd} > 0 );
|
|
}
|
|
}
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'lgKey',
|
|
$decode_json->{payload}{'client-key'} )
|
|
if ( defined( $decode_json->{payload}{'client-key'} ) );
|
|
readingsBulkUpdateIfChanged( $hash, 'volume',
|
|
$decode_json->{payload}{'volume'} )
|
|
if ( defined( $decode_json->{payload}{'volume'} ) );
|
|
readingsBulkUpdateIfChanged( $hash, 'lastResponse', $response )
|
|
if ( defined($response) );
|
|
|
|
if ( ReadingsVal( $name, 'launchApp', 'none' ) eq 'TV' ) {
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'channel',
|
|
$decode_json->{payload}{'channelNumber'} )
|
|
if ( defined( $decode_json->{payload}{'channelNumber'} ) );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelName',
|
|
$decode_json->{payload}{'channelName'} )
|
|
if ( defined( $decode_json->{payload}{'channelName'} ) );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelMedia',
|
|
$decode_json->{payload}{'channelTypeName'} )
|
|
if ( defined( $decode_json->{payload}{'channelTypeName'} ) );
|
|
|
|
}
|
|
else {
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'channelName', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channel', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelMedia', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextTitle', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime', '-' );
|
|
readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime', '-' );
|
|
}
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'state', 'on' );
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
}
|
|
|
|
sub LGTV_WebOS_Pairing($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $lgKey;
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - HASH handshakePayload";
|
|
|
|
my %handshakePayload = (
|
|
"pairingType" => "PROMPT",
|
|
"manifest" => {
|
|
"manifestVersion" => 1,
|
|
"appVersion" => "1.1",
|
|
"signed" => {
|
|
"created" => "20161123",
|
|
"appId" => "com.lge.test",
|
|
"vendorId" => "com.lge",
|
|
"localizedAppNames" => {
|
|
"" => "FHEM LG Remote",
|
|
"de-DE" => "FHEM LG Fernbedienung"
|
|
},
|
|
"localizedVendorNames" => {
|
|
"" => "LG Electronics"
|
|
},
|
|
"permissions" => [
|
|
"TEST_SECURE", "CONTROL_INPUT_TEXT",
|
|
"CONTROL_MOUSE_AND_KEYBOARD", "READ_INSTALLED_APPS",
|
|
"READ_LGE_SDX", "READ_NOTIFICATIONS",
|
|
"SEARCH", "WRITE_SETTINGS",
|
|
"WRITE_NOTIFICATION_ALERT", "CONTROL_POWER",
|
|
"READ_CURRENT_CHANNEL", "READ_RUNNING_APPS",
|
|
"READ_UPDATE_INFO", "UPDATE_FROM_REMOTE_APP",
|
|
"READ_LGE_TV_INPUT_EVENTS", "READ_TV_CURRENT_TIME"
|
|
],
|
|
"serial" => "2f930e2d2cfe083771f68e4fe7bb07"
|
|
},
|
|
"permissions" => [
|
|
"LAUNCH",
|
|
"LAUNCH_WEBAPP",
|
|
"APP_TO_APP",
|
|
"CLOSE",
|
|
"TEST_OPEN",
|
|
"TEST_PROTECTED",
|
|
"CONTROL_AUDIO",
|
|
"CONTROL_DISPLAY",
|
|
"CONTROL_INPUT_JOYSTICK",
|
|
"CONTROL_INPUT_MEDIA_RECORDING",
|
|
"CONTROL_INPUT_MEDIA_PLAYBACK",
|
|
"CONTROL_INPUT_TV",
|
|
"CONTROL_POWER",
|
|
"READ_APP_STATUS",
|
|
"READ_CURRENT_CHANNEL",
|
|
"READ_INPUT_DEVICE_LIST",
|
|
"READ_NETWORK_STATE",
|
|
"READ_RUNNING_APPS",
|
|
"READ_TV_CHANNEL_LIST",
|
|
"WRITE_NOTIFICATION_TOAST",
|
|
"READ_POWER_STATE",
|
|
"READ_COUNTRY_INFO"
|
|
],
|
|
"signatures" => [
|
|
{
|
|
"signatureVersion" => 1,
|
|
"signature" =>
|
|
"eyJhbGdvcml0aG0iOiJSU0EtU0hBMjU2Iiwia2V5SWQiOiJ0ZXN0LXNpZ25pbmctY2VydCIsInNpZ25hdHVyZVZlcnNpb24iOjF9.hrVRgjCwXVvE2OOSpDZ58hR+59aFNwYDyjQgKk3auukd7pcegmE2CzPCa0bJ0ZsRAcKkCTJrWo5iDzNhMBWRyaMOv5zWSrthlf7G128qvIlpMT0YNY+n/FaOHE73uLrS/g7swl3/qH/BGFG2Hu4RlL48eb3lLKqTt2xKHdCs6Cd4RMfJPYnzgvI4BNrFUKsjkcu+WD4OO2A27Pq1n50cMchmcaXadJhGrOqH5YmHdOCj5NSHzJYrsW0HPlpuAx/ECMeIZYDh6RMqaFM2DXzdKX9NmmyqzJ3o/0lkk/N97gfVRLW5hA29yeAwaCViZNCP8iC9aO0q9fQojoa7NQnAtw=="
|
|
}
|
|
]
|
|
}
|
|
);
|
|
|
|
my $usedHandshake = \%handshakePayload;
|
|
|
|
my $key = ReadingsVal( $name, 'lgKey', '' );
|
|
|
|
$usedHandshake->{'client-key'} = $key if ( defined($key) );
|
|
|
|
LGTV_WebOS_CreateSendCommand( $hash, undef, $usedHandshake, 'register' );
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - Send pairing informations";
|
|
}
|
|
|
|
sub LGTV_WebOS_CreateSendCommand($$$;$) {
|
|
|
|
my ( $hash, $uri, $payload, $type ) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $err;
|
|
|
|
$type = 'request' if ( not defined($type) );
|
|
|
|
my $command = {};
|
|
$command->{'client-key'} = ReadingsVal( $name, 'lgKey', '' )
|
|
if ( $type ne 'register' );
|
|
$command->{id} = $type . "_" . gettimeofday();
|
|
$command->{type} = $type;
|
|
$command->{uri} = $uri if ($uri);
|
|
$command->{payload} = $payload if ( defined($payload) );
|
|
|
|
#Log3 $name, 5, "LGTV_WebOS ($name) - Payload Message: $command->{payload}{message}";
|
|
|
|
my $cmd = encode_json($command);
|
|
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - Sending command: $cmd";
|
|
|
|
LGTV_WebOS_Write( $hash, LGTV_WebOS_Hybi10Encode( $cmd, "text", 1 ) );
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub LGTV_WebOS_Hybi10Encode($;$$) {
|
|
|
|
my ( $payload, $type, $masked ) = @_;
|
|
|
|
$type //= "text";
|
|
$masked //= 1;
|
|
|
|
my @frameHead;
|
|
my $frame = "";
|
|
my $payloadLength = length($payload);
|
|
|
|
if ( $type eq "text" ) {
|
|
|
|
# first byte indicates FIN, Text-Frame (10000001):
|
|
$frameHead[0] = 129;
|
|
|
|
}
|
|
elsif ( $type eq "close" ) {
|
|
|
|
# first byte indicates FIN, Close Frame(10001000):
|
|
$frameHead[0] = 136;
|
|
|
|
}
|
|
elsif ( $type eq "ping" ) {
|
|
|
|
# first byte indicates FIN, Ping frame (10001001):
|
|
$frameHead[0] = 137;
|
|
|
|
}
|
|
elsif ( $type eq "pong" ) {
|
|
|
|
# first byte indicates FIN, Pong frame (10001010):
|
|
$frameHead[0] = 138;
|
|
}
|
|
|
|
# set mask and payload length (using 1, 3 or 9 bytes)
|
|
if ( $payloadLength > 65535 ) {
|
|
|
|
# TODO
|
|
my $payloadLengthBin = sprintf( '%064b', $payloadLength );
|
|
$frameHead[1] = ($masked) ? 255 : 127;
|
|
|
|
for ( my $i = 0 ; $i < 8 ; $i++ ) {
|
|
|
|
$frameHead[ $i + 2 ] =
|
|
oct( "0b" . substr( $payloadLengthBin, $i * 8, $i * 8 + 8 ) );
|
|
}
|
|
|
|
# most significant bit MUST be 0 (close connection if frame too big)
|
|
if ( $frameHead[2] > 127 ) {
|
|
|
|
#$this->close(1004);
|
|
return undef;
|
|
}
|
|
|
|
}
|
|
elsif ( $payloadLength > 125 ) {
|
|
|
|
my $payloadLengthBin = sprintf( '%016b', $payloadLength );
|
|
$frameHead[1] = ($masked) ? 254 : 126;
|
|
$frameHead[2] = oct( "0b" . substr( $payloadLengthBin, 0, 8 ) );
|
|
$frameHead[3] = oct( "0b" . substr( $payloadLengthBin, 8, 16 ) );
|
|
|
|
}
|
|
else {
|
|
|
|
$frameHead[1] = ($masked) ? $payloadLength + 128 : $payloadLength;
|
|
}
|
|
|
|
# convert frame-head to string:
|
|
for ( my $i = 0 ; $i < scalar(@frameHead) ; $i++ ) {
|
|
|
|
$frameHead[$i] = chr( $frameHead[$i] );
|
|
}
|
|
|
|
my @mask;
|
|
if ($masked) {
|
|
|
|
# generate a random mask:
|
|
for ( my $i = 0 ; $i < 4 ; $i++ ) {
|
|
|
|
#$mask[$i] = chr(int(rand(255)));
|
|
$mask[$i] = chr( int( 25 * $i ) );
|
|
}
|
|
|
|
@frameHead = ( @frameHead, @mask );
|
|
}
|
|
|
|
$frame = join( "", @frameHead );
|
|
|
|
# append payload to frame:
|
|
my $char;
|
|
for ( my $i = 0 ; $i < $payloadLength ; $i++ ) {
|
|
|
|
$char = substr( $payload, $i, 1 );
|
|
$frame .= ($masked) ? $char ^ $mask[ $i % 4 ] : $char;
|
|
}
|
|
|
|
return $frame;
|
|
}
|
|
|
|
sub LGTV_WebOS_GetAudioStatus($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_GetAudioStatus: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getAudioStatus}, undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
sub LGTV_WebOS_GetCurrentChannel($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer( $hash, 'LGTV_WebOS_GetCurrentChannel' );
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_GetCurrentChannel: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getCurrentChannel}, undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
sub LGTV_WebOS_GetForgroundAppInfo($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer( $hash, 'LGTV_WebOS_GetForgroundAppInfo' );
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_GetForgroundAppInfo: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getForegroundAppInfo},
|
|
undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
sub LGTV_WebOS_GetExternalInputList($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer( $hash, 'LGTV_WebOS_GetExternalInputList' );
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_GetExternalInputList: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getExternalInputList},
|
|
undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
sub LGTV_WebOS_Get3DStatus($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer( $hash, 'LGTV_WebOS_Get3DStatus' );
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_Get3DStatus: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{get3DStatus}, undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
sub LGTV_WebOS_GetChannelProgramInfo($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
Log3 $name, 4, "LGTV_WebOS ($name) - LGTV_WebOS_GetChannelProgramInfo: "
|
|
. $hash->{helper}{device}{runsetcmd};
|
|
LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getChannelProgramInfo},
|
|
undef )
|
|
if ( $hash->{helper}{device}{runsetcmd} == 0 );
|
|
}
|
|
|
|
#############################################
|
|
### my little Helper
|
|
|
|
sub LGTV_WebOS_ParseMsg($$) {
|
|
|
|
my ( $hash, $buffer ) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $open = 0;
|
|
my $close = 0;
|
|
my $msg = '';
|
|
my $tail = '';
|
|
|
|
if ($buffer) {
|
|
foreach my $c ( split //, $buffer ) {
|
|
if ( $open == $close && $open > 0 ) {
|
|
$tail .= $c;
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - $open == $close && $open > 0";
|
|
|
|
}
|
|
elsif ( ( $open == $close ) && ( $c ne '{' ) ) {
|
|
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - Garbage character before message: "
|
|
. $c;
|
|
|
|
}
|
|
else {
|
|
|
|
if ( $c eq '{' ) {
|
|
|
|
$open++;
|
|
|
|
}
|
|
elsif ( $c eq '}' ) {
|
|
|
|
$close++;
|
|
}
|
|
|
|
$msg .= $c;
|
|
}
|
|
}
|
|
|
|
if ( $open != $close ) {
|
|
|
|
$tail = $msg;
|
|
$msg = '';
|
|
}
|
|
}
|
|
|
|
Log3 $name, 5, "LGTV_WebOS ($name) - return msg: $msg and tail: $tail";
|
|
return ( $msg, $tail );
|
|
}
|
|
|
|
sub LGTV_WebOS_Header2Hash($) {
|
|
|
|
my $string = shift;
|
|
my %hash = ();
|
|
|
|
foreach my $line ( split( "\r\n", $string ) ) {
|
|
my ( $key, $value ) = split( ": ", $line );
|
|
next if ( !$value );
|
|
|
|
$value =~ s/^ //;
|
|
$hash{$key} = $value;
|
|
}
|
|
|
|
return \%hash;
|
|
}
|
|
|
|
sub LGTV_WebOS_FormartStartEndTime($) {
|
|
|
|
my $string = shift;
|
|
|
|
my @timeArray = split( ',', $string );
|
|
|
|
return
|
|
"$timeArray[0]-$timeArray[1]-$timeArray[2] $timeArray[3]:$timeArray[4]:$timeArray[5]";
|
|
}
|
|
|
|
############ Presence Erkennung Begin #################
|
|
sub LGTV_WebOS_Presence($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
$hash->{helper}{RUNNING_PID} =
|
|
BlockingCall( "LGTV_WebOS_PresenceRun", $name . '|' . $hash->{HOST},
|
|
"LGTV_WebOS_PresenceDone", 5, "LGTV_WebOS_PresenceAborted", $hash )
|
|
unless ( exists( $hash->{helper}{RUNNING_PID} ) );
|
|
}
|
|
|
|
sub LGTV_WebOS_PresenceRun($) {
|
|
|
|
my $string = shift;
|
|
my ( $name, $host ) = split( "\\|", $string );
|
|
|
|
my $tmp;
|
|
my $response;
|
|
|
|
$tmp = qx(ping -c 3 -w 2 $host 2>&1);
|
|
|
|
if ( defined($tmp) and $tmp ne "" ) {
|
|
|
|
chomp $tmp;
|
|
Log3 $name, 5,
|
|
"LGTV_WebOS ($name) - ping command returned with output:\n$tmp";
|
|
$response = "$name|"
|
|
. (
|
|
(
|
|
$tmp =~ /\d+ [Bb]ytes (from|von)/
|
|
and not $tmp =~ /[Uu]nreachable/
|
|
) ? "present" : "absent"
|
|
);
|
|
|
|
}
|
|
else {
|
|
|
|
$response = "$name|Could not execute ping command";
|
|
}
|
|
|
|
Log3 $name, 4,
|
|
"Sub LGTV_WebOS_PresenceRun ($name) - Sub finish, Call LGTV_WebOS_PresenceDone";
|
|
return $response;
|
|
}
|
|
|
|
sub LGTV_WebOS_PresenceDone($) {
|
|
|
|
my ($string) = @_;
|
|
|
|
my ( $name, $response ) = split( "\\|", $string );
|
|
my $hash = $defs{$name};
|
|
|
|
delete( $hash->{helper}{RUNNING_PID} );
|
|
|
|
Log3 $name, 4,
|
|
"Sub LGTV_WebOS_PresenceDone ($name) - Helper is disabled. Stop processing"
|
|
if ( $hash->{helper}{DISABLED} );
|
|
return if ( $hash->{helper}{DISABLED} );
|
|
|
|
readingsSingleUpdate( $hash, 'presence', $response, 1 );
|
|
|
|
LGTV_WebOS_SocketClosePresenceAbsent( $hash, $response );
|
|
|
|
Log3 $name, 4, "Sub LGTV_WebOS_PresenceDone ($name) - presence done";
|
|
}
|
|
|
|
sub LGTV_WebOS_PresenceAborted($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
delete( $hash->{helper}{RUNNING_PID} );
|
|
readingsSingleUpdate( $hash, 'presence', 'pingPresence timedout', 1 );
|
|
|
|
Log3 $name, 4,
|
|
"Sub LGTV_WebOS_PresenceAborted ($name) - The BlockingCall Process terminated unexpectedly. Timedout!";
|
|
}
|
|
|
|
sub LGTV_WebOS_SocketClosePresenceAbsent($$) {
|
|
|
|
my ( $hash, $presence ) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
LGTV_WebOS_Close($hash)
|
|
if ( $presence eq 'absent' and not IsDisabled($name) and $hash->{CD} )
|
|
; # https://forum.fhem.de/index.php/topic,66671.msg694578.html#msg694578
|
|
# Sobald pingPresence absent meldet und der Socket noch steht soll er geschlossen werden, da sonst FHEM nach 4-6 min für 10 min blockiert
|
|
}
|
|
|
|
sub LGTV_WebOS_WakeUp_Udp($@) {
|
|
|
|
my ( $hash, $mac_addr, $host, $port ) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
$port = 9 if ( !defined $port || $port !~ /^\d+$/ );
|
|
|
|
my $sock = new IO::Socket::INET( Proto => 'udp' ) or die "socket : $!";
|
|
if ( !$sock ) {
|
|
Log3 $name, 3,
|
|
"Sub LGTV_WebOS_WakeUp_Udp ($name) - Can't create WOL socket";
|
|
return 1;
|
|
}
|
|
|
|
my $ip_addr = inet_aton($host);
|
|
my $sock_addr = sockaddr_in( $port, $ip_addr );
|
|
$mac_addr =~ s/://g;
|
|
my $packet =
|
|
pack( 'C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16 );
|
|
|
|
setsockopt( $sock, SOL_SOCKET, SO_BROADCAST, 1 ) or die "setsockopt : $!";
|
|
send( $sock, $packet, 0, $sock_addr ) or die "send : $!";
|
|
close($sock);
|
|
|
|
return 1;
|
|
}
|
|
|
|
####### Presence Erkennung Ende ############
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item device
|
|
=item summary Controls LG SmartTVs run with WebOS Operating System
|
|
=item summary_DE Steuert LG SmartTVs mit WebOS Betriebssystem
|
|
|
|
=begin html
|
|
|
|
<a name="LGTV_WebOS"></a>
|
|
<h3>LGTV_WebOS</h3>
|
|
|
|
<ul>
|
|
This module controls SmartTVs from LG based on WebOS as operation system via network. It offers to swtich the TV channel, start and switch applications, send remote control commands, as well as to query the actual status.<p><br /><br />
|
|
|
|
<strong>Definition </strong><code>define <name> LGTV_WebOS <IP-Address></code>
|
|
</p>
|
|
<ul>
|
|
<ul>
|
|
When an LGTV_WebOS-Module is defined, an internal routine is triggered which queries the TV's status every 15s and triggers respective Notify / FileLog Event definitions.
|
|
</ul>
|
|
</ul>
|
|
</p>
|
|
<ul>
|
|
<ul>
|
|
Example:
|
|
</ul>
|
|
<ul>
|
|
<code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></p>
|
|
</ul>
|
|
</ul>
|
|
<p><code><strong>Set-Commands </strong><code>set <Name> <Command> [<Parameter>]</code></code></p>
|
|
<ul>
|
|
<ul>
|
|
The following commands are supported in the actual version:
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li><strong>connect </strong> - Connects to the TV at the defined address. When triggered the first time, a pairing is conducted</li>
|
|
<li><strong>pairing </strong> - Sends a pairing request to the TV which needs to be confirmed by the user with remote control</li>
|
|
<li><strong>screenMsg</strong> <Text> - Displays a message for 3-5s on the TV in the top right corner of the screen</li>
|
|
<li><strong>mute</strong> on, off - Turns volume to mute. Depending on the audio connection, this needs to be set on the AV Receiver (see volume) </li>
|
|
<li><strong>volume </strong>0-100, Slider - Sets the volume. Depending on the audio connection, this needs to be set on the AV Receiver (see mute)</li>
|
|
<li><strong>volumeUp</strong> - Increases the volume by 1</li>
|
|
<li><strong>volumeDown</strong> - Decreases the volume by 1</li>
|
|
<li><strong>channelUp</strong> - Switches the channel to the next one</li>
|
|
<li><strong>channelDown</strong> - Switches the channel to the previous one</li>
|
|
<li><strong>getServiceList </strong> - Queries the running services on WebOS (in beta phase)</li>
|
|
<li><strong>on</strong> - Turns the TV on, depending on type of device. Only working when LAN or Wifi connection remains active during off state.</li>
|
|
<li><strong>off</strong> - Turns the TV off, when an active connection is established</li>
|
|
<li><strong>launchApp</strong> <Application> - Activates an application out of the following list (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV) <br />Note: TV is an application in LG's terms and not an input connection</li>
|
|
<li><strong>3D</strong> on,off - 3D Mode is turned on and off. Depending on type of TV there might be different modes (e.g. Side-by-Side, Top-Bottom)</li>
|
|
<li><strong>stop</strong> - Stop command (depending on application)</li>
|
|
<li><strong>play </strong>- Play command (depending on application)</li>
|
|
<li><strong>pause </strong>- Pause command (depending on application)</li>
|
|
<li><strong>rewind </strong>- Rewind command (depending on application)</li>
|
|
<li><strong>fastForward </strong>- Fast Forward command (depending on application)</li>
|
|
<li><strong>clearInputList </strong> - Clears list of Inputs</li>
|
|
<li><strong>input </strong> - Selects the input connection (depending on the actual TV type and connected devices) <br />e.g.: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
|
|
</ul>
|
|
</ul>
|
|
</ul><br /><br /></p>
|
|
<p><strong>Get-Command</strong> <code>get <Name> <Readingname></code><br /></p>
|
|
<ul>
|
|
<ul>
|
|
Currently, GET reads back the values of the current readings. Please see below for a list of Readings / Generated Events.
|
|
</ul>
|
|
</ul>
|
|
<p><br /><strong>Attributes</strong></p>
|
|
<ul>
|
|
<ul>
|
|
<li>disable</li>
|
|
Optional attribute to deactivate the recurring status updates. Manual trigger of update is alsways possible.</br>
|
|
Valid Values: 0 => recurring status updates, 1 => no recurring status updates.</p>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<li>channelGuide</li>
|
|
Optional attribute to deactivate the recurring TV Guide update. Depending on TV and FHEM host, this causes significant network traffic and / or CPU load</br>
|
|
Valid Values: 0 => no recurring TV Guide updates, 1 => recurring TV Guide updates.
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<li>pingPresence</li>
|
|
current state of ping presence from TV. create a reading presence with values absent or present.
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeOnLanMAC</li>
|
|
Network MAC Address of the LG TV Networkdevice.
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeOnLanBroadcast</li>
|
|
Broadcast Address of the Network - wakeOnLanBroadcast <network>.255
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeupCmd</li>
|
|
Set a command to be executed when turning on an absent device. Can be an FHEM command or Perl command in {}.
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="LGTV_WebOS"></a>
|
|
<h3>LGTV_WebOS</h3>
|
|
<ul>
|
|
<ul>
|
|
Dieses Modul steuert SmartTV's des Herstellers LG mit dem Betriebssystem WebOS über die Netzwerkschnittstelle. Es bietet die Möglichkeit den aktuellen TV Kanal zu steuern, sowie Apps zu starten, Fernbedienungsbefehle zu senden, sowie den aktuellen Status abzufragen.
|
|
</ul>
|
|
<p><br /><br /><strong>Definition </strong><code>define <name> LGTV_WebOS <IP-Addresse></code> <br /><br /></p>
|
|
<ul>
|
|
<ul>
|
|
<ul>Bei der Definition eines LGTV_WebOS-Moduls wird eine interne Routine in Gang gesetzt, welche regelmäßig alle 15s den Status des TV abfragt und entsprechende Notify-/FileLog-Definitionen triggert.</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>Beispiel: <code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></ul>
|
|
</ul>
|
|
</ul>
|
|
<strong>Set-Kommandos </strong><code>set <Name> <Kommando> [<Parameter>]</code>
|
|
<ul>
|
|
<ul>
|
|
<ul>Aktuell werden folgende Kommandos unterstützt.</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li><strong>connect </strong> - Verbindet sich zum Fernseher unter der IP wie definiert, führt beim ersten mal automatisch ein pairing durch</li>
|
|
<li><strong>pairing </strong> - Berechtigungsanfrage an den Fernseher, hier muss die Anfrage mit der Fernbedienung bestätigt werden</li>
|
|
<li><strong>screenMsg</strong> <Text> - zeigt für ca 3-5s eine Nachricht auf dem Fernseher oben rechts an</li>
|
|
<li><strong>mute</strong> on, off - Schaltet den Fernseher Stumm, je nach Anschluss des Audiosignals, muss dieses am Verstärker (AV Receiver) geschehen (siehe Volume)</li>
|
|
<li><strong>volume </strong>0-100, Schieberegler - Setzt die Lautstärke des Fernsehers, je nach Anschluss des Audiosignals, muss dieses am Verstärker (AV Receiver) geschehen (siehe mute)</li>
|
|
<li><strong>volumeUp</strong> - Erhöht die Lautstärke um den Wert 1</li>
|
|
<li><strong>volumeDown</strong> - Verringert die Lautstärke um den Wert 1</li>
|
|
<li><strong>channelUp</strong> - Schaltet auf den nächsten Kanal um</li>
|
|
<li><strong>channelDown</strong> - Schaltet auf den vorherigen Kanal um</li>
|
|
<li><strong>getServiceList </strong> - Fragrt die Laufenden Dienste des Fernsehers an (derzeit noch in Beta-Phase)</li>
|
|
<li><strong>on</strong> - Schaltet den Fernseher ein, wenn WLAN oder LAN ebenfalls im Aus-Zustand aktiv ist (siehe Bedienungsanleitung da Typabhängig)</li>
|
|
<li><strong>off</strong> - Schaltet den Fernseher aus, wenn eine Connection aktiv ist</li>
|
|
<li><strong>launchApp</strong> <Anwendung> - Aktiviert eine Anwendung aus der Liste (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV) <br />Achtung: TV ist hier eine Anwendung, und kein Geräteeingang</li>
|
|
<li><strong>3D</strong> on,off - 3D Modus kann hier ein- und ausgeschaltet werden, je nach Fernseher können mehrere 3D Modi unterstützt werden (z.B. Side-by-Side, Top-Bottom)</li>
|
|
<li><strong>stop</strong> - Stop-Befehl (anwendungsabhängig)</li>
|
|
<li><strong>play </strong>- Play-Befehl (anwendungsabhängig)</li>
|
|
<li><strong>pause </strong>- Pause-Befehl (anwendungsabhängig)</li>
|
|
<li><strong>rewind </strong>- Zurückspulen-Befehl (anwendungsabhängig)</li>
|
|
<li><strong>fastForward </strong>- Schneller-Vorlauf-Befehl (anwendungsabhängig)</li>
|
|
<li><strong>clearInputList </strong> - Löscht die Liste der Geräteeingänge</li>
|
|
<li><strong>input </strong> - Wählt den Geräteeingang aus (Abhängig von Typ und angeschossenen Geräten) <br />Beispiele: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<p><strong>Get-Kommandos</strong> <code>get <Name> <Readingname></code><br /><br /></p>
|
|
<ul>
|
|
<ul>
|
|
<ul>Aktuell stehen via GET lediglich die Werte der Readings zur Verfügung. Eine genaue Auflistung aller möglichen Readings folgen unter "Generierte Readings/Events".</ul>
|
|
</ul>
|
|
</ul>
|
|
<p><br /><br /><strong>Attribute</strong></p>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li>disable</li>
|
|
Optionales Attribut zur Deaktivierung des zyklischen Status-Updates. Ein manuelles Update via statusRequest-Befehl ist dennoch möglich.
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>Mögliche Werte: 0 => zyklische Status-Updates, 1 => keine zyklischen Status-Updates.</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li>channelGuide</li>
|
|
Optionales Attribut zur Deaktivierung der zyklischen Updates des TV-Guides, dieses beansprucht je nach Hardware einigen Netzwerkverkehr und Prozessorlast
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>Mögliche Werte: 0 => keine zyklischen TV-Guide-Updates, 1 => zyklische TV-Guide-Updates</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeOnLanMAC</li>
|
|
MAC Addresse der Netzwerkkarte vom LG TV
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeOnLanBroadcast</li>
|
|
Broadcast Netzwerkadresse - wakeOnLanBroadcast <netzwerk>.255
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<ul>
|
|
<ul>
|
|
<ul>
|
|
<li>wakeupCmd</li>
|
|
Befehl zum Einschalten des LG TV. Möglich ist ein FHEM Befehl oder Perl in {}.
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
<p><br /><br /><strong>Generierte Readings/Events:</strong></p>
|
|
<ul>
|
|
<ul>
|
|
<li><strong>3D</strong> - Status des 3D-Wiedergabemodus ("on" => 3D Wiedergabemodus aktiv, "off" => 3D Wiedergabemodus nicht aktiv)</li>
|
|
<li><strong>3DMode</strong> - Anzeigemodus (2d, 2dto3d, side_side_half, line_interleave_half, column_interleave, check_board)</li>
|
|
<li><strong>channel</strong> - Die Nummer des aktuellen TV-Kanals</li>
|
|
<li><strong>channelName</strong> - Der Name des aktuellen TV-Kanals</li>
|
|
<li><strong>channelMedia</strong> - Senderinformation</li>
|
|
<li><strong>channelCurrentEndTime </strong>- Ende der laufenden Sendung (Beta)</li>
|
|
<li><strong>channelCurrentStartTime </strong>- Start der laufenden Sendung (Beta)</li>
|
|
<li><strong>channelCurrentTitle</strong> - Der Name der laufenden Sendung (Beta)</li>
|
|
<li><strong>channelNextEndTime </strong>- Ende der nächsten Sendung (Beta)</li>
|
|
<li><strong>channelNextStartTime </strong>- Start der nächsten Sendung (Beta)</li>
|
|
<li><strong>channelNextTitle</strong> - Der Name der nächsten Sendung (Beta)</li>
|
|
<li><strong>extInput_<Geräteeingang</strong>> - Status der Eingangsquelle (connect_true, connect_false)</li>
|
|
<li><strong>input</strong> - Derzeit aktiver Geräteeingang</li>
|
|
<li><strong>lastResponse </strong>- Status der letzten Anfrage (ok, error <Fehlertext>)</li>
|
|
<li><strong>launchApp</strong> <Anwendung> - Gegenwärtige aktive Anwendung</li>
|
|
<li><strong>lgKey</strong> - Der Client-Key, der für die Verbindung verwendet wird</li>
|
|
<li><strong>mute</strong> on,off - Der aktuelle Stumm-Status ("on" => Stumm, "off" => Laut)</li>
|
|
<li><strong>pairing</strong> paired, unpaired - Der Status des Pairing</li>
|
|
<li><strong>presence </strong>absent, present - Der aktuelle Power-Status ("present" => eingeschaltet, "absent" => ausgeschaltet)</li>
|
|
<li><strong>state</strong> on, off - Status des Fernsehers (ähnlich presence)</li>
|
|
<li><strong>volume</strong> - Der aktuelle Lautstärkepegel -1, 0-100 (-1 invalider Wert)</li>
|
|
</ul>
|
|
</ul>
|
|
</ul>
|
|
=end html_DE
|
|
|
|
=for :application/json;q=META.json 82_LGTV_WebOS.pm
|
|
{
|
|
"abstract": "Module for Controls LG SmartTVs run with WebOS Operating System",
|
|
"x_lang": {
|
|
"de": {
|
|
"abstract": "Modul zur Steuerung von LG SmartTVs mit WebOS Betriebssystem"
|
|
}
|
|
},
|
|
"keywords": [
|
|
"fhem-mod-device",
|
|
"fhem-core",
|
|
"Multimedia",
|
|
"TV",
|
|
"LG"
|
|
],
|
|
"release_status": "stable",
|
|
"license": "GPL_2",
|
|
"version": "v3.2.4",
|
|
"author": [
|
|
"Marko Oldenburg <leongaultier@gmail.com>"
|
|
],
|
|
"x_fhem_maintainer": [
|
|
"CoolTux"
|
|
],
|
|
"x_fhem_maintainer_github": [
|
|
"LeonGaultier"
|
|
],
|
|
"prereqs": {
|
|
"runtime": {
|
|
"requires": {
|
|
"FHEM": 5.00918799,
|
|
"perl": 5.016,
|
|
"Meta": 1,
|
|
"JSON": 1,
|
|
"Date::Parse": 0
|
|
},
|
|
"recommends": {
|
|
"JSON": 0
|
|
},
|
|
"suggests": {
|
|
"Cpanel::JSON::XS": 0,
|
|
"JSON::XS": 0
|
|
}
|
|
}
|
|
}
|
|
}
|
|
=end :application/json;q=META.json
|
|
|
|
=cut
|