my $cfg="E:\\chartsweep\\done\\grabparts\.cfg";
open CFG, "<$cfg";
my @config=<CFG>;
close CFG;
		
$inner=0;
foreach $line (@config) 
{
	#print "working on $line\n";
	if ($line =~ /Imagesearch=(.*)/)
	{
		$list=$1;
		$dir=$mp3loc;
		$dir =~ /([0-9]{8})/;
		$dir = $1;
		$dir ="C:\\projects\\chartsweep90s\\images\\".$dir;
		print "trying echo $list \> \"$dir\\tosearch\.txt\"\n";
		print `echo \"$list\" \> \"$dir\\tosearch\.txt\"`;
		print "\n";
		next;
	}
	if ($inner)
	{
		if ($line =~ /Start=(.+)\#?\n/)
		{
	;
		}
		elsif ($line =~ /End__=(.+)\#?\n/)
		{
	;
			$inner=0;
		}
		else
		{
			print "inner, but didn't find start or end.  ending.\n";
			last;
		}
	}
	if ($line =~ /^([^\#].*\.mp3)/)
	{
		$mp3loc=$line;
		$inner=1;
	}
}