|
Last change
on this file since 48 was
27,
checked in by peter, 11 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.
