AFS
view release on metacpan or search on metacpan
* new functions 'XSVERSION', 'get_syslib_version', 'get_server_version',
'getcrypt' and 'setcrypt'
* new set of POD documentations for version 2.0
Developer-visible changes:
* compiles with OpenAFS
* constructor methods for all AFS classes have been corrected to
conform with the Perl OO conventions.
* modified 'typemap' file: renamed following types
AFS::PTS_SERVER AFS::PTS
AFS::KA_AUTHSERVER AFS::KAS
AFS::KTC_ENCRYPTIONKEY AFS::KTC_EKEY
Version 1.11 (released 6 December 2001, revision 80)
User-visible changes:
Developer-visible changes:
* none
Version 1.06 (released 6 April 1999, revision 40)
User-visible changes:
* renamed function 'access' to 'cm_access'
* introduced variable AFS::VERSION
* fixed bug in kas_KAM_SetFields
Developer-visible changes:
* fixed problems in internal_pts_new and in pts_name
Version 1.05 (dated 2 November 1996, revision 21)
LICENCES/Artistic view on Meta::CPAN
following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or
an equivalent medium, or placing the modifications on a major archive
site such as uunet.uu.net, or by allowing the Copyright Holder to include
your modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
c) rename any non-standard executables so the names do not conflict
with standard executables, which must also be provided, and provide
a separate manual page for each non-standard executable that clearly
documents how it differs from the Standard Version.
d) make other distribution arrangements with the Copyright Holder.
4. You may distribute the programs of this Package in object code or
executable form, provided that you do at least ONE of the following:
a) distribute a Standard Version of the executables and library files,
examples/v2/pts/PR_ListElements
examples/v2/pts/PR_ListEntry
examples/v2/pts/PR_ListMax
examples/v2/pts/PR_ListOwned
examples/v2/pts/PR_NameToID
examples/v2/pts/PR_NewEntry
examples/v2/pts/PR_RemoveFromGroup
examples/v2/pts/PR_WhereIsIt
examples/v2/pts/ptsaccess2ascii
examples/v2/pts/removeuser
examples/v2/pts/rename
examples/v2/pts/setaccess
examples/v2/pts/setgroupquota
examples/v2/pts/setmax
examples/v2/pts/whereisit
examples/v2/utils/get_server_version
examples/v2/utils/get_syslib_version
examples/v2/utils/setpag
examples/v2/utils/sysname
examples/v2/utils/unlog
examples/v2/utils/XSVERSION
examples/v2/vos/examine
examples/v2/vos/listpart
examples/v2/vos/listvol
examples/v2/vos/listvolume
examples/v2/vos/move
examples/v2/vos/offline
examples/v2/vos/online
examples/v2/vos/partinfo
examples/v2/vos/release
examples/v2/vos/remove
examples/v2/vos/rename
examples/v2/vos/restore
examples/v2/vos/setquota
examples/v2/vos/status
examples/v2/vos/zap
INSTALL
INSTALL_64
LICENCES/Artistic
LICENCES/COPYING
LICENCES/IBM-LICENCE
LICENCES/Stanford-LICENCE
examples/v2/pts/rename view on Meta::CPAN
use warnings;
use AFS::PTS;
print "old name: "; chop(my $old=<STDIN>);
print "new name: "; chop(my $new=<STDIN>);
my $pts = AFS::PTS->new;
$AFS::CODE and print "AFS::CODE = $AFS::CODE\n";
my $ok = $pts->rename($old, $new);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else { print "success = $ok\n"; }
examples/v2/vos/rename view on Meta::CPAN
my ($vos, $oldvol, $newvol, $ok);
die "Usage: $0 oldvol newvol\n" if $#ARGV != 1;
$oldvol = shift;
$newvol = shift;
$vos = AFS::VOS->new;
$AFS::CODE and print "AFS::CODE = $AFS::CODE\n";
$ok = $vos->rename($oldvol, $newvol);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else { print "Renamed volume $oldvol to $newvol\n"; }
pod/v2/afsperlpts.pod view on Meta::CPAN
Returns a list of AFS ids owned by the given user or group NAME. If
NAME is 0, then the PDB orphan list is returned. There is also a
global orphan list, which contains entries for all orphans, namely
groups belonging to users that have been deleted from the PDB. If
LOOKUP_ID is 1 (default) then names will be returned. If the size of
the list is greater then &AFS::PR_MAXGROUPS then OVER will be set to a
non-zero value and only &AFS::PR_MAXGROUPS items will be returned. It
calls the AFS system library function 'PR_ListOwned'.
=item B<$ok = $pts-E<gt>rename(NAME, NEWNAME);>
Renames NAME into NEWNAME. It calls the AFS system library function
'PR_ChangeEntry'.
=item B<$ok = $pts-E<gt>removeuser(NAME, GROUP);>
Removes the user NAME from GROUP. It calls the AFS system library
function 'PR_RemoveFromGroup'.
=item B<$ok = $pts-E<gt>setaccess(NAME, NEWFLAG);>
pod/v2/afsperlvos.pod view on Meta::CPAN
$volid = $vos->move('volume', 'serv1', 'vicepa', 'serv2', 'vicepb');
$volid = $vos->remove('serv1', '/vicepa', 'volume');
$ok = $vos->offline('serv1', '/vicepa', 'volume');
$ok = $vos->online('serv1', '/vicepa', 'volume');
$ok = $vos->release('volume');
my $stat = $vos->status('serv1', '/vicepa');
print "Status is: $stat\n";
$ok = $vos->rename('oldvol', 'newvol');
$ok = $vos->setquota('volume', 6500, 1);
$volid = $vos->zap('serv1', '/vicepa', 'volume');
my ($tBack, $tFail) = $vos->backupsys('home', 'serv', '/vicepc');
($tBack, $tFail) = $vos->backupsys(['home', 'data'], 'serv', '/vicepc');
my @parts = $vos->listpart('serv1');
pod/v2/afsperlvos.pod view on Meta::CPAN
I<UV_ReleaseVolume>.
=item B<$volid = $vos-E<gt>remove(VOLUME [, SERVER, PARTITION]);>
Removes the indicated volume. VOLUME specifies either the complete
name or volume ID number of the volume. To remove the read-only
volume from a particular site, specify the SERVER and PARTITION
arguments. It returns the volume id number of the removed volume. It
calls the AFS system library function I<UV_DeleteVolume>.
=item B<$ok = $vos-E<gt>rename(ONAME, NNAME);>
Changes the name of the read/write volume from ONAME to NNAME.
It calls the AFS system library function I<UV_RenameVolume>.
=item B<$ok = $vos-E<gt>restore(SERVER, PARTITION, VOLUME [, DUMPFILE [, ID [, INTER [, OVERWRITE [, OFFLINE [, READONLY]]]]]] );>
Converts the ASCII file DUMPFILE or the standard input stream
(default) and restores it as a read/write VOLUME to the PARTITION on
the SERVER. ID specifies the volume ID number to assign to the
restored volume. OVERWRITE must be specified when overwriting an
}
if (vtype != RWVOL) {
char buffer[256];
sprintf(buffer, "%s not a RW volume\n", name);
VSETCODE(ENOENT, buffer);
goto done;
}
if (!ISNAMEVALID(entry.name)) {
char buffer[256];
sprintf(buffer, "Volume name %s is too long, rename before releasing\n", entry.name);
VSETCODE(E2BIG, buffer);
goto done;
}
code = UV_ReleaseVolume(avolid, aserver, apart, iforce);
if (code) {
PrintDiagnostics("release", code);
SETCODE(code);
goto done;
}
SETCODE(0);
RETVAL = volid;
done:
;
}
OUTPUT:
RETVAL
int32
vos_rename(cstruct,oldname,newname)
AFS::VOS cstruct
char * oldname
char * newname
PREINIT:
afs_int32 code1, code2, code;
struct nvldbentry entry;
CODE:
{
RETVAL = 0;
code1 = VLDB_GetEntryByName(oldname, &entry);
}
if (IsNumeric(newname)) {
char buffer[256];
sprintf(buffer, "Illegal volume name %s, should not be a number\n", newname);
VSETCODE(-1, buffer);
goto done;
}
MapHostToNetwork(&entry);
code = UV_RenameVolume(&entry, oldname, newname);
if (code) {
PrintDiagnostics("rename", code);
SETCODE(code);
goto done;
}
#fprintf(STDOUT, "Renamed volume %s to %s\n", oldname, newname);
SETCODE(0);
RETVAL = 1;
done:
;
if (code == 0) {
HV *stats;
stats = newHV();
parse_prdebugentry(server, stats, &entry, 0, 0);
EXTEND(sp, 1);
PUSHs(sv_2mortal(newRV_noinc((SV *) stats)));
}
}
void
pts_rename(server,name,newname)
AFS::PTS server
char * name
char * newname
PPCODE:
{
int32 code;
int32 id;
code = internal_pr_id(server, name, &id, 0);
src/PTS/t/PTS.t view on Meta::CPAN
can_ok('AFS::PTS', qw(listentry));
can_ok('AFS::PTS', qw(listmax));
can_ok('AFS::PTS', qw(members));
can_ok('AFS::PTS', qw(name));
can_ok('AFS::PTS', qw(owned));
can_ok('AFS::PTS', qw(rename));
can_ok('AFS::PTS', qw(removeuser));
can_ok('AFS::PTS', qw(setaccess));
can_ok('AFS::PTS', qw(setgroupquota));
can_ok('AFS::PTS', qw(setmax));
can_ok('AFS::PTS', qw(whereisit));
src/VOS/t/VOS.t view on Meta::CPAN
ok(! defined $vos, 'vos->DESTROY');
can_ok('AFS::VOS', qw(backup));
can_ok('AFS::VOS', qw(create));
can_ok('AFS::VOS', qw(dump));
can_ok('AFS::VOS', qw(move));
can_ok('AFS::VOS', qw(offline));
can_ok('AFS::VOS', qw(online));
can_ok('AFS::VOS', qw(release));
can_ok('AFS::VOS', qw(remove));
can_ok('AFS::VOS', qw(rename));
can_ok('AFS::VOS', qw(restore));
can_ok('AFS::VOS', qw(setquota));
can_ok('AFS::VOS', qw(zap));
sub leak_test {
my $cell = shift;
my $count = 0;
my $verb = 1;
while(1) {
src/ppport.h view on Meta::CPAN
mg_size||5.005000|
mini_mktime||5.007002|
minus_v|||
missingterm|||
mode_from_discipline|||
modkids|||
more_bodies|||
more_sv|||
moreswitches|||
mro_clean_isarev|||
mro_gather_and_rename|||
mro_get_from_name||5.010001|
mro_get_linear_isa_dfs|||
mro_get_linear_isa||5.009005|
mro_get_private_data||5.010001|
mro_isa_changed_in|||
mro_meta_dup|||
mro_meta_init|||
mro_method_changed_in||5.009005|
mro_package_moved|||
mro_register||5.010001|
src/ppport.h view on Meta::CPAN
return IS_NUMBER_IN_UV;
}
return 0;
}
#endif
#endif
/*
* The grok_* routines have been modified to use warn() instead of
* Perl_warner(). Also, 'hexdigit' was the former name of PL_hexdigit,
* which is why the stack variable has been renamed to 'xdigit'.
*/
#ifndef grok_bin
#if defined(NEED_grok_bin)
static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
static
#else
extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
#endif
( run in 0.555 second using v1.01-cache-2.11-cpan-e9daa2b36ef )