FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 19:04:20 +00:00
Code Issues Releases Wiki Activity

contrib/98_SB_PLAYER.pm: do not query disconnected players

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14557 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ChrisD 2017-06-22 20:47:42 +00:00
parent fb5ac0e12c
commit 0ad10f8776
1 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/contrib/98_SB_PLAYER.pm
View File

@ -1449,6 +1449,12 @@ sub SB_PLAYER_Parse( $$ ) {
# CD 0031 end
} elsif( $args[ 0 ] eq "reconnect" ) {
IOWrite( $hash, "$hash->{PLAYERMAC} status 0 500 tags:Kcu\n" ); # CD 0030 u added to tags
# CD 0079 nach reconnect Status abfragen
delete($hash->{helper}{disableGetStatus}) if defined($hash->{helper}{disableGetStatus});
InternalTimer( gettimeofday() + 5,
"SB_PLAYER_GetStatus",
$hash,
0 );
} else {
}
@ -2873,6 +2879,7 @@ sub SB_PLAYER_Set( $@ ) {
# CD 0014 end
} elsif( $cmd eq "statusRequest" ) {
RemoveInternalTimer( $hash );
delete($hash->{helper}{disableGetStatus}) if defined($hash->{helper}{disableGetStatus}); # CD 0079
SB_PLAYER_GetStatus( $hash );
} elsif( $cmd eq "sync" ) {
@ -3672,6 +3679,8 @@ sub SB_PLAYER_GetStatus( $ ) {
Log3( $hash, 5, "SB_PLAYER_GetStatus: called" );
return if(defined($hash->{helper}{disableGetStatus}));
# CD 0014 start - Anzahl Anfragen begrenzen
if(!defined($hash->{helper}{lastGetStatus})||($hash->{helper}{lastGetStatus}<gettimeofday()-0.5)) {
#Log 0,"Querying status, last: $hash->{helper}{lastGetStatus}, now: ".gettimeofday();
@ -3734,6 +3743,11 @@ sub SB_PLAYER_GetStatus( $ ) {
my $iv=AttrVal($name, "statusRequestInterval", 300); # CD 0037
if(ReadingsVal($name,"presence","x") eq "absent") { # CD 0079
$iv=0;
$hash->{helper}{disableGetStatus}=1;
}
InternalTimer( gettimeofday() + $iv,
"SB_PLAYER_GetStatus",
$hash,
@ -4506,6 +4520,7 @@ sub SB_PLAYER_ParsePlayerStatus( $$ ) {
} elsif( $cur =~ /^(power:)([0-9\.]*)/ ) {
if( $2 eq "1" ) {
if(ReadingsVal($name,'presence','absent') eq 'present') { # CD 0079 power nur auf 1 setzen wenn Player verbunden ist
readingsBulkUpdate( $hash, "state", "on" ); # CD 0041 hinzugefügt
readingsBulkUpdate( $hash, "power", "on" );
SB_PLAYER_Amplifier( $hash );
@ -4518,6 +4533,7 @@ sub SB_PLAYER_ParsePlayerStatus( $$ ) {
0 );
}
# CD 0042 end
}
} else {
# CD 0042 start
if(($hash->{helper}{playerStatusOK}==0) && ($hash->{helper}{ttsstate}==TTS_WAITFORPOWERON)) {