AFS::PTS 2.4.0

AFS::PTS is a Perl class to communicate with the AFS Protection Server.

SYNOPSIS

use AFS::PTS;

my $num_flg = AFS::PTS->convert_numeric_names;
my $bits = AFS::PTS->ascii2ptsaccess("S----");
my $flags = AFS::PTS->ptsaccess2ascii($bits);

my $pts = AFS::PTS->new;

my $id = $pts->createuser(guest);
my $entry = $pts->listentry(guest);
foreach my $key ( sort keys %$entry) {
printf("%20s => %sn", $key, $$entry{$key});
}
$ok = $pts->delete(guest);
undef $pts; # destroy server connection

$pts = AFS::PTS->new;
$entry = $pts->dumpentry(67136, 1, 1);
foreach my $key ( sort keys %$entry) {
printf("%20s => %sn", $key, $$entry{$key});
}

my $over = 1;
my @names = $pts->getcps(nog, 1, $over);
print "OVER = $over n";
print "cps for NOGn";
foreach my $mem (sort @names) {
print " $memn";
}

AFS::PTS->convert_numeric_names(1);
my @ids = (28053, 1, 105, 32000, 32766);
@names = $pts->PR_IDToName(@ids);
foreach my $name (@names) {
print "name = $namen";
}

print "Convert(nog): ", $pts->id(nog), "n";
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::PTS; # import just the PTS names