Seeking advice on client idle detection / server shutdown

[epoch1970]

Hello all,
I am sure this subject has come up before but a quick search did not bring me a definitive answer, so here goes.

I want to detect idle squeezeboxes from the linux server that runs the squeezecenter server. My plan is to have the server shutdown after something like 15 mins without activity, and wake-up on WOL (with a Duet, currently...) I want to avoid sleeping the server when a player has a song in pause. I would like to put it to sleep when players are stopped or off.

I wonder if there is a blessed way of detecting idle clients ?
- Using netstat or tcpstat, I can watch the number of packets out of the server on port 9000/tcp. This is a bit tricky for various reasons (no way to tell the difference between pause and stop, for example)
- Using lsof I can see the files from the library that are being played or paused. Unfortunately, I can't find any sign of file-related activity when listening to radio streams.

So, even getting status from both tools, there is a chance I can shutdown the server while a radio stream is in pause.
I feel all this is somewhat convoluted. I read some of you are using the CLI, but I did not really figured which commands I should pass to the CLI in order to see what the clients are currently doing.

Thanks in advance for your comments and directions.

[radish]

Use the CLI. I thnk there's a command called playerstatus which will tell you what a player is doing - the docs are all in SC.

[epoch1970]

Thanks.
So I spent half an hour understanding how to send a command using the refsheet represented as a documentation for the CLI. I did'nt find a clientstatus, only a serverstatus command. I started querying my Duet hardware client.
I used the controller to power off the receiver, then I powered off the controller. Obviously, this is a circumstance where the server can safely shut down.
This is what the CLI returns if you care peering through the escapes:

player id 0 ?
player id 0 00%3A04%3A20%3A16%3A25%3A82
00%3A04%3A20%3A16%3A25%3A82 connected ?
00%3A04%3A20%3A16%3A25%3A82 connected 1
00%3A04%3A20%3A16%3A25%3A82 power ?
00%3A04%3A20%3A16%3A25%3A82 power 0

So, connected but powered off ???

[jth]

I don't know how well you know perl, but you might be able to modify
the PowerSave plugin to do what you want. PowerSave is able to tell
if individual players are idle - you'd have to modify the code to
take action if all players are idle. Just a thought.

[epoch1970]

I don't know how well you know perl, but you might be able to modify
the PowerSave plugin to do what you want.

I know perl... once every 2 years at most ! But I like fiddling with it, and I wanted to check out that plugin at some point in time. I'll take a look at the source.
Thanks for the idea.

[gharris999]

Max Spicer's perl script, intended to be launched from a reoccurring cron task, pretty much does what you want, I think.

#!/usr/bin/perl -w
# $Date: 2005-10-30 14:26:26 +0000 (Sun, 30 Oct 2005) $ $Rev: 9 $
# Copyright 2005 Max Spicer.
# Feel free to reuse and modify, but please consider passing modifications back
# to me so they can be included in future versions.
# If you use this script, please let me know!

# Shuts down the server if there aren't any players currently playing.
# Designed to be cronned every x minutes during a time range when the server
# should be off.
#
# Example crontab entry:
# Shutdown every 30 minutes from 1am to 5:30am
# 0,30 1-5 * * * /usr/local/sbin/shutdown.pl

use strict;
use IO::Socket;
use POSIX qw(strftime);

# Print debug output if true.  Higher values increase verbosity.
my $debug = 0;

# Turnoff players..
my $turnoff = 1;

# Amount of warning time in minutes to give before shutting down
my $warnTime = 1;

# Change server details below if necessary
my $socket = IO::Socket::INET->new (PeerAddr => '127.0.0.1',
                                    PeerPort => 9090,
                                    Proto    => 'tcp',
                                    Type     => SOCK_STREAM)
or die 'Couldn\'t connect to server';

# Get the number of players
my $playerCount = sendAndReceive('player count ?');
$debug && print "$playerCount players found\n";

# Interrogate current state of each player
my $playersPlaying = 0;
my @playerIds;
for (my $i = 0; $i <  $playerCount; $i++) {
  # Get the player's internal id and store for future reference
  $playerIds[$i] = sendAndReceive("player id $i ?");
  $debug && print "Player $i has ID $playerIds[$i]\n";
  my $playerMode = sendAndReceive("$playerIds[$i] mode ?"); 
  $debug && print "Player ${i}'s mode is $playerMode\n";
  if ($playerMode eq 'play') {
    $playersPlaying++;
  }
}

$debug && print "$playersPlaying/$playerCount players playing\n";
if (!$playersPlaying) {
  $debug && print "Shutting down\n";
  
  my $timeString = POSIX::strftime("%H:%m:%S", localtime());

  # Display a warning on each powered-on player
  for (my $i = 0; $i <  $playerCount; $i++) {
    sendAndReceive("$playerIds[$i] display $timeString%20-%20Warning: Server%20shutting%20down%20in%20$warnTime%20minutes 30");
  }

if ($turnoff) { 
 # Turn off each powered-on player (this should trigger amp turn-off
  #print "Turning off SqueezeBoxen..\n";
  for (my $i = 0; $i <  $playerCount; $i++) {
	#turn off only the Transporter
	if ( $playerIds[$i] eq '00%3A04%3A20%3A10%3A01%3A04') {
		print "Turning off Transporter!\n";
    		sendAndReceive("$playerIds[$i] power 0");
	}
  }
}


#stop Squeeze Center
system("/sbin/service squeezecenter stop");

# rotate the slimserver logs..
print "Rotating logs..\n";
system("/usr/sbin/logrotate /etc/logrotate.d/squeezecenter");

# Shutdown!
print "OK..now we are shutting down..\n";
system("/sbin/shutdown -h +$warnTime No Slim players playing so system is shutting down.");


close $socket;

# Send given cmd to $socket and return answer with original command removed from
# front if present.  Routine nicked from code by Felix Mueller. :-)
sub sendAndReceive {
  my $cmd = shift;

  return if( $cmd eq "");

  print $socket "$cmd\n";
  $debug > 1 && print "Sent $cmd to server\n";
  my $answer = <$socket>;
  $debug > 1 && print "Server replied: $answer\n";
  $answer =~ s/$cmd //i;
  $answer =~ s/\n//;

  return $answer;
}

There might be a few of my own modifications in there. I don't remember the url to the original.

I should say that I don't think this script distinguishes between a player being "stopped" and being "paused."

[radish]

Thanks.
I did'nt find a clientstatus, only a serverstatus command.

<playerid> power <0|1|?|>
will let you find out if a player is on or off.

<playerid> mode ?
will tell you if a player is in stop/play/pause mode

So, connected but powered off ???

Sure. SB players are never really "off" they're just in off mode. The network connection is still live (so they can be turned back "on" again), so this tells you the player is switched off but still on the network.