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

Fail if we can't connect to the music daemon and get the music daemon host

Browse Source 
and port from the environment if they're in there.


git-svn-id: https://samskivert.googlecode.com/svn/trunk@112 6335cc39-0255-0410-8fd6-9bcaacd3b74c
This commit is contained in:
mdb
2001-03-22 03:00:25 +00:00
parent ed6424b58c
commit 7f70824e42
2 changed files with 30 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
projects/robodj/bin/append
+15 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
#
# $Id: append,v 1.1 2001/03/22 02:41:36 mdb Exp $
# $Id: append,v 1.2 2001/03/22 03:00:25 mdb Exp $
#
# Appends the supplied song or songs to the playlist of a running MP3
# daemon.
@@ -11,10 +11,23 @@ use IO::Socket;
my $usage = "Usage: $0 mp3_file [mp3_file ...]\n";
my $path = shift or die $usage;
# determine our music daemon host and port
my $host = "localhost";
if (defined $ENV{"MUSICD_HOST"}) {
$host = $ENV{"MUSICD_HOST"};
}
my $port = 2500;
my $sock = new IO::Socket::INET(PeerAddr => "localhost",
if (defined $ENV{"MUSICD_PORT"}) {
$port = $ENV{"MUSICD_PORT"};
}
# establish a socket connection with the server
my $sock = new IO::Socket::INET(PeerAddr => $host,
PeerPort => $port,
Proto => "tcp");
if (!defined $sock) {
die "Unable to connect to music server on $host:$port.\n";
}
do {
# send the command
projects/robodj/bin/mpcmd
+15 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
#
# $Id: mpcmd,v 1.1 2001/03/22 02:41:36 mdb Exp $
# $Id: mpcmd,v 1.2 2001/03/22 03:00:25 mdb Exp $
#
# Appends the supplied song or songs to the playlist of a running MP3
# daemon.
@@ -11,10 +11,23 @@ use IO::Socket;
my $usage = "Usage: $0 COMMAND [ARGUMENT ...]\n";
my $command = shift or die $usage;
# determine our music daemon host and port
my $host = "localhost";
if (defined $ENV{"MUSICD_HOST"}) {
$host = $ENV{"MUSICD_HOST"};
}
my $port = 2500;
my $sock = new IO::Socket::INET(PeerAddr => "localhost",
if (defined $ENV{"MUSICD_PORT"}) {
$port = $ENV{"MUSICD_PORT"};
}
# establish a socket connection with the server
my $sock = new IO::Socket::INET(PeerAddr => $host,
PeerPort => $port,
Proto => "tcp");
if (!defined $sock) {
die "Unable to connect to music server on $host:$port.\n";
}
# send the command
print $sock "$command " . join(" ", @ARGV) . "\n";