Audio-Daemon

 view release on metacpan or  search on metacpan

Daemon/Client.pm  view on Meta::CPAN

use IO::Socket;
use IO::Select;
use Audio::Daemon;

use vars qw(@ISA $VERSION);
@ISA = qw(Audio::Daemon);
my $VERSION='0.99Beta';
 
sub new {
  my $class = shift;
  my $self = $class->SUPER::new(@_);
  bless $self, $class;
  $self->warn("instantiated...");
  return $self;
}

sub inline {
  my $self = shift;
  return if (! scalar @_);
  my @args;
  foreach my $arg (@_) {

Daemon/MPG123.pm  view on Meta::CPAN

  eval "use Audio::Mixer";
  $MIXER = $@?0:1;
}

@ISA = qw(Audio::Daemon);
$VERSION='0.99Beta';

sub new {
  my $class = shift;
  die "Cannot find Audio::Play::MPG123" if (! $HAVEPLAY);
  my $self = $class->SUPER::new(@_);
  bless $self, $class;
  # initilize current playlist
  $self->{playlist} = [];
  # initialize random index.
  $self->{random} = [];
  $self->{revrandom} = [];
  # initilize my current states of various things
  $self->{state} = {random => 0, repeat => 0, state => 0};
  return $self;
}

Daemon/Shout.pm  view on Meta::CPAN

use Shout;
use MP3::Info;

use vars qw(@ISA $VERSION);

@ISA = qw(Audio::Daemon);
$VERSION='0.99Beta';

sub new {
  my $class = shift;
  my $self = $class->SUPER::new(@_);
  bless $self, $class;
  # initilize current playlist
  $self->{playlist} = [];
  # initialize random index.
  $self->{random} = [];
  $self->{revrandom} = [];
  # initilize my current states of various things
  $self->{state} = {random => 0, repeat => 0, state => 0};
  $self->connect;
  return $self;

Daemon/Xmms.pm  view on Meta::CPAN

use Xmms::Remote ();
use Xmms::Config ();
use MP3::Info;

use vars qw(@ISA $VERSION);
@ISA = qw(Audio::Daemon);
$VERSION='0.99Beta';

sub new {
  my $class = shift;
  my $self = $class->SUPER::new(@_);
  bless $self, $class;
  $self->remote(Xmms::Remote->new);
  $self->config(Xmms::Config->new(Xmms::Config->file));
  my $remote = $self->remote;

  unless ($remote->is_running) {
    exec "xmms" unless (fork());
    sleep 1;
  }
  $self->{state} = {random => $remote->is_shuffle, repeat => $remote->is_repeat};