#!/usr/bin/perl

use Getopt::Long;
use File::Copy;

$preCorrect = substr($0,0,2);

$correctname=substr($0,0);
#print "\$correctname = $correctname\n";

use lib "/mt/apps/gpms/DateTrans/lib";
use DateTrans qw(monName monNumber timeFormat AmPmFormat dayNumbeFormat);

use lib "/mt/apps/gpms/DateTrans/lib";
use  xsdxsltcheck qw(xsdcheck xsltcheck FGDC2MRFcheck xsl4mrf2fgdccheck);

use lib "/mt/apps/gpms/MifCorrector/lib";
use MifCorrector qw(MifCorrector);
use UpdateMIF qw(UpdateMIF);

use File::Basename;





open (SAVEOUT,">&STDOUT");


print SAVEOUT "Pre Saxon\n";
$ENV{'PATH'} = "/apps/saxon/jdk1.5.0_24/bin::/apps/saxon/saxon9ee.jar::/apps/saxon:$rootout/mrf/$newerrdir:$ENV{'PATH'}";
$cp = "CLASSPATH";#goodone
$ENV{$cp} = "/apps/saxon/jdk1.5.0_24/lib/:/apps/saxon/saxon9ee.jar:/apps/saxon/saxon9ee.jar $CLASSPATH:/usr/share/java/saxon.jar";




$root = "/mt/apps";
$dir = "/home/m/mccre004/GPMSscripts/MRF2ISOCombo/perlModVer";
opendir DIR, "$dir" or die "cannot open $dir $!";

foreach $file (readdir DIR){


#open STDERR,">$err";

$dotLocation = rindex($file,".");
$ext=substr($file,$dotLocation+1);

print SAVEOUT "\$ext = $ext\n";
$TMP = "TMP_" .  $file;
print SAVEOUT "\$TMP = $TMP\n";
$err = "$File.err";

open STDOUT, ">$TMP";
open STDERR, ">$err"; 
if ($ext =~/xml/){
printf SAVEOUT "$validate: Please Wait, now validating $file\n";
$validate++;
my @csax = "java com.saxonica.Transform -outval:recover  $file  $root/gpms/xsl/MIF2MRF.xsl";
my $final = system(@csax);
print SAVEOUT "\$final = $final(after the new one!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)\n";
}else{
system "rm $TMP";
};


};