Bind to all interfaces.
git-svn-id: https://samskivert.googlecode.com/svn/trunk@111 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
@@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# $Id: musicd,v 1.2 2001/03/22 02:44:26 mdb Exp $
|
# $Id: musicd,v 1.3 2001/03/22 02:59:13 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
|
||||||
@@ -22,8 +22,7 @@ my $mp3;
|
|||||||
|
|
||||||
main: {
|
main: {
|
||||||
# create the server part of things
|
# create the server part of things
|
||||||
my $sock = new IO::Socket::INET(LocalHost => "localhost",
|
my $sock = new IO::Socket::INET(LocalPort => 2500,
|
||||||
LocalPort => 2500,
|
|
||||||
Proto => "tcp",
|
Proto => "tcp",
|
||||||
Listen => SOMAXCONN,
|
Listen => SOMAXCONN,
|
||||||
Reuse => 1);
|
Reuse => 1);
|
||||||
|
|||||||
Reference in New Issue
Block a user