#!/afs/athena.mit.edu/contrib/perl/p

print $ARGV[0]."\n";
$fscmd = $ARGV[0];
shift;
  if($ARGV[0]=~/neg/) { $neg = "-negative";
  shift;}
  else {$neg = "";}
$group = $ARGV[0];
$perms = $ARGV[1];

$odir = `pwd`;
chop($odir);
&fsdir($odir);


sub fsdir {
	local($d) = @_;
	local(@fasd);
	$response = `fs $fscmd $neg $d $group $perms`;
	if($response){print("$response\n");}
	opendir(ID, $d);
	$dit = ".";
	while($dit ne "") {$dit =readdir(ID);
	push(@fasd, $dit); }
	closedir(ID);
	foreach $p (@fasd) {
		if((-d $d."/".$p) && ($p ne ".") && ($p ne "..") && ($p ne "")) {
			$nd = $d."/".$p;
			&fsdir($nd);
		}
	}
}
#  #   Let tomcat know when I fix this up