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

Added ability to bind to particular interface; cleaned up debugging.

Browse Source 
git-svn-id: https://samskivert.googlecode.com/svn/trunk@144 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
mdb
2001-06-05 16:52:55 +00:00
parent 51a33f14fd
commit 3d51ed64e8
1 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
projects/robodj/bin/musicd
+24 -3
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: musicd,v 1.4 2001/06/05 16:40:53 mdb Exp $ # $Id: musicd,v 1.5 2001/06/05 16:52:55 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 playlsits can be manipulated by connecting to the server # filesystem. The playlsits can be manipulated by connecting to the server
@@ -11,6 +11,9 @@ use IO::Socket;
use IO::Select; use IO::Select;
use MPEG::MP3Play; use MPEG::MP3Play;
use Data::Dumper; use Data::Dumper;
use Getopt::Long;
my $usage = "Usage: $0 [--bind_addr x.x.x.x]\n";
# this is what's currently being played # this is what's currently being played
my $playing; my $playing;
@@ -21,12 +24,27 @@ 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;
# get our options
my $bind_addr; # bind address
GetOptions("bind_addr:s" => \$bind_addr);
# validate the bind address
die $usage if (defined $bind_addr && $bind_addr !~ /\d+\.\d+\.\d+\.\d+/);
main: { main: {
# create the server part of things # create the server part of things
my $sock = new IO::Socket::INET(LocalPort => 2500, my $sock;
if (defined $bind_addr) {
$sock = new IO::Socket::INET(LocalHost => "$bind_addr:2500",
Proto => "tcp", Proto => "tcp",
Listen => SOMAXCONN, Listen => SOMAXCONN,
Reuse => 1); Reuse => 1);
} else {
$sock = new IO::Socket::INET(LocalPort => 2500,
Proto => "tcp",
Listen => SOMAXCONN,
Reuse => 1);
}
$sock or die "Unable to create server socket: $!\n"; $sock or die "Unable to create server socket: $!\n";
# create our MP3 interface # create our MP3 interface
@@ -180,7 +198,10 @@ package MPEG::MP3Play;
sub msg_notify_player_state sub msg_notify_player_state
{ {
my ($mp3, $msg) = @_; my ($mp3, $msg) = @_;
print "state: " . Dumper($msg) . "\n";
# deeee-bug!
# print "state: " . Dumper($msg) . "\n";
# play the next tune if we hit the end of this one # play the next tune if we hit the end of this one
if ($msg->{state} == &XA_PLAYER_STATE_EOF) { if ($msg->{state} == &XA_PLAYER_STATE_EOF) {
main::play_next_tune(); main::play_next_tune();