#!/s/std/bin/perl

my $acls = "net:wisc rl";

sub changeperms ($) {
	my ($dir) = @_;

	system("fs sa $dir $acls");

	opendir(DIR, $dir) or die "opendir $dir: $!\n";
	my @files = readdir(DIR);
	closedir(DIR);

	for $file (@files) {
		if ($file eq '.' || $file eq '..') {
			next;
		}
		if (-d "$dir/$file") {
			changeperms("$dir/$file");
		}
	}
}

changeperms(".");
