#!/usr/bin/perl # Copyright (c) 2012-2016 Steve McIntyre <93sam@debian.org> # This code is hereby licensed for public consumption under either the # GNU GPL v2 or greater, or Larry Wall's Artistic license - your choice. # # You should have received a copy of the GNU General Public License along # with this program; if not, write to the Free Software Foundation, Inc., # 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # abcde-musicbrainz-tool # # Helper script for abcde to work with the MusicBrainz WS API (v2) use strict; use utf8; use POSIX qw(ceil); use Digest::SHA; use MusicBrainz::DiscID; use WebService::MusicBrainz::Release; use WebService::MusicBrainz::Artist; use WebService::MusicBrainz::Response::Track; use WebService::MusicBrainz::Response::TrackList; use Getopt::Long; use Pod::Usage; my $FRAMES_PER_S = 75; 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, "command=s" => \$command, "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) { print STDERR "Extraneous arguments given.\n"; pod2usage(-verbose => 0, -exitcode => 2); } pod2usage(-verbose => 1, -exitcode => 0) if $help; pod2usage(-verbose => 2, -exitcode => 0) if $man; # defaults if (!defined($device)) { $device = "/dev/cdrom"; } if (!defined($command)) { $command = "id"; } if (!defined($workdir)) { $workdir = "/tmp"; } if (!defined($start)) { $start = "0"; } sub calc_sha1($) { my $filename = shift; my $s = Digest::SHA->new(1); $s->addfile($filename); return $s->hexdigest; } if ($command =~ m/^id/) { my $disc = new MusicBrainz::DiscID($device); # read the disc in the default disc drive */ if ( $disc->read() == 0 ) { printf STDERR "Error: %s\n", $disc->error_msg(); exit(1); } printf("%s ", $disc->id()); printf("%d ", $disc->last_track_num() + 1 - $disc->first_track_num()); for ( my $i = $disc->first_track_num; $i <= $disc->last_track_num; $i++ ) { printf("%d ", $disc->track_offset($i)); } printf("%d\n", $disc->sectors() / $FRAMES_PER_S); undef $disc; } elsif ($command =~ m/data/) { if (!defined $discid or !$discid) { print STDERR "Discid undefined.\n"; exit(1); } my $ws = WebService::MusicBrainz::Release->new(); my $response = $ws->search({ DISCID => $discid }); my @releases = $response->release_list(); my $releasenum = $start; my @sums; foreach my $release (@releases) { my $a_artist = $release->artist()->name(); my $va = 0; my $rel_year = ""; if ($a_artist =~ /Various Artists/) { $va = 1; } if ($release->release_event_list()->count() > 0) { my @events = @{$release->release_event_list()->events()}; $rel_year = substr($events[0]->date(),0,4); } $releasenum++; open (OUT, "> $workdir/cddbread.$releasenum"); binmode OUT, ":utf8"; print OUT "# xmcd style database file\n"; print OUT "#\n"; print OUT "# Track frame offsets:\n"; # Assume standard pregap my $total_len = 2000; my @tracks = @{$release->track_list()->tracks()}; for (my $i = 0; $i < scalar(@tracks); $i++) { printf OUT "# %d\n", ceil($total_len * $FRAMES_PER_S / 1000.0); $total_len += $tracks[$i]->duration(); } print OUT "#\n"; printf OUT "# Disc length: %d seconds\n", $total_len / 1000.0; print OUT "#\n"; print OUT "# Submitted via: XXXXXX\n"; print OUT "#\n"; print OUT "#blues,classical,country,data,folk,jazz,newage,reggae,rock,soundtrack,misc\n"; print OUT "#CATEGORY=none\n"; print OUT "DISCID=" . $discid . "\n"; print OUT "DTITLE=" . $a_artist. " / " . $release->title() . "\n"; print OUT "DYEAR=" . $rel_year . "\n"; print OUT "DGENRE=\n"; my @tracks = @{$release->track_list()->tracks()}; for (my $i = 0; $i < scalar(@tracks); $i++) { my $track = $tracks[$i]; my $t_name = $track->title; if ($va) { my $t_artist = $track->artist->name; printf OUT "TTITLE%d=%s / %s\n", $i, $t_artist, $t_name; } else { printf OUT "TTITLE%d=%s\n", $i, $t_name; } } print OUT "EXTD=\n"; for (my $i = 0; $i < scalar(@tracks); $i++) { printf OUT "EXTT%d=\n", $i; } print OUT "PLAYORDER=\n"; print OUT ".\n"; close OUT; # save release mbid open (OUT, "> $workdir/mbid.$releasenum"); print OUT $release->id; close OUT; # save release asin open (OUT, "> $workdir/asin.$releasenum"); print OUT $release->asin; close OUT; # Check to see that this entry is unique; generate a checksum # and compare to any previous checksums my $checksum = calc_sha1("$workdir/cddbread.$releasenum"); foreach my $sum (@sums) { if ($checksum eq $sum) { unlink("$workdir/cddbread.$releasenum"); $releasenum--; last; } } push (@sums, $checksum); } } elsif ($command =~ m/calcid/) { # Calculate MusicBrainz ID from disc offsets; see # https://musicbrainz.org/doc/DiscIDCalculation if ($#discinfo < 5) { print STDERR "Insufficient or missing discinfo data.\n"; exit(1); } my ($first, $last, $leadin, $leadout, @offsets) = @discinfo; my $s = Digest::SHA->new(1); $s->add(sprintf "%02X", int($first)); $s->add(sprintf "%02X", int($last)); my @a; for (my $i = 0; $i < 100; $i++) { $a[$i] = 0; } my $i = 0; foreach my $o ($leadout, @offsets) { $a[$i++] = int($o) + int($leadin); } for (my $i = 0; $i < 100; $i++) { $s->add(sprintf "%08X", $a[$i]); } my $id = $s->b64digest; # CPAN Digest modules do not pad their Base64 output, so we have to do it. while (length($id) % 4) { $id .= '='; } $id =~ tr#+#.#; $id =~ tr#/#_#; $id =~ tr#=#-#; print $id; if (-t STDOUT) { print "\n"; } } else { print STDERR "Unknown command given.\n"; pod2usage(1); exit(1); } __END__ =head1 NAME abcde-musicbrainz-tool - Musicbrainz query tool =head1 SYNOPSIS abcde-musicbrainz-tool [options] Options: --command {id|data|calcid} mode of operation (default: id) --device read from CD-ROM device DEV (default: /dev/cdrom) --discid Disc ID to query with --command data. --discinfo
  • [ [...]] Disc information for --command calcid. --workdir working directory (default: /tmp) --help print option summary --man full documentation =head1 OPTIONS =over 8 =item B<--command> I<{id|data|calcid}> Select mode of operation: =over 8 =item B Read the disc-ID from the disc in the given device, and print it, the number of tracks, their start sectors, and the duration of the disc in seconds, to stdout. Format: ID TRACKCOUNT OFFSET1 [OFFSET2 [...]] LENGTH_S =item B Query MusicBrainz web service and store data into the workdir into cddbread.1, cddbread.2, ... files in the workdir. =item B Calculate MusicBrainz ID from given B<--discinfo> data. =back =item B<--device> Specify CD-ROM drive's device name, to read ID from with B<--command id>. =item B<--discid> Supply disc ID for B<--command data>. =item B<--discinfo> I< [ [...]]> Supply disc information for B<--command calcid>. =item B<--workdir> I The cddbread.* output files from B<--command data> go into this directory. =item B<--help> Print a brief help message and exit. =item B<--man> Display full manual and exit. =back