#uncurrent, wrong place!

use 5;
use MP3::Splitter;

print "hello";

my $cfg="grabparts\.cfg";
open CFG, "<$cfg";
my @config=<CFG>;
close CFG;



my $mp3loc="";
$starttime=0;
$endtime=0;

sub splitmp3
{
	$mp3loc=shift(@_);
	$mp3loc =~ s/\n//g;
	$mp3loc =~ /([^\\]*\.mp3)/;
	$mp3filename=$1;
	$starttime=shift(@_);
	$endtime=shift(@_);
	@startright=switchtime($starttime);
	@endright=switchtime($endtime);
	$startsecs=$startright[0]*60+$startright[1];
	$endsecs=$endright[0]*60+$endright[1];
	$length=$endsecs-$startsecs;
	print "startsecs is $startsecs, length is $length for $mp3loc";
	open TEMP,"> temp\.list";
	print TEMP "$startsecs $length\n";
	close TEMP;
	mp3split_read($mp3filename,"temp.list");
	last;
}