#!/usr/bin/perl

open (STDERR, ">&STDOUT");
select ((select(STDOUT), $| = 1)[0]); # Syncronize STDOUT
select ((select(STDERR), $| = 1)[0]); # with STDERR

($dns_lib = $0) =~ s:(^|/)[^/]*$::;
($script=$0) =~ s:^.*/([^/]*)$:$1:;	# Get the simple name of this script.

push (@INC, $dns_lib);

require 5.0;
require 'dns_lib.perl';

@dirs = ();
push (@dirs, $tree_root);

while ($current = pop (@dirs)) {

#    $zone = $current;
#    $zone =~ s/^$tree_root\/*//o;
#    $zone = join ('.', reverse (split ('/', $zone)));

    opendir (DIR, $current);
    @files = readdir (DIR);
    closedir (DIR);

    foreach $file (@files) {

	next if $file =~ m/^\.\.?$/;

	if (-d "$current/$file") {

	    print "$current/$file\n";
	    chmod (02770, "$current/$file") || die "Cannot chmod $current/$file: $!\n";
	    push (@dirs, "$current/$file");

	}
	    
    }

}

exit;
