#!/usr/bin/perl
use strict;
use warnings;
use MP3::Tag;
use File::Find;
use DBI;

#set up sqlite connection
my $db = DBI->connect("dbi:SQLite:music.sqlite","","");

#set up variables
my $count = 0;
my @songinfo = 
my $mp3 =
my @dirs = ("/users/mine/music");

# Get rid of the previous version of the table
$db->do("DROP TABLE IF EXISTS Songs") or DIE("Couldn't drop old table");
# Recreate Table
$db->do("CREATE TABLE songs (id INTEGER PRIMARY KEY AUTOINCREMENT, Track INTEGER, Title TEXT, Artist TEXT, Album TEXT, Year INTEGER, Genre TEXT, Path TEXT)") or DIE("Couldn't create new table");
#set up SQL statement
my $sth = $db->prepare('INSERT INTO Songs (Track, Title, Artist, Album, Year, Genre, Path) VALUES  (?, ?, ?, ?, ?, ?, ?)');

# get total number of mp3's
my @songtotal = `dir c:\\users\\mine\\music\\*.mp3 /s`;
my @mp3total = split(/ /, trim($songtotal[(scalar @songtotal)-2]));

# look for files in each directory
find(\&displayMP3Info, @dirs);

# this function is called every time a file is found 
sub displayMP3Info {
	# if the file has an MP3 extension
	if (/\.mp3$/i) {
		# increment counter
		$count++;
		# create new MP3-Tag object
		$mp3 = MP3::Tag->new($_);
		# get tag information
		$mp3->get_tags();
		# check to see if an ID3v1 tag exists
		if (exists $mp3->{ID3v1})
		{
			#if it's an ID3V1 Tag stick the parts of it into an array called songinfo
			@songinfo = ($mp3->{ID3v1}->track, $mp3->{ID3v1}->title, $mp3->{ID3v1}->artist, $mp3->{ID3v1}->album, $mp3->{ID3v1}->year, $mp3->{ID3v1}->genre, $File::Find::name);
			# put it in the database
			$sth->execute($songinfo[0], $songinfo[1], $songinfo[2], $songinfo[3], $songinfo[4], $songinfo[5], $songinfo[6]); 
			# print "\n$songinfo[0], $songinfo[1], $songinfo[2], $songinfo[3], $songinfo[4], $songinfo[5], $songinfo[6]\n";
			# update the total on the screen
			printf STDERR ("\r%02d of $mp3total[0] files.", $count);
		}
		# clean up
		$mp3->close();
	}	
}
print "Done.\n";
# trim function to get rid of leading and trailing spaces
sub trim{
   my $string = shift;
   $string =~ s/^\s+|\s+$//g;
   return $string;
}