#!/usr/bin/perl -w
#
#

use strict;

use Getopt::Long;
use DBI;
use Gtk2 -init;
use Gtk2::GladeXML;

my $DBHOST = "airplay";
my $DBUSER = "rivendellro";
my $DBPW = "lldrivenro";
my $DB = "rivendell";
my $HELP = 0;
my $M3U = "";
my $DONTCONCAT = 0;
my $LISTALLOWED = 0;

GetOptions ("help!" => \$HELP,
            "m3u=s" => \$M3U,
            "dont-concat!" => \$DONTCONCAT,
            "list-allowed!" => \$LISTALLOWED,
             );

if($HELP) {
  print << "EOF";
usage: $0 --m3u <playlist file> --dont-concat

options:
     --m3u           the playlist file to import
     --dont-concat   dont concat the audio files, import as seperate files
     --list-allowed  list allowed dropboxes and exit

EOF
  exit;
}

my $user = 'martinland';#$ENV{'USER'};
$user or die "Username not found in environment";

my $dbh = DBI->connect( "DBI:mysql:$DB:$DBHOST","$DBUSER","$DBPW") or die "Database Error: $DBI::errstr";

my $sql = qq{select USER_PERMS.GROUP_NAME,DROPBOXES.PATH from USER_PERMS, DROPBOXES where USER_PERMS.USER_NAME='$user' and DROPBOXES.GROUP_NAME=USER_PERMS.GROUP_NAME;};

my $sth = $dbh->prepare($sql);
$sth->execute();
my @allowed_dbs;
while(my ($group, $path) = $sth->fetchrow_array()) {
  $path =~ s/\/\*$//;
  my $perm = {};
  $perm->{'GROUP'} = $group;
  $perm->{'PATH'} = $path;
  push @allowed_dbs, $perm;
}
$sth->finish();


if($LISTALLOWED) {
  for my $href ( @allowed_dbs ) {
    print "$href->{'PATH'}\n";
  }
  $dbh->disconnect();
  exit 0;
}

## GUI mode

if(!$M3U) {
  my $gui = Gtk2::GladeXML->new('rhimport.glade');

  Gtk2->main;
  exit 0;
}

## command line mode

(-e "$M3U") or die "file '$M3U' not found";
if($DONTCONCAT) {
  print "Will import $M3U (seperate files), with user $user\n\n";
} else {
  print "Will import $M3U (concatenated), with user $user\n\n";
}

$dbh->disconnect();
exit 0;