1135 lines
34 KiB
Perl
1135 lines
34 KiB
Perl
###############################################################################
|
|
#
|
|
# Developed with Kate
|
|
#
|
|
# (c) 2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
|
# All rights reserved
|
|
#
|
|
# Special thanks goes to comitters:
|
|
# - Olaf Schnicke
|
|
#
|
|
#
|
|
# 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 #################
|
|
|
|
|
|
##
|
|
#
|
|
|
|
|
|
################################
|
|
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use JSON qw(decode_json);
|
|
use Encode qw(encode_utf8);
|
|
use Net::Telnet;
|
|
|
|
|
|
my $version = "0.1.57";
|
|
|
|
|
|
my %heosCmds = (
|
|
'enableChangeEvents' => 'system/register_for_change_events?enable=',
|
|
'checkAccount' => 'system/check_account',
|
|
'signAccountIn' => 'system/sign_in?',
|
|
'signAccountOut' => 'system/sign_out',
|
|
'reboot' => 'system/reboot',
|
|
'getMusicSources' => 'browse/get_music_sources',
|
|
'browseSource' => 'browse/browse?',
|
|
'getPlayers' => 'player/get_players',
|
|
'getGroups' => 'group/get_groups',
|
|
'getPlayerInfo' => 'player/get_player_info?',
|
|
'getGroupInfo' => 'group/get_group_info?',
|
|
'getPlayState' => 'player/get_play_state?',
|
|
'getPlayMode' => 'player/get_play_mode?',
|
|
'getMute' => 'player/get_mute?',
|
|
'getGroupMute' => 'group/get_mute?',
|
|
'clearQueue' => 'player/clear_queue?',
|
|
'saveQueue' => 'player/save_queue?',
|
|
'getVolume' => 'player/get_volume?',
|
|
'getGroupVolume' => 'group/get_volume?',
|
|
'setPlayState' => 'player/set_play_state?',
|
|
'setPlayMode' => 'player/set_play_mode?',
|
|
'setMute' => 'player/set_mute?',
|
|
'setGroupMute' => 'group/set_mute?',
|
|
'playNext' => 'player/play_next?',
|
|
'playPrev' => 'player/play_prev?',
|
|
'playPresetStation' => 'browse/play_preset?',
|
|
'playInput' => 'browse/play_input?',
|
|
'playStream' => 'browse/play_stream?',
|
|
'playPlaylist' => 'browse/add_to_queue?',
|
|
'setVolume' => 'player/set_volume?',
|
|
'setGroupVolume' => 'group/set_volume?',
|
|
'volumeUp' => 'player/volume_up?',
|
|
'volumeDown' => 'player/volume_down?',
|
|
'GroupVolumeUp' => 'group/volume_up?',
|
|
'GroupVolumeDown' => 'group/volume_down?',
|
|
'getNowPlayingMedia' => 'player/get_now_playing_media?',
|
|
'eventChangeVolume' => 'event/player_volume_changed',
|
|
'createGroup' => 'group/set_group?'
|
|
);
|
|
|
|
|
|
|
|
|
|
# Declare functions
|
|
sub HEOSMaster_Initialize($);
|
|
sub HEOSMaster_Define($$);
|
|
sub HEOSMaster_Undef($$);
|
|
sub HEOSMaster_Set($@);
|
|
sub HEOSMaster_Open($);
|
|
sub HEOSMaster_Close($);
|
|
sub HEOSMaster_Read($);
|
|
sub HEOSMaster_Write($@);
|
|
sub HEOSMaster_Attr(@);
|
|
sub HEOSMaster_firstRun($);
|
|
sub HEOSMaster_ResponseProcessing($$);
|
|
sub HEOSMaster_WriteReadings($$);
|
|
sub HEOSMaster_GetPlayers($);
|
|
sub HEOSMaster_EnableChangeEvents($);
|
|
sub HEOSMaster_PreProcessingReadings($$);
|
|
sub HEOSMaster_ReOpen($);
|
|
sub HEOSMaster_ReadPassword($);
|
|
sub HEOSMaster_StorePassword($$);
|
|
sub HEOSMaster_GetGroups($);
|
|
sub HEOSMaster_ProcessRead($$);
|
|
sub HEOSMaster_ParseMsg($$);
|
|
sub HEOSMaster_CheckAccount($);
|
|
sub HEOSMaster_Get($$@);
|
|
sub HEOSMaster_GetFavorites($);
|
|
sub HEOSMaster_GetHistory($);
|
|
sub HEOSMaster_GetInputs($);
|
|
sub HEOSMaster_GetMusicSources($);
|
|
sub HEOSMaster_GetPlaylists($);
|
|
sub HEOSMaster_GetServers($);
|
|
|
|
|
|
|
|
|
|
sub HEOSMaster_Initialize($) {
|
|
|
|
my ($hash) = @_;
|
|
|
|
# Provider
|
|
$hash->{ReadFn} = "HEOSMaster_Read";
|
|
$hash->{WriteFn} = "HEOSMaster_Write";
|
|
$hash->{Clients} = ":HEOSPlayer:";
|
|
$hash->{MatchList} = { "1:HEOSPlayer" => '.*{"command":."player.*|.*{"command":."event\/player.*|.*{"command":."event\/repeat_mode_changed.*|.*{"command":."event\/shuffle_mode_changed.*|.*{"command":."event\/favorites_changed.*',
|
|
"2:HEOSGroup" => '.*{"command":."group.*|.*{"command":."event\/group.*'
|
|
};
|
|
|
|
|
|
# Consumer
|
|
$hash->{SetFn} = "HEOSMaster_Set";
|
|
$hash->{GetFn} = "HEOSMaster_Get";
|
|
$hash->{DefFn} = "HEOSMaster_Define";
|
|
$hash->{UndefFn} = "HEOSMaster_Undef";
|
|
$hash->{AttrFn} = "HEOSMaster_Attr";
|
|
$hash->{AttrList} = "disable:1 ".
|
|
"heosUsername ".
|
|
$readingFnAttributes;
|
|
|
|
|
|
foreach my $d(sort keys %{$modules{HEOSMaster}{defptr}}) {
|
|
my $hash = $modules{HEOSMaster}{defptr}{$d};
|
|
$hash->{VERSION} = $version;
|
|
}
|
|
}
|
|
|
|
sub HEOSMaster_Define($$) {
|
|
|
|
my ( $hash, $def ) = @_;
|
|
|
|
my @a = split( "[ \t][ \t]*", $def );
|
|
|
|
|
|
return "too few parameters: define <name> HEOSMaster <HOST>" if( @a != 3 );
|
|
|
|
|
|
|
|
my $name = $a[0];
|
|
my $host = $a[2];
|
|
|
|
$hash->{HOST} = $host;
|
|
$hash->{VERSION} = $version;
|
|
|
|
|
|
Log3 $name, 3, "HEOSMaster ($name) - defined with host $host";
|
|
|
|
$attr{$name}{room} = "HEOS" if( !defined( $attr{$name}{room} ) );
|
|
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdate($hash,'state','Initialized');
|
|
readingsBulkUpdate($hash,'enableChangeEvents', 'off');
|
|
readingsEndUpdate($hash,1);
|
|
|
|
|
|
if( $init_done ) {
|
|
|
|
HEOSMaster_firstRun($hash);
|
|
|
|
} else {
|
|
|
|
InternalTimer( gettimeofday()+15, 'HEOSMaster_firstRun', $hash, 0 ) if( ($hash->{HOST}) );
|
|
}
|
|
|
|
$modules{HEOSPlayer}{defptr}{$host} = $hash;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub HEOSMaster_Undef($$) {
|
|
|
|
my ( $hash, $arg ) = @_;
|
|
|
|
my $host = $hash->{HOST};
|
|
my $name = $hash->{NAME};
|
|
|
|
HEOSMaster_Close($hash);
|
|
delete $modules{HEOSMaster}{defptr}{$hash->{HOST}};
|
|
|
|
Log3 $name, 3, "HEOSPlayer ($name) - device $name deleted";
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub HEOSMaster_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" ) {
|
|
readingsSingleUpdate ( $hash, "state", "disabled", 1 );
|
|
Log3 $name, 3, "HEOSMaster ($name) - disabled";
|
|
}
|
|
|
|
elsif( $cmd eq "del" ) {
|
|
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
|
Log3 $name, 3, "HEOSMaster ($name) - enabled";
|
|
}
|
|
}
|
|
|
|
if( $attrName eq "disabledForIntervals" ) {
|
|
if( $cmd eq "set" ) {
|
|
Log3 $name, 3, "HEOSMaster ($name) - enable disabledForIntervals";
|
|
readingsSingleUpdate ( $hash, "state", "Unknown", 1 );
|
|
}
|
|
|
|
elsif( $cmd eq "del" ) {
|
|
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
|
Log3 $name, 3, "HEOSMaster ($name) - delete disabledForIntervals";
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub HEOSMaster_Get($$@) {
|
|
my ($hash, $name, @aa) = @_;
|
|
my ($cmd, @args) = @aa;
|
|
|
|
my $pid = $hash->{PID};
|
|
|
|
if( $cmd eq 'showAccount' ) {
|
|
|
|
return AttrVal($name,'heosUsername',0) . ":" .HEOSMaster_ReadPassword($hash);
|
|
}
|
|
|
|
my $list = 'showAccount:noArg';
|
|
|
|
return "Unknown argument $cmd, choose one of $list";
|
|
}
|
|
|
|
sub HEOSMaster_Set($@) {
|
|
|
|
my ($hash, $name, $cmd, @args) = @_;
|
|
my ($arg, @params) = @args;
|
|
|
|
my $action;
|
|
my $heosCmd;
|
|
|
|
if($cmd eq 'reopen') {
|
|
return "usage: reopen" if( @args != 0 );
|
|
|
|
HEOSMaster_ReOpen($hash);
|
|
|
|
return undef;
|
|
|
|
} elsif($cmd eq 'getPlayers') {
|
|
return "usage: getPlayers" if( @args != 0 );
|
|
|
|
$heosCmd = 'getPlayers';
|
|
$action = undef;
|
|
|
|
} elsif($cmd eq 'getGroups') {
|
|
return "usage: getGroups" if( @args != 0 );
|
|
|
|
$heosCmd = 'getGroups';
|
|
$action = undef;
|
|
|
|
} elsif($cmd eq 'enableChangeEvents') {
|
|
return "usage: enableChangeEvents" if( @args != 1 );
|
|
|
|
$heosCmd = $cmd;
|
|
$action = $args[0];
|
|
|
|
} elsif($cmd eq 'checkAccount') {
|
|
return "usage: checkAccount" if( @args != 0 );
|
|
|
|
$heosCmd = $cmd;
|
|
$action = undef;
|
|
|
|
} elsif($cmd eq 'signAccount') {
|
|
return "usage: signAccountIn" if( @args != 1 );
|
|
return "please set account informattion first" if(AttrVal($name,'heosUsername','none') eq 'none');
|
|
|
|
$heosCmd = $cmd . $args[0];
|
|
$action = 'un='. AttrVal($name,'heosUsername','none') . '&pw=' . HEOSMaster_ReadPassword($hash) if($args[0] eq 'In');
|
|
|
|
} elsif($cmd eq 'password') {
|
|
return "usage: password" if( @args != 1 );
|
|
|
|
return HEOSMaster_StorePassword( $hash, $args[0] );
|
|
|
|
} elsif($cmd eq 'reboot') {
|
|
return "usage: reboot" if( @args != 0 );
|
|
|
|
return HEOSMaster_StorePassword( $hash, $args[0] );
|
|
|
|
|
|
###################################################
|
|
### Dieser Menüpunkt ist nur zum testen
|
|
} elsif($cmd eq 'eventSend') {
|
|
return "usage: eventSend" if( @args != 0 );
|
|
|
|
HEOSMaster_send($hash);
|
|
return undef;
|
|
###################################################
|
|
|
|
|
|
} else {
|
|
my $list = "";
|
|
$list .= "reopen:noArg getPlayers:noArg getGroups:noArg enableChangeEvents:on,off checkAccount:noArg signAccount:In,Out password reboot";
|
|
return "Unknown argument $cmd, choose one of $list";
|
|
}
|
|
|
|
HEOSMaster_Write($hash,$heosCmd,$action);
|
|
}
|
|
|
|
sub HEOSMaster_Open($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
my $host = $hash->{HOST};
|
|
my $port = 1255;
|
|
my $timeout = 0.1;
|
|
my $user = AttrVal($name,'heosUsername',undef);
|
|
my $password = HEOSMaster_ReadPassword($hash);
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - Baue Socket Verbindung auf";
|
|
|
|
|
|
my $socket = new Net::Telnet ( Host=>$host,
|
|
Port => $port,
|
|
Timeout=>$timeout,
|
|
Errmode=>'return')
|
|
or return Log3 $name, 3, "HEOSMaster ($name) Couldn't connect to $host:$port";
|
|
|
|
$hash->{FD} = $socket->fileno();
|
|
$hash->{CD} = $socket; # sysread / close won't work on fileno
|
|
$selectlist{$name} = $hash;
|
|
|
|
readingsSingleUpdate($hash, 'state', 'connected', 1 );
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - Socket Connected";
|
|
|
|
|
|
#hinzugefügt laut Protokoll 2.1.1 Initsequenz
|
|
HEOSMaster_Write($hash,'enableChangeEvents','off');
|
|
Log3 $name, 4, "HEOSMaster ($name) - set enableChangeEvents off";
|
|
|
|
#hinzugefügt laut Protokoll 2.1.1 Initsequenz
|
|
if( defined($user) and defined($password) ) {
|
|
|
|
HEOSMaster_Write($hash,'signAccountIn',"un=$user&pw=$password");
|
|
Log3 $name, 4, "HEOSMaster ($name) - sign in";
|
|
}
|
|
|
|
|
|
HEOSMaster_GetPlayers($hash);
|
|
InternalTimer( gettimeofday()+1, 'HEOSMaster_EnableChangeEvents', $hash, 0 );
|
|
InternalTimer( gettimeofday()+2, 'HEOSMaster_GetMusicSources', $hash, 0 );
|
|
InternalTimer( gettimeofday()+3, 'HEOSMaster_GetGroups', $hash, 0 );
|
|
}
|
|
|
|
sub HEOSMaster_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', 'not connected', 1 );
|
|
}
|
|
|
|
sub HEOSMaster_ReOpen($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
HEOSMaster_Close($hash);
|
|
HEOSMaster_Open($hash) if( !$hash->{CD} or !defined($hash->{CD}) );
|
|
}
|
|
|
|
sub HEOSMaster_Write($@) {
|
|
|
|
my ($hash,$heosCmd,$value) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
my $string = "heos://$heosCmds{$heosCmd}";
|
|
|
|
if( defined($value) ) {
|
|
$string .= "${value}" if( $value ne '&' );
|
|
}
|
|
|
|
$string .= "\r\n";
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - WriteFn called";
|
|
|
|
return Log3 $name, 4, "HEOSMaster ($name) - socket not connected"
|
|
unless($hash->{CD});
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - $string";
|
|
syswrite($hash->{CD}, $string);
|
|
return undef;
|
|
}
|
|
|
|
sub HEOSMaster_Read($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $len;
|
|
my $buf;
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - ReadFn gestartet";
|
|
|
|
$len = sysread($hash->{CD},$buf,1024); # die genaue Puffergröße wird noch ermittelt
|
|
|
|
if( !defined($len) || !$len ) {
|
|
Log3 $name, 5, "HEOSMaster ($name) - connection closed by remote Host";
|
|
HEOSMaster_Close($hash);
|
|
return;
|
|
}
|
|
|
|
unless( defined $buf) {
|
|
Log3 $name, 3, "HEOSMaster ($name) - Keine Daten empfangen";
|
|
return;
|
|
}
|
|
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - received buffer data, start HEOSMaster_ProcessRead: $buf";
|
|
HEOSMaster_ProcessRead($hash,$buf);
|
|
}
|
|
|
|
sub HEOSMaster_ProcessRead($$) {
|
|
|
|
my ($hash, $data) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $buffer = '';
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - process read";
|
|
|
|
#include previous partial message
|
|
if(defined($hash->{PARTIAL}) && $hash->{PARTIAL}) {
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - PARTIAL: " . $hash->{PARTIAL};
|
|
$buffer = $hash->{PARTIAL};
|
|
|
|
} else {
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - No PARTIAL buffer";
|
|
}
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - Incoming data: " . $data;
|
|
|
|
$buffer = $buffer . $data;
|
|
Log3 $name, 5, "HEOSMaster ($name) - Current processing buffer (PARTIAL + incoming data): " . $buffer;
|
|
|
|
my ($json,$tail) = HEOSMaster_ParseMsg($hash, $buffer);
|
|
|
|
|
|
#processes all complete messages
|
|
while($json) {
|
|
|
|
$hash->{LAST_RECV} = time();
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - Decoding JSON message. Length: " . length($json) . " Content: " . $json;
|
|
|
|
my $obj = JSON->new->utf8(0)->decode($json);
|
|
if(defined($obj->{heos})) {
|
|
|
|
HEOSMaster_ResponseProcessing($hash,$json);
|
|
Log3 $name, 4, "HEOSMaster ($name) - starte HEOSMaster_ResponseProcessing";
|
|
|
|
} elsif(defined($obj->{error})) {
|
|
|
|
Log3 $name, 3, "HEOSMaster ($name) - Received error message: " . $json;
|
|
}
|
|
|
|
($json,$tail) = HEOSMaster_ParseMsg($hash, $tail);
|
|
}
|
|
|
|
$hash->{PARTIAL} = $tail;
|
|
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - Tail: " . $tail;
|
|
Log3 $name, 5, "HEOSMaster ($name) - PARTIAL: " . $hash->{PARTIAL};
|
|
|
|
return;
|
|
}
|
|
|
|
sub HEOSMaster_ResponseProcessing($$) {
|
|
|
|
my ($hash,$json) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $decode_json;
|
|
|
|
|
|
Log3 $name, 5, "HEOSMaster ($name) - JSON String: $json";
|
|
|
|
return Log3 $name, 3, "HEOSMaster ($name) - empty answer received"
|
|
unless( defined($json));
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - JSON detected!";
|
|
$decode_json = decode_json(encode_utf8($json));
|
|
|
|
return Log3 $name, 3, "HEOSMaster ($name) - decode_json has no Hash"
|
|
unless(ref($decode_json) eq "HASH");
|
|
|
|
|
|
#wenn noch in Bearbeitung dann message ignorieren
|
|
return Log3 $name, 3, "HEOSMaster ($name) - heos worked" # Konnte nicht genau erkennen ob Du es so haben wolltest. Anders macht es aber auch keinen Sinn
|
|
if( defined($decode_json->{heos}{message}) && $decode_json->{heos}{message} =~ /command\sunder\sprocess/ );
|
|
|
|
|
|
if( (defined($decode_json->{heos}{result}) and defined($decode_json->{heos}{command})) or ($decode_json->{heos}{command} =~ /^system/) ) {
|
|
|
|
HEOSMaster_WriteReadings($hash,$decode_json);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Sub HEOSMaster_WriteReadings";
|
|
|
|
}
|
|
|
|
if( $decode_json->{heos}{command} =~ /^browse\/get_music_sources/ and ref($decode_json->{payload}) eq "ARRAY" and scalar(@{$decode_json->{payload}}) > 0) {
|
|
|
|
#liest nur die Radioquellen der Rest wird extra eingelesen
|
|
$hash->{helper}{sources} = [];
|
|
my $i = 4;
|
|
|
|
foreach my $payload ( @{$decode_json->{payload}} ) {
|
|
|
|
if( $payload->{sid} eq "1024" ) {
|
|
|
|
$i += 2;
|
|
InternalTimer( gettimeofday()+$i, 'HEOSMaster_GetServers', $hash, 0 );
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetServers in $i seconds";
|
|
|
|
} elsif( $payload->{sid} eq "1025" ) {
|
|
|
|
$i += 2;
|
|
InternalTimer( gettimeofday()+$i, 'HEOSMaster_GetPlaylists', $hash, 0 );
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetPlaylists in $i seconds";
|
|
|
|
} elsif( $payload->{sid} eq "1026" ) {
|
|
|
|
$i += 2;
|
|
InternalTimer( gettimeofday()+$i, 'HEOSMaster_GetHistory', $hash, 0 );
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetHistory in $i seconds";
|
|
|
|
} elsif( $payload->{sid} eq "1027" ) {
|
|
|
|
$i += 2;
|
|
InternalTimer( gettimeofday()+$i, 'HEOSMaster_GetInputs', $hash, 0 );
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetInputs in $i seconds";
|
|
|
|
} elsif( $payload->{sid} eq "1028" ) {
|
|
|
|
$i += 2;
|
|
InternalTimer( gettimeofday()+$i, 'HEOSMaster_GetFavorites', $hash, 0 );
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetFavorites in $i seconds";
|
|
|
|
} else {
|
|
|
|
#Radios
|
|
push( @{$hash->{helper}{sources}},$payload);
|
|
Log3 $name, 4, "HEOSMaster ($name) - GetRadioSource {$payload->{name} with sid $payload->{sid}";
|
|
}
|
|
}
|
|
|
|
Log3 $name, 3, "HEOSMaster ($name) - call Sourcebrowser";
|
|
return;
|
|
}
|
|
|
|
if( $decode_json->{heos}{command} =~ /^browse\/browse/ and ref($decode_json->{payload}) eq "ARRAY" and scalar(@{$decode_json->{payload}}) > 0) {
|
|
|
|
my %message = map split("=",$_), split('&', $decode_json->{heos}{message});
|
|
|
|
if( exists $message{sid} ) {
|
|
if( $message{sid} eq '1028' ) {
|
|
|
|
#Favoriten einlesen
|
|
$hash->{helper}{favorites} = $decode_json->{payload};
|
|
|
|
#Nachricht an die Player das die Favoriten sich geändert haben
|
|
foreach my $dev ( devspec2array("TYPE=HEOSPlayer") ) {
|
|
my $pid = $defs{$dev}->{PID};
|
|
$json = '{"heos": {"command": "event/favorites_changed", "message": "pid='.$pid.'"}}';
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher for Favorites Changed";
|
|
}
|
|
|
|
} elsif( $message{sid} eq '1026' ) {
|
|
|
|
#History einlesen
|
|
$hash->{helper}{history} = $decode_json->{payload};
|
|
|
|
} elsif( $message{sid} eq '1025' ) {
|
|
|
|
#Playlisten einlesen
|
|
$hash->{helper}{playlists} = $decode_json->{payload};
|
|
|
|
} elsif( $message{sid} eq '1027' ) {
|
|
|
|
#Inputs einlesen
|
|
push( @{$hash->{helper}{sources}}, map { $_->{name} .= " AUX"; $_ } (@{$decode_json->{payload}}) );
|
|
|
|
} elsif( $message{sid} eq '1024' ) {
|
|
|
|
#Lokal einlesen
|
|
push( @{$hash->{helper}{sources}}, map { $_->{name} .= " USB" if ( $_->{sid} < 0 ); $_ } (@{$decode_json->{payload}}) );
|
|
|
|
} else {
|
|
|
|
#aktuellen Input/Media einlesen
|
|
$hash->{helper}{media} = $decode_json->{payload};
|
|
}
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Browser with sid $message{sid} and $message{returned} items from $message{count} items";
|
|
|
|
if( $message{returned} < $message{count} ) {
|
|
|
|
HEOSMaster_Write($hash,'browseSource',"sid=.$message{sid}&range=.$message{returned}");
|
|
Log3 $name, 3, "HEOSMaster ($name) - call Browser search next Range for $message{sid} => $message{returned}";
|
|
}
|
|
|
|
return;
|
|
}
|
|
}
|
|
|
|
#Quellen neu einlesen
|
|
if( $decode_json->{heos}{command} =~ /^event\/sources_changed/ ) {
|
|
|
|
#InternalTimer( gettimeofday()+5, 'HEOSMaster_GetMusicSources', $hash, 0 );
|
|
HEOSMaster_Write($hash,'getMusicSources',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - source changed";
|
|
return;
|
|
}
|
|
|
|
#Player neu einlesen
|
|
if( $decode_json->{heos}{command} =~ /^event\/players_changed/ ) {
|
|
|
|
#InternalTimer( gettimeofday()+5, 'HEOSMaster_GetPlayers', $hash, 0 );
|
|
HEOSMaster_Write($hash,'getPlayers',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - player changed";
|
|
return;
|
|
}
|
|
|
|
#User neu einlesen
|
|
if( $decode_json->{heos}{command} =~ /^event\/user_changed/ ) {
|
|
#InternalTimer( gettimeofday()+5, 'HEOSMaster_CheckAccount', $hash, 0 );
|
|
HEOSMaster_Write($hash,'checkAccount',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - user changed";
|
|
return;
|
|
}
|
|
|
|
#Gruppen neu einlesen
|
|
if( $decode_json->{heos}{command} =~ /^event\/groups_changed/ ) {
|
|
#InternalTimer( gettimeofday()+5, 'HEOSMaster_GetGroups', $hash, 0 );
|
|
HEOSMaster_Write($hash,'getGroups',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - groups changed";
|
|
return;
|
|
}
|
|
|
|
if( $decode_json->{heos}{command} =~ /^player/ or $decode_json->{heos}{command} =~ /^event\/player/ or $decode_json->{heos}{command} =~ /^group/ or $decode_json->{heos}{command} =~ /^event\/group/ or $decode_json->{heos}{command} =~ /^event\/repeat_mode_changed/ or $decode_json->{heos}{command} =~ /^event\/shuffle_mode_changed/ ) {
|
|
|
|
if( ref($decode_json->{payload}) eq "ARRAY" ) {
|
|
if( $decode_json->{heos}{command} =~ /^player/ ) {
|
|
|
|
return Log3 $name, 4, "HEOSMaster ($name) - empty ARRAY received"
|
|
unless(scalar(@{$decode_json->{payload}}) > 0);
|
|
|
|
foreach my $payload (@{$decode_json->{payload}}) {
|
|
|
|
$json = '{"pid": "';
|
|
$json .= "$payload->{pid}";
|
|
$json .= '","heos": {"command": "player/get_players"}}';
|
|
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher for Players";
|
|
}
|
|
|
|
return;
|
|
|
|
} elsif( $decode_json->{heos}{command} =~ /^group/ ) {
|
|
|
|
|
|
unless ( scalar(@{$decode_json->{payload}}) > 0 ) {
|
|
#alle gruppen ausschalten da leer
|
|
foreach my $dev ( devspec2array("TYPE=HEOSGroup") ) {
|
|
|
|
my $ghash = $defs{$dev};
|
|
readingsSingleUpdate( $ghash, "state", "off", 1 );
|
|
}
|
|
} else {
|
|
|
|
foreach my $payload (@{$decode_json->{payload}}) {
|
|
|
|
$json = '{"gid": "';
|
|
$json .= "$payload->{gid}";
|
|
$json .= '","heos": {"command": "group/get_groups"}}';
|
|
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher for Groups";
|
|
}
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
} elsif( defined($decode_json->{payload}{pid}) ) {
|
|
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher for PlayerInfo";
|
|
return;
|
|
|
|
} elsif( defined($decode_json->{payload}{gid}) and defined($decode_json->{payload}{players}) ) {
|
|
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher for GroupInfo";
|
|
return;
|
|
|
|
} elsif( (defined($decode_json->{heos}{message})) and ($decode_json->{heos}{message} =~ /^pid=/ or $decode_json->{heos}{message} =~ /^gid=/) ) {
|
|
|
|
Dispatch($hash,$json,undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - call Dispatcher";
|
|
return;
|
|
|
|
}
|
|
}
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - no Match for processing data";
|
|
}
|
|
|
|
sub HEOSMaster_WriteReadings($$) {
|
|
|
|
my ($hash,$decode_json) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $value;
|
|
|
|
|
|
############################
|
|
#### Aufbereiten der Daten soweit nötig
|
|
|
|
my $readingsHash = HEOSMaster_PreProcessingReadings($hash,$decode_json)
|
|
if( $decode_json->{heos}{command} eq 'system/register_for_change_events'
|
|
or $decode_json->{heos}{command} eq 'system/check_account'
|
|
or $decode_json->{heos}{command} eq 'system/sign_in'
|
|
or $decode_json->{heos}{command} eq 'system/sign_out' );
|
|
|
|
|
|
############################
|
|
#### schreiben der Readings
|
|
|
|
readingsBeginUpdate($hash);
|
|
|
|
### Event Readings
|
|
if( ref($readingsHash) eq "HASH" ) {
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - response json Hash back from HEOSMaster_PreProcessingReadings";
|
|
|
|
my $t;
|
|
my $v;
|
|
while( ( $t, $v ) = each (%{$readingsHash}) ) {
|
|
if( defined( $v ) ) {
|
|
|
|
readingsBulkUpdate( $hash, $t, $v );
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
readingsBulkUpdate( $hash, "lastCommand", $decode_json->{heos}{command} );
|
|
readingsBulkUpdate( $hash, "lastResult", $decode_json->{heos}{result} );
|
|
|
|
if( ref($decode_json->{payload}) ne "ARRAY" ) {
|
|
readingsBulkUpdate( $hash, "lastPlayerId", $decode_json->{payload}{pid} );
|
|
readingsBulkUpdate( $hash, "lastPlayerName", $decode_json->{payload}{name} );
|
|
}
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
return undef;
|
|
}
|
|
|
|
###################
|
|
### my little Helpers
|
|
|
|
sub HEOSMaster_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, "HEOSMaster ($name) - $open == $close && $open > 0";
|
|
|
|
} elsif(($open == $close) && ($c ne '{')) {
|
|
|
|
Log3 $name, 5, "HEOSMaster ($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, "HEOSMaster ($name) - return msg: $msg and tail: $tail";
|
|
return ($msg,$tail);
|
|
}
|
|
|
|
sub HEOSMaster_PreProcessingReadings($$) {
|
|
|
|
my ($hash,$decode_json) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $reading;
|
|
my %buffer;
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - preprocessing readings";
|
|
|
|
|
|
if ( $decode_json->{heos}{command} eq 'system/register_for_change_events' ) {
|
|
|
|
my @value = split('=', $decode_json->{heos}{message});
|
|
$buffer{'enableChangeEvents'} = $value[1];
|
|
|
|
} elsif ( $decode_json->{heos}{command} eq 'system/check_account' or $decode_json->{heos}{command} eq 'system/sign_in' ) {
|
|
|
|
my @value = split('&', $decode_json->{heos}{message});
|
|
|
|
if( $decode_json->{heos}{message} eq 'signed_out' ) {
|
|
|
|
$buffer{'heosAccount'} = $value[0];
|
|
|
|
} else {
|
|
|
|
$buffer{'heosAccount'} = $value[0] . ' as ' . substr($value[1],3);
|
|
HEOSMaster_GetFavorites($hash) if( ReadingsVal($name,"enableChangeEvents", "off") eq "on" );
|
|
}
|
|
|
|
} else {
|
|
|
|
Log3 $name, 3, "HEOSMaster ($name) - no match found";
|
|
return undef;
|
|
}
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - Match found for decode_json";
|
|
return \%buffer;
|
|
}
|
|
|
|
sub HEOSMaster_firstRun($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
RemoveInternalTimer($hash,'HEOSMaster_firstRun');
|
|
|
|
HEOSMaster_Open($hash) if( !IsDisabled($name) );
|
|
}
|
|
|
|
sub HEOSMaster_GetPlayers($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
RemoveInternalTimer($hash,'HEOSMaster_GetPlayers');
|
|
|
|
HEOSMaster_Write($hash,'getPlayers',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - getPlayers";
|
|
}
|
|
|
|
sub HEOSMaster_GetGroups($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
RemoveInternalTimer($hash,'HEOSMaster_GetGroups');
|
|
|
|
HEOSMaster_Write($hash,'getGroups',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - getGroups";
|
|
}
|
|
|
|
sub HEOSMaster_EnableChangeEvents($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
RemoveInternalTimer($hash,'HEOSMaster_EnableChangeEvents');
|
|
|
|
HEOSMaster_Write($hash,'enableChangeEvents','on');
|
|
Log3 $name, 4, "HEOSMaster ($name) - set enableChangeEvents on";
|
|
}
|
|
|
|
sub HEOSMaster_GetMusicSources($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetMusicSources');
|
|
|
|
HEOSMaster_Write($hash,'getMusicSources',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - getMusicSources";
|
|
|
|
}
|
|
|
|
sub HEOSMaster_GetFavorites($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetFavorites');
|
|
|
|
HEOSMaster_Write($hash,'browseSource','sid=1028');
|
|
Log3 $name, 4, "HEOSMaster ($name) - getFavorites";
|
|
}
|
|
|
|
sub HEOSMaster_GetInputs($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetInputs');
|
|
|
|
HEOSMaster_Write($hash,'browseSource','sid=1027');
|
|
Log3 $name, 4, "HEOSMaster ($name) - getInputs";
|
|
}
|
|
|
|
sub HEOSMaster_GetServers($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetServers');
|
|
|
|
HEOSMaster_Write($hash,'browseSource','sid=1024');
|
|
Log3 $name, 4, "HEOSMaster ($name) - getServers";
|
|
}
|
|
|
|
sub HEOSMaster_GetPlaylists($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetPlaylists');
|
|
|
|
HEOSMaster_Write($hash,'browseSource','sid=1025');
|
|
Log3 $name, 4, "HEOSMaster ($name) - getPlaylists";
|
|
}
|
|
|
|
sub HEOSMaster_GetHistory($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_GetHistory');
|
|
|
|
HEOSMaster_Write($hash,'browseSource','sid=1026');
|
|
Log3 $name, 4, "HEOSMaster ($name) - getHistory";
|
|
}
|
|
|
|
sub HEOSMaster_CheckAccount($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
RemoveInternalTimer($hash, 'HEOSMaster_CheckAccount');
|
|
|
|
HEOSMaster_Write($hash,'checkAccount',undef);
|
|
Log3 $name, 4, "HEOSMaster ($name) - checkAccount";
|
|
}
|
|
|
|
sub HEOSMaster_StorePassword($$) {
|
|
|
|
my ($hash, $password) = @_;
|
|
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
|
my $key = getUniqueId().$index;
|
|
my $enc_pwd = "";
|
|
|
|
|
|
if(eval "use Digest::MD5;1") {
|
|
|
|
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
|
$key .= Digest::MD5::md5_hex($key);
|
|
}
|
|
|
|
for my $char (split //, $password) {
|
|
|
|
my $encode=chop($key);
|
|
$enc_pwd.=sprintf("%.2x",ord($char)^ord($encode));
|
|
$key=$encode.$key;
|
|
}
|
|
|
|
my $err = setKeyValue($index, $enc_pwd);
|
|
return "error while saving the password - $err" if(defined($err));
|
|
|
|
return "password successfully saved";
|
|
}
|
|
|
|
sub HEOSMaster_ReadPassword($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
|
my $key = getUniqueId().$index;
|
|
my ($password, $err);
|
|
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - Read FritzBox password from file";
|
|
|
|
($err, $password) = getKeyValue($index);
|
|
|
|
if ( defined($err) ) {
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - unable to read FritzBox password from file: $err";
|
|
return undef;
|
|
}
|
|
|
|
if ( defined($password) ) {
|
|
|
|
if ( eval "use Digest::MD5;1" ) {
|
|
|
|
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
|
$key .= Digest::MD5::md5_hex($key);
|
|
}
|
|
|
|
my $dec_pwd = '';
|
|
|
|
for my $char (map { pack('C', hex($_)) } ($password =~ /(..)/g)) {
|
|
|
|
my $decode=chop($key);
|
|
$dec_pwd.=chr(ord($char)^ord($decode));
|
|
$key=$decode.$key;
|
|
}
|
|
|
|
return $dec_pwd;
|
|
|
|
} else {
|
|
|
|
Log3 $name, 4, "HEOSMaster ($name) - No password in file";
|
|
return undef;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
################
|
|
### Nur für mich um dem Emulator ein Event ab zu jagen
|
|
sub HEOSMaster_send($) {
|
|
|
|
my $hash = shift;
|
|
|
|
HEOSMaster_Write($hash,'eventChangeVolume',undef);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1;
|