use strict;
use warnings;
use DBI;
-use ID3FS::File;
+use ID3FS::AudioFile;
use Cwd;
our $SCHEMA_VERSION=1;
{
$self->create();
}
-
+ $self->enable_foreign_keys();
return $self;
}
}
}
+sub enable_foreign_keys
+{
+ my $self=shift;
+ $self->cmd("PRAGMA foreign_keys = ON");
+}
+
sub last_update
{
my($self, $newval)=@_;
my $main_sql_end=")\n\tGROUP BY t2.name;";
while(my $constraint=shift @constraints)
{
- print "CONSTRAINT: $constraint->{name}\n";
my $cid=$constraint->{id};
push(@ids, $cid);
}
- @ids = map( { "\"$_\""; } @ids) unless($self->{postgres});
+ @ids = map( { "\"$_\""; } grep { defined; } @ids) unless($self->{postgres});
my $tagstr=join(", ", @ids);
my $sql = ($main_sql_start . $tagstr .
$main_sql_mid . $tagstr .
sub tag_values
{
- my($self, $tag)=@_;
- my $sql=("SELECT DISTINCT tagvals.name FROM tags\n" .
- "INNER JOIN tags_x_tagvals ON tags.id=tags_x_tagvals.tags_id\n" .
- "INNER JOIN tagvals ON tagvals.id=tags_x_tagvals.tagvals_id\n" .
- "WHERE tags.name=?");
- my $tags=$self->cmd_rows($sql, $tag);
- return(map { $_->[0]; } @$tags);
+ my($self, $tagid)=@_;
+ my $sql=("SELECT DISTINCT tagvals.name FROM tagvals\n" .
+ "INNER JOIN tags_x_tagvals ON tagvals.id=tags_x_tagvals.tagvals_id\n" .
+ "WHERE tags_x_tagvals.tags_id=?");
+ my $tags=$self->cmd_rows($sql, $tagid);
+ my @tags=map { $_->[0]; } @$tags;
+ @tags=map { length($_) ? $_ : "NOVALUE"; } @tags;
+ return @tags;
}
sub artists
"\n\tGROUP BY artists.name;");
while(my $constraint=shift @constraints)
{
- print "CONSTRAINT: $constraint->{name}\n";
my $cid=$constraint->{id};
push(@ids, $cid);
}
- @ids = map( { "\"$_\""; } @ids) unless($self->{postgres});
+ @ids = map( { "\"$_\""; } grep { defined; } @ids) unless($self->{postgres});
my $tagstr=join(", ", @ids);
my $sql = ($main_sql_start . $tagstr .
$main_sql_end);
"\n\tGROUP BY albums.name;");
while(my $constraint=shift @constraints)
{
- print "CONSTRAINT: $constraint->{name}\n";
my $cid=$constraint->{id};
push(@ids, $cid);
}
- @ids = map( { "\"$_\""; } @ids) unless($self->{postgres});
+ @ids = map( { "\"$_\""; } grep { defined; } @ids) unless($self->{postgres});
my $str=join(", ", @ids);
my $sql = ($main_sql_start . $str .
$main_sql_end);
- print "SQL: $sql\n";
my $result=$self->cmd_rows($sql);
my @names=map { $_->[0]; } @$result;
print "ALBUMS: ", join(', ', @names), "\n";
sub album_tracks
{
- my($self, $album_id)=@_;
+ my($self, $artist_id, $album_id)=@_;
my $sql=("SELECT files.name FROM files\n\t" .
- "INNER JOIN albums ON albums.id=files.albums_id\n\t" .
- "WHERE albums.id=?\n\t" . #AND albums.name <> ''\n\t" .
+ "INNER JOIN albums ON albums.id=files.albums_id\n\t" .
+ "INNER JOIN artists ON artists.id=files.artists_id\n\t" .
+ "WHERE artists.id=? AND albums.id=?\n\t" .
"GROUP BY files.name\n");
- print "ALBUM_TRACKS SQL($album_id): $sql\n";
- my $result=$self->cmd_rows($sql, $album_id);
+ print "ALBUM_TRACKS SQL($artist_id, $album_id): $sql\n";
+ my $result=$self->cmd_rows($sql, $artist_id, $album_id);
my @names=map { $_->[0]; } @$result;
@names = map { s/.*\///; $_;} @names;
print "TRACKS: ", join(', ', @names), "\n";
}
elsif(ref($constraints[$#constraints]) eq "ID3FS::PathElement::Album")
{
- return $self->album_tracks($constraints[$#constraints]->{id});
+ my $artist_id=0;
+ my $artist=$constraints[($#constraints)-1];
+ if(defined($artist) && (ref($artist) eq "ID3FS::PathElement::Artist"))
+ {
+ # should always happen
+ $artist_id=$artist->{id};
+ }
+ return $self->album_tracks($artist_id, $constraints[$#constraints]->{id});
}
my $main_sql_start=("SELECT files.name\n" .
my @ids;
while(my $constraint=shift @constraints)
{
- print "CONSTRAINT: $constraint->{name}\n";
my $cid=$constraint->{id};
push(@ids, $cid);
}
- @ids = map( { "\"$_\""; } @ids) unless($self->{postgres});
+ @ids = map( { "\"$_\""; } grep { defined; } @ids) unless($self->{postgres});
my $str=join(", ", @ids);
my $sql = ($main_sql_start . $str .
$main_sql_end);
sub id
{
my($self, $type, $val)=@_;
- print "ID: $type $val\n";
my $sql="SELECT id FROM $type WHERE name=?";
my ($id)=$self->cmd_onerow($sql, $val);
return($id);
{
($pathpart, $filepart) = ($relpath =~ /(.*)\/(.*)/);
}
- my $file=ID3FS::File->new($path);
+ my $file=ID3FS::AudioFile->new($path);
return unless(defined($file));
my $artist=$file->artist();
my $album=$file->album();
return $id;
}
+sub tag_has_values
+{
+ my($self, $id)=@_;
+ my $sql=("SELECT COUNT(*) FROM tags\n\t" .
+ "INNER JOIN tags_x_tagvals ON tags.id=tags_x_tagvals.tags_id\n\t" .
+ "INNER JOIN tagvals ON tagvals.id=tags_x_tagvals.tagvals_id\n\t" .
+ "WHERE tags.id=?\n");
+ my ($rows)=$self->cmd_onerow($sql, $id);
+ return $rows;
+}
+
sub relation_exists
{
my ($self, $relname, $fields)=@_;
last_update
);
-CREATE TABLE files (
- id INTEGER PRIMARY KEY,
- artists_id,
- albums_id,
- paths_id,
- name text
-);
-
CREATE TABLE paths (
id INTEGER PRIMARY KEY,
name text
name text
);
+CREATE TABLE files (
+ id INTEGER PRIMARY KEY,
+ name text,
+ artists_id,
+ albums_id,
+ paths_id,
+ FOREIGN KEY(artists_id) REFERENCES artists(id) ON DELETE CASCADE ON UPDATE CASCADE,
+ FOREIGN KEY(albums_id) REFERENCES albums(id) ON DELETE CASCADE ON UPDATE CASCADE,
+ FOREIGN KEY(paths_id) REFERENCES paths(id) ON DELETE CASCADE ON UPDATE CASCADE
+);
+
CREATE TABLE tags (
id INTEGER PRIMARY KEY,
name text
CREATE TABLE files_x_tags (
files_id INTEGER,
- tags_id INTEGER
+ tags_id INTEGER,
+ FOREIGN KEY(files_id) REFERENCES files(id) ON DELETE CASCADE ON UPDATE CASCADE,
+ FOREIGN KEY(tags_id) REFERENCES tags(id) ON DELETE CASCADE ON UPDATE CASCADE
);
CREATE TABLE tags_x_tagvals (
tags_id INTEGER,
- tagvals_id INTEGER
+ tagvals_id INTEGER,
+ FOREIGN KEY(tags_id) REFERENCES tags(id) ON DELETE CASCADE ON UPDATE CASCADE,
+ FOREIGN KEY(tagvals_id) REFERENCES tagvals(id) ON DELETE CASCADE ON UPDATE CASCADE
);
projects / id3fs.git / blobdiff