FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

wrong brackets in SET command corrected

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6215 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemrocks 2014-07-07 11:02:24 +00:00
parent eb96929060
commit dfc50d686c
1 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
fhem/contrib/97_SB_SERVER.pm
View File

@ -453,40 +453,41 @@ sub SB_SERVER_Set( $@ ) {
if( $hash->{RCCNAME} ne "none" ) {
fhem( "set $hash->{RCCNAME} on" );
}
} elsif( $cmd eq "renew" ) {
Log3( $hash, 5, "SB_SERVER_Set: renew" );
DevIo_SimpleWrite( $hash, "listen 1\n", 0 );
} elsif( $cmd eq "abort" ) {
DevIo_SimpleWrite( $hash, "listen 0\n", 0 );
} elsif( $cmd eq "statusRequest" ) {
Log3( $hash, 5, "SB_SERVER_Set: statusRequest" );
DevIo_SimpleWrite( $hash, "serverstatus 0 200\n", 0 );
DevIo_SimpleWrite( $hash, "favorites items 0 " .
AttrVal( $name, "maxfavorites", 100 ) . "\n",
0 );
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
} elsif( $cmd eq "cliraw" ) {
# write raw messages to the CLI interface per player
my $v = join( " ", @a );
$v .= "\n";
Log3( $hash, 5, "SB_SERVER_Set: cliraw: $v " );
IOWrite( $hash, $v );
} elsif( $cmd eq "rescan" ) {
IOWrite( $hash, $cmd . " " . $a[ 0 ] . "\n" );
} else {
;
}
return( undef );
} elsif( $cmd eq "renew" ) {
Log3( $hash, 5, "SB_SERVER_Set: renew" );
DevIo_SimpleWrite( $hash, "listen 1\n", 0 );
} elsif( $cmd eq "abort" ) {
DevIo_SimpleWrite( $hash, "listen 0\n", 0 );
} elsif( $cmd eq "statusRequest" ) {
Log3( $hash, 5, "SB_SERVER_Set: statusRequest" );
DevIo_SimpleWrite( $hash, "serverstatus 0 200\n", 0 );
DevIo_SimpleWrite( $hash, "favorites items 0 " .
AttrVal( $name, "maxfavorites", 100 ) . "\n",
0 );
DevIo_SimpleWrite( $hash, "playlists 0 200\n", 0 );
} elsif( $cmd eq "cliraw" ) {
# write raw messages to the CLI interface per player
my $v = join( " ", @a );
$v .= "\n";
Log3( $hash, 5, "SB_SERVER_Set: cliraw: $v " );
IOWrite( $hash, $v );
} elsif( $cmd eq "rescan" ) {
IOWrite( $hash, $cmd . " " . $a[ 0 ] . "\n" );
} else {
;
}
return( undef );
}
# ----------------------------------------------------------------------------
# Read
# called from the global loop, when the select for hash->{FD} reports data