Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

SONOS: Some bugs fixed. see changelog.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16376 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Reinerlein 2018-03-10 16:21:04 +00:00
parent 633a3de090
commit 15a30e6160
2 changed files with 68 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
fhem/FHEM/00_SONOS.pm
View File

@ -1,6 +1,6 @@
######################################################################################## ########################################################################################
# #
# SONOS.pm (c) by Reiner Leins, February 2018 # SONOS.pm (c) by Reiner Leins, March 2018
# rleins at lmsoft dot de # rleins at lmsoft dot de
# #
# $Id$ # $Id$
@ -51,6 +51,13 @@
# Changelog (last 4 entries only, see Wiki for complete changelog) # Changelog (last 4 entries only, see Wiki for complete changelog)
# #
# SVN-History: # SVN-History:
# 10.03.2018
# Die PlayBase kann nun auch den SPDIF-Eingang aktivieren (wie die PlayBar)
# Wenn man über Alexa Musik hört, wird das aktuelle Cover nun auch angezeigt.
# Wenn ein Player nach einem Neustart disabled war, und während des Betriebs enabled wird, wird nun versucht ihn wiederzufinden.
# Wenn ein Player disabled oder disappeared ist, wird ein Proxy-Cover-Zugriffsversuch auf diesen Player unterbunden.
# Ein Modify-Befehlsaufruf wird nun am Vorhandensein von $hash->{OLDDEF} erkannt.
# Bei einigen PERL-Installationen stand im Reading 'currentTrackPositionSimulatedSec' eine Kommazahl (da sie von time() aus berechnet wird). Diese Zahl wird nun gerundet.
# 26.02.2018 # 26.02.2018
# ComObjectTransportQueue in Client_ReceiveQueue umbenannt. # ComObjectTransportQueue in Client_ReceiveQueue umbenannt.
# If-Abfrage um die can_read-Schleife im SubProzess eingebaut, Um Signalunterbrechungen zu berücksichtigen. # If-Abfrage um die can_read-Schleife im SubProzess eingebaut, Um Signalunterbrechungen zu berücksichtigen.
@ -71,10 +78,6 @@
# Die Angabe in LastProcessAnswer ist nicht Zeitumstellungsfest. Der Wert wurde nun umgestellt auf epoch-Zeit. # Die Angabe in LastProcessAnswer ist nicht Zeitumstellungsfest. Der Wert wurde nun umgestellt auf epoch-Zeit.
# Der Verweis auf %intAt wurde entfernt. Die Variable wurde sowieso nie verwendet. # Der Verweis auf %intAt wurde entfernt. Die Variable wurde sowieso nie verwendet.
# Warnungsunterdrückung von 'mumpitzstuff' eingebaut. # Warnungsunterdrückung von 'mumpitzstuff' eingebaut.
# 28.09.2017
# Provider-Icons werden wieder korrekt ermittelt
# Das Verarbeiten der Arbeitsschlange im SubProcess wurde optimiert
# Die Fehlermeldung mit den redundanten Argumenten bei sprintf wurde umgestellt.
# #
######################################################################################## ########################################################################################
# #
@ -694,22 +697,41 @@ sub SONOS_FhemWebCallback($) {
my $albumurl = uri_unescape($1) if ($URL =~ m/^\/proxy\/aa\?url=(.*)/i); my $albumurl = uri_unescape($1) if ($URL =~ m/^\/proxy\/aa\?url=(.*)/i);
$albumurl =~ s/'/'/ig; $albumurl =~ s/'/'/ig;
SONOS_Log undef, 5, 'FHEMWEB-AlbumURL: '.$albumurl;
# Nur für Sonos-Player den Proxy spielen (und für Spotify-Links) # Nur für Sonos-Player den Proxy spielen (und für Spotify-Links)
my $ip = ''; my $ip = '';
$ip = $1 if ($albumurl =~ m/^http:\/\/(.*?)[:\/]/i); $ip = $1 if ($albumurl =~ m/^http:\/\/(.*?)[:\/]/i);
my $player_found = 0;
my $player_inactive = 0;
for my $player (SONOS_getAllSonosplayerDevices()) { for my $player (SONOS_getAllSonosplayerDevices()) {
if (ReadingsVal($player->{NAME}, 'location', '') =~ m/^http:\/\/$ip:/i) { if (ReadingsVal($player->{NAME}, 'location', '') =~ m/^http:\/\/$ip:/i) {
undef($ip); if ((ReadingsVal($player->{NAME}, 'presence', '') eq 'disappeared') || AttrVal($player->{NAME}, 'disable', 0)) {
$player_inactive = 1;
}
$player_found = 1;
last; last;
} }
} }
return ("text/html; charset=UTF8", 'Call for Non-Sonos-Player: '.$URL)
if (defined($ip) SONOS_Log undef, 5, 'FHEMWEB-PlayerFound: '.$player_found;
&& $albumurl !~ /\.cloudfront.net\//i SONOS_Log undef, 5, 'FHEMWEB-PlayerInactive: '.$player_inactive;
# Für Inaktive oder andere Player, einfach das leere Cover liefern...
if (!$player_found) {
if ($albumurl !~ /\.cloudfront.net\//i
&& $albumurl !~ /\.scdn.co\//i && $albumurl !~ /\.scdn.co\//i
&& $albumurl !~ /sonos-logo\.ws\.sonos\.com\//i && $albumurl !~ /sonos-logo\.ws\.sonos\.com\//i
&& $albumurl !~ /\.tunein\.com/i && $albumurl !~ /\.tunein\.com/i
&& $albumurl !~ /\/music\/image\?/i); && $albumurl !~ /\/music\/image\?/i
&& $albumurl !~ /media-amazon\.com/i) {
return ("text/html; charset=UTF8", 'Call for Non-Sonos-Player: '.$URL);
}
} elsif ($player_inactive) {
FW_serveSpecial('sonos_empty', 'jpg', $attr{global}{modpath}.'/FHEM/lib/UPnP', 1);
return (undef, undef);
}
# Generierter Dateiname für die Cache-Funktionalitaet # Generierter Dateiname für die Cache-Funktionalitaet
my $albumHash; my $albumHash;
@ -892,7 +914,7 @@ sub SONOS_Define($$) {
my @a = split("[ \t]+", $def); my @a = split("[ \t]+", $def);
# Check if we just want a modify... # Check if we just want a modify...
if ($hash->{NAME}) { if (defined($hash->{OLDDEF})) {
SONOS_Log undef, 1, 'Modify Device: '.$hash->{NAME}; SONOS_Log undef, 1, 'Modify Device: '.$hash->{NAME};
# Alle Timer entfernen... # Alle Timer entfernen...
@ -1601,8 +1623,8 @@ sub SONOS_Read($) {
$nextName = 'Next'; $nextName = 'Next';
} }
my $tempURI = $3; my $tempURI = uri_unescape($3);
my $groundURL = $4; my $groundURL = uri_unescape($4);
my $currentValue; my $currentValue;
my $srcURI = ''; my $srcURI = '';
@ -2375,7 +2397,7 @@ sub SONOS_DoWork($$;@) {
# #
######################################################################################## ########################################################################################
sub SONOS_Discover() { sub SONOS_Discover() {
SONOS_Log undef, 3, 'UPnP-Thread gestartet.'; SONOS_Log undef, 1, 'UPnP-Thread gestartet.';
$SIG{'PIPE'} = 'IGNORE'; $SIG{'PIPE'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE';
@ -2443,7 +2465,7 @@ sub SONOS_Discover() {
SONOS_SaveBookmarkValues(); SONOS_SaveBookmarkValues();
SONOS_Log undef, 3, 'UPnP-Thread wurde beendet.'; SONOS_Log undef, 1, 'UPnP-Thread wurde beendet.';
$SONOS_Thread = -1; $SONOS_Thread = -1;
return 1; return 1;
@ -5201,7 +5223,10 @@ sub SONOS_GetTrackProvider($;$) {
} }
my ($a, $b, $c) = eval { my ($a, $b, $c) = eval {
my %musicServices = %{eval(SONOS_Client_Data_Retreive('undef', 'reading', 'MusicServicesList', '()'))}; my $musicServicesReading = SONOS_Client_Data_Retreive('undef', 'reading', 'MusicServicesList', undef);
my %musicServices = ();
%musicServices = %{eval($musicServicesReading)} if (defined($musicServicesReading));
if ($songURI =~ m/sid=(\d+)/i) { if ($songURI =~ m/sid=(\d+)/i) {
my $sid = $1; my $sid = $1;
@ -6823,11 +6848,11 @@ sub SONOS_TransportCallback($$) {
my $tempURI = ''; my $tempURI = '';
$tempURI = ($1) if ($tempURIground =~ m/<upnp:albumArtURI>(.*?)<\/upnp:albumArtURI>/i); $tempURI = ($1) if ($tempURIground =~ m/<upnp:albumArtURI>(.*?)<\/upnp:albumArtURI>/i);
# Wenn in der URI bereits ein kompletter Pfad drinsteht, dann diese Basis verwenden (passiert bei Wiedergabe vom iPad z.B.) # Wenn in der URI bereits ein kompletter Pfad drinsteht, dann diese Basis verwenden (passiert bei Wiedergabe vom iPad z.B.)
if ($tempURI =~ m/^(http:\/\/.*?\/)(.*)/) { if ($tempURI =~ m/^(http(s|):\/\/.*?\/)(.*)/) {
$groundURL = $1; $groundURL = $1;
$tempURI = $2; $tempURI = $3;
} }
SONOS_Client_Notifier('ProcessCover:'.$udn.':0:'.$tempURI.':'.$groundURL); SONOS_Client_Notifier('ProcessCover:'.$udn.':0:'.SONOS_URI_Escape($tempURI).':'.SONOS_URI_Escape($groundURL));
# Auch hier den XML-Parser verhindern, und alles per regulärem Ausdruck ermitteln... # Auch hier den XML-Parser verhindern, und alles per regulärem Ausdruck ermitteln...
if ($currentTrackMetaData =~ m/<dc:title>x-(sonosapi|rincon)-(stream|mp3radio):.*?<\/dc:title>/) { if ($currentTrackMetaData =~ m/<dc:title>x-(sonosapi|rincon)-(stream|mp3radio):.*?<\/dc:title>/) {
@ -6894,7 +6919,7 @@ sub SONOS_TransportCallback($$) {
} }
SONOS_Client_Notifier('SetCurrent:Artist:'); SONOS_Client_Notifier('SetCurrent:Artist:');
SONOS_Client_Notifier('ProcessCover:'.$udn.':0:/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_default.jpg:'); SONOS_Client_Notifier('ProcessCover:'.$udn.':0:'.SONOS_URI_Escape('/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_default.jpg').':');
} elsif ($currentTrackURI =~ m/x-sonos-dock:(RINCON_[\dA-Z]+)/) { } elsif ($currentTrackURI =~ m/x-sonos-dock:(RINCON_[\dA-Z]+)/) {
# Dock-Wiedergabe feststellen, und dann andere Informationen anzeigen # Dock-Wiedergabe feststellen, und dann andere Informationen anzeigen
SONOS_Client_Notifier('SetCurrent:Album:'.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'currentAlbum', SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1))); SONOS_Client_Notifier('SetCurrent:Album:'.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'currentAlbum', SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1)));
@ -6906,7 +6931,7 @@ sub SONOS_TransportCallback($$) {
$SONOS_BookmarkSpeicher{OldTitles}{$udn} = SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'currentTitle', $tmpTitle); $SONOS_BookmarkSpeicher{OldTitles}{$udn} = SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'currentTitle', $tmpTitle);
SONOS_Client_Notifier('ProcessCover:'.$udn.':0:/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_dock.jpg:'); SONOS_Client_Notifier('ProcessCover:'.$udn.':0:'.SONOS_URI_Escape('/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_dock.jpg').':');
} elsif ($currentTrackURI =~ m/x-sonos-htastream:(RINCON_[\dA-Z]+):spdif/) { } elsif ($currentTrackURI =~ m/x-sonos-htastream:(RINCON_[\dA-Z]+):spdif/) {
# LineIn-Wiedergabe der Playbar feststellen, und dann andere Informationen anzeigen # LineIn-Wiedergabe der Playbar feststellen, und dann andere Informationen anzeigen
SONOS_Client_Notifier('SetCurrent:Album:'.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1)); SONOS_Client_Notifier('SetCurrent:Album:'.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1));
@ -6915,7 +6940,7 @@ sub SONOS_TransportCallback($$) {
$SONOS_BookmarkSpeicher{OldTitles}{$udn} = 'SPDIF-Wiedergabe von '.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1); $SONOS_BookmarkSpeicher{OldTitles}{$udn} = 'SPDIF-Wiedergabe von '.SONOS_Client_Data_Retreive($1.'_MR', 'reading', 'roomName', $1);
SONOS_Client_Notifier('ProcessCover:'.$udn.':0:/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_tv.jpg:'); SONOS_Client_Notifier('ProcessCover:'.$udn.':0:'.SONOS_URI_Escape('/'.SONOS_Client_Data_Retreive('undef', 'attr', 'webname', 'fhem').'/sonos/cover/input_tv.jpg').':');
} else { } else {
# Titel ermitteln # Titel ermitteln
if ($currentTrackMetaData =~ m/<dc:title>(.*?)<\/dc:title>/i) { if ($currentTrackMetaData =~ m/<dc:title>(.*?)<\/dc:title>/i) {
@ -6977,7 +7002,7 @@ sub SONOS_TransportCallback($$) {
$tempURI = ''; $tempURI = '';
$tempURI = ($1) if ($tempURIground =~ m/<upnp:albumArtURI>(.*?)<\/upnp:albumArtURI>/i); $tempURI = ($1) if ($tempURIground =~ m/<upnp:albumArtURI>(.*?)<\/upnp:albumArtURI>/i);
SONOS_Client_Notifier('ProcessCover:'.$udn.':1:'.$tempURI.':'.$groundURL); SONOS_Client_Notifier('ProcessCover:'.$udn.':1:'.SONOS_URI_Escape($tempURI).':'.SONOS_URI_Escape($groundURL));
SONOS_Client_Notifier('SetCurrent:nextTitle:'.$1) if ($nextTrackMetaData =~ m/<dc:title>(.*?)<\/dc:title>/i); SONOS_Client_Notifier('SetCurrent:nextTitle:'.$1) if ($nextTrackMetaData =~ m/<dc:title>(.*?)<\/dc:title>/i);
@ -10016,7 +10041,12 @@ sub SONOS_Client_Data_Refresh($$$$) {
SONOS_Log undef, 4, 'SONOS_Client_Data_Refresh('.(defined($sendCommand) ? $sendCommand : 'undef').", $udn, $name, ".(defined($value) ? $value : 'undef').')'; SONOS_Log undef, 4, 'SONOS_Client_Data_Refresh('.(defined($sendCommand) ? $sendCommand : 'undef').", $udn, $name, ".(defined($value) ? $value : 'undef').')';
if (!defined($value)) {
undef($SONOS_Client_Data{Buffer}->{$udnBuffer}->{$name});
} else {
$SONOS_Client_Data{Buffer}->{$udnBuffer}->{$name} = $value; $SONOS_Client_Data{Buffer}->{$udnBuffer}->{$name} = $value;
}
if (defined($sendCommand) && ($sendCommand ne '')) { if (defined($sendCommand) && ($sendCommand ne '')) {
SONOS_Client_Notifier($sendCommand.':'.$udn.':'.$name.':'.(defined($value) ? $value : 'undef')); SONOS_Client_Notifier($sendCommand.':'.$udn.':'.$name.':'.(defined($value) ? $value : 'undef'));
} }

25
fhem/FHEM/21_SONOSPLAYER.pm
View File

@ -1,6 +1,6 @@
######################################################################################## ########################################################################################
# #
# SONOSPLAYER.pm (c) by Reiner Leins, February 2018 # SONOSPLAYER.pm (c) by Reiner Leins, March 2018
# rleins at lmsoft dot de # rleins at lmsoft dot de
# #
# $Id$ # $Id$
@ -210,7 +210,7 @@ sub SONOSPLAYER_Define ($$) {
my ($hash, $def) = @_; my ($hash, $def) = @_;
# Check if we just want a modify... # Check if we just want a modify...
if ($hash->{NAME}) { if (defined($hash->{OLDDEF})) {
SONOS_Log undef, 1, 'Modify SonosPlayer-Device: '.$hash->{NAME}; SONOS_Log undef, 1, 'Modify SonosPlayer-Device: '.$hash->{NAME};
# Alle Timer entfernen... # Alle Timer entfernen...
@ -297,29 +297,26 @@ sub SONOSPLAYER_Detail($$$;$) {
######################################################################################## ########################################################################################
sub SONOSPLAYER_Attribute($$$@) { sub SONOSPLAYER_Attribute($$$@) {
my ($mode, $devName, $attrName, $attrValue) = @_; my ($mode, $devName, $attrName, $attrValue) = @_;
my $hash = SONOS_getSonosPlayerByName($devName);
if ($mode eq 'set') { if ($mode eq 'set') {
if ($attrName =~ m/^(min|max)Volume(|Headphone)$/) { if ($attrName =~ m/^(min|max)Volume(|Headphone)$/) {
my $hash = SONOS_getSonosPlayerByName($devName);
SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, $attrValue); SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, $attrValue);
} elsif ($attrName eq 'disable' && $attrValue == 0) {
SONOS_DoWork($hash->{UDN}, 'setAttribute', $attrName, $attrValue);
SONOS_DoWork('SONOS', 'rescanNetwork');
} elsif ($attrName =~ m/^(getTitleInfoFromMaster|stopSleeptimerInAction|saveSleeptimerInAction)$/) { } elsif ($attrName =~ m/^(getTitleInfoFromMaster|stopSleeptimerInAction|saveSleeptimerInAction)$/) {
my $hash = SONOS_getSonosPlayerByName($devName);
SONOS_DoWork($hash->{UDN}, 'setAttribute', $attrName, $attrValue); SONOS_DoWork($hash->{UDN}, 'setAttribute', $attrName, $attrValue);
} }
} elsif ($mode eq 'del') { } elsif ($mode eq 'del') {
if ($attrName =~ m/^minVolume(|Headphone)$/) { if ($attrName =~ m/^minVolume(|Headphone)$/) {
my $hash = SONOS_getSonosPlayerByName($devName);
SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, 0); SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, 0);
} elsif ($attrName =~ m/^maxVolume(|Headphone)$/) { } elsif ($attrName =~ m/^maxVolume(|Headphone)$/) {
my $hash = SONOS_getSonosPlayerByName($devName);
SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, 100); SONOS_DoWork($hash->{UDN}, 'setMinMaxVolumes', $attrName, 100);
} elsif ($attrName eq 'disable') {
SONOS_DoWork($hash->{UDN}, 'deleteAttribute', $attrName);
SONOS_DoWork('SONOS', 'rescanNetwork');
} elsif ($attrName =~ m/^(getTitleInfoFromMaster|stopSleeptimerInAction|saveSleeptimerInAction)$/) { } elsif ($attrName =~ m/^(getTitleInfoFromMaster|stopSleeptimerInAction|saveSleeptimerInAction)$/) {
my $hash = SONOS_getSonosPlayerByName($devName);
SONOS_DoWork($hash->{UDN}, 'deleteAttribute', $attrName); SONOS_DoWork($hash->{UDN}, 'deleteAttribute', $attrName);
} }
} }
@ -422,7 +419,7 @@ sub SONOSPLAYER_SimulateCurrentTrackPosition() {
my $trackPositionSec = 0; my $trackPositionSec = 0;
if (ReadingsVal($hash->{NAME}, 'transportState', 'STOPPED') eq 'PLAYING') { if (ReadingsVal($hash->{NAME}, 'transportState', 'STOPPED') eq 'PLAYING') {
$trackPositionSec = time - SONOS_GetTimeFromString(ReadingsTimestamp($hash->{NAME}, 'currentTrackPositionSec', 0)) + ReadingsVal($hash->{NAME}, 'currentTrackPositionSec', 0); $trackPositionSec = sprintf("%.0f", time - SONOS_GetTimeFromString(ReadingsTimestamp($hash->{NAME}, 'currentTrackPositionSec', 0)) + ReadingsVal($hash->{NAME}, 'currentTrackPositionSec', 0));
} else { } else {
$trackPositionSec = ReadingsVal($hash->{NAME}, 'currentTrackPositionSec', 0); $trackPositionSec = ReadingsVal($hash->{NAME}, 'currentTrackPositionSec', 0);
} }
@ -914,7 +911,7 @@ sub SONOSPLAYER_Set($@) {
my $udnShort = $1 if ($dHash->{UDN} =~ m/(.*)_MR/); my $udnShort = $1 if ($dHash->{UDN} =~ m/(.*)_MR/);
# Wenn dieses Quell-Device eine Playbar ist, dann den optischen Eingang als Quelle wählen... # Wenn dieses Quell-Device eine Playbar ist, dann den optischen Eingang als Quelle wählen...
if (ReadingsVal($dHash->{NAME}, 'playerType', '') eq 'S9') { if ((ReadingsVal($dHash->{NAME}, 'playerType', '') eq 'S9') || (ReadingsVal($dHash->{NAME}, 'playerType', '') eq 'S11')) {
# Das ganze geht nur bei dem eigenen Eingang, ansonsten eine Gruppenwiedergabe starten # Das ganze geht nur bei dem eigenen Eingang, ansonsten eine Gruppenwiedergabe starten
if ($dHash->{NAME} eq $hash->{NAME}) { if ($dHash->{NAME} eq $hash->{NAME}) {
$value = 'x-sonos-htastream:'.$udnShort.':spdif'; $value = 'x-sonos-htastream:'.$udnShort.':spdif';