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

AFS::PTS Ranking & Summary

AFS::PTS Tags

protection Perl module AFS communication AFS AFS Protection Server

AFS::PTS Description

AFS::PTS is a Perl class to communicate with the AFS Protection Server. 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(" s => %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(" s => %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 Requirements: · Perl

AFS::PTS Related Software