2 use OpenAFS
::CMU_copyright
;
3 use OpenAFS
::util
qw(:DEFAULT %AFS_Help);
10 my (@membership, $group);
13 @membership = &AFS_pts_members(testuser1,);
14 while ($group = pop(@membership)) {
15 if ($group ne "testgroup1") {
19 &AFS_pts_add([testuser1],["system:administrators"],);
20 @membership = &AFS_pts_members(testuser1,);
21 while ($group = pop(@membership)) {
22 if ($group eq "testgroup1") {
24 if ($group eq "system:administrators") {
30 &AFS_pts_remove([testuser1],["system:administrators"],);