#!/usr/bin/perl

#      Copyright (C) Philipp 'ph3-der-loewe' Schafft - 2010
#
#  This file is part of RoarAudio PlayList Daemon,
#  a playlist management daemon for RoarAudio.
#  See README for details.
#
#  This file is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License version 3
#  as published by the Free Software Foundation.
#
#  RoarAudio is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this software; see the file COPYING.  If not, write to
#  the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

use strict;
use Audio::RPLD;

my ($cmd, $arg) = @ARGV;

$cmd = lc($cmd);

my $rpld = Audio::RPLD->new();

$rpld->connect_default();
$rpld->is_connected() or die;

if ( $cmd eq 'pause' ) {
 $rpld->pause();
} elsif ( $cmd eq 'unpause' ) {
 $rpld->unpause();
} elsif ( $cmd eq 'togglepause' ) {
 $rpld->togglepause();
} elsif ( $cmd eq 'volume' ) {
 $rpld->setvolume($arg);
} else {
 die 'Unknown command';
}

$rpld->disconnect();

#ll
