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

convert hash in string for setList

Browse Source
This commit is contained in:
Marko Oldenburg 2019-01-18 08:50:58 +01:00
parent d0941a0bd0
commit da358d3526
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
82_LGTV_WebOS.pm
View File

@ -150,7 +150,6 @@ my %lgCommands = (
);
my %openApps = (
'Maxdome' => 'maxdome',
'AmazonLovefilm' => 'lovefilm.de',
'AmazonVideo' => 'amazon',
@ -372,16 +371,8 @@ sub LGTV_WebOS_Set($@) {
my %payload;
my $inputs;
my @inputs;
if ( defined( $hash->{helper}{device}{inputs} ) and ref( $hash->{helper}{device}{inputs} ) eq "HASH" ) {
@inputs = keys %{ $hash->{helper}{device}{inputs} };
}
@inputs = sort(@inputs);
$inputs = join(",", @inputs);
if($cmd eq 'connect') {
return "usage: connect" if( @args != 0 );
@ -539,7 +530,13 @@ sub LGTV_WebOS_Set($@) {
} 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 launchApp:Maxdome,AmazonLovefilm,AmazonVideo,YouTube,Netflix,TV,GooglePlay,Browser,Chilieu,TVCast,Smartshare,Scheduler,Miracast,TVGuide,Timemachine,ARDMediathek,Arte,WetterMeteo,Notificationcenter,Plex,SkyOnline 3D:on,off stop:noArg play:noArg pause:noArg rewind:noArg fastForward:noArg clearInputList:noArg input:$inputs channel";
$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";
}