Grab year information too when using musicbrainz
authorSteve McIntyre <steve@einval.com>
Sat, 3 Oct 2015 11:13:29 +0000 (12:13 +0100)
committerSteve McIntyre <steve@einval.com>
Sat, 3 Oct 2015 11:13:29 +0000 (12:13 +0100)
Thanks to Marco Hoppstaedter for the patch. Closes issue 10:
http://abcde.einval.com/bugzilla/show_bug.cgi?id=10

abcde-musicbrainz-tool
changelog

index 7c58951..3e83ad0 100755 (executable)
@@ -95,6 +95,9 @@ if ($command =~ m/^id/) {
         if ($a_artist =~ /Various Artists/) {
             $va = 1;
         }
+       my @events = @{$release->release_event_list()->events()};
+       my $rel_year =  substr($events[0]->date(),0,4);
+
         $releasenum++;
         open (OUT, "> $workdir/cddbread.$releasenum");
         binmode OUT, ":utf8";
@@ -117,8 +120,8 @@ if ($command =~ m/^id/) {
         print OUT "#CATEGORY=none\n";
         print OUT "DISCID=" . $discid . "\n";
         print OUT "DTITLE=" . $a_artist. " / " . $release->title() . "\n";
-        print OUT "DYEAR=\n";
-        print OUT "DGENRE=\n";
+        print OUT "DYEAR=" . $rel_year . "\n";
+        print OUT "DGENRE=\n";        
 
         my @tracks = @{$release->track_list()->tracks()};
         for (my $i = 0; $i < scalar(@tracks); $i++) {
index 4f3defc..86aa213 100644 (file)
--- a/changelog
+++ b/changelog
@@ -28,6 +28,9 @@ abcde 2.7.1
     also allows for Apple Lossless Audio Coding (alac) using
     either qaac or refalac. This closes Issue 142, thanks to
     Bernd Fischer-Krellenberg for the enhancement request.
+  * Grab year information too when using musicbrainz. Thanks to
+    Marco Hoppstaedter for the patch. Closes issue 10:
+    http://abcde.einval.com/bugzilla/show_bug.cgi?id=10
 
 abcde 2.7