X-Git-Url: https://diplodocus.org/git/flac-archive/blobdiff_plain/6aa2468770481c0e17a41760600b8a4eaff7a846..fee6350f22d80d9f54f9ad4dccbfa7696e3e861a:/flac2mp3 diff --git a/flac2mp3 b/flac2mp3 index 2231b1f..d82e61d 100755 --- a/flac2mp3 +++ b/flac2mp3 @@ -1,6 +1,4 @@ -#! /usr/bin/env perl - -# $Id$ +#!/usr/local/bin/perl =head1 NAME @@ -8,139 +6,152 @@ B - transcode FLAC file to MP3 files =head1 SYNOPSIS -B I +B [B<--lame-options> I] [B<-q>] [B<-v>] I [...] =head1 DESCRIPTION -B transcodes the FLAC file I to MP3 files. I is -the kind of FLAC file B generates. That is, it contains a -cue sheet, one TITLE tag per track listed therein, and ARTIST, ALBUM, -and DATE tags. +B transcodes the FLAC files I to MP3 files. I +may be the kind of FLAC file B generates. That is, it +contains a cue sheet, one TITLE tag per track listed therein, and +ARTIST, ALBUM, and DATE tags. -=cut +Note that lame is retarded, and parses B directly itself! So, in order +for it to transcode textual tags, you must specify the encoding in LANG, e.g. +LANG=en_US.utf-8 -use strict; -use warnings; +=head1 OPTIONS -use Pod::Usage; +=over 4 -sub tformat { - my $min = shift; - my $sec = shift; - my $hun = shift; - return "$min:$sec.$hun"; -} +=item B<--lame-options> I -sub get_decode_args { - my $fn = shift; - my @l; +Pass I to B. This ends up being passed to the +shell, so feel free to take advantage of that. You'll almost +certainly have to put I in single quotes. - open(F, '-|', 'metaflac', '--export-cuesheet-to=-', $fn); - while () { - /INDEX 01 (\d\d):(\d\d):(\d\d)$/ or next; - push(@l, [$1, $2, $3]); - } +=item B<-q> [B<--quiet>] - my @args; - for my $i (0..$#l) { - my $arg = ["--skip=" . tformat(@{$l[$i]})]; - my $next = $l[$i+1]; - if (defined($next)) { - if ($next->[2] == 0) { - if ($next->[1] == 0) { - push(@$arg, '--until=' . tformat($next->[0] - 1, 59, 99)); - } else { - push(@$arg, '--until=' . tformat($next->[0], $next->[1] - 1, - 99)); - } - } else { - push(@$arg, '--until=' . tformat($next->[0], $next->[1], - $next->[2] - 1)); - } - } - push(@args, $arg); - } +Suppress status information. This option is passed along to B +and B. - return @args; -} +=item B<-v> [B<--verbose>] -# Return the ARTIST, ALBUM, and DATE tags followed by the TITLE tags -# in the file FN. -sub get_tags { - my $fn = shift; - my $tag; - my $value; - my $artist; - my $album; - my $date; - my @titles; - - open(TAGS, '-|', 'metaflac', '--export-vc-to=-', $fn); - while () { - chomp; - - ($tag, $value) = split(/=/, $_, 2); - - if (/^ARTIST=/) { - $artist = $value; - } elsif (/^ALBUM=/) { - $album = $value; - } elsif (/^DATE=/) { - $date = $value; - } elsif (/TITLE=/) { - push(@titles, $value); - } - } - close(TAGS) or die("close($fn): $!"); +Print diagnostic information. This option is passed along to B +and B. - return ($artist, $album, $date, @titles); -} +=back + +=head1 AUTHORS + +Written by Eric Gillespie . + +=cut + +package epg::flac::archive::mp3; + +use v5.12; +use warnings; + +use File::Temp; +use FindBin; + +require "$FindBin::Bin/tags.pl"; +epg::flac::archive::tags->import( + qw[ + disc_tags + read_tags + mangle_for_file_name + quote + two_digits + ]); sub flac2mp3 { - my $fn = shift; - my $title = shift; - my $artist = shift; - my $album = shift; - my $date = shift; - my $track = shift; - my $skip_arg = shift; - my $until_arg = shift; - - my $outfile = sprintf("$artist ($album) \%02s $title.mp3", $track); - $outfile =~ s/\//_/g; - $outfile =~ s/:/_/g; - $outfile =~ s/'/_/g; - $outfile =~ s/"/_/g; - - # XXX - $until_arg ||= ''; - system("flac -cd $skip_arg $until_arg '$fn' | lame --preset standard --tt '$title' --ta '$artist' --tl '$album' --ty '$date' --tn $track - '$outfile'"); + my $quoted_flac = quote(shift); + my $tags = shift; + my ($artist, $album, $date, $discnumber) = disc_tags(%$tags); + + # TODO resurrect whole-disc FLAC? + # Stupid hack: only a single-track file should have the + # TRACKNUMBER tag, so use it if set for the first pass through + # the loop. At the end of the loop, we'll set $track for the + # next run, so this continues to work for multi-track files. + # if track == None: + # track = 1 + # else: + # track = int(track) + + my $tracknumber = epg::flac::archive::tags::one(TRACKNUMBER => $tags); + my $title = epg::flac::archive::tags::one(TITLE => $tags); + # TODO restore PARTNUMBER and VERSION next time i need them + + say('metaflac --export-picture-to=flac2mp3.cover.$$', " $quoted_flac && pic_options=", '"--ti flac2mp3.cover.$$"'); + + # This is an old TODO; what's wrong with --ty ? + # TODO: Look at TDOR, TDRL, TDRC for date. + say(join(' ', + 'flac', + '-cd', + $quoted_flac, + '|', + 'lame', + '--id3v2-only', + '--id3v2-latin1', + '--pad-id3v2-size', 0, + '--preset standard', + '--ta', + quote($artist), + '--tl', + quote($album), + '--tn', + quote($tracknumber), + '--tt', + quote($title), + '--ty', + quote($date), + '$pic_options', + #(map { ('--tv', quote("TPE2=$_")) } @{$albumartist}), + (map { ('--tv', quote("TPOS=$_")) } @{$discnumber}), + '-', + quote( + mangle_for_file_name( + join(' ', + $artist, + $album, + (map { two_digits($_) } @{$discnumber}), + two_digits($tracknumber), + $title, + )) + . '.mp3' + ) + )); + say('unset pic_options'); } -MAIN: { - my $fn = shift or pod2usage(); - my @args = get_decode_args($fn); - my ($artist, $album, $date, @titles) = get_tags($fn); - - for my $i (0..$#titles) { - flac2mp3($fn, $titles[$i], $artist, $album, $date, $i + 1, - @{$args[$i]}); +sub read_tags_metaflac { + my $fn = shift; + open(my $fh, '-|', 'metaflac', '--no-utf8-convert', '--export-tags-to=-', $fn) || die("metalfac: $!"); + my @result = read_tags($fh); + if (!close($fh)) { + if ($! == 0) { + die("metaflac exited $?") + } + die("close(metaflac): $!") } + @result } - -__END__ - -=head1 AUTHORS - -Written by Eric Gillespie . +sub main { + for my $fn (@_) { + my ($tags) = read_tags_metaflac($fn); + flac2mp3($fn, $tags); + } + say('rm -f flac2mp3.cover.$$'); -=cut + return 0; +} -# Local variables: -# cperl-indent-level: 4 -# perl-indent-level: 4 -# indent-tabs-mode: nil -# End: +if (!caller) { + exit(main(@ARGV)) +} -# vi: set tabstop=4 expandtab: +1;