mdb
7f70824e42
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
40 lines
931 B
Perl
Executable File
40 lines
931 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# $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.
|
|
|
|
use strict;
|
|
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;
|
|
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
|
|
print $sock "APPEND $path\n";
|
|
# print the response
|
|
print scalar <$sock>;
|
|
} while ($path = shift);
|
|
|
|
close $sock;
|