FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 12:18:46 +00:00
Code Issues Releases Wiki Activity

contrib/97_SB_SERVER.pm: new attribute 'disable', extended PRESENCE support, support host names, fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ChrisD 2018-04-22 19:53:00 +00:00
parent c571100752
commit 8b289e79e9
1 changed files with 316 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

423
fhem/contrib/97_SB_SERVER.pm
View File

@ -1,4 +1,4 @@
# ############################################################################ # ############################################################################
# $Id$ # $Id$
# #
# FHEM Module for Squeezebox Servers # FHEM Module for Squeezebox Servers
@ -47,7 +47,7 @@ use IO::Socket;
use URI::Escape; use URI::Escape;
# include for using the perl ping command # include for using the perl ping command
use Net::Ping; use Net::Ping;
use Encode qw(decode encode); # CD 0009 hinzugefügt use Encode qw(decode encode); # CD 0009 hinzugefügt
#use Text::Unidecode; #use Text::Unidecode;
no if $] >= 5.017011, warnings => 'experimental::smartmatch'; no if $] >= 5.017011, warnings => 'experimental::smartmatch';
@ -69,7 +69,7 @@ use Time::HiRes qw(gettimeofday time);
use constant { true => 1, false => 0 }; use constant { true => 1, false => 0 };
use constant { TRUE => 1, FALSE => 0 }; use constant { TRUE => 1, FALSE => 0 };
use constant SB_SERVER_VERSION => '0041'; use constant SB_SERVER_VERSION => '0049';
my $SB_SERVER_hasDataDumper = 1; # CD 0024 my $SB_SERVER_hasDataDumper = 1; # CD 0024
@ -106,8 +106,9 @@ sub SB_SERVER_Initialize( $ ) {
$hash->{AttrList} .= "doalivecheck:true,false "; $hash->{AttrList} .= "doalivecheck:true,false ";
$hash->{AttrList} .= "maxcmdstack "; $hash->{AttrList} .= "maxcmdstack ";
$hash->{AttrList} .= "httpport "; $hash->{AttrList} .= "httpport ";
$hash->{AttrList} .= "disable:0,1 "; # CD 0046
$hash->{AttrList} .= "enablePlugins "; $hash->{AttrList} .= "enablePlugins ";
$hash->{AttrList} .= "ignoredIPs ignoredMACs internalPingProtocol:icmp,tcp,udp,syn,stream,none "; # CD 0021 none hinzugefügt $hash->{AttrList} .= "ignoredIPs ignoredMACs internalPingProtocol:icmp,tcp,udp,syn,stream,none "; # CD 0021 none hinzugefügt
$hash->{AttrList} .= $readingFnAttributes; $hash->{AttrList} .= $readingFnAttributes;
# CD 0024 # CD 0024
@ -124,7 +125,8 @@ sub SB_SERVER_SetAttrList( $ ) {
$attrList .= "doalivecheck:true,false "; $attrList .= "doalivecheck:true,false ";
$attrList .= "maxcmdstack "; $attrList .= "maxcmdstack ";
$attrList .= "httpport "; $attrList .= "httpport ";
$attrList .= "ignoredIPs ignoredMACs internalPingProtocol:icmp,tcp,udp,syn,stream,none "; # CD 0021 none hinzugefügt $attrList .= "disable:0,1 "; # CD 0046
$attrList .= "ignoredIPs ignoredMACs internalPingProtocol:icmp,tcp,udp,syn,stream,none "; # CD 0021 none hinzugefügt
my $applist="enablePlugins"; my $applist="enablePlugins";
if (defined($hash->{helper}{apps})) { if (defined($hash->{helper}{apps})) {
$applist.=":multiple-strict"; $applist.=":multiple-strict";
@ -140,6 +142,38 @@ sub SB_SERVER_SetAttrList( $ ) {
} }
# CD 0032 end # CD 0032 end
# CD 0046 start
# ----------------------------------------------------------------------------
# connect to server
# ----------------------------------------------------------------------------
sub SB_SERVER_TryConnect( $$ ) {
my ($hash,$reopen) = @_; # CD 0047 reopen hinzugefügt
return if ($hash->{CLICONNECTION} eq 'on');
return if (IsDisabled($hash->{NAME}));
delete $hash->{helper}{disableReconnect} if (defined($hash->{helper}{disableReconnect}));
if(SB_SERVER_IsValidIPV4($hash->{IP})) {
return DevIo_OpenDev($hash, $reopen, "SB_SERVER_DoInit");
} else {
return DevIo_OpenDev($hash, $reopen, "SB_SERVER_DoInit", \&SB_SERVER_DevIoCallback)
}
}
sub SB_SERVER_DevIoCallback($$)
{
my ($hash, $err) = @_;
my $name = $hash->{NAME};
if($err)
{
Log3 $name, 2, "SB_SERVER_DevIoCallback ($name) - unable to connect: $err";
SB_SERVER_Broadcast( $hash, "SERVER", "OFF" );
DevIo_Disconnected( $hash ); # CD 0048 wird nicht von DevIo gemacht ?
SB_SERVER_setStates($hash, "disconnected"); # CD 0048 wird nicht von DevIo gemacht ?
}
}
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
# called when defining a module # called when defining a module
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
@ -171,14 +205,33 @@ sub SB_SERVER_Define( $$ ) {
$hash->{IP} = "127.0.0.1"; $hash->{IP} = "127.0.0.1";
$hash->{CLIPORT} = 9090; $hash->{CLIPORT} = 9090;
$hash->{WOLNAME} = "none"; $hash->{WOLNAME} = "none";
$hash->{helper}{wolSetCmd}=' '; # CD 0047
$hash->{helper}{wolSetValue}='on'; # CD 0047
$hash->{PRESENCENAME} = "none"; # CD 0007 $hash->{PRESENCENAME} = "none"; # CD 0007
$hash->{helper}{presenceReading}='state'; # CD 0047
$hash->{helper}{presenceValuePresent}='present'; # CD 0047
$hash->{helper}{presenceValueAbsent}='absent'; # CD 0047
$hash->{RCCNAME} = "none"; $hash->{RCCNAME} = "none";
$hash->{USERNAME} = "?"; $hash->{USERNAME} = "?";
$hash->{PASSWORD} = "?"; $hash->{PASSWORD} = "?";
# CD 0048 versuchen Namen/Adresse zu säubern
$a[0] =~ s/^https:\/\///;
$a[0] =~ s/^http:\/\///;
$a[0] =~ s/\/$//;
# CD 0046 Hostnamen statt IP-Adresse zulassen
$hash->{DeviceName} = $a[0];
if($a[0] =~ m/^(.+):([0-9]+)$/) {
$hash->{IP} = $1;
$hash->{CLIPORT} = $2;
} else {
$hash->{IP} = $a[0];
}
my ($user,$password); my ($user,$password);
my @newDef; my @newDef;
# CD 0041 start # CD 0041 start
my @notifyregexp; my @notifyregexp;
push @notifyregexp,"global"; push @notifyregexp,"global";
@ -193,13 +246,20 @@ sub SB_SERVER_Define( $$ ) {
push @notifyregexp,$2; # CD 0041 push @notifyregexp,$2; # CD 0041
next; next;
} elsif( $_ =~ /^(WOL:)(.*)/ ) { } elsif( $_ =~ /^(WOL:)(.*)/ ) {
$hash->{WOLNAME} = $2;
push @newDef,$_; push @newDef,$_;
my @pp=split ':',$2; # CD 0047
$hash->{WOLNAME} = $pp[0];
$hash->{helper}{wolSetCmd}=$pp[1] if defined($pp[1]); # CD 0047
$hash->{helper}{wolSetValue}=$pp[2] if defined($pp[2]); # CD 0047
next; next;
} elsif( $_ =~ /^(PRESENCE:)(.*)/ ) { # CD 0007 } elsif( $_ =~ /^(PRESENCE:)(.*)/ ) { # CD 0007
$hash->{PRESENCENAME} = $2; # CD 0007
push @newDef,$_; push @newDef,$_;
push @notifyregexp,$2; # CD 0041 my @pp=split ':',$2; # CD 0047
$hash->{PRESENCENAME} = $pp[0]; # CD 0007 CD 0047
$hash->{helper}{presenceReading}=$pp[1] if defined($pp[1]); # CD 0047
$hash->{helper}{presenceValuePresent}=$pp[2] if defined($pp[2]); # CD 0047
$hash->{helper}{presenceValueAbsent}=$pp[3] if defined($pp[3]); # CD 0047
push @notifyregexp,$pp[0]; # CD 0041
next; # CD 0007 next; # CD 0007
} elsif( $_ =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{3,5})/ ) { } elsif( $_ =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{3,5})/ ) {
$hash->{IP} = $1; $hash->{IP} = $1;
@ -213,11 +273,11 @@ sub SB_SERVER_Define( $$ ) {
next; next;
} elsif( $_ =~ /^(USER:)(.*)/ ) { } elsif( $_ =~ /^(USER:)(.*)/ ) {
$user=$2 if($2 ne 'yes'); $user=$2 if($2 ne 'yes');
$hash->{USERNAME} = 'yes'; $hash->{USERNAME} = 'yes';
push @newDef,'USER:yes'; push @newDef,'USER:yes';
} elsif( $_ =~ /^(PASSWORD:)(.*)/ ) { } elsif( $_ =~ /^(PASSWORD:)(.*)/ ) {
$password=$2 if($2 ne 'yes'); $password=$2 if($2 ne 'yes');
$hash->{PASSWORD} = 'yes'; $hash->{PASSWORD} = 'yes';
push @newDef,'PASSWORD:yes'; push @newDef,'PASSWORD:yes';
} else { } else {
push @newDef,$_; push @newDef,$_;
@ -257,8 +317,11 @@ sub SB_SERVER_Define( $$ ) {
} }
# the port of the HTTP interface as needed for the coverart url # the port of the HTTP interface as needed for the coverart url
# CD 0049 auf $hash->{helper}{httpport} umgestellt
if( !defined( $attr{$name}{httpport} ) ) { if( !defined( $attr{$name}{httpport} ) ) {
$attr{$name}{httpport} = "9000"; $hash->{helper}{httpport}='9000';
} else {
$hash->{helper}{httpport}=$attr{$name}{httpport};
} }
# Preset our readings if undefined # Preset our readings if undefined
@ -353,7 +416,7 @@ sub SB_SERVER_Define( $$ ) {
0 ); 0 );
$ret=undef; $ret=undef;
} else { } else {
$ret= DevIo_OpenDev($hash, 0, "SB_SERVER_DoInit" ); $ret= SB_SERVER_TryConnect($hash,0);
} }
} }
@ -432,6 +495,8 @@ sub SB_SERVER_Ready( $ ) {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return if (IsDisabled($name)); # CD 0046
#Log3( $hash, 4, "SB_SERVER_Ready: called" ); #Log3( $hash, 4, "SB_SERVER_Ready: called" );
# check for bad/missing password # check for bad/missing password
@ -483,11 +548,11 @@ sub SB_SERVER_Ready( $ ) {
delete($hash->{helper}{WOLFastReconnectNext}); delete($hash->{helper}{WOLFastReconnectNext});
} }
} }
if( ReadingsVal( $hash->{PRESENCENAME}, "state", "present" ) eq "present" ) { if( ReadingsVal( $hash->{PRESENCENAME}, $hash->{helper}{presenceReading}, $hash->{helper}{presenceValuePresent} ) eq $hash->{helper}{presenceValuePresent} ) { # CD 0047 erweitert
$reconnect=1; $reconnect=1;
} }
if (($reconnect==1)&&(!defined($hash->{helper}{disableReconnect}))) { if (($reconnect==1)&&(!defined($hash->{helper}{disableReconnect}))) {
return( DevIo_OpenDev( $hash, 1, "SB_SERVER_DoInit") ); return( SB_SERVER_TryConnect( $hash , 1 ));
} else { } else {
return undef; return undef;
} }
@ -536,14 +601,18 @@ sub SB_SERVER_Attr( @ ) {
# CD 0021 end # CD 0021 end
} }
} elsif( $args[ 0 ] eq "httpport" ) { } elsif( $args[ 0 ] eq "httpport" ) {
# CD 0015 bei Änderung des Ports diesen an Clients schicken # CD 0015 bei Änderung des Ports diesen an Clients schicken
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
$hash->{helper}{httpport}=$args[ 1 ];
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
$args[ 1 ] ); $args[ 1 ] );
} elsif( $cmd eq 'del' ) {
DevIo_SimpleWrite( $hash, "pref httpport ?\n", 0 ); # CD 0049
} }
} elsif( $args[ 0 ] eq "enablePlugins" ) { } elsif( $args[ 0 ] eq "enablePlugins" ) {
# CD 0070 bei Änderung Status abfragen return "$name: device is disabled, modifying enablePlugins is not possible" if(IsDisabled($name)); # CD 0046
# CD 0070 bei Änderung Status abfragen
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
if($init_done>0) { if($init_done>0) {
if(defined($hash->{helper}{apps})) { if(defined($hash->{helper}{apps})) {
@ -570,6 +639,43 @@ sub SB_SERVER_Attr( @ ) {
delete($hash->{helper}{appcmd}) if(defined($hash->{helper}{appcmd})); delete($hash->{helper}{appcmd}) if(defined($hash->{helper}{appcmd}));
DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 );
} }
# CD 0046 start
} elsif( $args[ 0 ] eq 'disable' ) {
if( $cmd eq 'set' ) {
if($args[ 1 ] eq '1') {
DevIo_SimpleWrite( $hash, 'listen 0\n', 0 );
SB_SERVER_RemoveInternalTimers( $hash );
DevIo_Disconnected( $hash );
delete($hash->{NEXT_OPEN}) if($hash->{NEXT_OPEN});
$hash->{CLICONNECTION} = 'off';
SB_SERVER_setStates($hash, 'disabled');
} else {
if ($hash->{CLICONNECTION} ne 'on') {
SB_SERVER_setStates($hash, 'disconnected');
if(!defined($hash->{helper}{disableReconnect})) {
readingsSingleUpdate( $hash, 'power', 'off', 0 );
delete($hash->{NEXT_OPEN}) if($hash->{NEXT_OPEN});
InternalTimer( gettimeofday() + 0.1,
"SB_SERVER_tcb_Alive",
"SB_SERVER_Alive:$name",
0 );
}
}
}
} elsif( $cmd eq 'del' ) {
if ($hash->{CLICONNECTION} ne 'on') {
SB_SERVER_setStates($hash, 'disconnected');
if(!defined($hash->{helper}{disableReconnect})) {
readingsSingleUpdate( $hash, 'power', 'off', 0 );
delete($hash->{NEXT_OPEN}) if($hash->{NEXT_OPEN});
InternalTimer( gettimeofday() + 0.1,
"SB_SERVER_tcb_Alive",
"SB_SERVER_Alive:$name",
0 );
}
}
}
# CD 0046 end
} }
return; # 0033 betateilchen/mahowi return; # 0033 betateilchen/mahowi
} }
@ -603,18 +709,20 @@ sub SB_SERVER_Set( $@ ) {
my $out=""; my $out="";
if (defined($hash->{helper}{savedServerStates})) { if (defined($hash->{helper}{savedServerStates})) {
foreach my $pl ( keys %{$hash->{helper}{savedServerStates}} ) { foreach my $pl ( keys %{$hash->{helper}{savedServerStates}} ) {
$out.=$pl."," unless ($pl=~/xxxSgTalkxxx/); # CD 0027 xxxSgTalkxxx hinzugefügt $out.=$pl."," unless ($pl=~/xxxSgTalkxxx/); # CD 0027 xxxSgTalkxxx hinzugefügt
} }
$out=~s/,$//; $out=~s/,$//;
} }
$res .= "recall:$out "; $res .= "recall:$out ";
return( $res ); return( $res );
} elsif( IsDisabled($name) ) { # CD 0046
return;
} elsif( $cmd eq "on" ) { } elsif( $cmd eq "on" ) {
if( ReadingsVal( $name, "power", "off" ) eq "off" ) { if( ReadingsVal( $name, "power", "off" ) eq "off" ) {
# the server is off, try to reactivate it # the server is off, try to reactivate it
if( $hash->{WOLNAME} ne "none" ) { if( $hash->{WOLNAME} ne "none" ) {
fhem( "set $hash->{WOLNAME} on" ); fhem( "set $hash->{WOLNAME} $hash->{helper}{wolSetCmd} $hash->{helper}{wolSetValue}" ); # CD 0047 Befehl und Wert konfigurierbar
$hash->{helper}{WOLFastReconnectUntil}=time()+120; # CD 0007 $hash->{helper}{WOLFastReconnectUntil}=time()+120; # CD 0007
$hash->{helper}{WOLFastReconnectNext}=time()+30; # CD 0007 $hash->{helper}{WOLFastReconnectNext}=time()+30; # CD 0007
} }
@ -636,6 +744,7 @@ sub SB_SERVER_Set( $@ ) {
readingsSingleUpdate( $hash, "power", "off", 1 ); readingsSingleUpdate( $hash, "power", "off", 1 );
SB_SERVER_Broadcast( $hash, "SERVER", "OFF" ); SB_SERVER_Broadcast( $hash, "SERVER", "OFF" );
DevIo_Disconnected( $hash ); DevIo_Disconnected( $hash );
$hash->{CLICONNECTION} = 'off'; # CD 0046
InternalTimer( gettimeofday() + 5, InternalTimer( gettimeofday() + 5,
"SB_SERVER_tcb_Alive", "SB_SERVER_tcb_Alive",
"SB_SERVER_Alive:$name", "SB_SERVER_Alive:$name",
@ -656,6 +765,7 @@ sub SB_SERVER_Set( $@ ) {
readingsSingleUpdate( $hash, "power", "off", 1 ); readingsSingleUpdate( $hash, "power", "off", 1 );
SB_SERVER_Broadcast( $hash, "SERVER", "OFF" ); SB_SERVER_Broadcast( $hash, "SERVER", "OFF" );
SB_SERVER_RemoveInternalTimers( $hash ); SB_SERVER_RemoveInternalTimers( $hash );
$hash->{CLICONNECTION} = 'off'; # CD 0046
} }
} elsif( $cmd eq "statusRequest" ) { } elsif( $cmd eq "statusRequest" ) {
Log3( $hash, 5, "SB_SERVER_Set: statusRequest" ); Log3( $hash, 5, "SB_SERVER_Set: statusRequest" );
@ -666,6 +776,7 @@ sub SB_SERVER_Set( $@ ) {
0 ); 0 );
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011 DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011
DevIo_SimpleWrite( $hash, "pref httpport ?\n", 0 ); # CD 0049
# CD 0032 start # CD 0032 start
DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 );
if(defined($hash->{helper}{apps})) { if(defined($hash->{helper}{apps})) {
@ -682,9 +793,9 @@ sub SB_SERVER_Set( $@ ) {
my $v = join( " ", @a ); my $v = join( " ", @a );
$v .= "\n"; $v .= "\n";
Log3( $hash, 5, "SB_SERVER_Set: cliraw: $v " ); Log3( $hash, 5, "SB_SERVER_Set: cliraw: $v " );
DevIo_SimpleWrite( $hash, $v, 0 ); # CD 0016 IOWrite in DevIo_SimpleWrite geändert DevIo_SimpleWrite( $hash, $v, 0 ); # CD 0016 IOWrite in DevIo_SimpleWrite geändert
} elsif( $cmd eq "rescan" ) { } elsif( $cmd eq "rescan" ) {
DevIo_SimpleWrite( $hash, $cmd . " " . $a[ 0 ] . "\n", 0 ); # CD 0016 IOWrite in DevIo_SimpleWrite geändert DevIo_SimpleWrite( $hash, $cmd . " " . $a[ 0 ] . "\n", 0 ); # CD 0016 IOWrite in DevIo_SimpleWrite geändert
# CD 0018 start # CD 0018 start
} elsif( $cmd eq "addToFHEMUpdate" ) { } elsif( $cmd eq "addToFHEMUpdate" ) {
fhem("update add https://raw.githubusercontent.com/ChrisD70/FHEM-Modules/master/autoupdate/sb/controls_squeezebox.txt"); fhem("update add https://raw.githubusercontent.com/ChrisD70/FHEM-Modules/master/autoupdate/sb/controls_squeezebox.txt");
@ -871,7 +982,7 @@ sub SB_SERVER_Set( $@ ) {
return( "sync group $statename not found" ); return( "sync group $statename not found" );
} }
# Zustand speichern, Gruppe laden, talk verzögert an Player absetzen # Zustand speichern, Gruppe laden, talk verzögert an Player absetzen
SB_SERVER_Save($hash, 'xxxSgTalkxxx'); SB_SERVER_Save($hash, 'xxxSgTalkxxx');
SB_SERVER_LoadSyncGroup($hash, $statename, $poweron); SB_SERVER_LoadSyncGroup($hash, $statename, $poweron);
$hash->{helper}{sgTalkPlayers}=ReadingsVal($name,"sg$statename","-"); $hash->{helper}{sgTalkPlayers}=ReadingsVal($name,"sg$statename","-");
@ -971,6 +1082,7 @@ sub SB_SERVER_tcb_StartTalk($) {
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
my $hash = $defs{$name}; my $hash = $defs{$name};
return if (IsDisabled($name)); # CD 0046
return unless defined($hash->{helper}{sgTalkActivePlayer}); return unless defined($hash->{helper}{sgTalkActivePlayer});
# alle gesynced ? # alle gesynced ?
@ -1133,6 +1245,8 @@ sub SB_SERVER_Read( $ ) {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return if (IsDisabled($name)); # CD 0046
#my $start = time; # CD 0019 #my $start = time; # CD 0019
Log3( $hash, 4, "SB_SERVER_Read($name): called" ); Log3( $hash, 4, "SB_SERVER_Read($name): called" );
@ -1202,14 +1316,14 @@ sub SB_SERVER_Read( $ ) {
# and dispatch the rest # and dispatch the rest
foreach( @cmds ) { foreach( @cmds ) {
#my $t31=time; # CD 0020 my $t31=time; # CD 0020
# double check complete line # double check complete line
my $lastchar = substr( $_, -1); my $lastchar = substr( $_, -1);
SB_SERVER_DispatchCommandLine( $hash, $_ ); SB_SERVER_DispatchCommandLine( $hash, $_ );
# CD 0020 start # CD 0020 start
#if((time-$t31)>0.2) { if((time-$t31)>0.5) {
# Log3($hash,0,"SB_SERVER_Read($name), time:".int((time-$t31)*1000)." cmd: ".$_); Log3($hash,3,"SB_SERVER_Read($name), time:".int((time-$t31)*1000)."ms cmd: ".$_);
#} }
# CD 0020 end # CD 0020 end
} }
@ -1226,6 +1340,7 @@ sub SB_SERVER_Read( $ ) {
DevIo_SimpleWrite( $hash, "favorites items 0 " . DevIo_SimpleWrite( $hash, "favorites items 0 " .
AttrVal( $name, "maxfavorites", 100 ) . " want_url:1\n", # CD 0009 url mit abfragen AttrVal( $name, "maxfavorites", 100 ) . " want_url:1\n", # CD 0009 url mit abfragen
0 ); 0 );
DevIo_SimpleWrite( $hash, "pref httpport ?\n", 0 ); # CD 0049
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
} }
# CD 0009 end # CD 0009 end
@ -1267,6 +1382,8 @@ sub SB_SERVER_Write( $$$ ) {
Log3( $hash, 4, "SB_SERVER_Write($name): called with FN:$fn" ); # unless($fn=~m/\?/); # CD TEST 4 Log3( $hash, 4, "SB_SERVER_Write($name): called with FN:$fn" ); # unless($fn=~m/\?/); # CD TEST 4
return if (IsDisabled($name)); # CD 0046
if( !defined( $fn ) ) { if( !defined( $fn ) ) {
return( undef ); return( undef );
} }
@ -1275,7 +1392,7 @@ sub SB_SERVER_Write( $$$ ) {
Log3( $hash, 4, "SB_SERVER_Write: MSG:$msg" ); Log3( $hash, 4, "SB_SERVER_Write: MSG:$msg" );
} }
# CD 0012 fhemrelay Meldungen nicht an den LMS schicken sondern direkt an Dispatch übergeben # CD 0012 fhemrelay Meldungen nicht an den LMS schicken sondern direkt an Dispatch übergeben
if($fn =~ m/fhemrelay/) { if($fn =~ m/fhemrelay/) {
# CD 0027 start # CD 0027 start
if ($fn =~ m/ttsdone/) { if ($fn =~ m/ttsdone/) {
@ -1284,7 +1401,7 @@ sub SB_SERVER_Write( $$$ ) {
# sg talk auf Player aktiv ? # sg talk auf Player aktiv ?
if(defined($hash->{helper}{sgTalkActivePlayer})) { if(defined($hash->{helper}{sgTalkActivePlayer})) {
if($a[0] eq $hash->{helper}{sgTalkActivePlayer}) { if($a[0] eq $hash->{helper}{sgTalkActivePlayer}) {
# recall auslösen # recall auslösen
RemoveInternalTimer( "RecallAfterTalk:$name"); RemoveInternalTimer( "RecallAfterTalk:$name");
InternalTimer( gettimeofday() + 0.01, InternalTimer( gettimeofday() + 0.01,
"SB_SERVER_tcb_RecallAfterTalk", "SB_SERVER_tcb_RecallAfterTalk",
@ -1330,6 +1447,8 @@ sub SB_SERVER_DoInit( $ ) {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return if (IsDisabled($name)); # CD 0046
Log3( $hash, 4, "SB_SERVER_DoInit($name): called" ); Log3( $hash, 4, "SB_SERVER_DoInit($name): called" );
if( !$hash->{TCPDev} ) { if( !$hash->{TCPDev} ) {
@ -1355,7 +1474,7 @@ sub SB_SERVER_DoInit( $ ) {
SB_SERVER_Broadcast( $hash, "SERVER", "OFF" ); SB_SERVER_Broadcast( $hash, "SERVER", "OFF" );
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
AttrVal( $name, "httpport", "9000" ) ); $hash->{helper}{httpport} );
} }
return( 1 ); return( 1 );
} elsif( $state eq "opened" ) { # CD 0038 state statt STATE verwenden } elsif( $state eq "opened" ) { # CD 0038 state statt STATE verwenden
@ -1377,7 +1496,7 @@ sub SB_SERVER_DoInit( $ ) {
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
AttrVal( $name, "httpport", "9000" ) ); $hash->{helper}{httpport} );
$hash->{helper}{doBroadcast}=1; # CD 0007 $hash->{helper}{doBroadcast}=1; # CD 0007
SB_SERVER_LMS_Status( $hash ); SB_SERVER_LMS_Status( $hash );
@ -1411,8 +1530,8 @@ sub SB_SERVER_DoInit( $ ) {
return( 1 ); return( 1 );
} }
#Log3( $hash, 3, "SB_SERVER_DoInit: something went wrong!" ); # CD 0008 nur für Testzwecke 0009 deaktiviert #Log3( $hash, 3, "SB_SERVER_DoInit: something went wrong!" ); # CD 0008 nur für Testzwecke 0009 deaktiviert
#return(0); # CD 0008 nur für Testzwecke 0009 deaktiviert #return(0); # CD 0008 nur für Testzwecke 0009 deaktiviert
return( 1 ); return( 1 );
} }
@ -1633,6 +1752,31 @@ sub SB_SERVER_ParseAppResponse( $$ ) {
} }
# CD 0032 end # CD 0032 end
# CD 0044 start
# ----------------------------------------------------------------------------
# used for checking, if the string contains a valid IP v4 (decimal) address
# ----------------------------------------------------------------------------
sub SB_SERVER_IsValidIPV4( $ ) {
my $instr = shift( @_ );
if( $instr =~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)$/ )
{
if($1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255)
{
return( 1 );
}
else
{
return( 0 );
}
}
else
{
return( 0 );
}
}
# CD 0044 end
# CD 0041 start # CD 0041 start
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
# used for checking if the string contains a valid MAC adress # used for checking if the string contains a valid MAC adress
@ -1664,6 +1808,8 @@ sub SB_SERVER_DispatchCommandLine( $$ ) {
Log3( $hash, 4, "SB_SERVER_DispatchCommandLine($name): Line:$buf..." ); Log3( $hash, 4, "SB_SERVER_DispatchCommandLine($name): Line:$buf..." );
return if (IsDisabled($name)); # CD 0046
# try to extract the first answer to the SPACE # try to extract the first answer to the SPACE
my $indx = index( $buf, " " ); my $indx = index( $buf, " " );
my $id1 = substr( $buf, 0, $indx ); my $id1 = substr( $buf, 0, $indx );
@ -1672,7 +1818,7 @@ sub SB_SERVER_DispatchCommandLine( $$ ) {
# Player ID is MAC adress, hence : included # Player ID is MAC adress, hence : included
my @id = split( ":", $id1 ); my @id = split( ":", $id1 );
if( SB_SERVER_IsValidMAC($id1) == 1 ) { # CD 0041 SB_SERVER_IsValidMAC verwenden if(( SB_SERVER_IsValidMAC($id1) == 1 ) || ( SB_SERVER_IsValidIPV4($id1) == 1)) { # CD 0041 SB_SERVER_IsValidMAC verwenden # CD 0044 auf IP-Adresse prüfen
# CD 0032 start # CD 0032 start
# check for app response # check for app response
if(SB_SERVER_ParseAppResponse($hash,$buf)==0) { if(SB_SERVER_ParseAppResponse($hash,$buf)==0) {
@ -1716,7 +1862,7 @@ sub SB_SERVER_ParseCmds( $$ ) {
SB_SERVER_Broadcast( $hash, "SERVER", "ON" ); SB_SERVER_Broadcast( $hash, "SERVER", "ON" );
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
AttrVal( $name, "httpport", "9000" ) ); $hash->{helper}{httpport} );
delete ($hash->{helper}{doBroadcast}); delete ($hash->{helper}{doBroadcast});
} }
# CD 0007 end # CD 0007 end
@ -1731,7 +1877,7 @@ sub SB_SERVER_ParseCmds( $$ ) {
SB_SERVER_Broadcast( $hash, "SERVER", "ON" ); SB_SERVER_Broadcast( $hash, "SERVER", "ON" );
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
AttrVal( $name, "httpport", "9000" ) ); $hash->{helper}{httpport} );
} }
} elsif( $cmd eq "pref" ) { } elsif( $cmd eq "pref" ) {
@ -1739,7 +1885,7 @@ sub SB_SERVER_ParseCmds( $$ ) {
readingsSingleUpdate( $hash, "serversecure", $args[ 1 ], 0 ); readingsSingleUpdate( $hash, "serversecure", $args[ 1 ], 0 );
if( $args[ 1 ] eq "1" ) { if( $args[ 1 ] eq "1" ) {
# username and password is required # username and password is required
# CD 0007 zu spät, login muss als erstes gesendet werden, andernfalls bricht der Server die Verbindung sofort ab # CD 0007 zu spät, login muss als erstes gesendet werden, andernfalls bricht der Server die Verbindung sofort ab
if( ( $hash->{USERNAME} ne "?" ) && if( ( $hash->{USERNAME} ne "?" ) &&
( $hash->{PASSWORD} ne "?" ) ) { ( $hash->{PASSWORD} ne "?" ) ) {
my ($user,$password)=SB_SERVER_readPassword($hash); # CD 0031 my ($user,$password)=SB_SERVER_readPassword($hash); # CD 0031
@ -1765,7 +1911,17 @@ sub SB_SERVER_ParseCmds( $$ ) {
"result for authorize received. Should be 0 or 1" ); "result for authorize received. Should be 0 or 1" );
} }
} }
# CD 0049
if( $args[ 0 ] eq "httpport" ) {
if (defined($args[1]) && ($args[1] =~ /^([0-9])*/ )) {
if(!defined(AttrVal( $name, "httpport", undef ))) {
$hash->{helper}{httpport}=$args[1];
SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" .
$hash->{helper}{httpport} );
}
}
}
} elsif( $cmd eq "login" ) { } elsif( $cmd eq "login" ) {
if( ( $args[ 1 ] eq $hash->{USERNAME} ) && if( ( $args[ 1 ] eq $hash->{USERNAME} ) &&
( $args[ 2 ] eq "******" ) ) { ( $args[ 2 ] eq "******" ) ) {
@ -1799,7 +1955,7 @@ sub SB_SERVER_ParseCmds( $$ ) {
} elsif( $cmd eq "playlists" ) { } elsif( $cmd eq "playlists" ) {
Log3( $hash, 4, "SB_SERVER_ParseCmds($name): playlists" ); Log3( $hash, 4, "SB_SERVER_ParseCmds($name): playlists" );
# CD 0004 Playlisten neu anfragen bei Änderung # CD 0004 Playlisten neu anfragen bei Änderung
if(($args[0] eq "rename")||($args[0] eq "delete")) { if(($args[0] eq "rename")||($args[0] eq "delete")) {
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011 DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011
@ -1995,6 +2151,8 @@ sub SB_SERVER_Alive( $ ) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $state=ReadingsVal($name, "state", "unknown"); # CD 0038 my $state=ReadingsVal($name, "state", "unknown"); # CD 0038
return if (IsDisabled($name)); # CD 0046
# CD 0004 set default to off # CD 0004 set default to off
#my $rccstatus = "on"; #my $rccstatus = "on";
#my $pingstatus = "on"; #my $pingstatus = "on";
@ -2019,10 +2177,10 @@ sub SB_SERVER_Alive( $ ) {
# CD 0007 start # CD 0007 start
if (($hash->{PRESENCENAME} ne "none") if (($hash->{PRESENCENAME} ne "none")
&& defined($defs{$hash->{PRESENCENAME}}) && defined($defs{$hash->{PRESENCENAME}})
&& defined($defs{$hash->{PRESENCENAME}}->{TIMEOUT_NORMAL}) && ((defined($defs{$hash->{PRESENCENAME}}->{TIMEOUT_NORMAL})
&& (($defs{$hash->{PRESENCENAME}}->{TIMEOUT_NORMAL}) < AttrVal( $name, "alivetimer", 30 ))) { && (($defs{$hash->{PRESENCENAME}}->{TIMEOUT_NORMAL}) < AttrVal( $name, "alivetimer", 30 ))) || (GetType($hash->{PRESENCENAME},'x') ne 'PRESENCE'))) {
Log3( $hash, 4,"SB_SERVER_Alive($name): using $hash->{PRESENCENAME}"); # CD 0009 level 2->4 Log3( $hash, 4,"SB_SERVER_Alive($name): using $hash->{PRESENCENAME}"); # CD 0009 level 2->4
if( ReadingsVal( $hash->{PRESENCENAME}, "state", "absent" ) eq "present" ) { if( ReadingsVal( $hash->{PRESENCENAME}, $hash->{helper}{presenceReading}, "xxxxxxx" ) eq $hash->{helper}{presenceValuePresent} ) { # CD 0047 erweitert
$pingstatus = "on"; $pingstatus = "on";
$hash->{helper}{pingCounter}=0; $hash->{helper}{pingCounter}=0;
} else { } else {
@ -2047,7 +2205,7 @@ sub SB_SERVER_Alive( $ ) {
Log3( $hash, 4,"SB_SERVER_Alive($name): using internal ping"); # CD 0007 # CD 0009 level 2->4 Log3( $hash, 4,"SB_SERVER_Alive($name): using internal ping"); # CD 0007 # CD 0009 level 2->4
# check via ping # check via ping
my $p; my $p;
# CD 0017 eval hinzugefügt, Absturz auf FritzBox, bei Fehler annehmen dass Host verfügbar ist, internalPingProtocol hinzugefügt # CD 0017 eval hinzugefügt, Absturz auf FritzBox, bei Fehler annehmen dass Host verfügbar ist, internalPingProtocol hinzugefügt
eval { $p = Net::Ping->new( $ipp ); }; eval { $p = Net::Ping->new( $ipp ); };
if($@) { if($@) {
@ -2055,12 +2213,19 @@ sub SB_SERVER_Alive( $ ) {
$pingstatus = "on"; $pingstatus = "on";
$hash->{helper}{pingCounter}=0; $hash->{helper}{pingCounter}=0;
} else { } else {
if( $p->ping( $hash->{IP}, 2 ) ) { eval { # CD 0048 ungültige Adressen bringen FHEM zum Absturz
if( $p->ping( $hash->{IP}, 2 ) ) {
$pingstatus = "on";
$hash->{helper}{pingCounter}=0; # CD 0004
} else {
$pingstatus = "off";
$hash->{helper}{pingCounter}=$hash->{helper}{pingCounter}+1; # CD 0004
}
};
if($@) {
Log3( $hash,1,"SB_SERVER_Alive($name): internal ping failed with $@");
$pingstatus = "on"; $pingstatus = "on";
$hash->{helper}{pingCounter}=0; # CD 0004 $hash->{helper}{pingCounter}=0;
} else {
$pingstatus = "off";
$hash->{helper}{pingCounter}=$hash->{helper}{pingCounter}+1; # CD 0004
} }
# close our ping mechanism again # close our ping mechanism again
$p->close( ); $p->close( );
@ -2084,7 +2249,7 @@ sub SB_SERVER_Alive( $ ) {
# first time we realized server is away # first time we realized server is away
if( $state eq "disconnected" ) { # CD 0038 state statt STATE verwenden if( $state eq "disconnected" ) { # CD 0038 state statt STATE verwenden
delete($hash->{NEXT_OPEN}) if($hash->{NEXT_OPEN}); # CD 0007 remove delay for reconnect delete($hash->{NEXT_OPEN}) if($hash->{NEXT_OPEN}); # CD 0007 remove delay for reconnect
DevIo_OpenDev( $hash, 1, "SB_SERVER_DoInit" ); SB_SERVER_TryConnect( $hash , 1);
} }
readingsSingleUpdate( $hash, "power", "on", 1 ); readingsSingleUpdate( $hash, "power", "on", 1 );
@ -2202,6 +2367,8 @@ sub SB_SERVER_Broadcast( $$@ ) {
Log3( $hash, 4, "SB_SERVER_Broadcast($name): called with $cmd - $msg" ); Log3( $hash, 4, "SB_SERVER_Broadcast($name): called with $cmd - $msg" );
return if (IsDisabled($name)); # CD 0046
if( !defined( $bin ) ) { if( !defined( $bin ) ) {
$bin = 0; $bin = 0;
} }
@ -2357,6 +2524,19 @@ sub SB_SERVER_ParseServerStatus( $$ ) {
} }
$nameactive=0; # CD 0030 $nameactive=0; # CD 0030
next; next;
# CD 0044 auf IP-Adresse prüfen
} elsif( $_ =~ /^(playerid:)(.*)/ ) {
if (SB_PLAYER_IsValidIPV4( $2 ) == 1) {
if( $addplayers == true ) {
$players{$2}{ID} = $2;
$players{$2}{MAC} = $2;
$players{$2}{isplayer} = "1"; # für virtuellen Player der angelegt wird wenn stream.mp3 abgerufen wird
$currentplayerid = $2;
}
}
$nameactive=0;
next;
# CD 0044 end
} elsif( $_ =~ /^(name:)(.*)/ ) { } elsif( $_ =~ /^(name:)(.*)/ ) {
if( $currentplayerid ne "none" ) { if( $currentplayerid ne "none" ) {
$players{$currentplayerid}{name} = $2; $players{$currentplayerid}{name} = $2;
@ -2395,7 +2575,7 @@ sub SB_SERVER_ParseServerStatus( $$ ) {
next; next;
} elsif( $_ =~ /^(isplayer:)([0|1])/ ) { } elsif( $_ =~ /^(isplayer:)([0|1])/ ) {
if( $currentplayerid ne "none" ) { if( $currentplayerid ne "none" ) {
$players{$currentplayerid}{isplayer} = $2; $players{$currentplayerid}{isplayer} = $2 unless defined($players{$currentplayerid}{isplayer}); # CD 0044 Hack für Zugriff über stream.mp3
} }
$nameactive=0; # CD 0030 $nameactive=0; # CD 0030
next; next;
@ -2564,6 +2744,7 @@ sub SB_SERVER_ParseServerStatus( $$ ) {
push @SB_SERVER_SM, "ADD $players{$player}{name} " . push @SB_SERVER_SM, "ADD $players{$player}{name} " .
"$players{$player}{MAC} $uniqueid" # CD 0029 aufteilen wenn Hardware zu schwach "$players{$player}{MAC} $uniqueid" # CD 0029 aufteilen wenn Hardware zu schwach
} }
push @SB_SERVER_SM,'DONE'; # CD 0045
# CD 0029 start # CD 0029 start
if(scalar(@SB_SERVER_SM)>0) { if(scalar(@SB_SERVER_SM)>0) {
RemoveInternalTimer( "SB_SERVER_tcb_SendSyncMasters:$name"); RemoveInternalTimer( "SB_SERVER_tcb_SendSyncMasters:$name");
@ -2580,7 +2761,7 @@ sub SB_SERVER_ParseServerStatus( $$ ) {
} }
# CD 0029 start # CD 0029 start
# für schwache Hardware Übertragung aufteilen # für schwache Hardware Übertragung aufteilen
sub SB_SERVER_tcb_SendSyncMasters( $ ) { sub SB_SERVER_tcb_SendSyncMasters( $ ) {
my($in ) = shift; my($in ) = shift;
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
@ -2592,14 +2773,14 @@ sub SB_SERVER_tcb_SendSyncMasters( $ ) {
my $t=time(); my $t=time();
do { do {
$a=pop @SB_SERVER_SM; $a=shift @SB_SERVER_SM; # CD 0045 Reihenfolge beibehalten
if (defined($a)) { if (defined($a)) {
SB_SERVER_Broadcast( $hash, "SYNCMASTER", $a, undef ); SB_SERVER_Broadcast( $hash, "SYNCMASTER", $a, undef );
} }
} while ((time()<$t+0.05) && defined($a)); } while ((time()<$t+0.05) && defined($a));
if(scalar(@SB_SERVER_SM)>0) { if(scalar(@SB_SERVER_SM)>0) {
Log 0,"SB_SERVER_tcb_SendSyncMasters: ".scalar(@SB_SERVER_SM)." entries remaining"; #Log 0,"SB_SERVER_tcb_SendSyncMasters: ".scalar(@SB_SERVER_SM)." entries remaining";
InternalTimer( gettimeofday() + 0.05, InternalTimer( gettimeofday() + 0.05,
"SB_SERVER_tcb_SendSyncMasters", "SB_SERVER_tcb_SendSyncMasters",
"SB_SERVER_tcb_SendSyncMasters:$name", "SB_SERVER_tcb_SendSyncMasters:$name",
@ -2694,7 +2875,7 @@ sub SB_SERVER_FavoritesParse( $$ ) {
my $hasitemsbuf = false; my $hasitemsbuf = false;
my $isaudiobuf = ""; my $isaudiobuf = "";
my $isplaylist = false; my $isplaylist = false;
my $url = "?"; # CD 0009 hinzugefügt my $url = "?"; # CD 0009 hinzugefügt
my $cnt=0; my $cnt=0;
@ -2707,14 +2888,14 @@ sub SB_SERVER_FavoritesParse( $$ ) {
if(( $hasitemsbuf == false )||($isplaylist == true)) { if(( $hasitemsbuf == false )||($isplaylist == true)) {
# derive our hash entry # derive our hash entry
$namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037 $namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037
my $entryuid = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt my $entryuid = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt
$favorites{$name}{$entryuid} = { $favorites{$name}{$entryuid} = {
ID => $idbuf, ID => $idbuf,
Name => $namebuf, Name => $namebuf,
URL => $url, }; # CD 0009 hinzugefügt URL => $url, }; # CD 0009 hinzugefügt
$namebuf = ""; $namebuf = "";
$isaudiobuf = ""; $isaudiobuf = "";
$url = "?"; # CD 0009 hinzugefügt $url = "?"; # CD 0009 hinzugefügt
$hasitemsbuf = false; $hasitemsbuf = false;
$isplaylist = false; $isplaylist = false;
} else { } else {
@ -2754,7 +2935,7 @@ sub SB_SERVER_FavoritesParse( $$ ) {
} }
# CD 0018 end # CD 0018 end
#} elsif( $_ =~ /^(name:)([0-9a-zA-Z]*)/ ) { # CD 0007 # CD 0009 deaktiviert #} elsif( $_ =~ /^(name:)([0-9a-zA-Z]*)/ ) { # CD 0007 # CD 0009 deaktiviert
} elsif( $_ =~ /^(name:)(.*)/ ) { # CD 0009 hinzugefügt } elsif( $_ =~ /^(name:)(.*)/ ) { # CD 0009 hinzugefügt
$namebuf = $2; $namebuf = $2;
$namestarted = true; $namestarted = true;
@ -2776,11 +2957,11 @@ sub SB_SERVER_FavoritesParse( $$ ) {
if(( $hasitemsbuf == false )||($isplaylist == true)) { if(( $hasitemsbuf == false )||($isplaylist == true)) {
# CD 0003 replaced ** my $entryuid = join( "", split( " ", $namebuf ) ); ** with: # CD 0003 replaced ** my $entryuid = join( "", split( " ", $namebuf ) ); ** with:
$namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037 $namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037
my $entryuid = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt my $entryuid = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt
$favorites{$name}{$entryuid} = { $favorites{$name}{$entryuid} = {
ID => $idbuf, ID => $idbuf,
Name => $namebuf, Name => $namebuf,
URL => $url, }; # CD 0009 hinzugefügt URL => $url, }; # CD 0009 hinzugefügt
} else { } else {
# that is a folder we found, but we don't handle that # that is a folder we found, but we don't handle that
} }
@ -2815,7 +2996,7 @@ sub SB_SERVER_FavoritesParse( $$ ) {
} }
# CD 0029 start # CD 0029 start
# für schwache Hardware Übertragung aufteilen # für schwache Hardware Übertragung aufteilen
sub SB_SERVER_tcb_SendFavorites( $ ) { sub SB_SERVER_tcb_SendFavorites( $ ) {
my($in ) = shift; my($in ) = shift;
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
@ -2827,7 +3008,7 @@ sub SB_SERVER_tcb_SendFavorites( $ ) {
my $t=time(); my $t=time();
do { do {
$a=pop @SB_SERVER_FAVS; $a=shift @SB_SERVER_FAVS; # CD 0045 Reihenfolge beibehalten
if (defined($a)) { if (defined($a)) {
SB_SERVER_Broadcast( $hash, "FAVORITES", $a, undef ); # CD 0009 URL an Player schicken SB_SERVER_Broadcast( $hash, "FAVORITES", $a, undef ); # CD 0009 URL an Player schicken
} }
@ -2850,11 +3031,11 @@ sub SB_SERVER_FavoritesName2UID( $ ) {
my $namestr = shift( @_ ); my $namestr = shift( @_ );
# eliminate spaces # eliminate spaces
$namestr = join( "_", split( " ", $namestr ) ); # CD 0009 Leerzeichen durch _ ersetzen statt löschen $namestr = join( "_", split( " ", $namestr ) ); # CD 0009 Leerzeichen durch _ ersetzen statt löschen
# CD 0009 verschiedene Sonderzeichen ersetzen und nicht mehr löschen # CD 0009 verschiedene Sonderzeichen ersetzen und nicht mehr löschen
my %Sonderzeichen = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss", my %Sonderzeichen = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss",
"é" => "e", "è" => "e", "ë" => "e", "à" => "a", "ç" => "c" ); "é" => "e", "è" => "e", "ë" => "e", "à" => "a", "ç" => "c" );
my $Sonderzeichenkeys = join ("|", keys(%Sonderzeichen)); my $Sonderzeichenkeys = join ("|", keys(%Sonderzeichen));
$namestr =~ s/($Sonderzeichenkeys)/$Sonderzeichen{$1}/g; $namestr =~ s/($Sonderzeichenkeys)/$Sonderzeichen{$1}/g;
# $namestr =~ s/($Sonderzeichenkeys)/$Sonderzeichen{$1}||''/g; # $namestr =~ s/($Sonderzeichenkeys)/$Sonderzeichen{$1}||''/g;
@ -2869,9 +3050,9 @@ sub SB_SERVER_FavoritesName2UID( $ ) {
# CD 0034 end # CD 0034 end
# this defines the regexp. Please add new stuff with the seperator | # this defines the regexp. Please add new stuff with the seperator |
# CD 0003 changed öÜ to ö|Ü # CD 0003 changed öÜ to ö|Ü
my $tobereplaced = '[Ä|ä|Ö|ö|Ü|ü|\[|\]|\{|\}|\(|\)|\\\\|,|:|\?|;|' . # CD 0011 ,:? hinzugefügt # CD 0035 ; hinzugefügt my $tobereplaced = '[Ä|ä|Ö|ö|Ü|ü|\[|\]|\{|\}|\(|\)|\\\\|,|:|\?|;|' . # CD 0011 ,:? hinzugefügt # CD 0035 ; hinzugefügt
'\/|\'|\.|\"|\^|°|\$|\||%|@|*|#|&|\+]'; # CD 0009 + hinzugefügt # CD 0070 * und # hinzugefügt '\/|\'|\.|\"|\^|°|\$|\||%|@|*|#|&|\+]'; # CD 0009 + hinzugefügt # CD 0070 * und # hinzugefügt
$namestr =~ s/$tobereplaced//g; $namestr =~ s/$tobereplaced//g;
@ -2886,6 +3067,8 @@ sub SB_SERVER_CMDStackPush( $$ ) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return if (IsDisabled($name)); # CD 0046
my $n = $SB_SERVER_CmdStack{$name}{last_n}; my $n = $SB_SERVER_CmdStack{$name}{last_n};
$n=0 if(!defined($n)); # CD 0007 $n=0 if(!defined($n)); # CD 0007
@ -2970,7 +3153,7 @@ sub SB_SERVER_ParseServerAlarmPlaylists( $$ ) {
"FLUSH all", undef ); "FLUSH all", undef );
@SB_SERVER_AL_PLS=split("category:",join(" ",@{$dataptr})); @SB_SERVER_AL_PLS=split("category:",join(" ",@{$dataptr}));
# CD 0029 Übertragung an Player aufteilen # CD 0029 Übertragung an Player aufteilen
if(scalar(@SB_SERVER_AL_PLS)>0) { if(scalar(@SB_SERVER_AL_PLS)>0) {
RemoveInternalTimer( "SB_SERVER_tcb_SendAlarmPlaylists:$name"); RemoveInternalTimer( "SB_SERVER_tcb_SendAlarmPlaylists:$name");
InternalTimer( gettimeofday() + 0.01, InternalTimer( gettimeofday() + 0.01,
@ -2982,7 +3165,7 @@ sub SB_SERVER_ParseServerAlarmPlaylists( $$ ) {
# CD 0011 end # CD 0011 end
# CD 0029 start # CD 0029 start
# für schwache Hardware Übertragung aufteilen # für schwache Hardware Übertragung aufteilen
sub SB_SERVER_tcb_SendAlarmPlaylists( $ ) { sub SB_SERVER_tcb_SendAlarmPlaylists( $ ) {
my($in ) = shift; my($in ) = shift;
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
@ -2994,7 +3177,7 @@ sub SB_SERVER_tcb_SendAlarmPlaylists( $ ) {
my $t=time(); my $t=time();
do { do {
$a=pop @SB_SERVER_AL_PLS; $a=shift @SB_SERVER_AL_PLS; # CD 0045 Reihenfolge beibehalten
if (defined($a)) { if (defined($a)) {
my $i1=index($a," title:"); my $i1=index($a," title:");
my $i2=index($a," url:"); my $i2=index($a," url:");
@ -3076,7 +3259,7 @@ sub SB_SERVER_ParseServerPlaylists( $$ ) {
"id:$idbuf name:$namebuf " ); "id:$idbuf name:$namebuf " );
if( $idbuf != -1 ) { if( $idbuf != -1 ) {
$namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037 $namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037
$uniquename = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt $uniquename = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt
push @SB_SERVER_PLS, "ADD $namebuf $idbuf $uniquename LMS"; # CD 0029 push @SB_SERVER_PLS, "ADD $namebuf $idbuf $uniquename LMS"; # CD 0029
} }
$idbuf = $2; $idbuf = $2;
@ -3092,7 +3275,7 @@ sub SB_SERVER_ParseServerPlaylists( $$ ) {
"id:$idbuf name:$namebuf " ); "id:$idbuf name:$namebuf " );
if( $idbuf != -1 ) { if( $idbuf != -1 ) {
$namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037 $namebuf="noname_".$cnt++ if($namebuf=~/^\s*$/); # CD 0037
$uniquename = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt $uniquename = SB_SERVER_FavoritesName2UID( $namebuf ); # CD 0009 decode hinzugefügt # CD 0010 decode wieder entfernt
push @SB_SERVER_PLS, "ADD $namebuf $idbuf $uniquename LMS"; # CD 0029 push @SB_SERVER_PLS, "ADD $namebuf $idbuf $uniquename LMS"; # CD 0029
} }
@ -3113,7 +3296,7 @@ sub SB_SERVER_ParseServerPlaylists( $$ ) {
} }
# CD 0029 start # CD 0029 start
# für schwache Hardware Übertragung aufteilen # für schwache Hardware Übertragung aufteilen
sub SB_SERVER_tcb_SendPlaylists( $ ) { sub SB_SERVER_tcb_SendPlaylists( $ ) {
my($in ) = shift; my($in ) = shift;
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
@ -3125,7 +3308,7 @@ sub SB_SERVER_tcb_SendPlaylists( $ ) {
my $t=time(); my $t=time();
do { do {
$a=pop @SB_SERVER_PLS; $a=shift @SB_SERVER_PLS; # CD 0045 Reihenfolge beibehalten
if (defined($a)) { if (defined($a)) {
SB_SERVER_Broadcast( $hash, "PLAYLISTS", $a, undef ); SB_SERVER_Broadcast( $hash, "PLAYLISTS", $a, undef );
} }
@ -3147,6 +3330,8 @@ sub SB_SERVER_CheckConnection($) {
my(undef,$name) = split(':',$in); my(undef,$name) = split(':',$in);
my $hash = $defs{$name}; my $hash = $defs{$name};
return if (IsDisabled($name)); # CD 0046
Log3( $hash, 3, "SB_SERVER_CheckConnection($name): STATE: " . ReadingsVal($name, "state", "unknown") . " power: ". ReadingsVal( $name, "power", "X" )); # CD 0009 level 2->3 # CD 0038 state statt STATE verwenden Log3( $hash, 3, "SB_SERVER_CheckConnection($name): STATE: " . ReadingsVal($name, "state", "unknown") . " power: ". ReadingsVal( $name, "power", "X" )); # CD 0009 level 2->3 # CD 0038 state statt STATE verwenden
if(ReadingsVal( $name, "power", "X" ) ne "on") { if(ReadingsVal( $name, "power", "X" ) ne "on") {
Log3( $hash, 3, "SB_SERVER_CheckConnection($name): forcing power on"); # CD 0009 level 2->3 Log3( $hash, 3, "SB_SERVER_CheckConnection($name): forcing power on"); # CD 0009 level 2->3
@ -3155,7 +3340,7 @@ sub SB_SERVER_CheckConnection($) {
SB_SERVER_Broadcast( $hash, "SERVER", SB_SERVER_Broadcast( $hash, "SERVER",
"IP " . $hash->{IP} . ":" . "IP " . $hash->{IP} . ":" .
AttrVal( $name, "httpport", "9000" ) ); $hash->{helper}{httpport} );
$hash->{helper}{doBroadcast}=1; $hash->{helper}{doBroadcast}=1;
SB_SERVER_LMS_Status( $hash ); SB_SERVER_LMS_Status( $hash );
@ -3184,9 +3369,11 @@ sub SB_SERVER_Notify( $$ ) {
my $name = $hash->{NAME}; # own name / hash my $name = $hash->{NAME}; # own name / hash
my $devName = $dev_hash->{NAME}; # Device that created the events my $devName = $dev_hash->{NAME}; # Device that created the events
return if (IsDisabled($name)); # CD 0046
# CD start # CD start
if ($dev_hash->{NAME} eq "global" && grep (m/^INITIALIZED$|^REREADCFG$/,@{$dev_hash->{CHANGED}})){ if ($dev_hash->{NAME} eq "global" && grep (m/^INITIALIZED$|^REREADCFG$/,@{$dev_hash->{CHANGED}})){
DevIo_OpenDev($hash, 0, "SB_SERVER_DoInit" ) unless defined($hash->{helper}{disableReconnect}); # CD 0038 SB_SERVER_TryConnect( $hash , 0) unless defined($hash->{helper}{disableReconnect}); # CD 0038
} }
# CD end # CD end
#Log3( $hash, 3, "SB_SERVER_Notify($name): called" . #Log3( $hash, 3, "SB_SERVER_Notify($name): called" .
@ -3246,16 +3433,29 @@ sub SB_SERVER_Notify( $$ ) {
return( "" ); return( "" );
# CD 0007 start # CD 0007 start
} elsif( $devName eq $hash->{PRESENCENAME} ) { } elsif( $devName eq $hash->{PRESENCENAME} ) {
if(grep (m/^present$|^absent$/,@{$dev_hash->{CHANGED}})) { my $pp=0;
Log3( $hash, 3, "SB_SERVER_Notify($name): $devName changed to ". join(" ",@{$dev_hash->{CHANGED}})); # CD 0023 loglevel 2->3 my $pa=0;
# CD 0023 start my $ps;
if (defined($hash->{helper}{lastPRESENCEstate})) {
if($hash->{helper}{lastPRESENCEstate} eq $dev_hash->{CHANGED}[0]) { foreach my $line (@{$dev_hash->{CHANGED}}) {
# nichts geändert my @args=split(':',$line);
return( undef ); my $ps;
} # Spezialfall 'state'
$ps=trim($args[0]) if ((@args==1) && ($hash->{helper}{presenceReading} eq 'state'));
# Reading: Value
$ps=trim($args[1]) if ((@args==2) && ($hash->{helper}{presenceReading} eq trim($args[0])));
if (defined($ps)) {
Log3( $hash, 3, "SB_SERVER_Notify($name): $devName changed to ". $ps); # CD 0023 loglevel 2->3
$pp=$ps eq $hash->{helper}{presenceValuePresent};
$pa=$ps eq $hash->{helper}{presenceValueAbsent};
} }
$hash->{helper}{lastPRESENCEstate}=$dev_hash->{CHANGED}[0]; }
# Serverstatus geändert ?
if (($pa)||($pp)) {
$hash->{helper}{lastPRESENCEstate}=$ps;
# CD 0023 end # CD 0023 end
SB_SERVER_RemoveInternalTimers( $hash ); SB_SERVER_RemoveInternalTimers( $hash );
# do an update of the status, but SB CLI must come up # do an update of the status, but SB CLI must come up
@ -3265,9 +3465,8 @@ sub SB_SERVER_Notify( $$ ) {
"SB_SERVER_Alive:$name", "SB_SERVER_Alive:$name",
0 ); 0 );
return( "" ); return( "" );
} else {
return( undef );
} }
return( undef );
# CD 0007 end # CD 0007 end
} else { } else {
return( undef ); return( undef );
@ -3281,6 +3480,8 @@ sub SB_SERVER_LMS_Status( $ ) {
my ( $hash ) = @_; my ( $hash ) = @_;
my $name = $hash->{NAME}; # own name / hash my $name = $hash->{NAME}; # own name / hash
return if (IsDisabled($name)); # CD 0046
# CD 0007 login muss als erstes gesendet werden # CD 0007 login muss als erstes gesendet werden
$hash->{helper}{SB_SERVER_LMS_Status}=time(); $hash->{helper}{SB_SERVER_LMS_Status}=time();
if( ( $hash->{USERNAME} ne "?" ) && if( ( $hash->{USERNAME} ne "?" ) &&
@ -3309,6 +3510,7 @@ sub SB_SERVER_LMS_Status( $ ) {
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 ); DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011 DevIo_SimpleWrite( $hash, "alarm playlists 0 300\n", 0 ); # CD 0011
DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 ); # CD 0029 DevIo_SimpleWrite( $hash, "apps 0 200\n", 0 ); # CD 0029
DevIo_SimpleWrite( $hash, "pref httpport ?\n", 0 ); # CD 0049
# CD 0032 start # CD 0032 start
if(defined($hash->{helper}{apps})) { if(defined($hash->{helper}{apps})) {
my @enabledApps=split(',',AttrVal($name,'enablePlugins','')); my @enabledApps=split(',',AttrVal($name,'enablePlugins',''));
@ -3754,7 +3956,7 @@ sub SB_SERVER_readPassword($)
<a name="SBserverdefine"></a> <a name="SBserverdefine"></a>
<b>Define</b> <b>Define</b>
<ul> <ul>
<code>define &lt;name&gt; SB_SERVER &lt;ip[:cliserverport]&gt; [RCC:&lt;RCC&gt;] [WOL:&lt;WOL&gt;] [PRESENCE:&lt;PRESENCE&gt;] [USER:&lt;username&gt;] [PASSWORD:&lt;password&gt;]</code> <code>define &lt;name&gt; SB_SERVER &lt;ip|hostname[:cliserverport]&gt; [RCC:&lt;RCC&gt;] [WOL:&lt;WOL&gt;[:&lt;command&gt;[:&lt;value&gt;]]] [PRESENCE:&lt;PRESENCE&gt;[:&lt;reading&gt;[:&lt;value for present&gt;[:&lt;value for absent&gt;]]]] [USER:&lt;username&gt;] [PASSWORD:&lt;password&gt;]</code>
<br><br> <br><br>
This module allows you in combination with the module SB_PLAYER to control a This module allows you in combination with the module SB_PLAYER to control a
@ -3766,8 +3968,11 @@ sub SB_SERVER_readPassword($)
<b>Optional</b> <b>Optional</b>
<ul> <ul>
<li><code>&lt;[RCC]&gt;</code>: You can define a FHEM RCC Device, if you want to wake it up when you set the SB_SERVER on. </li> <li><code>&lt;[RCC]&gt;</code>: You can define a FHEM RCC Device, if you want to wake it up when you set the SB_SERVER on. </li>
<li><code>&lt;[WOL]&gt;</code>: You can define a FHEM WOL Device, if you want to wake it up when you set the SB_SERVER on. </li> <li><code>&lt;[WOL]&gt;</code>: You can define a FHEM WOL Device, if you want to wake it up when you set the SB_SERVER on.
<li><code>&lt;[PRESENCE]&gt;</code>: You can define a FHEM PRESENCE Device that is used to check if the server is reachable. </li> Command and value can be optionally configured, by default command is empty and 'on' is used as value.</li>
<li><code>&lt;[PRESENCE]&gt;</code>: You can define a FHEM PRESENCE Device that is used to check if the server is reachable.
Optionally a reading and values for present and absent can be added,
by default the reading 'state' and the values 'present' and 'absent' are used.</li>
<li><code>&lt;username&gt;</code> and <code>&lt;password&gt;</code>: If your LMS is password protected you can define the credentials here. </li> <li><code>&lt;username&gt;</code> and <code>&lt;password&gt;</code>: If your LMS is password protected you can define the credentials here. </li>
</ul><br> </ul><br>
</ul> </ul>
@ -3821,15 +4026,15 @@ sub SB_SERVER_readPassword($)
<ul> <ul>
<li><code>alivetimer &lt;sec&gt;</code><br> <li><code>alivetimer &lt;sec&gt;</code><br>
Default: 120. Every &lt;sec&gt; seconds it is checked, whether the computer with its LMS is still reachable Default: 120. Every &lt;sec&gt; seconds it is checked, whether the computer with its LMS is still reachable
– either via an internal ping (that leads regulary to problems) or via PRESENCE (preferred, no problems) – either via an internal ping (that leads regulary to problems) or via PRESENCE (preferred, no problems)
- and running.</li> - and running.</li>
<li><code>doalivecheck &lt;true|false&gt;</code><br> <li><code>doalivecheck &lt;true|false&gt;</code><br>
Switches the LMS-monitoring on or off.</li> Switches the LMS-monitoring on or off.</li>
<li><code>enablePlugins &lt;plugin1[,pluginX]&gt;</code><br> <li><code>enablePlugins &lt;plugin1[,pluginX]&gt;</code><br>
Adds the playlists and favorites (if available) of the specified LMS-plugins.</li> Adds the playlists and favorites (if available) of the specified LMS-plugins.</li>
<li><code>httpport &lt;port&gt;</code><br> <li><code>httpport &lt;port&gt;</code><br>
Normally the http-port is set to 9000. If this ist NOT the case, you have to enter here the new Normally the http-port is automatically detected. This attribute can be used to override the detected value.
port-number. You can check the port-number of the LMS within its setup under Setup – Network – Web Server Port Number.</li> You can check the port-number of the LMS within its setup under Setup – Network – Web Server Port Number.</li>
<li><a name="SBserver_attribut_ignoredIPs"><code>ignoredIPs &lt;IP-Address[,IP-Address]&gt;</code> <li><a name="SBserver_attribut_ignoredIPs"><code>ignoredIPs &lt;IP-Address[,IP-Address]&gt;</code>
</a><br />With this attribute you can define IP-addresses of players which will to be ignored by the server, e.g. "192.168.0.11,192.168.0.37"</li> </a><br />With this attribute you can define IP-addresses of players which will to be ignored by the server, e.g. "192.168.0.11,192.168.0.37"</li>
<li><a name="SBserver_attribut_ignoredMACs"><code>ignoredMACs &lt;MAC-Address[,MAC-Address]&gt;</code> <li><a name="SBserver_attribut_ignoredMACs"><code>ignoredMACs &lt;MAC-Address[,MAC-Address]&gt;</code>
@ -3854,7 +4059,7 @@ sub SB_SERVER_readPassword($)
<a name="SBserverdefine"></a> <a name="SBserverdefine"></a>
<b>Define</b> <b>Define</b>
<ul> <ul>
<code>define &lt;name&gt; SB_SERVER &lt;ip[:cliserverport]&gt; [RCC:&lt;RCC&gt;] [WOL:&lt;WOL&gt;] [PRESENCE:&lt;PRESENCE&gt;] [USER:&lt;username&gt;] [PASSWORD:&lt;password&gt;]</code> <code>define &lt;name&gt; SB_SERVER &lt;ip|hostname[:cliserverport]&gt; [RCC:&lt;RCC&gt;] [WOL:&lt;WOL&gt;[:&lt;Befehl&gt;[:&lt;Wert&gt;]]] [PRESENCE:&lt;PRESENCE&gt;[:&lt;Reading&gt;[:&lt;Wert für anwesend&gt;[:&lt;Wert für abwesend&gt;]]]] [USER:&lt;Benutzername&gt;] [PASSWORD:&lt;Passwort&gt;]</code>
<br><br> <br><br>
Diese Modul erm&ouml;glicht es - zusammen mit dem Modul SB_PLAYER - einen Diese Modul erm&ouml;glicht es - zusammen mit dem Modul SB_PLAYER - einen
@ -3868,9 +4073,13 @@ sub SB_SERVER_readPassword($)
<b>Optionen</b> <b>Optionen</b>
<ul> <ul>
<li><code>&lt;[RCC]&gt;</code>: Hier kann ein FHEM RCC Device angegeben werden mit dem der Server aufgeweckt und eingeschaltet werden kann.</li> <li><code>&lt;[RCC]&gt;</code>: Hier kann ein FHEM RCC Device angegeben werden mit dem der Server aufgeweckt und eingeschaltet werden kann.</li>
<li><code>&lt;[WOL]&gt;</code>: Hier kann ein FHEM WOL Device angegeben werden mit dem der Server aufgeweckt und eingeschaltet werden kann.</li> <li><code>&lt;[WOL]&gt;</code>: Hier kann ein FHEM WOL Device angegeben werden mit dem der Server aufgeweckt und eingeschaltet werden kann.
<li><code>&lt;[PRESENCE]&gt;</code>: Hier kann ein FHEM PRESENCE Device angegeben werden mit dem die Erreichbarkeit des Servers &uuml;berpr&uuml;ft werden kann.</li> Optional k&ouml;nnen Befehl und Wert mit angegeben werden, voreingestellt ist kein Befehl und der Wert 'on'.</li>
<li><code>&lt;username&gt;</code> and <code>&lt;password&gt;</code>: Falls der Server durch ein Passwort gesichert wurde, k&ouml;nnen hier die notwendigen Angaben für den Serverzugang angegeben werden.</li> <li><code>&lt;[PRESENCE]&gt;</code>: Hier kann ein FHEM PRESENCE Device angegeben
werden mit dem die Erreichbarkeit des Servers &uuml;berpr&uuml;ft werden kann.
Optional k&ouml;nnen Reading und Werte f&uuml;r an/abwesend mit angegeben werden,
voreingestellt ist das Reading 'state' und die Werte 'present' und 'absent'.</li>
<li><code>&lt;Benutzername&gt;</code> und <code>&lt;Passwort&gt;</code>: Falls der Server durch ein Passwort gesichert wurde, k&ouml;nnen hier die notwendigen Angaben für den Serverzugang angegeben werden.</li>
</ul><br> </ul><br>
</ul> </ul>
<a name="SBserverset"></a> <a name="SBserverset"></a>
@ -3896,7 +4105,7 @@ sub SB_SERVER_readPassword($)
</ul> </ul>
</ul> </ul>
<br><br> <br><br>
Der Befehl <code>syncGroup</code> dient zur Verwaltung von Gruppenvorlagen für die Synchronisierung der Player. Der Befehl <code>syncGroup</code> dient zur Verwaltung von Gruppenvorlagen für die Synchronisierung der Player.
Dar&uuml;ber k&ouml;nnen Gruppen von Playern angelegt werden die sich bei Bedarf aktivieren lassen. Die Vorlagen Dar&uuml;ber k&ouml;nnen Gruppen von Playern angelegt werden die sich bei Bedarf aktivieren lassen. Die Vorlagen
werden bei SAVE und SHUTDOWN von FHEM abgespeichert und beim Start von FHEM geladen. werden bei SAVE und SHUTDOWN von FHEM abgespeichert und beim Start von FHEM geladen.
Folgende Unterbefehle sind definiert:<br><br> Folgende Unterbefehle sind definiert:<br><br>
@ -3916,9 +4125,9 @@ sub SB_SERVER_readPassword($)
hergestellt. Wenn zus&auml;tzlich <code>poweron</code> angegeben wird, wird versucht die Player einzuschalten.</li> hergestellt. Wenn zus&auml;tzlich <code>poweron</code> angegeben wird, wird versucht die Player einzuschalten.</li>
<li><b>resetTTS</b> - TTS zur&uuml;cksetzen, kann n&ouml;tig sein wenn die Ausgabe h&auml;ngt.</li> <li><b>resetTTS</b> - TTS zur&uuml;cksetzen, kann n&ouml;tig sein wenn die Ausgabe h&auml;ngt.</li>
<li><b>volume &lt;Vorlage&gt; &lt;n&gt;</b> - Stellt die Lautst&auml;rke auf einen Wert &lt;n&gt; ein. Dabei muss &lt;n&gt; <li><b>volume &lt;Vorlage&gt; &lt;n&gt;</b> - Stellt die Lautst&auml;rke auf einen Wert &lt;n&gt; ein. Dabei muss &lt;n&gt;
eine Zahl zwischen 0 und 100 sein. Der Befehl wird nur ausgeführt wenn die Vorlage aktiv ist.</li> eine Zahl zwischen 0 und 100 sein. Der Befehl wird nur ausgeführt wenn die Vorlage aktiv ist.</li>
<li><b>volume &lt;Vorlage&gt; +|-&lt;n&gt;</b> - Erh&ouml;ht oder vermindert die Lautst&auml;rke um den Wert, der durch +|-&lt;n&gt; <li><b>volume &lt;Vorlage&gt; +|-&lt;n&gt;</b> - Erh&ouml;ht oder vermindert die Lautst&auml;rke um den Wert, der durch +|-&lt;n&gt;
vorgegeben wird. Dabei muss &lt;n&gt; eine Zahl zwischen 0 und 100 sein. Der Befehl wird nur ausgeführt wenn die Vorlage aktiv ist.</li> vorgegeben wird. Dabei muss &lt;n&gt; eine Zahl zwischen 0 und 100 sein. Der Befehl wird nur ausgeführt wenn die Vorlage aktiv ist.</li>
</ul> </ul>
<br> <br>
</ul> </ul>
@ -3927,22 +4136,22 @@ sub SB_SERVER_readPassword($)
<ul> <ul>
<li><code>alivetimer &lt;sec&gt;</code><br> <li><code>alivetimer &lt;sec&gt;</code><br>
Default 120. Alle &lt;sec&gt; Sekunden wird &uuml;berpr&uuml;ft, ob der Rechner mit dem LMS noch erreichbar ist Default 120. Alle &lt;sec&gt; Sekunden wird &uuml;berpr&uuml;ft, ob der Rechner mit dem LMS noch erreichbar ist
- entweder über internen Ping (f&uuml;hrt zu regelm&auml;&szlig;igen H&auml;ngern von FHEM) oder PRESENCE (bevorzugt, - entweder über internen Ping (f&uuml;hrt zu regelm&auml;&szlig;igen H&auml;ngern von FHEM) oder PRESENCE (bevorzugt,
keine H&auml;nger) - und ob der LMS noch l&auml;uft.</li> keine H&auml;nger) - und ob der LMS noch l&auml;uft.</li>
<li><code>doalivecheck &lt;true|false&gt;</code><br> <li><code>doalivecheck &lt;true|false&gt;</code><br>
&Uuml;berwachung des LMS ein- oder auschalten.</li> &Uuml;berwachung des LMS ein- oder auschalten.</li>
<li><code>enablePlugins &lt;plugin1[,pluginX]&gt;</code><br> <li><code>enablePlugins &lt;plugin1[,pluginX]&gt;</code><br>
Bindet die Wiedergabelisten und Favoriten (soweit vorhanden) von LMS-Plugins (z.B. Spotify) ein.</li> Bindet die Wiedergabelisten und Favoriten (soweit vorhanden) von LMS-Plugins (z.B. Spotify) ein.</li>
<li><code>httpport &lt;port&gt;</code><br> <li><code>httpport &lt;port&gt;</code><br>
Im Normalfall ist der http-Port auf 9000 eingestellt. Sollte dies NICHT der Fall sein muss hier die ge&auml;nderte Im Normalfall wird der http-Port automatisch ermittelt. Sollte dies NICHT funktionieren kann er über das Attribut fest vorgegeben werden.
Portnummer eingetragen werden. Zur &Uuml;berpr&uuml;fung kann im Server unter Einstellungen – Erweitert –Netzwerk Zur &Uuml;berpr&uuml;fung kann im Server unter Einstellungen – Erweitert –Netzwerk
- Anschlussnummer des Webservers nachgeschlagen werden.</li> - Anschlussnummer des Webservers nachgeschlagen werden.</li>
<li><a name="SBserver_attribut_ignoredIPs"><b><code>ignoredIPs &lt;IP-Adresse&gt;[,IP-Adresse]</code></b> <li><a name="SBserver_attribut_ignoredIPs"><b><code>ignoredIPs &lt;IP-Adresse&gt;[,IP-Adresse]</code></b>
</a><br />Mit diesem Attribut kann die automatische Erkennung dedizierter Ger&auml;te durch die Angabe derer IP-Adressen unterdrückt werden, z.B. "192.168.0.11,192.168.0.37"</li> </a><br />Mit diesem Attribut kann die automatische Erkennung dedizierter Ger&auml;te durch die Angabe derer IP-Adressen unterdrückt werden, z.B. "192.168.0.11,192.168.0.37"</li>
<li><a name="SBserver_attribut_ignoredMACs"><b><code>ignoredMACs &lt;MAC-Adresse&gt;[,MAC-Adresse]</code></b> <li><a name="SBserver_attribut_ignoredMACs"><b><code>ignoredMACs &lt;MAC-Adresse&gt;[,MAC-Adresse]</code></b>
</a><br />Mit diesem Attribut kann die automatische Erkennung dedizierter Ger&auml;te durch die Angabe derer MAC-Adressen unterdrückt werden, z.B. "00:11:22:33:44:55,ff:ee:dd:cc:bb:aa"</li> </a><br />Mit diesem Attribut kann die automatische Erkennung dedizierter Ger&auml;te durch die Angabe derer MAC-Adressen unterdrückt werden, z.B. "00:11:22:33:44:55,ff:ee:dd:cc:bb:aa"</li>
<li><code>internalPingProtocol icmp|tcp|udp|syn|stream|none</code><br> <li><code>internalPingProtocol icmp|tcp|udp|syn|stream|none</code><br>
Legt fest welches Protokoll für den internen Ping verwendet wird. Wenn das Attribut nicht definiert ist, wird tcp verwendet.</li> Legt fest welches Protokoll für den internen Ping verwendet wird. Wenn das Attribut nicht definiert ist, wird tcp verwendet.</li>
<li><code>maxcmdstack &lt;Anzahl&gt;</code><br> <li><code>maxcmdstack &lt;Anzahl&gt;</code><br>
Default ist der Stack auf eine Gr&ouml;&szlig;e von 200 eingestellt. Wenn die Verbindung zum LMS unterbrochen ist, Default ist der Stack auf eine Gr&ouml;&szlig;e von 200 eingestellt. Wenn die Verbindung zum LMS unterbrochen ist,
werden bis zu &lt;Anzahl&gt; Befehle zwischengespeichert. Nach dem Verbindungsaufbau werden die Befehle, werden bis zu &lt;Anzahl&gt; Befehle zwischengespeichert. Nach dem Verbindungsaufbau werden die Befehle,