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);
12 $wscell = &AFS_fs_wscell();
15 eval { &AFS_pts_createuser(user1,,); };
16 $path = "/afs/${wscell}/service/acltest";
18 ($pos1, $neg1) = &AFS_fs_getacl($path);
19 $ret = &AFS_fs_setacl([$path],[],[["user1", "r"]],);
20 ($pos2, $neg2) = &AFS_fs_getacl($path);
21 while ($ret = pop(@$neg2)) {
23 if ($tmp2[0] eq "user1") {
24 if ($tmp2[1] ne "r") {
35 while ($ret = pop(@$neg1)) {