Select the disks of interest

I now have a list of albums that correspond to what the user thinks he wants. This is usually a list bigger than what the user really wants, so now I give the user a chance to select only the albums of interest. This is also a chance for the user to quit if the albums found were not those they wanted. The -accept_all switch to autotag.pl will bypass the selection menu and let the user operate on all the found albums. The final results, regardless of how I get there, will reside in the @selecteddiscs list.

my @selecteddiscs;
if ($config->ACCEPT_ALL())
{
 @selecteddiscs = keys %discs;
}
else
{
 print "Enter the albums of interest for files [@ARGV]\n";
 @selecteddiscs = $cddb->ask4discurls(\%discs);
}

unless (scalar @selecteddiscs)
{
 print "You selected no albums, exiting...\n";
 exit 0;
}

%olddiscinfo = %discs;                  # save the old data for ask2discurls
%discs = ();                            # clear the search results

# populate %discs with full search results
foreach my $disc (@selecteddiscs)
{
 my %discinfo = $cddb->getdiscinfo($disc);
 $discs{$disc} = \%discinfo;
}

if ($config->DUMP())
{
 print Dumper \%discs;
 exit 0;
}

The WebService::FreeDB module has an ask4discurls() function that was nice, because I would have had to write it otherwise. It prints a list of albums and lets the user pick the desired ones.

Now that the final list of albums is in @selecteddiscs, %discs gets only the albums whose ID is there. The getdiscinfo() function fills out the album entry with track and album information. It is a slow function, which is why I use it only now that a small number of albums are left.