sub haspic
{
- return undef; # FIXME
+ return undef; # NEXTVERSION
# my $self=shift;
# return $self->{audiofile}->haspic();
}
sub artist { shift->get("ARTIST"); }
sub album { shift->get("ALBUM"); }
sub audiotype { return "flac"; }
-sub haspic { return undef; } # FIXME
+sub haspic { return undef; } # NEXTVERSION
sub v1genre { return undef; } # ID3 only
sub year { shift->get("DATE"); }
# We don't care if year is not set
sub year { shift->choose("year"); }
sub audiotype { return "mp3"; }
-sub haspic { return undef; } # FIXME
+sub haspic { return undef; } # NEXTVERSION
sub v1genre
{
sub artist { shift->get("Artist"); }
sub album { shift->get("Album"); }
sub audiotype { return "ogg"; }
-sub haspic { return undef; } # FIXME
+sub haspic { return undef; } # NEXTVERSION
sub v1genre { return undef; } # ID3 only
sub year { shift->get("Date"); }
# absolute paths have empty first element due to leading /
shift(@path) if($path[0] eq "");
shift(@rel) if($rel[0] eq "");
- if($path[0] ne $rel[0])
- {
- # no path in common, return absolute
- # should never happen
- # FIXME
- return $name;
- }
# f: /home/foo/bar/baz.mp3
# r: /home/ianb/music/albums
while(@path && @rel && ($path[0] eq $rel[0]))
{
my($self)=@_;
my $hasvals=$self->expecting_values();
- if($self->{in_all})
- {
- # FIXME: is this used?
- die "IN_ALL CALLED!!\n";
- return "\tSELECT id FROM files AS files_id\n";
- }
my $tree=$self->{tagtree};
- # FIXME
- print "UNDEF!!\n" unless($self->{tagtree});
my $parent=$self->trailing_tag_parent();
# print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
return $sql;
}
-# FIXME: remove
-sub constraints_tag_list
-{
- my($self, @constraints)=@_;
- my $lasttag=undef;
- my @tags=();
- my @tags_vals=();
- for my $constraint (@constraints)
- {
-# print ref($constraint), ": ", $constraint->{name}, "\n";
- if($self->is("tag", $constraint))
- {
- if(defined($lasttag))
- {
-# print "TAGVAL\n";
- push(@tags_vals, [$lasttag, $constraint->id()]) if defined($constraint->id());
- $lasttag=undef;
- }
- elsif($self->tag_has_values($constraint->id()))
- {
-# print "HASVALUES\n";
- $lasttag=$constraint->id() if defined($constraint->id());
- }
- else
- {
-# print "NOVALUES\n";
- push(@tags, $constraint->id()) if(defined($constraint->id()));
- }
- }
- }
- @tags=map{ "\"$_\""; } @tags;
- @tags_vals=map( { [ map({ "\"$_\""; } @$_ ) ] } @tags_vals);
- $lasttag="\"$lasttag\"" if defined($lasttag);
- return(\@tags, \@tags_vals, $lasttag);
-}
-
# we just filter $ALLTRACKS, $NOARTIST and $NOALBUM
# filtering tags properly requires up to four levels of recursion
# (tag/tagval/AND/NOT) and is too slow
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-use lib '/home/ianb/projects/id3fs/id3fs/lib';
+use lib '/home/ianb/projects/id3fs/id3fs/lib'; # FIXME: remove
use strict;
use Getopt::Long qw(Configure);
use ID3FS::DB;