#!/usr/bin/perl
# - display counts of mixed-up album mp3s in the current directory
# - add prefixes to the filenames
use MP3::Tag;
my @t;
#my $TAG = shift @ARGV || die "NO TAG SPECIFIED";
my $BIN_MV = "/bin/mv";
opendir D, "." or die $!;
while (my $f = readdir D)
	{
	push (@t, $f) if $f =~ /mp3$/
	}
closedir D;
my $albs = {};
foreach my $t (sort @t)
	{
	my $a;
	my $mp3 = MP3::Tag->new($t);
	$mp3->get_tags();

	my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();

$track = sprintf "%02d", $track;
$artist =~ /^(..?.?)/;
my $art = lc $1;
$album =~ /^(The )?(..?.?)/;
my $alb = lc $2;

# my $newf = "$art-$alb-$track $title.mp3";
my $newf = "$track $title.mp3";
$newf =~ s/[^-A-Za-z0-9 _\.]//g;
print $newf."\n";

system($BIN_MV, $t, $newf);

	$albs->{$art} ||= {};
	$albs->{$art}->{$alb} ||= [];
	$albs->{$art}->{$alb} = 1;


#	if (! $a) { print STDERR "TAGLESS: $t\n"; next; }
#	my $id = $mp3->track0(2);
#	my $newt = $TAG. '-' . $id . '-' . $t;
#	print "$newt\n";
#	system($BIN_MV, $t, $newt);
#	$albs->{$a} ||= [];
#	push @{ $albs->{$a} }, $t;
	}

map {print $_, " => ", join ",", keys(%{$albs->{$_}}), "\n" } keys %$albs;
#my @keyz = qw[ZENC ZEND ZENE ZENF];
#my $q = 0;
#foreach my $a (sort keys %$albs)
#	{
#	my $count = scalar @{ $albs->{$a} };
##	print "$keyz[$q] : $a : $count\n";
#	foreach my $f (@{ $albs->{$a} })
#		{
#	#	system($BIN_MV, $f, $keyz[$q] . "-" . $f);
#		}
#	$q++;
#	}