#!/usr/bin/perl

$mainDir="/prodmtdata003/geo/shpgen/tigerline/fe_2013";
$zeroFile="ZeroSize.txt";
$themes="Themes.txt";
$elem="elemDistricts.txt";
$addrfeat ="addrfeat.txt";

opendir DHA, $mainDir or die "cannot open $mainDir: $!";
open Zero, ">$zeroFile";

open THM, ">$themes";
open ELEM, ">$elem";
open ADDRFEAT, ">$addrfeat";



foreach $dir (readdir DHA){
#print "\$dir = $dir\n";
$DHAcounter++;
$newDirectory= $mainDir . "/" . $dir;
#print "\$newDirectory = $newDirectory\n";
opendir DHB, $newDirectory or  die "cannot open $newDirectory: $!";


foreach $file (readdir DHB){
#next unless -z $file;
$completFileName= $newDirectory . "/" . $file;

next unless -z $completFileName;
$ZeroSize[$ZeroSizeCounter]=$newDirectory;
print Zero "$completFileName\n";
$ZeroSizeCounter++;

#2013_linearwater.ea.iso.xml
$UnderLoc=index($file,"_");
$dotLoc=index($file,".");
$length=$dotLoc-$UnderLoc;
$theme=substr($file,$UnderLoc+1,$length);

$themeArray[$themeArrayCounter]=$theme;
$themeArrayCounter++;

if ($theme eq "elsd."){
$elemArray[$elemCounter]=$completFileName
$elemCounter++;
}elsif ($theme eq "addrfeat."){
$addrfeatArray[$addrfeatCounter]=$completFileName
$addrfeatCounter++;
}elsif ($theme eq "arealm."){
$arealmArray[$arealmCouter]=$completFileName
$arealmCouter++;
}elsif($theme eq "areawater."){
$areawaterArray[$areawaterCounter]=$completFileName
$areawaterCounter++;
}elsif ($theme eq "bg."){
$
};

};
};


@ZeroSize = sort @ZeroSize;
$DirList = "DirectoryList.txt";
open DIRL, ">$DirList";

foreach $ZeroSize (@ZeroSize){
if ($ZeroSize ne $prev){
print DIRL "$ZeroSize\n";
};

$prev=$ZeroSize;
};


close DIRL;
#open THM, ">$themes";

@themeArray = sort @themeArray;
$themeArrayLoopCounter=0;

#foreach $themeArray (@themeArray){

#if ($themeArrayLoopCounter==0){
#$themecounter=1;
#}elsif($themeArray eq $themePrev){
#$themecounter++;
#}elsif($themeArray ne $themePrev){
#$themecounter=1;
#print THM "$themeArray: $themecounterPrev\n";
#$themecounter=1;

#}
#$themecounterPrev=$themecounter;
#$themeArrayLoopCounter++;
#$themePrev=$themeArray;
#};

print "There are $DHAcounter directories in $mainDir. In these directories, $ZeroSizeCounter have zero size\n";