#!/usr/bin/perl
#directory.plx

#ADD packageds to get paths
use Cwd 'abs_path';
use Cwd;

#Get the path of the Top Directory and switch to it
my $Begin_Directory=abs_path($ARGV[0]);
chdir $Begin_Directory;
print "$Begin_Directory\n";

my $cur_directory=getcwd;
#my $top_directory=abs_path($ARGV[0]);
my $file_handle_index=0;
my $depth=0;
my $delimiter="/";

print "$cur_directory\n";

my $count=0;

my @subdirectories;
$subdirectories[0]="/";
my @indexing=("IN_ONE","IN_TWO","IN_THREE","IN_FOUR","IN_FIVE","IN_SIX");

print "$indexing[0]\n";
foreach(@indexing){print "$_\n"}

opendirectory($cur_directory);
print "$count\n";

sub opendirectory{

	my $directory=shift(@_);
	print "$directory\n";
	chdir $directory;	
	opendir($indexing[$file_handle_index],$directory) or die "Can't Open Directory $directory: $!\n";
	while ($_=readdir($indexing[$file_handle_index])){
		#$full_path=$new_directory.$_;	
		next if $_ eq "." or $_ eq "..";
		$count++;
		$full_path=abs_path($_);
		print "$full_path\n";

		if (-d $_){
			print "Entering New Directory\n";
			#$depth++;
			#print "$depth\n";
			$file_handle_index++;
			#$subdirectories[$depth]=$subdirectories[($depth-1)].$_.$delimiter;	
			#$new_directory=$cur_directory.$subdirectories[$depth];
			#print "$new_directory\n";
			opendirectory($_);
			print "Leaving Directory\n";
			#pop @subdirectories;
			#$depth--;
			#$old_directory=$cur_directory.$subdirectories[$depth];
			#chdir $old_directory;

			$file_handle_index--;
		}			
	}
}