AFS
view release on metacpan or search on metacpan
LICENCES/Artistic view on Meta::CPAN
of the Copyright Holder as specified below.
"Copyright Holder" is whoever is named in the copyright or
copyrights for the package.
"You" is you, if you're thinking about copying or distributing
this Package.
"Reasonable copying fee" is whatever you can justify on the
basis of media cost, duplication charges, time of people involved,
and so on. (You will not be required to justify it to the
Copyright Holder, but only to the computing community at large
as a market that must bear the fee.)
"Freely Available" means that no fee is charged for the item
itself, though there may be fees involved in handling the item.
It also means that recipients of the item may redistribute it
under the same conditions they received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
LICENCES/COPYING view on Meta::CPAN
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
LICENCES/COPYING view on Meta::CPAN
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
LICENCES/IBM-LICENCE view on Meta::CPAN
c) Recipient understands that although each Contributor grants the
licenses to its Contributions set forth herein, no assurances are
provided by any Contributor that the Program does not infringe the
patent or other intellectual property rights of any other entity.
Each Contributor disclaims any liability to Recipient for claims
brought by any other entity based on infringement of intellectual
property rights or otherwise. As a condition to exercising the
rights and licenses granted hereunder, each Recipient hereby
assumes sole responsibility to secure any other intellectual
property rights needed, if any. For example, if a third party
patent license is required to allow Recipient to distribute the
Program, it is Recipient's responsibility to acquire that license
before distributing the Program.
d) Each Contributor represents that to its knowledge it has sufficient
copyright rights in its Contribution, if any, to grant the
copyright license set forth in this Agreement.
3. REQUIREMENTS
A Contributor may choose to distribute the Program in object code form
pod/v2/afsperlbase.pod view on Meta::CPAN
if ($AFS::CODE eq "User or group doesn't exist") ....
if ($AFS::CODE == &AFS::PRNOENT) ....
=head1 DESCRIPTION
This document describes the special variables and convenience functions
available from the AFS module. You can convert error codes into error
messages. It is possible to activate exception handling for the AFS
system calls. You can retrieve the values for AFS constants. Any
function required must by explicitly listed by the C<use> statement to be
exported into the calling package.
=head1 COMPATIBILITY
B<This release does NOT support any features and interfaces
from version 1.>
=head1 Special Variables
=over 4
pod/v2/afsperlbos.pod view on Meta::CPAN
This class is used to communicate with a B<AFS Basic Overseer Server>,
which runs on every AFS server machine. It monitors and administers
the other server processes on that machine. It has also methods to
maintain system configuration files.
Before you can submit any tasks to a Basic OverSeer (BOS) Server you
must establish a connection to a BOS Server. This is done by the
constructor method I<new> which returns a BOS object. A BOS object is
essentially a handle to talk to a Basic OverSeer Server on a given
server machine. Such a BOS object is required before any of the other
BOS instance methods can be called.
=head1 COMPATIBILITY
There was no version 1 implementation and hence there are no version
conflicts :-)
=head1 METHODS
=over 4
pod/v2/afsperlcell.pod view on Meta::CPAN
($cell, my @hosts) = getcellinfo;
print "Cell: $cell\n";
foreach my $host (@hosts) {
print(" $host\n");
}
=head1 DESCRIPTION
This module provides several functions to configure and to maintain an
B<AFS cell>. It is used to maintain the configuration directory. Any
function required must by explicitly listed by the C<use> statement to be
exported into the calling package.
Some of these functions 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 function applies to the symbolic link
itself. If not specified FOLLOW defaults to 1.
=head1 COMPATIBILITY
pod/v2/afsperlcm.pod view on Meta::CPAN
$ok = setcachesize(10000);
my $crypt_flg = getcrypt;
$ok = setcrypt('on');
=head1 DESCRIPTION
This module provides several functions to administer the B<AFS Cache
Manager>. It is used to customize the cache size. You can force the
update of cached data. And you can determine if a client machine can
run SETUID programs. Any function required must by explicitly listed
by the C<use> statement to be exported into the calling package.
Some of these functions 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 function applies to the symbolic link
itself. If not specified FOLLOW defaults to 1.
=head1 COMPATIBILITY
pod/v2/afsperlfs.pod view on Meta::CPAN
foreach my $host (@hosts) {
print " $host\n";
}
=head1 DESCRIPTION
This module provides several functions to communicate with an B<AFS file
server>. It is used to check the status of a file server machine. It
has functions to administer mount points and quotas. On request it
returns the server(s) that house a given file or directory. Any
function required must by explicitly listed by the C<use> statement to be
exported into the calling package.
Some of these functions 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 function applies to the symbolic link
itself. If not specified FOLLOW defaults to 1.
=head1 COMPATIBILITY
pod/v2/afsperlkas.pod view on Meta::CPAN
Database, in which it stores user passwords converted into encryption
key form as well as the AFS server encryption key. It has methods to
query the information held for any given AFS user and to create,
modify, and delete the records in the DB where the above information
is held.
Before you can access any DB record you must establish a connection to
the Authentication Server. This is done by the constructor methods
I<SingleServerConn> and I<AuthServerConn> which return a KAS object. A
KAS object is essentially a handle to talk to an Authentication Server
in a given cell. Such a KAS object is required before any of the
other KAS instance methods can be called.
=head1 COMPATIBILITY
B<This release does NOT support any features and interfaces
from version 1.>
=head1 METHODS
=over 4
pod/v2/afsperlpts.pod view on Meta::CPAN
names and their internal numerical AFS identifiers. It also manages
the creation, manipulation, and update of user-defined groups suitable
for use on ACLs. It has methods to query the information held for any
given AFS user or group and to create, modify, and delete the records
in the PDB where the above information is held.
Before you can access any PDB records you must establish a connection
to the Protection Server. This is done by the constructor method
C<new> which returns a PTS object. A PTS object is essentially a
handle to talk to the Protection Server in a given cell. Such a PTS
object is required before any of the other PTS instance methods can be
called.
All PR_* methods are essentially the same as the low-level AFS PTS
APIs and are considered as I<low-level> methods. The other methods
(considered as high-level) are more I<user friendly> and perl-like.
Whereas the low-level (PR_*) methods only accept numerical values for
names or groups the high-level methods accept either numeric IDs or
names.
=head1 COMPATIBILITY
pod/v2/afsperlutils.pod view on Meta::CPAN
unlog;
=head1 DESCRIPTION
This module provides several utility functions for the B<AFS module
bundle>. You can retrieve the version number for the underlying AFS
system libraries, for the XS module, and for the AFS server processes.
And it contains several commands that do not belong to any AFS command
suites like creating a new PAG or retrieving and setting the
CPU/operating system type. Any function required must by explicitly
listed by the C<use> statement to be exported into the calling package.
=head1 COMPATIBILITY
B<This release does NOT support any features and interfaces
from version 1.>
=head1 EXPORTS
=head2 Standard Exports
pod/v2/afsperlvldb.pod view on Meta::CPAN
volume within its cell, along with select information about the nature
and state of that volume. This class provides methods to lookup for
volumes or to lock/unlock them in the DB. It is used to remove and to
list DB entries, and to synchronize the VLDB against the AFS
partitions.
Before you can access any VLDB records you must establish a connection
to the Volume Location Server. This is done by the constructor method
I<new> which returns a VLDB object. A VLDB object is essentially a
handle to talk to the Volume Location Server in a given cell. Such a
VLDB object is required before any of the other VLDB instance methods
can be called.
=head1 COMPATIBILITY
There was no version 1 implementation and hence there are no version
conflicts :-)
=head1 METHODS
=over 4
pod/v2/afsperlvos.pod view on Meta::CPAN
administrative tasks and probes to be performed on the set of AFS
volumes residing on the machine on which it is running. This class
provides methods to create, move, delete, replicate, back up and
examine AFS volumes. It has also methods to provide information about
AFS partitions.
Before you can submit any tasks to a Volume Server you must establish
a connection to it. This is done by the constructor method I<new>
which returns a VOS object. A VOS object is essentially a handle to
talk to the Volume Server in a given cell. Such a VOS object is
required before any of the other VOS instance methods can be called.
=head1 COMPATIBILITY
There was no version 1 implementation and hence there are no version
conflicts :-)
=head1 METHODS
=over 4
flags = 1;
}
if (volname && (strlen(volname) != 0)) {
/* Synchronize an individual volume */
code = UV_SyncVolume(tserver, pname, volname, flags);
}
else {
if (!tserver) {
char buffer[256];
sprintf(buffer, "Without a VOLUME argument, the server argument is required\n");
VSETCODE(-1, buffer);
goto done;
}
code = UV_SyncVldb(tserver, pname, flags, 0 /*unused */ );
}
if (code) {
char buffer[256];
set_errbuff(buffer, code);
VSETCODE(code, buffer);
src/inc/version/vpp.pm view on Meta::CPAN
# requires v1.2.3
return BADVERSION($s,$errstr,"Invalid version format (dotted-decimal versions require at least three parts)");
}
}
} # end if dotted-decimal
else
{ # decimal versions
# special $strict case for leading '.' or '0'
if ($strict) {
if ($d eq '.') {
return BADVERSION($s,$errstr,"Invalid version format (0 before decimal required)");
}
if ($d eq '0' && isDIGIT($d+1)) {
return BADVERSION($s,$errstr,"Invalid version format (no leading zeros)");
}
}
# and we never support negative version numbers
if ($d eq '-') {
return BADVERSION($s,$errstr,"Invalid version format (negative version number)");
}
src/inc/version/vpp.pm view on Meta::CPAN
# look for a fractional part
if ($d eq '.') {
# we found it, so consume it
$saw_decimal++;
$d++;
}
elsif (!$d || $d eq ';' || isSPACE($d) || $d eq '}') {
if ( $d == $s ) {
# found nothing
return BADVERSION($s,$errstr,"Invalid version format (version required)");
}
# found just an integer
goto version_prescan_finish;
}
elsif ( $d == $s ) {
# didn't find either integer or period
return BADVERSION($s,$errstr,"Invalid version format (non-numeric data)");
}
elsif ($d eq '_') {
# underscore can't come after integer part
src/inc/version/vpp.pm view on Meta::CPAN
}
}
elsif ($d) {
# anything else after integer part is just invalid data
return BADVERSION($s,$errstr,"Invalid version format (non-numeric data)");
}
# scan the fractional part after the decimal point
if ($d && !isDIGIT($d) && ($strict || ! ($d eq ';' || isSPACE($d) || $d eq '}') )) {
# $strict or lax-but-not-the-end
return BADVERSION($s,$errstr,"Invalid version format (fractional part required)");
}
while (isDIGIT($d)) {
$d++;
if ($d eq '.' && isDIGIT($d-1)) {
if ($alpha) {
return BADVERSION($s,$errstr,"Invalid version format (underscores before decimal)");
}
if ($strict) {
return BADVERSION($s,$errstr,"Invalid version format (dotted-decimal versions must begin with 'v')");
src/inc/version/vpp.pm view on Meta::CPAN
my $version = eval "\$$class\::VERSION";
if ( defined $version ) {
local $^W if $] <= 5.008;
$version = version::vpp->new($version);
}
if ( defined $req ) {
unless ( defined $version ) {
require Carp;
my $msg = $] < 5.006
? "$class version $req required--this is only version "
: "$class does not define \$$class\::VERSION"
."--version check failed";
if ( $ENV{VERSION_DEBUG} ) {
Carp::confess($msg);
}
else {
Carp::croak($msg);
}
}
$req = version::vpp->new($req);
if ( $req > $version ) {
require Carp;
if ( $req->is_qv ) {
Carp::croak(
sprintf ("%s version %s required--".
"this is only version %s", $class,
$req->normal, $version->normal)
);
}
else {
Carp::croak(
sprintf ("%s version %s required--".
"this is only version %s", $class,
$req->stringify, $version->stringify)
);
}
}
}
return defined $version ? $version->stringify : undef;
}
src/ppport.h view on Meta::CPAN
mydiff(\*PATCH, $filename, $c);
}
else {
fallback:
info("Suggested changes:");
mydiff(\*STDOUT, $filename, $c);
}
}
else {
my $s = $file{changes} == 1 ? '' : 's';
info("$file{changes} potentially required change$s detected");
}
}
else {
info("Looks good");
}
}
close PATCH if $patch_opened;
exit 0;
src/t/pod.t view on Meta::CPAN
use strict;
use lib qw(../../inc ../inc ./inc);
use Test::More;
plan skip_all => "This test is only run for the module author"
unless -d '.svn' || $ENV{IS_MAINTAINER};
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my @poddirs = qw(../blib);
all_pod_files_ok(Test::Pod::all_pod_files(@poddirs));
( run in 0.707 second using v1.01-cache-2.11-cpan-0a6323c29d9 )