+++ /dev/null
-/*
- * Copyright (C) 2013 - David Goulet <dgoulet@efficios.com>
- * Copyright (C) 2016 - Jérémie Galarneau <jeremie.galarneau@efficios.com>
- *
- * This program is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License, version 2 only, as
- * published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
- * more details.
- *
- * You should have received a copy of the GNU General Public License along with
- * this program; if not, write to the Free Software Foundation, Inc., 51
- * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- */
-
-#define _LGPL_SOURCE
-#include <assert.h>
-#include <urcu/uatomic.h>
-#include <urcu/rculist.h>
-
-#include <common/common.h>
-#include <common/sessiond-comm/agent.h>
-
-#include <common/compat/endian.h>
-
-#include "agent.h"
-#include "ust-app.h"
-#include "utils.h"
-#include "error.h"
-
-#define AGENT_RET_CODE_INDEX(code) (code - AGENT_RET_CODE_SUCCESS)
-
-/*
- * Agent application context representation.
- */
-struct agent_app_ctx {
- char *provider_name;
- char *ctx_name;
-
- /* agent_app_ctx are part of the agent app_ctx_list. */
- struct cds_list_head list_node;
-
- /* For call_rcu teardown. */
- struct rcu_head rcu_node;
-};
-
-/*
- * Human readable agent return code.
- */
-static const char *error_string_array[] = {
- [ AGENT_RET_CODE_INDEX(AGENT_RET_CODE_SUCCESS) ] = "Success",
- [ AGENT_RET_CODE_INDEX(AGENT_RET_CODE_INVALID) ] = "Invalid command",
- [ AGENT_RET_CODE_INDEX(AGENT_RET_CODE_UNKNOWN_NAME) ] = "Unknown logger name",
-
- /* Last element */
- [ AGENT_RET_CODE_INDEX(AGENT_RET_CODE_NR) ] = "Unknown code",
-};
-
-static
-void log_reply_code(uint32_t in_reply_ret_code)
-{
- int level = PRINT_DBG3;
- /*
- * reply_ret_code and in_reply_ret_code are kept separate to have a
- * sanitized value (used to retrieve the human readable string) and the
- * original value which is logged as-is.
- */
- uint32_t reply_ret_code = in_reply_ret_code;
-
- if (reply_ret_code < AGENT_RET_CODE_SUCCESS ||
- reply_ret_code >= AGENT_RET_CODE_NR) {
- reply_ret_code = AGENT_RET_CODE_NR;
- level = PRINT_ERR;
- }
-
- LOG(level, "Agent replied with retcode: %s (%"PRIu32")",
- error_string_array[AGENT_RET_CODE_INDEX(
- reply_ret_code)],
- in_reply_ret_code);
-}
-
-/*
- * Match function for the events hash table lookup by name.
- */
-static int ht_match_event_by_name(struct cds_lfht_node *node,
- const void *_key)
-{
- struct agent_event *event;
- const struct agent_ht_key *key;
-
- assert(node);
- assert(_key);
-
- event = caa_container_of(node, struct agent_event, node.node);
- key = _key;
-
- /* Match 1 elements of the key: name. */
-
- /* Event name */
- if (strncmp(event->name, key->name, sizeof(event->name)) != 0) {
- goto no_match;
- }
- /* Match. */
- return 1;
-
-no_match:
- return 0;
-}
-
-/*
- * Match function for the events hash table lookup by name and loglevel.
- */
-static int ht_match_event(struct cds_lfht_node *node,
- const void *_key)
-{
- struct agent_event *event;
- const struct agent_ht_key *key;
- int ll_match;
-
- assert(node);
- assert(_key);
-
- event = caa_container_of(node, struct agent_event, node.node);
- key = _key;
-
- /* Match 2 elements of the key: name and loglevel. */
-
- /* Event name */
- if (strncmp(event->name, key->name, sizeof(event->name)) != 0) {
- goto no_match;
- }
-
- /* Event loglevel value and type. */
- ll_match = loglevels_match(event->loglevel_type,
- event->loglevel_value, key->loglevel_type,
- key->loglevel_value, LTTNG_EVENT_LOGLEVEL_ALL);
-
- if (!ll_match) {
- goto no_match;
- }
-
- /* Filter expression */
- if (strncmp(event->filter_expression, key->filter_expression,
- strlen(event->filter_expression)) != 0) {
- goto no_match;
- }
-
- return 1;
-
-no_match:
- return 0;
-}
-
-/*
- * Add unique agent event based on the event name and loglevel.
- */
-static void add_unique_agent_event(struct lttng_ht *ht,
- struct agent_event *event)
-{
- struct cds_lfht_node *node_ptr;
- struct agent_ht_key key;
-
- assert(ht);
- assert(ht->ht);
- assert(event);
-
- key.name = event->name;
- key.loglevel_value = event->loglevel_value;
- key.loglevel_type = event->loglevel_type;
- key.filter_expression = event->filter_expression;
-
- node_ptr = cds_lfht_add_unique(ht->ht,
- ht->hash_fct(event->node.key, lttng_ht_seed),
- ht_match_event, &key, &event->node.node);
- assert(node_ptr == &event->node.node);
-}
-
-/*
- * URCU delayed agent event reclaim.
- */
-static void destroy_event_agent_rcu(struct rcu_head *head)
-{
- struct lttng_ht_node_str *node =
- caa_container_of(head, struct lttng_ht_node_str, head);
- struct agent_event *event =
- caa_container_of(node, struct agent_event, node);
-
- agent_destroy_event(event);
-}
-
-/*
- * URCU delayed agent app reclaim.
- */
-static void destroy_app_agent_rcu(struct rcu_head *head)
-{
- struct lttng_ht_node_ulong *node =
- caa_container_of(head, struct lttng_ht_node_ulong, head);
- struct agent_app *app =
- caa_container_of(node, struct agent_app, node);
-
- free(app);
-}
-
-/*
- * Communication with the agent. Send the message header to the given socket in
- * big endian.
- *
- * Return 0 on success or else a negative errno message of sendmsg() op.
- */
-static int send_header(struct lttcomm_sock *sock, uint64_t data_size,
- uint32_t cmd, uint32_t cmd_version)
-{
- int ret;
- ssize_t size;
- struct lttcomm_agent_hdr msg;
-
- assert(sock);
-
- memset(&msg, 0, sizeof(msg));
- msg.data_size = htobe64(data_size);
- msg.cmd = htobe32(cmd);
- msg.cmd_version = htobe32(cmd_version);
-
- size = sock->ops->sendmsg(sock, &msg, sizeof(msg), 0);
- if (size < sizeof(msg)) {
- ret = -errno;
- goto error;
- }
- ret = 0;
-
-error:
- return ret;
-}
-
-/*
- * Communication call with the agent. Send the payload to the given socket. The
- * header MUST be sent prior to this call.
- *
- * Return 0 on success or else a negative errno value of sendmsg() op.
- */
-static int send_payload(struct lttcomm_sock *sock, const void *data,
- size_t size)
-{
- int ret;
- ssize_t len;
-
- assert(sock);
- assert(data);
-
- len = sock->ops->sendmsg(sock, data, size, 0);
- if (len < size) {
- ret = -errno;
- goto error;
- }
- ret = 0;
-
-error:
- return ret;
-}
-
-/*
- * Communication call with the agent. Receive reply from the agent using the
- * given socket.
- *
- * Return 0 on success or else a negative errno value from recvmsg() op.
- */
-static int recv_reply(struct lttcomm_sock *sock, void *buf, size_t size)
-{
- int ret;
- ssize_t len;
-
- assert(sock);
- assert(buf);
-
- len = sock->ops->recvmsg(sock, buf, size, 0);
- if (len < size) {
- ret = -errno;
- goto error;
- }
- ret = 0;
-
-error:
- return ret;
-}
-
-/*
- * Internal event listing for a given app. Populate events.
- *
- * Return number of element in the list or else a negative LTTNG_ERR* code.
- * On success, the caller is responsible for freeing the memory
- * allocated for "events".
- */
-static ssize_t list_events(struct agent_app *app, struct lttng_event **events)
-{
- int ret, i, len = 0, offset = 0;
- uint32_t nb_event;
- size_t data_size;
- uint32_t reply_ret_code;
- struct lttng_event *tmp_events = NULL;
- struct lttcomm_agent_list_reply *reply = NULL;
- struct lttcomm_agent_list_reply_hdr reply_hdr;
-
- assert(app);
- assert(app->sock);
- assert(events);
-
- DBG2("Agent listing events for app pid: %d and socket %d", app->pid,
- app->sock->fd);
-
- ret = send_header(app->sock, 0, AGENT_CMD_LIST, 0);
- if (ret < 0) {
- goto error_io;
- }
-
- /* Get list header so we know how much we'll receive. */
- ret = recv_reply(app->sock, &reply_hdr, sizeof(reply_hdr));
- if (ret < 0) {
- goto error_io;
- }
-
- reply_ret_code = be32toh(reply_hdr.ret_code);
- log_reply_code(reply_ret_code);
- switch (reply_ret_code) {
- case AGENT_RET_CODE_SUCCESS:
- data_size = be32toh(reply_hdr.data_size) + sizeof(*reply);
- break;
- default:
- ret = LTTNG_ERR_UNK;
- goto error;
- }
-
- reply = zmalloc(data_size);
- if (!reply) {
- ret = LTTNG_ERR_NOMEM;
- goto error;
- }
-
- /* Get the list with the appropriate data size. */
- ret = recv_reply(app->sock, reply, data_size);
- if (ret < 0) {
- goto error_io;
- }
-
- nb_event = be32toh(reply->nb_event);
- tmp_events = zmalloc(sizeof(*tmp_events) * nb_event);
- if (!tmp_events) {
- ret = LTTNG_ERR_NOMEM;
- goto error;
- }
-
- for (i = 0; i < nb_event; i++) {
- offset += len;
- strncpy(tmp_events[i].name, reply->payload + offset,
- sizeof(tmp_events[i].name));
- tmp_events[i].pid = app->pid;
- tmp_events[i].enabled = -1;
- len = strlen(reply->payload + offset) + 1;
- }
-
- *events = tmp_events;
-
- free(reply);
- return nb_event;
-
-error_io:
- ret = LTTNG_ERR_UST_LIST_FAIL;
-error:
- free(reply);
- free(tmp_events);
- return -ret;
-
-}
-
-/*
- * Internal enable agent event on a agent application. This function
- * communicates with the agent to enable a given event.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-static int enable_event(struct agent_app *app, struct agent_event *event)
-{
- int ret;
- char *bytes_to_send;
- uint64_t data_size;
- size_t filter_expression_length;
- uint32_t reply_ret_code;
- struct lttcomm_agent_enable_event msg;
- struct lttcomm_agent_generic_reply reply;
-
- assert(app);
- assert(app->sock);
- assert(event);
-
- DBG2("Agent enabling event %s for app pid: %d and socket %d", event->name,
- app->pid, app->sock->fd);
-
- /*
- * Calculate the payload's size, which is the fixed-size struct followed
- * by the variable-length filter expression (+1 for the ending \0).
- */
- if (!event->filter_expression) {
- filter_expression_length = 0;
- } else {
- filter_expression_length = strlen(event->filter_expression) + 1;
- }
- data_size = sizeof(msg) + filter_expression_length;
-
- ret = send_header(app->sock, data_size, AGENT_CMD_ENABLE, 0);
- if (ret < 0) {
- goto error_io;
- }
-
- memset(&msg, 0, sizeof(msg));
- msg.loglevel_value = htobe32(event->loglevel_value);
- msg.loglevel_type = htobe32(event->loglevel_type);
- strncpy(msg.name, event->name, sizeof(msg.name));
- msg.filter_expression_length = htobe32(filter_expression_length);
-
- bytes_to_send = zmalloc(data_size);
- if (!bytes_to_send) {
- ret = LTTNG_ERR_NOMEM;
- goto error;
- }
-
- memcpy(bytes_to_send, &msg, sizeof(msg));
- if (filter_expression_length > 0) {
- memcpy(bytes_to_send + sizeof(msg), event->filter_expression,
- filter_expression_length);
- }
-
- ret = send_payload(app->sock, bytes_to_send, data_size);
- free(bytes_to_send);
- if (ret < 0) {
- goto error_io;
- }
-
- ret = recv_reply(app->sock, &reply, sizeof(reply));
- if (ret < 0) {
- goto error_io;
- }
-
- reply_ret_code = be32toh(reply.ret_code);
- log_reply_code(reply_ret_code);
- switch (reply_ret_code) {
- case AGENT_RET_CODE_SUCCESS:
- break;
- case AGENT_RET_CODE_UNKNOWN_NAME:
- ret = LTTNG_ERR_UST_EVENT_NOT_FOUND;
- goto error;
- default:
- ret = LTTNG_ERR_UNK;
- goto error;
- }
-
- return LTTNG_OK;
-
-error_io:
- ret = LTTNG_ERR_UST_ENABLE_FAIL;
-error:
- return ret;
-}
-
-/*
- * Send Pascal-style string. Size is sent as a 32-bit big endian integer.
- */
-static
-int send_pstring(struct lttcomm_sock *sock, const char *str, uint32_t len)
-{
- int ret;
- uint32_t len_be;
-
- len_be = htobe32(len);
- ret = send_payload(sock, &len_be, sizeof(len_be));
- if (ret) {
- goto end;
- }
-
- ret = send_payload(sock, str, len);
- if (ret) {
- goto end;
- }
-end:
- return ret;
-}
-
-/*
- * Internal enable application context on an agent application. This function
- * communicates with the agent to enable a given application context.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-static int app_context_op(struct agent_app *app,
- struct agent_app_ctx *ctx, enum lttcomm_agent_command cmd)
-{
- int ret;
- uint32_t reply_ret_code;
- struct lttcomm_agent_generic_reply reply;
- size_t app_ctx_provider_name_len, app_ctx_name_len, data_size;
-
- assert(app);
- assert(app->sock);
- assert(ctx);
- assert(cmd == AGENT_CMD_APP_CTX_ENABLE ||
- cmd == AGENT_CMD_APP_CTX_DISABLE);
-
- DBG2("Agent %s application %s:%s for app pid: %d and socket %d",
- cmd == AGENT_CMD_APP_CTX_ENABLE ? "enabling" : "disabling",
- ctx->provider_name, ctx->ctx_name,
- app->pid, app->sock->fd);
-
- /*
- * Calculate the payload's size, which consists of the size (u32, BE)
- * of the provider name, the NULL-terminated provider name string, the
- * size (u32, BE) of the context name, followed by the NULL-terminated
- * context name string.
- */
- app_ctx_provider_name_len = strlen(ctx->provider_name) + 1;
- app_ctx_name_len = strlen(ctx->ctx_name) + 1;
- data_size = sizeof(uint32_t) + app_ctx_provider_name_len +
- sizeof(uint32_t) + app_ctx_name_len;
-
- ret = send_header(app->sock, data_size, cmd, 0);
- if (ret < 0) {
- goto error_io;
- }
-
- if (app_ctx_provider_name_len > UINT32_MAX ||
- app_ctx_name_len > UINT32_MAX) {
- ERR("Application context name > MAX_UINT32");
- ret = LTTNG_ERR_INVALID;
- goto error;
- }
-
- ret = send_pstring(app->sock, ctx->provider_name,
- (uint32_t) app_ctx_provider_name_len);
- if (ret < 0) {
- goto error_io;
- }
-
- ret = send_pstring(app->sock, ctx->ctx_name,
- (uint32_t) app_ctx_name_len);
- if (ret < 0) {
- goto error_io;
- }
-
- ret = recv_reply(app->sock, &reply, sizeof(reply));
- if (ret < 0) {
- goto error_io;
- }
-
- reply_ret_code = be32toh(reply.ret_code);
- log_reply_code(reply_ret_code);
- switch (reply_ret_code) {
- case AGENT_RET_CODE_SUCCESS:
- break;
- default:
- ret = LTTNG_ERR_UNK;
- goto error;
- }
-
- return LTTNG_OK;
-
-error_io:
- ret = LTTNG_ERR_UST_ENABLE_FAIL;
-error:
- return ret;
-}
-
-/*
- * Internal disable agent event call on a agent application. This function
- * communicates with the agent to disable a given event.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-static int disable_event(struct agent_app *app, struct agent_event *event)
-{
- int ret;
- uint64_t data_size;
- uint32_t reply_ret_code;
- struct lttcomm_agent_disable_event msg;
- struct lttcomm_agent_generic_reply reply;
-
- assert(app);
- assert(app->sock);
- assert(event);
-
- DBG2("Agent disabling event %s for app pid: %d and socket %d", event->name,
- app->pid, app->sock->fd);
-
- data_size = sizeof(msg);
-
- ret = send_header(app->sock, data_size, AGENT_CMD_DISABLE, 0);
- if (ret < 0) {
- goto error_io;
- }
-
- memset(&msg, 0, sizeof(msg));
- strncpy(msg.name, event->name, sizeof(msg.name));
- ret = send_payload(app->sock, &msg, sizeof(msg));
- if (ret < 0) {
- goto error_io;
- }
-
- ret = recv_reply(app->sock, &reply, sizeof(reply));
- if (ret < 0) {
- goto error_io;
- }
-
- reply_ret_code = be32toh(reply.ret_code);
- log_reply_code(reply_ret_code);
- switch (reply_ret_code) {
- case AGENT_RET_CODE_SUCCESS:
- break;
- case AGENT_RET_CODE_UNKNOWN_NAME:
- ret = LTTNG_ERR_UST_EVENT_NOT_FOUND;
- goto error;
- default:
- ret = LTTNG_ERR_UNK;
- goto error;
- }
-
- return LTTNG_OK;
-
-error_io:
- ret = LTTNG_ERR_UST_DISABLE_FAIL;
-error:
- return ret;
-}
-
-/*
- * Send back the registration DONE command to a given agent application.
- *
- * Return 0 on success or else a negative value.
- */
-int agent_send_registration_done(struct agent_app *app)
-{
- assert(app);
- assert(app->sock);
-
- DBG("Agent sending registration done to app socket %d", app->sock->fd);
-
- return send_header(app->sock, 0, AGENT_CMD_REG_DONE, 0);
-}
-
-/*
- * Enable agent event on every agent applications registered with the session
- * daemon.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-int agent_enable_event(struct agent_event *event,
- enum lttng_domain_type domain)
-{
- int ret;
- struct agent_app *app;
- struct lttng_ht_iter iter;
-
- assert(event);
-
- rcu_read_lock();
-
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, app,
- node.node) {
- if (app->domain != domain) {
- continue;
- }
-
- /* Enable event on agent application through TCP socket. */
- ret = enable_event(app, event);
- if (ret != LTTNG_OK) {
- goto error;
- }
- }
-
- event->enabled = 1;
- ret = LTTNG_OK;
-
-error:
- rcu_read_unlock();
- return ret;
-}
-
-static
-void destroy_app_ctx(struct agent_app_ctx *ctx)
-{
- free(ctx->provider_name);
- free(ctx->ctx_name);
- free(ctx);
-}
-
-static
-struct agent_app_ctx *create_app_ctx(struct lttng_event_context *ctx)
-{
- struct agent_app_ctx *agent_ctx = NULL;
-
- if (!ctx) {
- goto end;
- }
-
- assert(ctx->ctx == LTTNG_EVENT_CONTEXT_APP_CONTEXT);
- agent_ctx = zmalloc(sizeof(*ctx));
- if (!agent_ctx) {
- goto end;
- }
-
- agent_ctx->provider_name = strdup(ctx->u.app_ctx.provider_name);
- agent_ctx->ctx_name = strdup(ctx->u.app_ctx.ctx_name);
- if (!agent_ctx->provider_name || !agent_ctx->ctx_name) {
- destroy_app_ctx(agent_ctx);
- agent_ctx = NULL;
- }
-end:
- return agent_ctx;
-}
-
-/*
- * Enable agent context on every agent applications registered with the session
- * daemon.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-int agent_enable_context(struct lttng_event_context *ctx,
- enum lttng_domain_type domain)
-{
- int ret;
- struct agent_app *app;
- struct lttng_ht_iter iter;
-
- assert(ctx);
- if (ctx->ctx != LTTNG_EVENT_CONTEXT_APP_CONTEXT) {
- ret = LTTNG_ERR_INVALID;
- goto error;
- }
-
- rcu_read_lock();
-
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, app,
- node.node) {
- struct agent_app_ctx *agent_ctx;
-
- if (app->domain != domain) {
- continue;
- }
-
- agent_ctx = create_app_ctx(ctx);
- if (!agent_ctx) {
- ret = LTTNG_ERR_NOMEM;
- goto error_unlock;
- }
-
- /* Enable event on agent application through TCP socket. */
- ret = app_context_op(app, agent_ctx, AGENT_CMD_APP_CTX_ENABLE);
- if (ret != LTTNG_OK) {
- destroy_app_ctx(agent_ctx);
- goto error_unlock;
- }
- }
-
- ret = LTTNG_OK;
-
-error_unlock:
- rcu_read_unlock();
-error:
- return ret;
-}
-
-/*
- * Disable agent event on every agent application registered with the session
- * daemon.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-int agent_disable_event(struct agent_event *event,
- enum lttng_domain_type domain)
-{
- int ret = LTTNG_OK;
- struct agent_app *app;
- struct lttng_ht_iter iter;
-
- assert(event);
- if (!event->enabled) {
- goto end;
- }
-
- rcu_read_lock();
-
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, app,
- node.node) {
- if (app->domain != domain) {
- continue;
- }
-
- /* Enable event on agent application through TCP socket. */
- ret = disable_event(app, event);
- if (ret != LTTNG_OK) {
- goto error;
- }
- }
-
- event->enabled = 0;
-
-error:
- rcu_read_unlock();
-end:
- return ret;
-}
-
-/*
- * Disable agent context on every agent application registered with the session
- * daemon.
- *
- * Return LTTNG_OK on success or else a LTTNG_ERR* code.
- */
-int disable_context(struct agent_app_ctx *ctx, enum lttng_domain_type domain)
-{
- int ret = LTTNG_OK;
- struct agent_app *app;
- struct lttng_ht_iter iter;
-
- assert(ctx);
-
- rcu_read_lock();
- DBG2("Disabling agent application context %s:%s",
- ctx->provider_name, ctx->ctx_name);
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, app,
- node.node) {
- if (app->domain != domain) {
- continue;
- }
-
- ret = app_context_op(app, ctx, AGENT_CMD_APP_CTX_DISABLE);
- if (ret != LTTNG_OK) {
- goto end;
- }
- }
-end:
- rcu_read_unlock();
- return ret;
-}
-
-/*
- * Ask every agent for the list of possible event. Events is allocated with the
- * events of every agent application.
- *
- * Return the number of events or else a negative value.
- */
-int agent_list_events(struct lttng_event **events,
- enum lttng_domain_type domain)
-{
- int ret;
- size_t nbmem, count = 0;
- struct agent_app *app;
- struct lttng_event *tmp_events = NULL;
- struct lttng_ht_iter iter;
-
- assert(events);
-
- DBG2("Agent listing events for domain %d", domain);
-
- nbmem = UST_APP_EVENT_LIST_SIZE;
- tmp_events = zmalloc(nbmem * sizeof(*tmp_events));
- if (!tmp_events) {
- PERROR("zmalloc agent list events");
- ret = -ENOMEM;
- goto error;
- }
-
- rcu_read_lock();
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, app,
- node.node) {
- ssize_t nb_ev;
- struct lttng_event *agent_events;
-
- /* Skip domain not asked by the list. */
- if (app->domain != domain) {
- continue;
- }
-
- nb_ev = list_events(app, &agent_events);
- if (nb_ev < 0) {
- ret = nb_ev;
- goto error_unlock;
- }
-
- if (count + nb_ev > nbmem) {
- /* In case the realloc fails, we free the memory */
- struct lttng_event *new_tmp_events;
- size_t new_nbmem;
-
- new_nbmem = max_t(size_t, count + nb_ev, nbmem << 1);
- DBG2("Reallocating agent event list from %zu to %zu entries",
- nbmem, new_nbmem);
- new_tmp_events = realloc(tmp_events,
- new_nbmem * sizeof(*new_tmp_events));
- if (!new_tmp_events) {
- PERROR("realloc agent events");
- ret = -ENOMEM;
- free(agent_events);
- goto error_unlock;
- }
- /* Zero the new memory */
- memset(new_tmp_events + nbmem, 0,
- (new_nbmem - nbmem) * sizeof(*new_tmp_events));
- nbmem = new_nbmem;
- tmp_events = new_tmp_events;
- }
- memcpy(tmp_events + count, agent_events,
- nb_ev * sizeof(*tmp_events));
- free(agent_events);
- count += nb_ev;
- }
- rcu_read_unlock();
-
- ret = count;
- *events = tmp_events;
- return ret;
-
-error_unlock:
- rcu_read_unlock();
-error:
- free(tmp_events);
- return ret;
-}
-
-/*
- * Create a agent app object using the given PID.
- *
- * Return newly allocated object or else NULL on error.
- */
-struct agent_app *agent_create_app(pid_t pid, enum lttng_domain_type domain,
- struct lttcomm_sock *sock)
-{
- struct agent_app *app;
-
- assert(sock);
-
- app = zmalloc(sizeof(*app));
- if (!app) {
- PERROR("zmalloc agent create");
- goto error;
- }
-
- app->pid = pid;
- app->domain = domain;
- app->sock = sock;
- lttng_ht_node_init_ulong(&app->node, (unsigned long) app->sock->fd);
-
-error:
- return app;
-}
-
-/*
- * Lookup agent app by socket in the global hash table.
- *
- * RCU read side lock MUST be acquired.
- *
- * Return object if found else NULL.
- */
-struct agent_app *agent_find_app_by_sock(int sock)
-{
- struct lttng_ht_node_ulong *node;
- struct lttng_ht_iter iter;
- struct agent_app *app;
-
- assert(sock >= 0);
-
- lttng_ht_lookup(agent_apps_ht_by_sock, (void *)((unsigned long) sock), &iter);
- node = lttng_ht_iter_get_node_ulong(&iter);
- if (node == NULL) {
- goto error;
- }
- app = caa_container_of(node, struct agent_app, node);
-
- DBG3("Agent app pid %d found by sock %d.", app->pid, sock);
- return app;
-
-error:
- DBG3("Agent app NOT found by sock %d.", sock);
- return NULL;
-}
-
-/*
- * Add agent application object to the global hash table.
- */
-void agent_add_app(struct agent_app *app)
-{
- assert(app);
-
- DBG3("Agent adding app sock: %d and pid: %d to ht", app->sock->fd, app->pid);
- lttng_ht_add_unique_ulong(agent_apps_ht_by_sock, &app->node);
-}
-
-/*
- * Delete agent application from the global hash table.
- *
- * rcu_read_lock() must be held by the caller.
- */
-void agent_delete_app(struct agent_app *app)
-{
- int ret;
- struct lttng_ht_iter iter;
-
- assert(app);
-
- DBG3("Agent deleting app pid: %d and sock: %d", app->pid, app->sock->fd);
-
- iter.iter.node = &app->node.node;
- ret = lttng_ht_del(agent_apps_ht_by_sock, &iter);
- assert(!ret);
-}
-
-/*
- * Destroy an agent application object by detaching it from its corresponding
- * UST app if one is connected by closing the socket. Finally, perform a
- * delayed memory reclaim.
- */
-void agent_destroy_app(struct agent_app *app)
-{
- assert(app);
-
- if (app->sock) {
- app->sock->ops->close(app->sock);
- lttcomm_destroy_sock(app->sock);
- }
-
- call_rcu(&app->node.head, destroy_app_agent_rcu);
-}
-
-/*
- * Initialize an already allocated agent object.
- *
- * Return 0 on success or else a negative errno value.
- */
-int agent_init(struct agent *agt)
-{
- int ret;
-
- assert(agt);
-
- agt->events = lttng_ht_new(0, LTTNG_HT_TYPE_STRING);
- if (!agt->events) {
- ret = -ENOMEM;
- goto error;
- }
- lttng_ht_node_init_u64(&agt->node, agt->domain);
-
- CDS_INIT_LIST_HEAD(&agt->app_ctx_list);
- return 0;
-
-error:
- return ret;
-}
-
-/*
- * Add agent object to the given hash table.
- */
-void agent_add(struct agent *agt, struct lttng_ht *ht)
-{
- assert(agt);
- assert(ht);
-
- DBG3("Agent adding from domain %d", agt->domain);
-
- lttng_ht_add_unique_u64(ht, &agt->node);
-}
-
-/*
- * Create an agent object for the given domain.
- *
- * Return the allocated agent or NULL on error.
- */
-struct agent *agent_create(enum lttng_domain_type domain)
-{
- int ret;
- struct agent *agt;
-
- agt = zmalloc(sizeof(struct agent));
- if (!agt) {
- goto error;
- }
- agt->domain = domain;
-
- ret = agent_init(agt);
- if (ret < 0) {
- free(agt);
- agt = NULL;
- goto error;
- }
-
-error:
- return agt;
-}
-
-/*
- * Create a newly allocated agent event data structure.
- * Ownership of filter_expression is taken.
- *
- * Return a new object else NULL on error.
- */
-struct agent_event *agent_create_event(const char *name,
- enum lttng_loglevel_type loglevel_type, int loglevel_value,
- struct lttng_filter_bytecode *filter, char *filter_expression)
-{
- struct agent_event *event = NULL;
-
- DBG3("Agent create new event with name %s, loglevel type %d, \
- loglevel value %d and filter %s",
- name, loglevel_type, loglevel_value,
- filter_expression ? filter_expression : "NULL");
-
- if (!name) {
- ERR("Failed to create agent event; no name provided.");
- goto error;
- }
-
- event = zmalloc(sizeof(*event));
- if (!event) {
- goto error;
- }
-
- strncpy(event->name, name, sizeof(event->name));
- event->name[sizeof(event->name) - 1] = '\0';
- lttng_ht_node_init_str(&event->node, event->name);
-
- event->loglevel_value = loglevel_value;
- event->loglevel_type = loglevel_type;
- event->filter = filter;
- event->filter_expression = filter_expression;
-error:
- return event;
-}
-
-/*
- * Unique add of a agent event to an agent object.
- */
-void agent_add_event(struct agent_event *event, struct agent *agt)
-{
- assert(event);
- assert(agt);
- assert(agt->events);
-
- DBG3("Agent adding event %s", event->name);
- add_unique_agent_event(agt->events, event);
- agt->being_used = 1;
-}
-
-/*
- * Unique add of a agent context to an agent object.
- */
-int agent_add_context(struct lttng_event_context *ctx, struct agent *agt)
-{
- int ret = LTTNG_OK;
- struct agent_app_ctx *agent_ctx = NULL;
-
- assert(ctx);
- assert(agt);
- assert(agt->events);
- assert(ctx->ctx == LTTNG_EVENT_CONTEXT_APP_CONTEXT);
-
- agent_ctx = create_app_ctx(ctx);
- if (!agent_ctx) {
- ret = LTTNG_ERR_NOMEM;
- goto end;
- }
-
- DBG3("Agent adding context %s:%s", ctx->u.app_ctx.provider_name,
- ctx->u.app_ctx.ctx_name);
- cds_list_add_tail_rcu(&agent_ctx->list_node, &agt->app_ctx_list);
-end:
- return ret;
-}
-
-/*
- * Find multiple agent events sharing the given name.
- *
- * RCU read side lock MUST be acquired. It must be held for the
- * duration of the iteration.
- *
- * Sets the given iterator.
- */
-void agent_find_events_by_name(const char *name, struct agent *agt,
- struct lttng_ht_iter* iter)
-{
- struct lttng_ht *ht;
- struct agent_ht_key key;
-
- assert(name);
- assert(agt);
- assert(agt->events);
- assert(iter);
-
- ht = agt->events;
- key.name = name;
-
- cds_lfht_lookup(ht->ht, ht->hash_fct((void *) name, lttng_ht_seed),
- ht_match_event_by_name, &key, &iter->iter);
-}
-
-/*
- * Get the next agent event duplicate by name. This should be called
- * after a call to agent_find_events_by_name() to iterate on events.
- *
- * The RCU read lock must be held during the iteration and for as long
- * as the object the iterator points to remains in use.
- */
-void agent_event_next_duplicate(const char *name,
- struct agent *agt, struct lttng_ht_iter* iter)
-{
- struct agent_ht_key key;
-
- key.name = name;
-
- cds_lfht_next_duplicate(agt->events->ht, ht_match_event_by_name,
- &key, &iter->iter);
-}
-
-/*
- * Find a agent event in the given agent using name, loglevel and filter.
- *
- * RCU read side lock MUST be acquired. It must be kept for as long as
- * the returned agent_event is used.
- *
- * Return object if found else NULL.
- */
-struct agent_event *agent_find_event(const char *name,
- enum lttng_loglevel_type loglevel_type, int loglevel_value,
- char *filter_expression, struct agent *agt)
-{
- struct lttng_ht_node_str *node;
- struct lttng_ht_iter iter;
- struct lttng_ht *ht;
- struct agent_ht_key key;
-
- assert(name);
- assert(agt);
- assert(agt->events);
-
- ht = agt->events;
- key.name = name;
- key.loglevel_value = loglevel_value;
- key.loglevel_type = loglevel_type;
- key.filter_expression = filter_expression;
-
- cds_lfht_lookup(ht->ht, ht->hash_fct((void *) name, lttng_ht_seed),
- ht_match_event, &key, &iter.iter);
- node = lttng_ht_iter_get_node_str(&iter);
- if (node == NULL) {
- goto error;
- }
-
- DBG3("Agent event found %s.", name);
- return caa_container_of(node, struct agent_event, node);
-
-error:
- DBG3("Agent event NOT found %s.", name);
- return NULL;
-}
-
-/*
- * Free given agent event. This event must not be globally visible at this
- * point (only expected to be used on failure just after event creation). After
- * this call, the pointer is not usable anymore.
- */
-void agent_destroy_event(struct agent_event *event)
-{
- assert(event);
-
- free(event->filter);
- free(event->filter_expression);
- free(event->exclusion);
- free(event);
-}
-
-static
-void destroy_app_ctx_rcu(struct rcu_head *head)
-{
- struct agent_app_ctx *ctx =
- caa_container_of(head, struct agent_app_ctx, rcu_node);
-
- destroy_app_ctx(ctx);
-}
-
-/*
- * Destroy an agent completely.
- */
-void agent_destroy(struct agent *agt)
-{
- struct lttng_ht_node_str *node;
- struct lttng_ht_iter iter;
- struct agent_app_ctx *ctx;
-
- assert(agt);
-
- DBG3("Agent destroy");
-
- rcu_read_lock();
- cds_lfht_for_each_entry(agt->events->ht, &iter.iter, node, node) {
- int ret;
- struct agent_event *event;
-
- /*
- * When destroying an event, we have to try to disable it on the
- * agent side so the event stops generating data. The return
- * value is not important since we have to continue anyway
- * destroying the object.
- */
- event = caa_container_of(node, struct agent_event, node);
- (void) agent_disable_event(event, agt->domain);
-
- ret = lttng_ht_del(agt->events, &iter);
- assert(!ret);
- call_rcu(&node->head, destroy_event_agent_rcu);
- }
-
- cds_list_for_each_entry_rcu(ctx, &agt->app_ctx_list, list_node) {
- (void) disable_context(ctx, agt->domain);
- cds_list_del(&ctx->list_node);
- call_rcu(&ctx->rcu_node, destroy_app_ctx_rcu);
- }
- rcu_read_unlock();
- ht_cleanup_push(agt->events);
- free(agt);
-}
-
-/*
- * Allocate agent_apps_ht_by_sock.
- */
-int agent_app_ht_alloc(void)
-{
- int ret = 0;
-
- agent_apps_ht_by_sock = lttng_ht_new(0, LTTNG_HT_TYPE_ULONG);
- if (!agent_apps_ht_by_sock) {
- ret = -1;
- }
-
- return ret;
-}
-
-/*
- * Destroy a agent application by socket.
- */
-void agent_destroy_app_by_sock(int sock)
-{
- struct agent_app *app;
-
- assert(sock >= 0);
-
- /*
- * Not finding an application is a very important error that should NEVER
- * happen. The hash table deletion is ONLY done through this call when the
- * main sessiond thread is torn down.
- */
- rcu_read_lock();
- app = agent_find_app_by_sock(sock);
- assert(app);
-
- /* RCU read side lock is assumed to be held by this function. */
- agent_delete_app(app);
-
- /* The application is freed in a RCU call but the socket is closed here. */
- agent_destroy_app(app);
- rcu_read_unlock();
-}
-
-/*
- * Clean-up the agent app hash table and destroy it.
- */
-void agent_app_ht_clean(void)
-{
- struct lttng_ht_node_ulong *node;
- struct lttng_ht_iter iter;
-
- if (!agent_apps_ht_by_sock) {
- return;
- }
- rcu_read_lock();
- cds_lfht_for_each_entry(agent_apps_ht_by_sock->ht, &iter.iter, node, node) {
- struct agent_app *app;
-
- app = caa_container_of(node, struct agent_app, node);
- agent_destroy_app_by_sock(app->sock->fd);
- }
- rcu_read_unlock();
-
- lttng_ht_destroy(agent_apps_ht_by_sock);
-}
-
-/*
- * Update a agent application (given socket) using the given agent.
- *
- * Note that this function is most likely to be used with a tracing session
- * thus the caller should make sure to hold the appropriate lock(s).
- */
-void agent_update(struct agent *agt, int sock)
-{
- int ret;
- struct agent_app *app;
- struct agent_event *event;
- struct lttng_ht_iter iter;
- struct agent_app_ctx *ctx;
-
- assert(agt);
- assert(sock >= 0);
-
- DBG("Agent updating app socket %d", sock);
-
- rcu_read_lock();
- app = agent_find_app_by_sock(sock);
- /*
- * We are in the registration path thus if the application is gone,
- * there is a serious code flow error.
- */
- assert(app);
- cds_lfht_for_each_entry(agt->events->ht, &iter.iter, event, node.node) {
- /* Skip event if disabled. */
- if (!event->enabled) {
- continue;
- }
-
- ret = enable_event(app, event);
- if (ret != LTTNG_OK) {
- DBG2("Agent update unable to enable event %s on app pid: %d sock %d",
- event->name, app->pid, app->sock->fd);
- /* Let's try the others here and don't assume the app is dead. */
- continue;
- }
- }
-
- cds_list_for_each_entry_rcu(ctx, &agt->app_ctx_list, list_node) {
- ret = app_context_op(app, ctx, AGENT_CMD_APP_CTX_ENABLE);
- if (ret != LTTNG_OK) {
- DBG2("Agent update unable to add application context %s:%s on app pid: %d sock %d",
- ctx->provider_name, ctx->ctx_name,
- app->pid, app->sock->fd);
- continue;
- }
- }
-
- rcu_read_unlock();
-}