#!/usr/bin/perl
###################
# Title           #
# By Da-Breegster #
###################

use strict;
use warnings;

open PID, "/var/lock/jmd" or do {
 unless ($ARGV[0] eq "start") {
  print "JMD not running!\n";
  exit 1;
 }
};
no warnings;
our $PID = <PID>;
use warnings;
close PID;

my $Cmd = shift @ARGV;
if ($Cmd eq "start") {
 system("jmd &");
 exit 1;
} elsif ($Cmd eq "ls") {
 # Dunno
} elsif ($Cmd =~ m/(add|play)/) {
 my $Send = "$Cmd " . join("   ", @ARGV);
 $Send =~ s/\s$//;
 open CMD, ">/tmp/jmd/input";
 print CMD $Send;
 close CMD;
 kill "ALRM", $PID;
 exit 1;
} else {
 my $Send = "$Cmd " . join(" ", @ARGV);
 $Send =~ s/\s$//;
 open  CMD, ">/tmp/jmd/input";
 print CMD $Send;
 close CMD;
 kill "ALRM", $PID;
 exit 1;
}