AFS

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/v2/ktct/GetAdminToken
examples/v2/ktct/GetAuthToken
examples/v2/ktct/GetServerToken
examples/v2/ktct/GetToken
examples/v2/ktct/SetToken
examples/v2/ktct/tokens
examples/v2/ktct/UserAuthenticateGeneral
examples/v2/pts/adduser
examples/v2/pts/ascii2ptsaccess
examples/v2/pts/chid
examples/v2/pts/chown
examples/v2/pts/constructor
examples/v2/pts/creategroup
examples/v2/pts/createuser
examples/v2/pts/delete
examples/v2/pts/dumpentry
examples/v2/pts/getcps
examples/v2/pts/id
examples/v2/pts/ismember
examples/v2/pts/listentry
examples/v2/pts/listmax

examples/v2/pts/chown  view on Meta::CPAN

use warnings;

use AFS::PTS;

print "name: "; chop(my $name=<STDIN>);
print "new owner: ";chop(my $new=<STDIN>);

my $pts = AFS::PTS->new;
$AFS::CODE and print "AFS::CODE = $AFS::CODE\n";

my $ok = $pts->chown($name, $new);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else            { print "success  = $ok\n"; }

pod/v2/afsperlpts.pod  view on Meta::CPAN

=item B<$ok = $pts-E<gt>adduser(NAME, GROUP);>

Adds the given user NAME to the specified GROUP.  It calls the AFS
system library function 'PR_AddToGroup'.

=item B<$ok = $pts-E<gt>chid(NAME, NEWID);>

Changes the id for the given entry NAME to NEWID.  It calls the AFS
system library function 'PR_ChangeEntry'.

=item B<$ok = $pts-E<gt>chown(NAME, OWNER);>

Changes the owner of the given entry NAME to OWNER.  It calls the AFS
system library function 'PR_ChangeEntry'.

=item B<$id = $pts-E<gt>creategroup(NAME [, OWNER [, GID]]);>

Creates the new group NAME. You can optionally specify the OWNER and
the id GID of the new group.  If successful, the group ID allocated
for this new entry is returned. It calls the AFS system library
function 'PR_INewEntry' or 'PR_NewEntry'.

src/AFS.xs  view on Meta::CPAN

        if (code == 0)
            code = ubik_Call(PR_ChangeEntry, server, 0, id, newname, 0, 0);

        SETCODE(code);
        ST(0) = sv_2mortal(newSViv(code == 0));
        XSRETURN(1);
    }

void
pts_chown(server,name,owner)
        AFS::PTS server
        char *  name
        char *  owner
    PPCODE:
    {
        int32 code;
        int32 id, oid;

        code = internal_pr_id(server, name, &id, 0);
        if (code == 0)

src/PTS/t/PTS.t  view on Meta::CPAN

can_ok('AFS::PTS', qw(ascii2ptsaccess));

can_ok('AFS::PTS', qw(ptsaccess2ascii));

can_ok('AFS::PTS', qw(convert_numeric_names));

can_ok('AFS::PTS', qw(adduser));

can_ok('AFS::PTS', qw(chid));

can_ok('AFS::PTS', qw(chown));

can_ok('AFS::PTS', qw(creategroup));

can_ok('AFS::PTS', qw(createuser));

can_ok('AFS::PTS', qw(delete));

can_ok('AFS::PTS', qw(dumpentry));

can_ok('AFS::PTS', qw(getcps));