#write bat files for mp3split to use
#outdated

use strict;


my $donedir="E:\\chartsweep\\done";
opendir(DIR,$donedir);
my @donefiles=readdir(DIR);
closedir(DIR);
my @mp3list=();

#config
my $starttime="0.00";
my $endtime="0.01";
my $year="";
my $out="mp3split - from $starttime to $endtime minutes - $year\.bat";

foreach my $bit (@donefiles)
{
	if ($bit =~ /^..[^78].*\.mp3$/)
	{
		push(@mp3list,$bit);
	}
}

open OUT,"> $out";
my $base='e:\chartsweep\done';

print "OUT is $out\n";


foreach my $mp3 (@mp3list)
{
	print OUT 'C:\audio\mp3splt-2.1\mp3splt.exe -f -q -d "c:\projects\chartsweep90s\first10'."\\$starttime\-$endtime\" \"$base\\$mp3\" $starttime $endtime\n";
}