source: flacrip/trunk/cuesheet2tocdata @ 38

Last change on this file since 38 was 27, checked in by peter, 10 years ago

cuesheet2tocdata uses the Tracks library instead of duplicating the code for reading the cuesheet and generating the MusicBrainz TOC lookup data

  • Property svn:executable set to *
File size: 264 bytes
RevLine 
[1]1#!/usr/bin/perl -w
2use strict;
3
[27]4use FindBin qw{$RealBin};
5use lib "$RealBin/lib";
[1]6
[27]7use Tracks;
[1]8
[27]9my $tracks = Tracks->new;
10$tracks->read_cue(shift || '-');
11print "http://musicbrainz.org/bare/cdlookup.html?toc=" . join("+", $tracks->get_musicbrainz_tocdata) . "\n";
Note: See TracBrowser for help on using the repository browser.