Changeset 38 in flacrip for trunk/cd2flac

Timestamp:

03/28/15 00:12:19 (10 years ago)

Author:

peter

Message:

issue #4: set BARCODE tag after successful rip_to_flac() operation

File:

• trunk/cd2flac (modified) (2 diffs)

trunk/cd2flac

@@ -11 +11 @@
 use Getopt::Long qw{:config no_ignore_case no_auto_abbrev};
 use Cwd;
+use Audio::FLAC::Header;
 
 GetOptions(
-    'device|D=s' => \my $CD_DEVICE,
-    'output|o=s' => \my $OUTPUT_NAME,
-    'force|f'    => \my $FORCE,
+    'device|D=s'  => \my $CD_DEVICE,
+    'output|o=s'  => \my $OUTPUT_NAME,
+    'force|f'     => \my $FORCE,
+    'barcode|b=s' => \my $BARCODE,
 );
 
@@ -38 +40 @@
 $ripper->rip_to_flac($archive_flac);
 
+if ($BARCODE) {
+    print "Writing barcode\n";
+    system 'metaflac', '--set-tag', "BARCODE=$BARCODE", $archive_flac;
+}
+
 print "Rip saved as $archive_flac\n";
 system 'eject', $CD_DEVICE;