Add support for storing musicbrainz lookups at chosen result numbers
authorSteve McIntyre <steve@einval.com>
Wed, 21 Feb 2018 18:10:53 +0000 (18:10 +0000)
committerSteve McIntyre <steve@einval.com>
Wed, 21 Feb 2018 18:10:53 +0000 (18:10 +0000)
Pre-requisite for the support for multiple lookup tools. Add the
"--start N" command line option to tell abcde-musicbrainz-tool to
start storing its results at cddbread.N instead of assuming
cddbread.1.

abcde-musicbrainz-tool

index 6aad0d1..2e00c07 100755 (executable)
@@ -25,7 +25,7 @@ use Pod::Usage;
 
 my $FRAMES_PER_S = 75;
 
-my ($device, $command, $discid, @discinfo, $workdir, $help, $man);
+my ($device, $command, $discid, @discinfo, $workdir, $help, $man, $start);
 Getopt::Long::Configure ('no_ignore_case');
 Getopt::Long::Configure ('no_auto_abbrev');
 GetOptions ("device=s"       => \$device,
@@ -33,6 +33,8 @@ GetOptions ("device=s"       => \$device,
             "discid=s"       => \$discid,
             "discinfo=i{5,}" => \@discinfo,
             "workdir=s"      => \$workdir,
+            "workdir=s"      => \$workdir,
+            "start=s"        => \$start,
             "help|h"         => \$help,
             "man"            => \$man) or pod2usage(-verbose => 0, -exitcode => 2);
 if (@ARGV) {
@@ -52,6 +54,9 @@ if (!defined($command)) {
 if (!defined($workdir)) {
     $workdir = "/tmp";
 }
+if (!defined($start)) {
+    $start = "0";
+}
 
 sub calc_sha1($) {
     my $filename = shift;
@@ -86,7 +91,7 @@ if ($command =~ m/^id/) {
     my $ws = WebService::MusicBrainz::Release->new();
     my $response = $ws->search({ DISCID => $discid });
     my @releases = $response->release_list();
-    my $releasenum = 0;
+    my $releasenum = $start;
     my @sums;
 
     foreach my $release (@releases) {