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

Track and report our paused status.

Browse Source 
git-svn-id: https://samskivert.googlecode.com/svn/trunk@631 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
mdb
2002-03-03 17:20:45 +00:00
parent a87411a22e
commit ae0514ad79
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
projects/robodj/bin/musicd
+10 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: musicd,v 1.13 2002/02/22 08:36:28 mdb Exp $ # $Id: musicd,v 1.14 2002/03/03 17:20:45 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
@@ -23,6 +23,8 @@ my @playlist;
my $index = -1; my $index = -1;
# this is our handle on the MP3 player object # this is our handle on the MP3 player object
my $mp3; my $mp3;
# whether or not we're currently paused
my $paused = 0;
# get our options # get our options
my $bind_addr; # bind address my $bind_addr; # bind address
@@ -199,11 +201,12 @@ sub handle_client
} }
} elsif ($input =~ m/^PLAYING/) { } elsif ($input =~ m/^PLAYING/) {
print $cfh "200 Currently playing: " . print $cfh "200 Currently " . ($paused ? "paused" : "playing") . ": " .
(defined $playing ? $playing->[1] : "<none>") . "\n"; (defined $playing ? $playing->[1] : "<none>") . "\n";
} elsif ($input =~ m/^STOP/) { } elsif ($input =~ m/^STOP/) {
$mp3->stop(); $mp3->stop();
$paused = 0; # clear the paused flag
undef $playing; undef $playing;
print $cfh "200 Music stopped.\n"; print $cfh "200 Music stopped.\n";
@@ -215,6 +218,10 @@ sub handle_client
# otherwise queue one up to play # otherwise queue one up to play
play_next_tune(); play_next_tune();
} }
# clear the paused flag
$paused = 0;
# and report back based on whether or not we successfully queued # and report back based on whether or not we successfully queued
# up a song for playing # up a song for playing
if (defined $playing) { if (defined $playing) {
@@ -225,6 +232,7 @@ sub handle_client
} elsif ($input =~ m/^PAUSE/) { } elsif ($input =~ m/^PAUSE/) {
$mp3->pause(); $mp3->pause();
$paused = 1;
print $cfh "200 Music paused (use PLAY to unpause).\n"; print $cfh "200 Music paused (use PLAY to unpause).\n";
} elsif ($input =~ m/^SKIPTO (\d+)/) { } elsif ($input =~ m/^SKIPTO (\d+)/) {