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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/usr/bin/perl -w
#
# Exports playlists from ampache
#
# Fill in the site specific database connection parameters below before running
#
use DBI;
# Configure database connection parameters
my $db = "ampache"; # database
my $user = ""; # database user
my $pw = ""; # database user password
if ($#ARGV < 0) {
print "Usage: $0 <filename>\n";
print " Exports Ampache playlists to <filename>.\n";
exit;
}
open(OUT, "> $ARGV[0]") or die("Could not open '$ARGV[0]' for write - $!");
# Build DSNs
my $dsn = "dbi:mysql:database=$db;";
# Connect to database
my $dbh= DBI->connect($dsn, $user, $pw,
{ RaiseError => 1, AutoCommit => 0 });
# Prepare statements
my $sth = $dbh->prepare("SELECT id, name, owner, type FROM playlist");
my $sth2 = $dbh->prepare("SELECT username FROM user
WHERE id = ?");
my $sth3 = $dbh->prepare("SELECT song.file
FROM playlist_data, song
WHERE playlist_data.playlist = ?
AND playlist_data.song = song.id");
# Execute select and loop through results
$sth->execute();
my $count = 0;
my ($id,$name,$owner,$type,$date,$file,$track);
while(($id,$name,$owner,$type) = $sth->fetchrow_array) {
if ($count > 0) {
# Use a blank line as a separator between playlists
print OUT "\n";
}
$count++;
if ($owner =~ /^\d+$/) {
# Fetch username instead of id for owner
$sth2->execute($owner);
$owner = "unknown" unless (($owner) = $sth2->fetchrow_array);
$sth2->finish;
}
# Date is not present in old ampache's
$date = 0 if (! defined($date));
print OUT "Name: $name\n";
print OUT "Owner: $owner\n";
print OUT "Type: $type\n";
# Grab songs for this playlist
$sth3->execute($id);
while(($file) = $sth3->fetchrow_array) {
print OUT "File: $file\n";
}
}
print "Exported $count playlists.\n";
# Clean up
$dbh->disconnect;
close(OUT);
|
