Last change
on this file since 30 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
|
Line | |
---|
1 | #!/usr/bin/perl -w |
---|
2 | use strict; |
---|
3 | |
---|
4 | use FindBin qw{$RealBin}; |
---|
5 | use lib "$RealBin/lib"; |
---|
6 | |
---|
7 | use Tracks; |
---|
8 | |
---|
9 | my $tracks = Tracks->new; |
---|
10 | $tracks->read_cue(shift || '-'); |
---|
11 | print "http://musicbrainz.org/bare/cdlookup.html?toc=" . join("+", $tracks->get_musicbrainz_tocdata) . "\n"; |
---|
Note: See
TracBrowser
for help on using the repository browser.