File Coverage

blib/lib/Daemon/Mplayer.pm

Criterion	Covered	Total	%
statement	18	59	30.5
branch	0	34	0.0
condition	0	11	0.0
subroutine	6	9	66.6
pod	2	2	100.0
total	26	115	22.6

package Daemon::Mplayer;
use strict;

BEGIN {
  use Exporter;
  use vars qw($VERSION @ISA @EXPORT_OK);

  $VERSION   = q[0.014];
  @ISA       = q[Exporter];
  @EXPORT_OK = qw(mplayer_play mplayer_stop);
}

use Carp qw(croak);

sub mplayer_play {
  _mplayer_daemonize(@_);
}


sub _mplayer_daemonize {
  my $mplayer = shift;

  my $pidfile = $mplayer->{pidfile} || q[/tmp/mplayer_daemon.pid];
  my $logfile = $mplayer->{logfile} || q[/dev/null];
  my $mp_path = $mplayer->{path}    || q[/usr/bin/mplayer];


  use POSIX qw(setsid);
  my $PID = fork();

  exit 0 if $PID;           # parent
  exit 1 if !defined($PID); # out of resources

  setsid();
  $PID = fork();
  exit 1 if !defined($PID);

  if($PID) { # parent
    open(my $fh, '>', $pidfile) or croak($!);
    print $fh $$;
    close($fh);

    waitpid($PID, 0);
    exit 0;
  }

  elsif($PID == 0) { # child
    open(my $fh, '>', $pidfile)
      or croak(qq[Can not open pidfile '$pidfile': $!]);

    print $fh $$;
    close($fh);

    open(STDOUT, '>>', $logfile)   unless $ENV{DEBUG};
    open(STDERR, '>', '/dev/null') unless $ENV{DEBUG};
    open(STDIN,  '<', '/dev/null') unless $ENV{DEBUG};

    exec($mp_path, @{ $mplayer->{args} });
  }
  return 0;
}

sub mplayer_stop {
  my $mplayer = shift;

  croak(qq[Not a hashref: '$mplayer']) if ref($mplayer) ne q[HASH];

  my $pidfile = $mplayer->{pidfile} || q[/tmp/mplayer_daemon.pid];

  if( (!-f $pidfile) and ($pidfile =~ m/^\d+$/) ) {
    return 1 if kill(9, $pidfile);
  }
  open(my $fh, '<', $pidfile)
    or croak(qq[Can not open pidfile '$pidfile': $!]);

  chomp(my $pid = <$fh>);
  close($fh);

  if($pid !~ /^\d+$/) {
    croak(qq[PID '$pid' is not a valid PID]);
  }

  if(kill(9, $pid)) {
    unlink($pidfile)
      or croak(qq[Can not delete pidfile '$pidfile': $!]);
    return 1;
  }
  else {
    croak(qq[Can not kill PID '$pid': $!]);
  }
  return;
}


1;


__END__