Changeset 40 in flacrip for trunk/mbz

Timestamp:

05/08/15 14:48:29 (9 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/mbz (modified) (2 diffs)

trunk/mbz

@@ -12 +12 @@
 
 GetOptions(
-    'flac=s' =>\my $FLAC_FILE,
+    'flac=s'         => \my $FLAC_FILE,
+    'barcode=s'      => \my $BARCODE,
     'get-release-id' => \my $GET_RELEASE_ID,
-    'xml' =>\my $GET_XML,
+    'xml'            => \my $GET_XML,
 );
 
 my $discid;
+my $barcode;
 
 if ($FLAC_FILE) {
-    $discid = DiscFlacFile->new({ file => $FLAC_FILE })->discid;
+    my $flac_disc = DiscFlacFile->new({ file => $FLAC_FILE });
+    $discid  = $flac_disc->discid;
+    $barcode = $flac_disc->barcode;
 } else {
-    $discid = shift;
+    $discid  = shift;
+    $barcode = $BARCODE;
 }
 
@@ -35 +40 @@
 
 # otherwise, do the full parsing of the data
-my $info = get_musicbrainz_info($discid);
+my $info = get_musicbrainz_info({
+    discid  => $discid,
+    barcode => $barcode,
+});
 
 exit unless $info;