Changeset 40 in flacrip for trunk/lib/MusicBrainz.pm

Timestamp:

05/08/15 14:48:29 (10 years ago)

Author:

peter

Message:

If given a barcode, get_musicbrainz_info() will attempt to match a release on
the DiscID and the barcode.

• get_musicbrainz_info() and select_release() take a hashref with discid and barcode keys
• mbz script takes a --barcode argument; however, if --flac is given, it dtermines the barcode from the BARCODE tag in the FLAC file
• added a barcode method to the DiscFlacFile class
• corrected the call to Audio::FLAC::Header::info to a call to tags for the Vorbis tags
• removed the superfluous getprops script

File:

• trunk/lib/MusicBrainz.pm (modified) (3 diffs)

trunk/lib/MusicBrainz.pm

@@ -33 +33 @@
 
 sub select_release {
-    my ($xpath, $discid) = @_;
+    my ($xpath, $params) = @_;
 
-    # get the release; if there is more than one, take the first one
-    my $release_count = $xpath->findvalue('count(//release)');
-    my @releases = $xpath->findnodes('//release');
-    my $base = 'http://musicbrainz.org/release/';
+    my $discid = $params->{discid};
+    my $barcode = $params->{barcode};
 
-    my $i = 1;
-    # present the user with an interactive menu to pick/confirm the correct release ID
-    warn "$release_count release(s) found matching $discid\n";
-    for my $release (@releases) {
-        warn sprintf "%2d) $base%s %s %s (%s)\n", 
+    if ($barcode) {
+        # try to pick the release automatically by the barcode
+        my @releases = $xpath->findnodes("//release[barcode='$barcode']");
+        die "Found no releases with discid $discid and barcode $barcode\n" unless @releases;
+        die "Found more than one release with discid $discid and barcode $barcode\n" if @releases > 1;
+        return $releases[0];
+    } else {
+        my $release_count = $xpath->findvalue('count(//release)');
+        my @releases = $xpath->findnodes('//release');
+        my $base = 'http://musicbrainz.org/release/';
+
+        my $i = 1;
+        # present the user with an interactive menu to pick/confirm the correct release ID
+        warn "$release_count release(s) found matching $discid\n";
+        for my $release (@releases) {
+            warn sprintf "%2d) $base%s %s %s (%s)\n", 
             $i++,
             $xpath->findvalue('@id', $release)->value,
@@ -50 +59 @@
             $xpath->findvalue('.//label-info/catalog-number', $release)->value,
             $xpath->findvalue('barcode', $release)->value;
+        }
+
+        my $selection = 0;
+
+        while ($selection < 1 || $selection > $release_count) {
+            print STDERR "Select a release (1-$release_count): ";
+            $selection = <STDIN>;
+            chomp $selection;
+            return if $selection =~ /^q/i;
+        }
+
+        return $releases[$selection - 1];
     }
-
-    my $selection = 0;
-
-    while ($selection < 1 || $selection > $release_count) {
-        print STDERR "Select a release (1-$release_count): ";
-        $selection = <STDIN>;
-        chomp $selection;
-        return if $selection =~ /^q/i;
-    }
-
-    return $releases[$selection - 1];
 }
 
 sub get_musicbrainz_info {
-    my ($discid) = @_;
+    my $params = shift;
+
+    my $discid = $params->{discid};
     my %info;
 
@@ -78 +90 @@
 
     #my $release = $releases[0];
-    my $release = select_release($xpath, $discid);
+    my $release = select_release($xpath, $params);
     return unless $release;