Add support for a post-processor hook.

[flac-archive] / fa-rip

diff --git a/fa-rip b/fa-rip
index 1a9bc2a10a8e228c2e31f16d01cb59e194d7dba6..916c050b6b81ec8fe33b7125b8dbbb6e8620d76b 100755 (executable)
--- a/fa-rip
+++ b/fa-rip
@@ -9,7 +9,7 @@ B<fa-rip> - rip a CD for B<fa-flacd>
 
 =head1 SYNOPSIS
 
-B<fa-rip> [B<-d> I<device>] [B<-t> I<track-count>]
+B<fa-rip> [B<-d> I<device>] [B<-p> I<post-processor> [B<-t> I<track-count>]
 
 =cut
 
@@ -20,6 +20,7 @@ use Env qw(
            CDDEV
 );
 
+use Fcntl qw(O_CREAT O_WRONLY);
 use File::Temp;
 use Getopt::Long qw(:config gnu_getopt no_ignore_case);
 use POSIX ':sys_wait_h';
@@ -136,13 +137,26 @@ sub rip {
     die;
 }
 
+sub make_post_processor {
+    my $command = shift;
+
+    defined($command) or return;
+
+    sysopen(F, 'post-processor', O_CREAT | O_WRONLY, 0555)
+      or die("sysopen(post-processor, O_CREAT | O_WRONLY, 0555): $!");
+    print(F $command, ' "$@"', "\n");
+    close(F) or die("close(post-processor, O_CREAT | O_WRONLY, 0555): $!");
+}
+
 MAIN: {
+    my $post_processor;
     my $trackcount;
     my $help;
     my $tempdir;
 
     GetOptions(
                'device|d=s' => \$CDDEV,
+               'post-processor|p=s', \$post_processor,
                'tracks|t=i' => \$trackcount,
                'help|h|?' => \$help,
               ) or pod2usage();
@@ -152,6 +166,7 @@ MAIN: {
     $tempdir = File::Temp::tempdir('flac-archive.XXXXXXXXXX');
     chdir($tempdir) or die("chdir($tempdir): $!");
 
+    make_post_processor($post_processor);
     $trackcount = mkcue($CDDEV, $trackcount);
     tags($CDDEV, $trackcount);
     rip($CDDEV, $trackcount);
@@ -183,6 +198,12 @@ have to fill out the candidate-tags-0 template.
 Use I<device> as the CD-ROM device, instead of the default
 "/dev/cdrom" or the environment variable CDDEV.
 
+=item B<-p> [B<--post-processor>] I<post-processor>
+
+Create a "post-processor" file in the temporary directory containing
+the line 'I<post-processor> "$@"'.  See B<fa-flacd>'s man page for
+information about this hook.
+
 =item B<-t> [B<--tracks>] I<track-count>
 
 Archive only the first I<track-count> tracks.  This is handy for