#!/usr/bin/perl
$br = shift or usage();
$outdir = shift or usage();
`mkdir -p $outdir`;

printf("Converting to %skbit mp3, output to %s\n", $br, $outdir);
$gstart = time();

open(LS, "/bin/ls *.mp3 |") or die("WTF??!: /bin/ls: $!\n");
while(<LS>) {
	$sstart = time();
	chomp;
	print("*** Processing $_.. ***\n");
	`mpg123 -q -w - \"$_\" |gogo -b $br -q 0 stdin /tmp/out.mp3`;
	system("id3cp \"$_\" /tmp/out.mp3; mv /tmp/out.mp3 \"$outdir/$_\" >/dev/null");
	printf("*** Done! (%d seconds *** )\n", (time()-$sstart));
}

printf("*** All done! (%d seconds) *** \n", (time()-$gstart));

sub usage {
	print("usage: $0 <bitrate> <output directory>\n".
	      "  $0 will make the output directory if it does not exist\n");
	exit(1);
}