2 use OpenAFS
::CMU_copyright
;
3 use OpenAFS
::util
qw(:DEFAULT %AFS_Help);
10 my ($wscell, $path, @pos1, @pos2, @neg1, @neg2, $ret, @tmp, @tmp2, @tmp3, $found, $listref, $first);
12 $wscell = &AFS_fs_wscell();
16 $path = "/afs/${wscell}/service/acltest";
18 ($pos1, $neg1) = &AFS_fs_getacl($path);
20 while ($ret = pop(@$pos1)) {
23 if ($tmp2[0] eq "group1") {
28 $listref = $listref . "[ @tmp2 ]";
30 $listref = $listref . ", [ @tmp2 ]";
34 $listref = $listref . " ]";
37 print "WARNING: Can't remove user not on ACL. This shouldn't happen.\n";
41 $ret = &AFS_fs_setacl([$path],$listref,,);
42 ($pos2, $neg2) = &AFS_fs_getacl($path);
45 while ($ret = pop(@$pos1)) {