--- trunk/run.pl	2009/05/18 18:47:22	1183
+++ trunk/run.pl	2009/05/18 18:51:40	1184
@@ -513,7 +513,9 @@
 
 		my $report_fh;
 		if ($stats || $validate) {
-			my $path = "out/report/${database}-${input_name}.txt";
+			my $out_report = 'out/report'; # FIXME move to config
+			mkpath $out_report unless -e $out_report;
+			my $path = "$out_report/${database}-${input_name}.txt";
 			open($report_fh, '>', $path) || $log->logdie("can't open $path: $!");
 
 			print $report_fh "Report for database '$database' input '$input_name' records ",
@@ -528,8 +530,12 @@
 
 		my $marc;
 		if ($marc_generate && $parser->have_rules( 'marc', $database, $input_name )) {
+			
+			my $out_marc = 'out/marc'; # FIXME move to config
+			mkpath $out_marc unless -e $out_marc;
+
 			$marc = new WebPAC::Output::MARC(
-				path => "out/marc/${database}-${input_name}.marc",
+				path => "$out_marc/${database}-${input_name}.marc",
 				lint => $marc_lint,
 				dump => $marc_dump,
 			);