No, my request might be silly, I am still new to this, so it’s entirely possible.
I prefer to see lists broken down. True you can sort by artist and album, but it would be nice to create a playlist for an artist or for an album.
I’ll check out a newer version.
Thanks
I wrote a quick script to take care of that, I’m not sure if it’s usefull. It prints the playlist to the stdout.
You will need to install the MP3::Info perl module before you can use the script.
Just: # cpan install MP3::Info
So I can currently:
./playlist.pl /media/music/ ARTIST > /etc/mt-daapd.playlist
or
./playlist.pl /media/music/ ALBUM > /etc/mt-daapd.playlist
#!/usr/bin/perl -w
use strict;
use MP3::Info;
my %playlistdata;
unless (@ARGV && @ARGV == 2){
print "Please specify the path and attributen";
print "ex. ./playlist.pl /media/mp3 ARTISTn";
exit;
}
unless (-d $ARGV[0]){
print "Invalid directory given: $ARGV[0]n";
exit;
}
unless ( $ARGV[1] eq "ARTIST" || $ARGV[1] eq "ALBUM" ){
print "Invalid attrib given $ARGV[1]n";
print "Specify either ARTIST or ALBUMn";
exit;
}
chomp(my @mp3s = `find $ARGV[0] -iname *.mp3`);
die "There was an error with the find commandn" if $? != 0;;
foreach my $mp3 (@mp3s){
my $tag = get_mp3tag($mp3) or next;
$playlistdata{$tag->{$ARGV[1]}} = $tag->{"ARTIST"} if !$playlistdata{$tag->{$ARGV[1]}};
}
foreach my $data (keys %playlistdata){
print qq|"$data" { $ARGV[1] is "$data" }n| if $ARGV[1] eq "ARTIST";
print qq|"$data - $playlistdata{$data}" { $ARGV[1] is "$data" }n| if $ARGV[1] eq "ALBUM";
}