$type_of_file =".xml"; $file_in_path = './raw'; opendir (DIR, "$file_in_path"); @files = grep(/$type_of_file$/, readdir (DIR)); closedir (DIR); #strip '.xml' from filenames foreach $i (0..$#files) { $files[$i] = substr($files[$i], 0, - 4); } #clean - subsitute for '\n\n' which causes mp to crash foreach $file (@files) { print "clean: $file\n"; $suffix = '.xml'; $file_in = $file_in_path.'/'.$file.$suffix; #print "$file_in\n"; open (FILE_IN, "$file_in"); open (FILE_OUT, ">./clean/$file$suffix"); foreach $line () { #print "debug\n"; $line =~ s/^\n/ \n/g; print FILE_OUT $line; } close (FILE_IN); close (FILE_OUT); } #mp foreach $file (@files) { print "mp: $file\n"; system("c:\\usgs\\tools\\bin\\mp -c meta-door-publish.cfg -f c:\\Perl\\scripts\\clean\\$file\_faq.html -h c:\\Perl\\scripts\\clean\\$file.html -x c:\\Perl\\scripts\\final\\$file.xml -d c:\\Perl\\scripts\\final\\$file.dif -t c:\\Perl\\scripts\\final\\$file.txt -s c:\\Perl\\scripts\\final\\$file.sgml c:\\Perl\\scripts\\clean\\$file.xml"); } #final faq #add

 tags to preserve formatting and remove file reference data added by mp during generation
foreach $file (@files)
{
	print "final faq: $file\n";
	
	$file_in = './clean/'.$file.'_faq.html';
	open (FILE_IN, "$file_in");
	open (FILE_OUT, ">./final/$file\_faq.html");

	foreach $line () {
		$line =~ s///g;
		$line =~ s/<\/body>/<\/pre><\/body>/g;
		$line =~ s/c:\\Perl\\scripts\\clean\\//g;
		$line =~ s/c:\\Perl\\scripts\\final\\//g;
		print FILE_OUT $line;
	}

	close (FILE_IN);
	close (FILE_OUT);

}

#final html
#add  tags to preserve formatting and remove file reference data added by mp during generation
foreach $file (@files)
{
	print "final html: $file\n";

	$file_in = './clean/'.$file.'.html';
	open (FILE_IN, "$file_in");
	open (FILE_OUT, ">./final/$file\.html");

	foreach $line () {
		$line =~ s///g;
		$line =~ s/<\/body>/<\/pre><\/body>/g;	
		$line =~ s/c:\\Perl\\scripts\\clean\\//g;
		$line =~ s/c:\\Perl\\scripts\\final\\//g;		
		print FILE_OUT $line;
	}

	close (FILE_IN);
	close (FILE_OUT);

}

exit 0;