#!/usr/bin/perl

use lib "/home/m/mccre004/File-Recurse-0.11/blib/lib";
use File::Recurse;

$directory = "/mtdata001/geo/gpms/input/fgdc";

my %files = Recurse([$directory], {match => '\.xml$', nomatch => '\.bak$'});

#$mainDir="/prodmtdata003/geo/shpgen/tigerline/fe_2013";

opendir DHA, $directory or die "cannot open $directory: $!";

foreach $dir (readdir DHA){
#state12
if ($dir =~/state/){
print "\$dir = $dir\n";
$combinedDirectory=$directory . "/" . $dir;
#print "\$combinedDirectory = $combinedDirectory\n";

opendir DHB, $combinedDirectory  or die "cannot open :$combinedDirectory $!";

foreach $subdir (readdir DHB){
#print "\$subdir = $subdir\n";
$lensubdir = length($subdir);

if ($lensubdir>0){
print "\$lensubdir = $lensubdir\n";
$finalDir = $combinedDirectory . "/" . $subdir;
print "\$finalDir = $finalDir\n";
system "perl FGDC2ISOCombo_ListFileMaker.px -listfile=$subdir  -directory=$finalDir";
};
};



#perl FGDC2ISOCombo_ListFileMaker.px -listfile=list.txt -directory=/usr/directory
};
};