#!/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;

print STDERR "Warning: Using this tool is deprecated. Use: rpld-ctl next\n" if scalar(@ARGV) == 0;

my %map = (
           'uuid'  => 'uuid',
           'long'  => 'longid',
           'short' => 'shortid',
          );
my $rpld = Audio::RPLD->new();
my $k;

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

while (@ARGV) {
 $_ = shift(@ARGV);
 if ( $_ eq '--ifcurple' ) {
  $_ = shift(@ARGV);
  my $cur = $rpld->showcur();

  s/^0x/long:0x/;

  if ( /^([^:]+):/ ) {
   if ( ($k = $map{$1}) ) {
    exit(0) unless $cur->{$k} eq $_;
   } else {
    print STDERR "Unknown PLE type\n";
    exit(1);
   }
  } else {
   print STDERR "Unknown PLE type\n";
   exit(1);
  }
 } else {
  print STDERR "Unknown (Too may) arguments\n";
  exit(1);
 }
}

$rpld->next();

$rpld->disconnect();

#ll
