Changeset 42 in flacrip

Timestamp:

05/08/15 20:12:40 (10 years ago)

Author:

peter

Message:

issue #5: if the --properties flag is given to cd2flac, it will attempt to
automatically fetch the MusicBrainz metadata for the ripped CD and write it to
a properties file with the same name as the FLAC file, but with the
".properties" extension

File:

• trunk/cd2flac (modified) (3 diffs)

trunk/cd2flac

@@ -12 +12 @@
 use Cwd;
 use Audio::FLAC::Header;
+use MusicBrainz;
 
 GetOptions(
@@ -18 +19 @@
     'force|f'     => \my $FORCE,
     'barcode|b=s' => \my $BARCODE,
+    'properties'  => \my $PROPERTIES,
 );
 
@@ -39 +41 @@
 my $tags = $BARCODE ? { BARCODE => $BARCODE } : {};
 my $ripper = Ripper->new({ device => $CD_DEVICE });
-$ripper->rip_to_flac($archive_flac, $tags);
+my $flac_disc = $ripper->rip_to_flac($archive_flac, $tags);
+
+if ($PROPERTIES) {
+    my $info = get_musicbrainz_info({
+        discid  => $flac_disc->discid,
+        barcode => $flac_disc->barcode,
+    });
+    if ($info) {
+        (my $properties_file = $archive_flac) =~ s/\.flac$/.properties/;
+        open my $fh, '>', $properties_file or die "Cannot write $properties_file\n";
+        print $fh "$_=$$info{$_}\n" foreach sort keys %{ $info };
+        close $fh;
+        print "Properties written as $properties_file\n";
+    }
+}
 
 print "Rip saved as $archive_flac\n";