Changeset 10 in flacrip for trunk/flactrack

Timestamp:

02/26/14 14:37:32 (11 years ago)

Author:

peter

Message:

• if flactrack has the album metadata, generate a directory name using the album's original release date, to make the album directories sort chronologically within artists
• convert "&" to " and " in name and title strings
• MusicBrainz retrieves the disc number and total number of discs for multidisc releases

File:

• trunk/flactrack (modified) (3 diffs)

trunk/flactrack

@@ -8 +8 @@
 
 use Getopt::Long qw{:config no_ignore_case};
-use File::Spec::Functions qw{catfile};
+use File::Spec::Functions qw{catfile splitpath};
 use File::Path;
 use Audio::FLAC::Header;
@@ -39 +39 @@
     #TODO: calculate TOC and DISCID from cuesheet if there is no MBZ_DISCID tag present
 
-    #TODO: also get the year from MBZ
     $info = get_musicbrainz_info($discid);
+
+    # if we have metadata, change the directory name to ARTIST.DATE.ALBUM, so it will sort nicely
+    my $base_dir = (splitpath($DIRECTORY))[1];
+    my $album_dir = join('.', map { to_filename($_) } @{$info}{qw{ALBUMARTISTSORT ORIGINALDATE ALBUM}});
+    # need to append "disc#" if this is a multidisc album
+    if ($info->{DISCTOTAL} > 1) {
+        $album_dir .= '.disc_' . $info->{DISCNUMBER};
+    }
+    $DIRECTORY = catfile($base_dir, $album_dir);
+    #die $DIRECTORY;
 }
 
@@ -112 +121 @@
     #TODO: deal with non-ascii characters (unidecode) e.g. ü --> ue
     return map {
+        s/&/ and /g;
         s/[^a-z0-9-_ ]+//gi;
         s/ +/_/g;