Anonymous

#!/usr/bin/perl
use DNS::ZoneParse;

my @list = dirdetails($ARGV[0]);
treemanage(@list);
#Manage a recursive tree
sub treemanage
{
#       foreach my $list (@_) {
#               print "$list\n";
#       }
        foreach $file (@_) {
                if ($file eq "." or $file eq "..") {
                        next;
                }
                elsif (-f $file) {
                        print "$file\n";
#                       zonemanage($file);
                }
                elsif (-d $file) {
                        print "$file\n";
#                       my @details = dirdetails($file);
#                       treemanage(@details);
                }
                else {
                        next;
                }
        }
}

#Read Directory Contents
sub dirdetails
{
        opendir (DIR, $_[0]);
        my @files = readdir(DIR);
        closedir(DIR);
        return @files;
}