AFS::ACL is a Perl class to handle the AFS Access Control Lists.

SYNOPSIS

use AFS::ACL;

my $acl = AFS::ACL->new({foobar => none}, {anyuser => write});
$acl->set(rjs => write);
$acl->nset(opusl => write);
$acl->remove(rjsnfs => write);
$acl->clear;

foreach my $user ($acl->get_users) {
print " $user ", $acl->get_rights($user), "n";
}

foreach my $user ($acl->nget_users) {
print " $user ", $acl->nget_rights($user), "n";
}

my $ok = $acl->apply(/afs/mpa/home/guest);

my $copy = $acl->copy;
my $rights = AFS::ACL->crights(read);

my $new_acl = AFS::ACL->retrieve(/afs/mpa/home/nog);
$ok = $new_acl->modifyacl(/afs/mpa/home/guest);
NOTE: The following lines are version 1 style: all names are exported by default. This style is deprecated !!!
use AFS; # import all AFS names
use AFS @AFS::ACL; # import just the ACL names

This class provides methods to handle the AFS Access Control Lists (ACL). It is used to create, modify, delete, and reset ACL instances. It has methods to retrieve and to set the ACL list for directories and its files.

These methods have the optional argument FOLLOW. FOLLOW determines which file should be used should PATH be a symbolic link. If FOLLOW be set to 1, then the symbolic link is followed to its target. If FOLLOW is set to 0, then the method applies to the symbolic link itself. If not specified FOLLOW defaults to 1.