blob: a8b1c0ada8d0713cf322d613e615d49f990771f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/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();
|
