pjsip_outbound_registrations.c

Go to the documentation of this file.

/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2019 Sangoma, Inc.
 *
 * Matt Jordan <mjordan@digium.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */
 
/*!
 * \file
 * \brief Prometheus PJSIP Outbound Registration Metrics
 *
 * \author Matt Jordan <mjordan@digium.com>
 *
 */
 
#include "asterisk.h"
 
#include "asterisk/stasis_message_router.h"
#include "asterisk/stasis_system.h"
#include "asterisk/res_prometheus.h"
 
#ifdef HAVE_PJPROJECT
#include "asterisk/res_pjsip.h"
#endif /* HAVE_PJPROJECT */
 
#include "prometheus_internal.h"
 
#ifdef HAVE_PJPROJECT
 
/*! \internal \brief Our one and only Stasis message router */
static struct stasis_message_router *router;
 
/*!
 * \internal
 * \brief Wrapper object around our Metrics
 *
 * \details We keep a wrapper around the metric so we can easily
 * update the value when the state of the registration changes, as
 * well as remove and unregister the metric when someone destroys
 * or reloads the registration
 */
struct prometheus_metric_wrapper {
    /*!
     * \brief The actual metric. Worth noting that we do *NOT*
     * own the metric, as it is registered with res_prometheus.
     * Luckily, that module doesn't destroy metrics unless we
     * tell it to or if the module unloads.
     */
    struct prometheus_metric *metric;
    /*!
     * \brief Unique key to look up the metric
     */
    char key[128];
};
 
/*!
 * \internal Vector of metric wrappers
 *
 * \details
 * Why a vector and not an ao2_container? Two reasons:
 * (1) There's rarely a ton of outbound registrations, so an ao2_container
 * is overkill when we can just walk a vector
 * (2) The lifetime of wrappers is well contained
 */
static AST_VECTOR(, struct prometheus_metric_wrapper *) metrics;
 
AST_MUTEX_DEFINE_STATIC(metrics_lock);
 
/*!
 * \internal
 * \brief Create a wrapper for a metric given a key
 *
 * \param key The unique key
 *
 * \retval NULL on error
 * \retval malloc'd metric wrapper on success
 */
static struct prometheus_metric_wrapper *create_wrapper(const char *key)
{
    struct prometheus_metric_wrapper *wrapper;
 
    wrapper = ast_calloc(1, sizeof(*wrapper));
    if (!wrapper) {
        return NULL;
    }
 
    ast_copy_string(wrapper->key, key, sizeof(wrapper->key));
    return wrapper;
}
 
/*!
 * \internal
 * \brief Get a wrapper by its key
 *
 * \param key The unqiue key for the wrapper
 *
 * \retval NULL on no wrapper found :-\
 * \retval wrapper on success
 */
static struct prometheus_metric_wrapper *get_wrapper(const char *key)
{
    int i;
    SCOPED_MUTEX(lock, &metrics_lock);
 
    for (i = 0; i < AST_VECTOR_SIZE(&metrics); i++) {
        struct prometheus_metric_wrapper *wrapper = AST_VECTOR_GET(&metrics, i);
 
        if (!strcmp(wrapper->key, key)) {
            return wrapper;
        }
    }
 
    return NULL;
}
 
/*!
 * \internal
 * \brief Convert an outbound registration state to a numeric value
 *
 * \param state The state to convert
 *
 * \retval int representation of the state
 */
static int registration_state_to_int(const char *state)
{
    if (!strcasecmp(state, "Registered")) {
        return 1;
    } else if (!strcasecmp(state, "Rejected")) {
        return 2;
    }
    return 0;
}
 
/*!
 * \internal
 * \brief Sorcery observer callback called when a registration object is deleted
 *
 * \param obj The opaque object that was deleted
 */
static void registration_deleted_observer(const void *obj)
{
    struct ast_variable *fields;
    struct ast_variable *it_fields;
    int i;
    SCOPED_MUTEX(lock, &metrics_lock);
 
    /*
     * Because our object is opaque, we have to do some pretty ... interesting
     * things here to try and figure out what just happened.
     */
    fields = ast_sorcery_objectset_create(ast_sip_get_sorcery(), obj);
    if (!fields) {
        ast_debug(1, "Unable to convert presumed registry object %p to strings; bailing on delete\n", obj);
        return;
    }
 
    for (it_fields = fields; it_fields; it_fields = it_fields->next) {
        if (strcasecmp(it_fields->name, "client_uri")) {
            continue;
        }
 
        for (i = 0; i < AST_VECTOR_SIZE(&metrics); i++) {
            struct prometheus_metric_wrapper *wrapper = AST_VECTOR_GET(&metrics, i);
 
            if (strcmp(wrapper->key, it_fields->value)) {
                continue;
            }
 
            ast_debug(1, "Registration metric '%s' deleted; purging with prejudice\n", wrapper->key);
            AST_VECTOR_REMOVE(&metrics, i, 1);
            /* This will free the metric as well */
            prometheus_metric_unregister(wrapper->metric);
            ast_free(wrapper);
        }
    }
 
    ast_variables_destroy(fields);
}
 
static const struct ast_sorcery_observer registration_observer = {
    .deleted = registration_deleted_observer,
};
 
/*!
 * \internal
 * \brief Sorcery observer called when an object is loaded/reloaded
 *
 * \param name The name of the object
 * \param sorcery The sorcery handle
 * \param object_type The type of object
 * \param reloaded Whether or not we reloaded the state/definition of the object
 *
 * \details
 * In our case, we only care when we re-load the registration object. We
 * wait for the registration to occur in order to create our Prometheus
 * metric, so we just punt on object creation. On reload, however, fundamental
 * properties of the metric may have been changed, which means we have to remove
 * the existing definition of the metric and allow the new registration stasis
 * message to re-build it.
 */
static void registration_loaded_observer(const char *name, const struct ast_sorcery *sorcery, const char *object_type, int reloaded)
{
    SCOPED_MUTEX(lock, &metrics_lock);
    int i;
 
    if (!reloaded) {
        /* Meh */
        return;
    }
 
    if (strcmp(object_type, "registration")) {
        /* Not interested */
        return;
    }
 
    for (i = 0; i < AST_VECTOR_SIZE(&metrics); i++) {
        struct prometheus_metric_wrapper *wrapper = AST_VECTOR_GET(&metrics, i);
        struct ast_variable search_fields = {
            .name = "client_uri",
            .value = wrapper->key,
            .next = NULL,
        };
        void *obj;
 
        ast_debug(1, "Checking for the existance of registration metric %s\n", wrapper->key);
        obj = ast_sorcery_retrieve_by_fields(ast_sip_get_sorcery(), object_type, AST_RETRIEVE_FLAG_DEFAULT, &search_fields);
        if (!obj) {
            ast_debug(1, "Registration metric '%s' not found; purging with prejudice\n", wrapper->key);
            AST_VECTOR_REMOVE(&metrics, i, 1);
            /* This will free the metric as well */
            prometheus_metric_unregister(wrapper->metric);
            ast_free(wrapper);
            continue;
        }
        ao2_ref(obj, -1);
    }
 
}
 
static const struct ast_sorcery_instance_observer observer_callbacks_registrations = {
    .object_type_loaded = registration_loaded_observer,
};
 
/*!
 * \internal
 * \brief Callback for Stasis Registry messages
 *
 * \param data Callback data, always NULL
 * \param sub Stasis subscription
 * \param message Our Registry message
 *
 * \details
 * The Stasis Registry message both updates the state of the Prometheus metric
 * as well as forces its creation.
 */
static void registry_message_cb(void *data, struct stasis_subscription *sub,
    struct stasis_message *message)
{
    struct ast_json_payload *payload = stasis_message_data(message);
    struct ast_json *json = payload->json;
    const char *username = ast_json_string_get(ast_json_object_get(json, "username"));
    const char *status_str = ast_json_string_get(ast_json_object_get(json, "status"));
    const char *domain = ast_json_string_get(ast_json_object_get(json, "domain"));
    const char *channel_type = ast_json_string_get(ast_json_object_get(json, "channeltype"));
    struct prometheus_metric metric = PROMETHEUS_METRIC_STATIC_INITIALIZATION(
        PROMETHEUS_METRIC_GAUGE,
        "asterisk_pjsip_outbound_registration_status",
        "Current registration status. 0=Unregistered; 1=Registered; 2=Rejected.",
        NULL
    );
    struct prometheus_metric_wrapper *wrapper;
    char eid_str[32];
 
    ast_eid_to_str(eid_str, sizeof(eid_str), &ast_eid_default);
 
    PROMETHEUS_METRIC_SET_LABEL(&metric, 0, "eid", eid_str);
    PROMETHEUS_METRIC_SET_LABEL(&metric, 1, "username", username);
    PROMETHEUS_METRIC_SET_LABEL(&metric, 2, "domain", domain);
    PROMETHEUS_METRIC_SET_LABEL(&metric, 3, "channel_type", channel_type);
    snprintf(metric.value, sizeof(metric.value), "%d", registration_state_to_int(status_str));
 
    wrapper = get_wrapper(username);
    if (wrapper) {
        ast_mutex_lock(&wrapper->metric->lock);
        /* Safe */
        strcpy(wrapper->metric->value, metric.value);
        ast_mutex_unlock(&wrapper->metric->lock);
    } else {
        wrapper = create_wrapper(username);
        if (!wrapper) {
            return;
        }
 
        wrapper->metric = prometheus_gauge_create(metric.name, metric.help);
        if (!wrapper->metric) {
            ast_free(wrapper);
            return;
        }
        *(wrapper->metric) = metric;
 
        prometheus_metric_register(wrapper->metric);
        AST_VECTOR_APPEND(&metrics, wrapper);
    }
}
 
#endif /* HAVE_PJPROJECT */
 
/*!
 * \internal
 * \brief Callback invoked when the core module is unloaded
 */
static void pjsip_outbound_registration_metrics_unload_cb(void)
{
#ifdef HAVE_PJPROJECT
    stasis_message_router_unsubscribe_and_join(router);
    router = NULL;
    ast_sorcery_instance_observer_remove(ast_sip_get_sorcery(), &observer_callbacks_registrations);
    ast_sorcery_observer_remove(ast_sip_get_sorcery(), "registration", &registration_observer);
#endif /* HAVE_PJPROJECT */
}
 
/*!
 * \internal
 * \brief Metrics provider definition
 */
static struct prometheus_metrics_provider provider = {
    .name = "pjsip_outbound_registration",
    .unload_cb = pjsip_outbound_registration_metrics_unload_cb,
};
 
int pjsip_outbound_registration_metrics_init(void)
{
    prometheus_metrics_provider_register(&provider);
 
#ifdef HAVE_PJPROJECT
    router = stasis_message_router_create(ast_system_topic());
    if (!router) {
        goto cleanup;
    }
 
    if (stasis_message_router_add(router, ast_system_registry_type(), registry_message_cb, NULL)) {
        goto cleanup;
    }
 
    if (ast_sorcery_instance_observer_add(ast_sip_get_sorcery(), &observer_callbacks_registrations)) {
        goto cleanup;
    }
 
    if (ast_sorcery_observer_add(ast_sip_get_sorcery(), "registration", &registration_observer)) {
        goto cleanup;
    }
#endif /* HAVE_PJPROJECT */
    return 0;
 
#ifdef HAVE_PJPROJECT
cleanup:
    ao2_cleanup(router);
    router = NULL;
    ast_sorcery_instance_observer_remove(ast_sip_get_sorcery(), &observer_callbacks_registrations);
    ast_sorcery_observer_remove(ast_sip_get_sorcery(), "registration", &registration_observer);
 
    return -1;
#endif /* HAVE_PJPROJECT */
}