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

use strict;

use Getopt::Long;
use DBI;

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

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

if($HELP || !$M3U) {
  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

EOF
  exit;
}

(-e "$M3U") or die "file '$M3U' not found";

my $user = $ENV{'USER'};

$user or die "Username not found in environment";

print "Will import $M3U, with user $user\n";


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 $cur_start_time = "out of order";
my $cart_cnt = 0;
while(my ($group, $path) = $sth->fetchrow_array()) {
  $path =~ s/\/\*$//;

  print "GROUP: $group, PATH: $path\n"
}

$sth->finish();
$dbh->disconnect();