#!/usr/bin/perl

use strict;

my $artist = shift @ARGV;
my $album = shift @ARGV;
my $outdir = shift @ARGV;

foreach my $infile (<*>) {
	my $basename = `basename "$infile" .aiff`;
	chomp ($basename);
	(my $tracknum, my @temp) = split(" ",$basename);
	my $trackname = "";
	foreach my $m (@temp) {
		if ($trackname =~ /^$/) {
			$trackname = $m;
		} else { 
			$trackname = $trackname . " " . $m;
		}
	}
	my $outfile = $basename . ".mp3";
	if ($tracknum =~ /^.$/) {
		$outfile = "0" . $outfile;
	}
	my $lamecmd = "lame --preset standard ";
	$lamecmd .= qq(--tt "$trackname" --ta "$artist" --tl "$album" );
	$lamecmd .= qq(--tn "$tracknum" "$infile" "$outdir/$outfile");
	print $lamecmd . "\n";
	system $lamecmd;
}