[Slimp3-checkins] CVS: slimp3/server/lib/SliMP3/Buttons Common.pm,1.39,1.40

[dean b. <bla...@us...>]

Update of /cvsroot/slimp3/slimp3/server/lib/SliMP3/Buttons
In directory usw-pr-cvs1:/tmp/cvs-serv11180/lib/SliMP3/Buttons

Modified Files:
	Common.pm 
Log Message:
Some code clean up.

Moved client data structure and client protocol code to new Client.pm 
file from server.pl

Removed or moved some globals that didn't really belong in server.pl
to more approprate places.


Index: Common.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/Buttons/Common.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** Common.pm	18 Apr 2002 02:15:57 -0000	1.39
--- Common.pm	25 Apr 2002 15:51:28 -0000	1.40
***************
*** 43,47 ****
  		}
  		# be extra paranoid about IR
! 		if ($client->irtimediff > (2 * $main::IRMINTIME)) {
  			SliMP3::Playlist::executecommand($client, ["playlist", "jump", "+1"]);	
  			SliMP3::Animation::showBriefly($client, (SliMP3::Buttons::Playlist::currentSongLines($client))[0..1]);		
--- 43,47 ----
  		}
  		# be extra paranoid about IR
! 		if ($client->irtimediff > (2 * $SliMP3::Client::IRMINTIME)) {
  			SliMP3::Playlist::executecommand($client, ["playlist", "jump", "+1"]);	
  			SliMP3::Animation::showBriefly($client, (SliMP3::Buttons::Playlist::currentSongLines($client))[0..1]);		
***************
*** 59,63 ****
  	
  		# be extra paranoid about IR
! 		if ($client->irtimediff > (2 * $main::IRMINTIME)) {
  		
  			if ($client->irtimediff < (1000000)) { #  less than second, jump back to the previous song
--- 59,63 ----
  	
  		# be extra paranoid about IR
! 		if ($client->irtimediff > (2 * $SliMP3::Client::IRMINTIME)) {
  		
  			if ($client->irtimediff < (1000000)) { #  less than second, jump back to the previous song