#! /usr/bin/perl
# mp3genre.pl - Program to generate playlist files by genre
use File::Find;
use MP3::Info;
use MP3::Info qw(:genres);
use strict;
use_winamp_genres();

my %songsdb;
my $searchdir=$ARGV[0] or die "Enter the starting directory as a parameter";
print "Scanning $searchdir and subdirectories for mp3s\n";
find (\&readtag,$searchdir);
mkdir "genres" if !-e "genres";

foreach my $genre (keys %songsdb){
    my $genreclean=$genre;
    $genreclean =~ s#(/|\\)#-#g;
    print "writing $genreclean.m3u\n";
    open OUTFILE,">genres/$genreclean.m3u" or die " can't open $genre.m3u for output";
    print OUTFILE join("\n",@{$songsdb{$genre}});
    close OUTFILE;
}

print "\nAll done, give me a cookie.\n";

sub readtag{
    my $file=$File::Find::name;
    if ($file =~ m/\.mp3$/){
        my $tag = get_mp3tag($file);
        push @{$songsdb{$tag->{GENRE}||"none"}},$file;
    }
};