A while ago I posted some code for my script that manages multiple instances of an mp3 player and allows you to play some songs, pause them, play another set, and resume the first when the second is complete. I sent STOP and CONT signals to mpg321 itself and it was rather messy, so I decided to use Audio::Daemon::MPG123. Everything is going pretty well now. I compiled the modified mpg123 from source in Audio::Play::MPG123 using the esd output. I had to make a few small modifications to the ::Server so that at the end of stop() it'd call $player->stop_mpg123() so that the forked Server process and mpg123 instance would hopefully exit. It all works pretty well. Sometimes, though, I get weird errors about Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at /usr/lib/perl/5.8/Socket.pm line 198. Other times, it just works. But now my main problem is when I do this: play SONGS pause 1st set play NEWSONGS stop 2nd set 2nd set exits, and the CHLD signal is received the 1st set is supposed to resume, and it does but occaisonally it'll pause() again after a second, as if Play() is called again. I have no clue why. Here's the code for my music server. I realized that this could be anything since I've modified the A::D::M code a bit, but I'd like a few hints. 
#!/usr/bin/perl -w
########################
# Jigstar Music Daemon #
########################

use POSIX ":sys_wait_h";
use Audio::Daemon::MPG123::Server;
use Audio::Daemon::MPG123::Client;
use Config::Auto;
our (@Queue, $Config, $PortCounter);
$| = 1;

mkdir "/tmp/jmd";
open LOCK, "/var/lock/jmd" and do {
 kill 0, <LOCK> and die "Error: JMD already running!";
};
open LOCK, ">/var/lock/jmd";
print LOCK $$;
close LOCK;

$Config = Config::Auto::parse("/etc/jmd");
if ($Config->{mixer} eq "esd") {
 # Start ESD
}

$SIG{ALRM} = sub {
 return unless -s "/tmp/jmd/input";
 open INPUT, "/tmp/jmd/input";
 chomp($Cmd = <INPUT>);
 close INPUT;
 Play($Cmd) if $Cmd =~ s/^play //;
 Add($Cmd) if $Cmd =~ s/^add //;
 Next() if $Cmd eq "next";
 Prev() if $Cmd eq "prev";
 Restart() if $Cmd eq "restart";
 Forward() if $Cmd eq "forward";
 Backward() if $Cmd eq "backward";
 Pause() if $Cmd eq "pause";
 Resume() if $Cmd eq "resume";
 Toggle() if $Cmd eq "toggle";
 Stop() if $Cmd eq "stop";
 $SIG{QUIT}->() if $Cmd eq "quit";
};
$SIG{CHLD} = sub {
 my $Stiff;
 while (($Stiff = waitpid(-1, &WNOHANG)) > 0) {
  pop @Queue;
  sleep($Config->{lag});
  Resume() if @Queue;
 }
};
$SIG{QUIT} = sub {
 unlink "/var/lock/jmd";
 # Blank files
 # Close all instances
 exit;
};
$SIG{INT} = $SIG{QUIT};

sub Play {
 Pause() if @Queue;
 my $Port = 9100 + ++$PortCounter;
 my $Server = new Audio::Daemon::MPG123::Server (Port => $Port);
 my $Client = new Audio::Daemon::MPG123::Client (Server => "localhost"
+, Port =>
$Port);
 push @Queue, { Server => $Server, Client => $Client };
 $Queue[-1]->{Server}->mainloop() unless fork();
 Add(shift);
}

sub Add {
 @Songs = split(/\s+/, shift); # Handle filenames with escapes.
 $Queue[-1]->{Client}->add(@Songs) if @Queue;
}

sub Next {
 $Queue[-1]->{Client}->next() if @Queue;
}

sub Prev {
 $Queue[-1]->{Client}->prev() if @Queue;
}

sub Restart {
 $Queue[-1]->{Client}->jump("0s") if @Queue;
}

sub Forward {
 $Queue[-1]->{Client}->jump("+" . $Config->{forward} . "s") if @Queue;
}

sub Backward {
 $Queue[-1]->{Client}->jump("-" . $Config->{backward} . "s") if @Queue
+;
}

sub Pause {
 return unless @Queue;
 my $Status = $Queue[-1]->{Client}->status();
 $Queue[-1]->{Client}->pause() if $Status->{state} == 2;
}

sub Resume {
 return unless @Queue;
 my $Status = $Queue[-1]->{Client}->status();
 $Queue[-1]->{Client}->pause() if $Status->{state} == 1;
}

sub Toggle {
 $Queue[-1]->{Client}->pause() if @Queue;
}

sub Stop {
}

#open SONG, ">/tmp/jmd/song";
#open TIMES, ">/tmp/jmd/times";
#do {
# if (@Queue) {
#  my $Status = $Queue[-1]->{Client}->status();
#  print "1: [" . $#Queue + 1 . "] " . $Status->{url} . do { " (P)" if
+ $Status->{state} == 1; };
#  print "\n";
#  my @Times = split(/,/, $Status->{frame});
#  print "2: " . $Times[2] . "(" . $Times[3] . ")";
#  print "\n";
# }
# sleep 1;
#} while 1;
sleep while 1;

[download]

In reply to Audio::Daemon::MPG123 by dabreegster

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.