#! /usr/bin/env perl

# $Id$

# See fa-flacd for documentation.

use strict;
use warnings;

use Getopt::Long;
use Pod::Usage;

use MusicBrainz::Client::Simple;

my $help;
GetOptions(
           'help|h|?' => \$help,
          ) or pod2usage();
$help and pod2usage(-exitstatus=>0, -verbose=>1);

my $trackcount = shift or pod2usage();

my $mb = new MusicBrainz::Client::Simple;
my @result = $mb->lookup_cd;
die($mb->get_error) unless $mb->success;

open(F, '>candidate-tags-0') or die("open('>candidate-tags-0'): $!");
print(F "$_=\n") for ('ARTIST', 'ALBUM', 'DATE');
print(F "TITLE=\n") for 1 .. $trackcount;
close(F) or die("close('>candidate-tags-0'): $!");

my $i;
for my $album (@result) {
    $i++;
    open(F, '>', "candidate-tags-$i") or die("open('>candidate-tags-$i'): $!");

    print(F 'ARTIST=', $album->get_artist->get_name, "\n");
    print(F 'ALBUM=', $album->get_name, "\n");
    print(F "DATE=\n");

    my @tracks = $album->get_tracks;
    my $name;
    my $track;
    for my $j (1 .. $trackcount) {
        if ($track = shift(@tracks)) {
            $name = $track->get_name;
        } else {
            $name = '';
        }
        print(F "TITLE=$name\n");
    }

    close(F) or die("close('>candidate-tags-$i'): $!");
}