AfflictionNetworks/samskivert
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed play_this_tune(), added log message.

Browse Source 
git-svn-id: https://samskivert.googlecode.com/svn/trunk@181 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
mdb
2001-07-13 00:39:32 +00:00
parent 13f9e12325
commit c807416da4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
projects/robodj/bin/musicd
+3 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: musicd,v 1.9 2001/07/13 00:21:32 mdb Exp $ # $Id: musicd,v 1.10 2001/07/13 00:39:32 mdb Exp $
# #
# MP3 audio server. Manages playlists of mp3 files that live on a local # MP3 audio server. Manages playlists of mp3 files that live on a local
# filesystem. The playlists can be manipulated by connecting to the server # filesystem. The playlists can be manipulated by connecting to the server
@@ -219,6 +219,7 @@ sub play_next_tune
if (@playlist == 0) { if (@playlist == 0) {
$index = -1; $index = -1;
undef $playing; undef $playing;
print "Empty playlist, twiddling.\n";
return; return;
} }
@@ -249,7 +250,7 @@ sub play_this_tune
# advance the playlist pointer (wrapping around at the end because we # advance the playlist pointer (wrapping around at the end because we
# always loop) # always loop)
for ($i = 0; $i < @playlist; $i++) { for ($i = 0; $i < @playlist; $i++) {
$index = ($index + $i) % @playlist; $index = ($index + 1) % @playlist;
$playing = $playlist[$index]; $playing = $playlist[$index];
if ($playing->[1] == $sid) { if ($playing->[1] == $sid) {
last; last;