pve-manager/PVE/API2/Ceph/Cfg.pm

package PVE::API2::Ceph::Cfg;

use strict;
use warnings;

use PVE::Ceph::Tools;
use PVE::Cluster qw(cfs_read_file);
use PVE::JSONSchema qw(get_standard_option);
use PVE::RADOS;
use PVE::Tools qw(file_get_contents);

use base qw(PVE::RESTHandler);

__PACKAGE__->register_method ({
    name => 'index',
    path => '',
    method => 'GET',
    description => "Directory index.",
    permissions => { user => 'all' },
    parameters => {
	additionalProperties => 0,
	properties => {
	    node => get_standard_option('pve-node'),
	},
    },
    returns => {
	type => 'array',
	items => {
	    type => "object",
	    properties => {},
	},
	links => [ { rel => 'child', href => "{name}" } ],
    },
    code => sub {
	my ($param) = @_;

	my $result = [
	    { name => 'raw' },
	    { name => 'db' },
	    { name => 'value' },
	];

	return $result;
    }});

__PACKAGE__->register_method ({
    name => 'raw',
    path => 'raw',
    method => 'GET',
    proxyto => 'node',
    permissions => {
	check => ['perm', '/', [ 'Sys.Audit', 'Datastore.Audit' ], any => 1],
    },
    description => "Get the Ceph configuration file.",
    parameters => {
	additionalProperties => 0,
	properties => {
	    node => get_standard_option('pve-node'),
	},
    },
    returns => { type => 'string' },
    code => sub {
	my ($param) = @_;

	PVE::Ceph::Tools::check_ceph_inited();

	my $path = PVE::Ceph::Tools::get_config('pve_ceph_cfgpath');
	return file_get_contents($path);

    }});

__PACKAGE__->register_method ({
    name => 'db',
    path => 'db',
    method => 'GET',
    proxyto => 'node',
    protected => 1,
    permissions => {
	check => ['perm', '/', [ 'Sys.Audit', 'Datastore.Audit' ], any => 1],
    },
    description => "Get the Ceph configuration database.",
    parameters => {
	additionalProperties => 0,
	properties => {
	    node => get_standard_option('pve-node'),
	},
    },
    returns => {
	type => 'array',
	items => {
	    type => 'object',
	    properties => {
		section => { type => "string", },
		name => { type => "string", },
		value => { type => "string", },
		level => { type => "string", },
		'can_update_at_runtime' => { type => "boolean", },
		mask => { type => "string" },
	    },
	},
    },
    code => sub {
	my ($param) = @_;

	PVE::Ceph::Tools::check_ceph_inited();

	my $rados = PVE::RADOS->new();
	my $res = $rados->mon_command( { prefix => 'config dump', format => 'json' });
	foreach my $entry (@$res) {
	    $entry->{can_update_at_runtime} = $entry->{can_update_at_runtime}? 1 : 0; # JSON::true/false -> 1/0
	}

	return $res;
    }});


my $SINGLE_CONFIGKEY_RE = qr/[0-9a-z\-_\.]+:[0-9a-zA-Z\-_]+/i;
my $CONFIGKEYS_RE = qr/^(:?${SINGLE_CONFIGKEY_RE})(:?[;, ]${SINGLE_CONFIGKEY_RE})*$/;

__PACKAGE__->register_method ({
    name => 'value',
    path => 'value',
    method => 'GET',
    proxyto => 'node',
    protected => 1,
    permissions => {
	check => ['perm', '/', [ 'Sys.Audit' ]],
    },
    description => "Get configured values from either the config file or config DB.",
    parameters => {
	additionalProperties => 0,
	properties => {
	    node => get_standard_option('pve-node'),
	    'config-keys' => {
		type => "string",
		typetext => "<section>:<config key>[;<section>:<config key>]",
		pattern => $CONFIGKEYS_RE,
		description => "List of <section>:<config key> items.",
	    }
	},
    },
    returns => {
	type => 'object',
	description => "Contains {section}->{key} children with the values",
    },
    code => sub {
	my ($param) = @_;

	PVE::Ceph::Tools::check_ceph_inited();

	# Ceph treats '-' and '_' the same in parameter names, stick with '-'
	my $normalize = sub {
	    my $t = shift;
	    $t =~ s/_/-/g;
	    return $t;
	};

	my $requested_keys = {};
	for my $pair (PVE::Tools::split_list($param->{'config-keys'})) {
	    my ($section, $key) = split(":", $pair);
	    $section = $normalize->($section);
	    $key = $normalize->($key);

	    $requested_keys->{$section}->{$key} = 1;
	}

	my $config = {};

	my $rados = PVE::RADOS->new();
	my $configdb = $rados->mon_command( { prefix => 'config dump', format => 'json' });
	for my $s (@{$configdb}) {
	    my ($section, $name, $value) = $s->@{'section', 'name', 'value'};
	    my $n_section = $normalize->($section);
	    my $n_name = $normalize->($name);

	    $config->{$n_section}->{$n_name} = $value
		if defined $requested_keys->{$n_section} && $n_name eq $n_name;
	}

	# read ceph.conf after config db as it has priority if settings are present in both
	my $config_file = cfs_read_file('ceph.conf'); # cfs_read_file to get it parsed
	for my $section (keys %{$config_file}) {
	    my $n_section = $normalize->($section);
	    next if !defined $requested_keys->{$n_section};

	    for my $key (keys %{$config_file->{$section}}) {
		my $n_key = $normalize->($key);
		$config->{$n_section}->{$n_key} = $config_file->{$section}->{$key}
		    if $requested_keys->{$n_section}->{$n_key};
	    }
	}

	return $config;
    }});