#!/usr/bin/perl



$FGDCDir="/prodmtdata001/geo/gpms/output/fgdc";
$TargetDir="/home/m/mccre004/GPMSscripts/FileMoverDir";

opendir DHFGDC, $FGDCDir;

$beginCounter=0;
#$beginCounter=5000;
#$beginCounter=10000;
#$beginCounter=15000;


$endCounter=$beginCounter+15000;
$TargetFips="72109";
$found="no";
#$counter=$beginCounter;

foreach $dir (readdir DHFGDC){
#print "\$dir = $dir\n";

if ($counter >=$beginCounter and $counter<=$endCounter and $dir ne  "." and $dir ne ".."){

#print "\$beginCounter = $beginCounter\n";
#print "\$endCounter = $endCounter\n"; 
#print "$counter: \$dir = $dir\n";
#print "----------------------------------------------\n";

$FGDCoutputFile = $FGDCDir . "/" . $dir; 
#print "\$FGDCoutputFile = $FGDCoutputFile";

opendir FGDCFILE, "$FGDCoutputFile";

foreach $file (readdir FGDCFILE){
#print "\$file = $file\n";
$FGDCoutputFileB = $FGDCoutputFile . "/" . $file;
#print "\$FGDCoutputFileB = $FGDCoutputFileB\n";

$postSecond=substr($file,8);
#print "\$postSecond = $postSecond\n";
$UnderScoreLocation=index($postSecond,"_")+1;
$dotLocation=index($postSecond,".");
$Themelength=$dotLocation-$UnderScoreLocation;

$Theme=substr($postSecond,$UnderScoreLocation,$Themelength);
$fips=substr($postSecond,0,$UnderScoreLocation-1);


#print "\$Theme = $Theme\n";
#print "\$fips = $fips\n";

$ThemDir = $TargetDir ."/" . $Theme;
$ThemDirFile = $ThemDir . "/" . $file;

if (-e $ThemDir){

}else{
system "mkdir $ThemDir";
};


if (-e $ThemDirFile){

$AgeThemDirFile = -M $ThemDirFile;#already moved
$AgeFGDCoutputFile = -M $FGDCoutputFile;#to be moved

if (  $AgeFGDCoutputFile <$AgeThemDirFile){
if ($TargetFips eq $fips){
print "now moving $FGDCoutputFileB\n";
system "cp $FGDCoutputFileB $ThemDir";
$found="yes";
$moveCounter++;
};
};

}else{
if ($TargetFips eq $fips){
print "now moving $FGDCoutputFileB\n";
system "cp $FGDCoutputFileB $ThemDir";
$moveCounter++;
$found="yes";
};
};#if (-e $ThemDirFile){


};# foreach $file (readdir FGDCFILE){

$counter++;
}else{
#print "not reading directory\n";
$counter++;

};#if ($counter >=$beginCounter and $counter<=$endCounter and $dir ne  "." and $dir ne ".."){

#$counter++;
#}else{
#print "not reading directory\n";
#$counter++;
};# foreach $dir (readdir DHFGDC){a

if ($found eq "yes"){
print "$moveCounter directories under $FGDCDir have been opened and $moveCounter files have been moved to $TargetDir (\$endCounter = $endCounter)\n";
}; 
