Changeset 10 in flacrip

Timestamp:

02/26/14 14:37:32 (10 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

Location:

trunk

Files:

• MusicBrainz.pm (modified) (1 diff)
• flactrack (modified) (3 diffs)

trunk/MusicBrainz.pm

@@ -76 +76 @@
     # select the proper medium (important for multidisc releases)
     my ($medium) = $xpath->findnodes("medium-list/medium[disc-list/disc/\@id='$discid']", $release);
+
+    # disc position info
+    $info{DISCNUMBER} = $xpath->findvalue('position', $medium)->value;
+    $info{DISCTOTAL}  = $xpath->findvalue('../@count', $medium)->value;
 
     #my $ua = LWP::UserAgent->new;

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;