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;
+ for ($outfile) {
+ s/\//_/g;
+ s/:/_/g;
+ s/'/_/g;
+ s/"/_/g;
+ }
- # XXX
$until_arg ||= '';
+ # XXX
system("flac -cd $skip_arg $until_arg '$fn' | lame --preset standard --tt '$title' --ta '$artist' --tl '$album' --ty '$date' --tn $track - '$outfile'");
}