Changeset 13 in flacrip for trunk/flactrack

Timestamp:

05/15/14 21:11:52 (10 years ago)

Author:

peter

Message:

• if there is a properties file with the same base name as the flac file, use it as the source of metadata info instead of doing a lookup to the MusicBrainz web service
• don't rely on the TRACKS array key of $info to be present, since it is not there when reading from a properties file

File:

• trunk/flactrack (modified) (3 diffs)

trunk/flactrack

@@ -37 +37 @@
 my $info;
 if ($ALL || $TYPE eq 'mp3') {
-    my $discid = $flac->tags('MBZ_DISCID') or warn "No MBZ_DISCID tag in $FLAC_FILE\n" if $flac;
-    #TODO: calculate TOC and DISCID from cuesheet if there is no MBZ_DISCID tag present
+    (my $properties_file = $FLAC_FILE) =~ s/\.flac$/.properties/;
+    if (-e $properties_file) {
+        require Config::Properties;
 
-    $info = get_musicbrainz_info($discid);
+        my $properties = Config::Properties->new(file => $properties_file);
+        $info = $properties->getProperties;
+    } else {
+
+        my $discid = $flac->tags('MBZ_DISCID') or warn "No MBZ_DISCID tag in $FLAC_FILE\n" if $flac;
+        #TODO: calculate TOC and DISCID from cuesheet if there is no MBZ_DISCID tag present
+
+        $info = get_musicbrainz_info($discid);
+    }
     exit unless $info;
 
@@ -63 +72 @@
     #TODO: default to just 01, 02, etc. if there is no $info
     %TRACKS = map {
-        $_ => catfile($DIRECTORY, sprintf('%02d.%s', $_, to_filename($info->{TRACKS}[$_]{TITLE})))
+        $_ => catfile($DIRECTORY, sprintf('%02d.%s', $_, to_filename($info->{sprintf 'TRACK%02d.TITLE', $_})))
     } (1 .. $count);
     #print Dump(\%TRACKS);
@@ -93 +102 @@
         # if there is track info, add it as ID3 tags
         if ($info) {
-            my $track = $info->{TRACKS}[$tracknum];
+            my $track_key = sprintf 'TRACK%02d', $tracknum;
             $cmd .= sprintf q{ --tt %s --ta %s --tl %s --tn %d},
-                quote($track->{TITLE}),
-                quote($track->{ARTIST}),
+                quote($info->{"$track_key.TITLE"}),
+                quote($info->{"$track_key.ARTIST"}),
                 quote($info->{ALBUM}),
                 $tracknum;