/usr/lib/x86_64-linux-gnu/perl5/5.20/Cluster/CCS.pm is in libccs-perl 3.1.8-1.2+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 | package Cluster::CCS;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
our %EXPORT_TAGS = ( 'all' => [qw(
)]);
@EXPORT = qw(
);
@EXPORT_OK = (@{$EXPORT_TAGS{'all'}});
our $VERSION = '3.1.8';
require XSLoader;
XSLoader::load('Cluster::CCS', $VERSION);
sub new {
my $class = shift;
my $self = bless {
@_
};
return $self;
}
1;
__END__
=head1 NAME
Cluster::CCS - Perl wrapper for the Cluster Configuration Service library
=head1 SYNOPSIS
use Cluster::CCS;
my $ccs = new Cluster::CCS();
$ccs->fullxpath(1);
my $ccshandle = $ccs->connect();
if ($ccshandle < 1) {
print "Cannot comunicate with libccs\n";
exit $ccshandle;
}
my $rtn;
my $err;
$err = $ccs->get($ccshandle, '/cluster/@name', $rtn);
if ($err != 0) {
print "Query is not valid\n";
}
print "My Cluster name is $rtn\n";
$err = $ccs->disconnect($ccshandle);
if ($err != 0) {
print "Problems disconnecting from libccs\n";
}
exit $err;
=head1 DESCRIPTION
Cluster::CCS provides a perl XS wrapper for libccs.
=head1 METHODS
=head2 new
Creates a new Cluster::CCS object.
=head2 fullxpath(value)
Enable or disable full xpath queries. Set 1 to enable, 0 to disable.
This has to be set before connect() or force_connect.
In order to change this value, a disconnect operation is required.
=head2 connect(void)
Initialize the connection to libccs/libconfdb/corosync objdb.
Returns 1 on success or negative on failure.
=head2 force_connect(cluster_name, blocking)
Initialize the connection to libccs/libconfdb/corosync objdb.
If blocking is set, it will retry the operation until it succeed.
Returns 1 on success or negative on failure.
=head2 disconnect(desc)
Disconnect and free resources allocated during opertaion.
Returns 0 on success.
=head2 get(desc, query, rtn)
Perform a simple xpath query.
Returns 0 on success, negative otherwise. On success rtn will contain the
requested data.
=head2 get_list(desc, query, rtn)
Perform a simple xpath query and retain some data to iterate over a list of
results.
Returns 0 on success, negative otherwise. On success rtn will contain the
requested data.
=head2 set(desc, path, val)
This operation is not yet implemented in libccs.
=head2 lookup_nodename(desc, nodename, rtn)
Perform a nodename lookup using several methods.
Return 0 on success and rtn will contain the requested data.
=head1 EXPORTS
Nothing is exported by default.
=head1 BUGS
https://bugzilla.redhat.com/
=head1 SEE ALSO
cluster.conf(5), ccs(7), ccs_tool(8)
=head1 AUTHOR
Fabio M. Di Nitto <fdinitto@redhat.com>
=cut
|