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, $path2);
12 $wscell = &AFS_fs_wscell();
15 eval { &AFS_pts_createuser(user1,,); };
16 $path = "/afs/${wscell}/service/acltest";
17 $path2 = "/afs/${wscell}/service/acltest2";
20 ($pos1, $neg1) = &AFS_fs_getacl($path);
21 $ret = &AFS_fs_copyacl($path,[$path2],1);
22 ($pos2, $neg2) = &AFS_fs_getacl($path2);