switch_scheduler.c

Go to the documentation of this file.

/*
 * FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application
 * Copyright (C) 2005-2014, Anthony Minessale II <anthm@freeswitch.org>
 *
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application
 *
 * The Initial Developer of the Original Code is
 * Anthony Minessale II <anthm@freeswitch.org>
 * Portions created by the Initial Developer are Copyright (C)
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * Anthony Minessale II <anthm@freeswitch.org>
 *
 *
 * switch_scheduler.c -- Switch Scheduler
 *
 */

#include <switch.h>

struct switch_scheduler_task_container {
        switch_scheduler_task_t task;
        int64_t executed;
        int in_thread;
        int destroyed;
        int running;
        int destroy_requested;
        switch_scheduler_func_t func;
        switch_memory_pool_t *pool;
        uint32_t flags;
        char *desc;
        struct switch_scheduler_task_container *next;
};
typedef struct switch_scheduler_task_container switch_scheduler_task_container_t;

static struct {
        switch_scheduler_task_container_t *task_list;
        switch_mutex_t *task_mutex;
        uint32_t task_id;
        int task_thread_running;
        switch_queue_t *event_queue;
        switch_memory_pool_t *memory_pool;
} globals = { 0 };

static void switch_scheduler_execute(switch_scheduler_task_container_t *tp)
{
        switch_event_t *event;
        //switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Executing task %u %s (%s)\n", tp->task.task_id, tp->desc, switch_str_nil(tp->task.group));

        tp->func(&tp->task);

        switch_mutex_lock(globals.task_mutex);
        if (tp->task.repeat) {
                tp->task.runtime = switch_epoch_time_now(NULL) + tp->task.repeat;
        }

        if (!tp->destroy_requested && tp->task.runtime > tp->executed) {
                tp->executed = 0;
                if (switch_event_create(&event, SWITCH_EVENT_RE_SCHEDULE) == SWITCH_STATUS_SUCCESS) {
                        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-ID", "%u", tp->task.task_id);
                        switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Desc", tp->desc);
                        switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Group", switch_str_nil(tp->task.group));
                        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-Runtime", "%" SWITCH_INT64_T_FMT, tp->task.runtime);
                        switch_queue_push(globals.event_queue, event);
                        event = NULL;
                }
        } else {
                tp->destroyed = 1;
        }
        switch_mutex_unlock(globals.task_mutex);
}

static void *SWITCH_THREAD_FUNC task_own_thread(switch_thread_t *thread, void *obj)
{
        switch_scheduler_task_container_t *tp = (switch_scheduler_task_container_t *) obj;
        switch_memory_pool_t *pool;

        pool = tp->pool;
        tp->pool = NULL;

        switch_scheduler_execute(tp);
        switch_core_destroy_memory_pool(&pool);
        tp->in_thread = 0;

        return NULL;
}

static int task_thread_loop(int done)
{
        switch_scheduler_task_container_t *tofree, *tp, *last = NULL;


        switch_mutex_lock(globals.task_mutex);

        for (tp = globals.task_list; tp; tp = tp->next) {
                if (done) {
                        tp->destroyed = 1;
                } else if (!tp->destroyed) {
                        int64_t now = switch_epoch_time_now(NULL);
                        if (now >= tp->task.runtime && !tp->in_thread) {
                                int32_t diff = (int32_t) (now - tp->task.runtime);
                                if (diff > 1) {
                                        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Task was executed late by %d seconds %u %s (%s)\n",
                                                                          diff, tp->task.task_id, tp->desc, switch_str_nil(tp->task.group));
                                }
                                tp->executed = now;
                                if (switch_test_flag(tp, SSHF_OWN_THREAD)) {
                                        switch_thread_t *thread;
                                        switch_threadattr_t *thd_attr;
                                        switch_core_new_memory_pool(&tp->pool);
                                        switch_threadattr_create(&thd_attr, tp->pool);
                                        switch_threadattr_detach_set(thd_attr, 1);
                                        tp->in_thread = 1;
                                        switch_thread_create(&thread, thd_attr, task_own_thread, tp, tp->pool);
                                } else {
                                        tp->running = 1;
                                        switch_mutex_unlock(globals.task_mutex);
                                        switch_scheduler_execute(tp);
                                        switch_mutex_lock(globals.task_mutex);
                                        tp->running = 0;
                                }
                        }
                }
        }
        switch_mutex_unlock(globals.task_mutex);
        switch_mutex_lock(globals.task_mutex);
        for (tp = globals.task_list; tp;) {
                if (tp->destroyed && !tp->in_thread) {
                        switch_event_t *event;

                        tofree = tp;
                        tp = tp->next;
                        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Deleting task %u %s (%s)\n",
                                                          tofree->task.task_id, tofree->desc, switch_str_nil(tofree->task.group));


                        if (switch_event_create(&event, SWITCH_EVENT_DEL_SCHEDULE) == SWITCH_STATUS_SUCCESS) {
                                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-ID", "%u", tofree->task.task_id);
                                switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Desc", tofree->desc);
                                switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Group", switch_str_nil(tofree->task.group));
                                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-Runtime", "%" SWITCH_INT64_T_FMT, tofree->task.runtime);
                                switch_queue_push(globals.event_queue, event);
                                event = NULL;
                        }

                        if (last) {
                                last->next = tofree->next;
                        } else {
                                globals.task_list = tofree->next;
                        }
                        switch_safe_free(tofree->task.group);
                        if (tofree->task.cmd_arg && switch_test_flag(tofree, SSHF_FREE_ARG)) {
                                free(tofree->task.cmd_arg);
                        }
                        switch_safe_free(tofree->desc);
                        free(tofree);
                } else {
                        last = tp;
                        tp = tp->next;
                }
        }
        switch_mutex_unlock(globals.task_mutex);

        return done;
}

static void *SWITCH_THREAD_FUNC switch_scheduler_task_thread(switch_thread_t *thread, void *obj)
{
        void *pop;
        globals.task_thread_running = 1;

        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_NOTICE, "Starting task thread\n");
        while (globals.task_thread_running == 1) {
                if (task_thread_loop(0)) {
                        break;
                }
                if (switch_queue_pop_timeout(globals.event_queue, &pop, 500000) == SWITCH_STATUS_SUCCESS) {
                        switch_event_t *event = (switch_event_t *) pop;
                        switch_event_fire(&event);
                }
        }

        task_thread_loop(1);

        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_NOTICE, "Task thread ending\n");

        while(switch_queue_trypop(globals.event_queue, &pop) == SWITCH_STATUS_SUCCESS) {
                switch_event_t *event = (switch_event_t *) pop;
                switch_event_destroy(&event);
        }

        globals.task_thread_running = 0;

        return NULL;
}

SWITCH_DECLARE(uint32_t) switch_scheduler_add_task(time_t task_runtime,
        switch_scheduler_func_t func,
        const char *desc, const char *group, uint32_t cmd_id, void *cmd_arg, switch_scheduler_flag_t flags)
{
        uint32_t task_id;

        switch_scheduler_add_task_ex(task_runtime, func, desc, group, cmd_id, cmd_arg, flags, &task_id);

        return task_id;
}

SWITCH_DECLARE(uint32_t) switch_scheduler_add_task_ex(time_t task_runtime,
                                                                                                   switch_scheduler_func_t func,
                                                                                                   const char *desc, const char *group, uint32_t cmd_id, void *cmd_arg, switch_scheduler_flag_t flags, uint32_t *task_id)
{
        uint32_t result;
        switch_scheduler_task_container_t *container, *tp;
        switch_event_t *event;
        switch_time_t now = switch_epoch_time_now(NULL);
        switch_ssize_t hlen = -1;

        switch_mutex_lock(globals.task_mutex);
        switch_zmalloc(container, sizeof(*container));
        switch_assert(func);
        switch_assert(task_id);

        if (task_runtime < now) {
                container->task.repeat = (uint32_t)task_runtime;
                task_runtime += now;
        }

        container->func = func;
        container->task.created = now;
        container->task.runtime = task_runtime;
        container->task.group = strdup(group ? group : "none");
        container->task.cmd_id = cmd_id;
        container->task.cmd_arg = cmd_arg;
        container->flags = flags;
        container->desc = strdup(desc ? desc : "none");
        container->task.hash = switch_ci_hashfunc_default(container->task.group, &hlen);

        for (tp = globals.task_list; tp && tp->next; tp = tp->next);

        if (tp) {
                tp->next = container;
        } else {
                globals.task_list = container;
        }

        for (container->task.task_id = 0; !container->task.task_id; container->task.task_id = ++globals.task_id);

        tp = container;
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Added task %u %s (%s) to run at %" SWITCH_INT64_T_FMT "\n",
                                          tp->task.task_id, tp->desc, switch_str_nil(tp->task.group), tp->task.runtime);

        if (switch_event_create(&event, SWITCH_EVENT_ADD_SCHEDULE) == SWITCH_STATUS_SUCCESS) {
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-ID", "%u", tp->task.task_id);
                switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Desc", tp->desc);
                switch_event_add_header_string(event, SWITCH_STACK_BOTTOM, "Task-Group", switch_str_nil(tp->task.group));
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Task-Runtime", "%" SWITCH_INT64_T_FMT, tp->task.runtime);
                switch_queue_push(globals.event_queue, event);
                event = NULL;
        }

        result = *task_id = container->task.task_id;

        switch_mutex_unlock(globals.task_mutex);

        return result;
}

SWITCH_DECLARE(uint32_t) switch_scheduler_del_task_id(uint32_t task_id)
{
        switch_scheduler_task_container_t *tp;
        uint32_t delcnt = 0;

        switch_mutex_lock(globals.task_mutex);
        for (tp = globals.task_list; tp; tp = tp->next) {
                if (tp->task.task_id == task_id) {
                        if (switch_test_flag(tp, SSHF_NO_DEL)) {
                                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Attempt made to delete undeletable task #%u (group %s)\n",
                                                                  tp->task.task_id, tp->task.group);
                                break;
                        }

                        if (tp->running) {
                                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Attempt made to delete running task #%u (group %s)\n",
                                                                  tp->task.task_id, tp->task.group);
                                tp->destroy_requested++;
                        } else {
                                tp->destroyed++;
                        }

                        delcnt++;
                        break;
                }
        }
        switch_mutex_unlock(globals.task_mutex);

        return delcnt;
}

SWITCH_DECLARE(uint32_t) switch_scheduler_del_task_group(const char *group)
{
        switch_scheduler_task_container_t *tp;
        uint32_t delcnt = 0;
        switch_ssize_t hlen = -1;
        unsigned long hash = 0;

        if (zstr(group)) {
                return 0;
        }

        hash = switch_ci_hashfunc_default(group, &hlen);

        switch_mutex_lock(globals.task_mutex);
        for (tp = globals.task_list; tp; tp = tp->next) {
                if (tp->destroyed) {
                        continue;
                }
                if (hash == tp->task.hash && !strcmp(tp->task.group, group)) {
                        if (switch_test_flag(tp, SSHF_NO_DEL)) {
                                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Attempt made to delete undeletable task #%u (group %s)\n",
                                                                  tp->task.task_id, group);
                                continue;
                        }
                        if (tp->running) {
                                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Attempt made to delete running task #%u (group %s)\n",
                                                                  tp->task.task_id, tp->task.group);
                                tp->destroy_requested++;
                        } else {
                                tp->destroyed++;
                        }
                        delcnt++;
                }
        }
        switch_mutex_unlock(globals.task_mutex);

        return delcnt;
}

switch_thread_t *task_thread_p = NULL;

SWITCH_DECLARE(void) switch_scheduler_task_thread_start(void)
{

        switch_threadattr_t *thd_attr;

        switch_core_new_memory_pool(&globals.memory_pool);
        switch_threadattr_create(&thd_attr, globals.memory_pool);
        switch_mutex_init(&globals.task_mutex, SWITCH_MUTEX_NESTED, globals.memory_pool);
        switch_queue_create(&globals.event_queue, 250000, globals.memory_pool);

        switch_thread_create(&task_thread_p, thd_attr, switch_scheduler_task_thread, NULL, globals.memory_pool);
}

SWITCH_DECLARE(void) switch_scheduler_task_thread_stop(void)
{
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "Stopping Task Thread\n");
        if (globals.task_thread_running == 1) {
                int sanity = 0;
                switch_status_t st;

                globals.task_thread_running = -1;

                switch_thread_join(&st, task_thread_p);

                while (globals.task_thread_running) {
                        switch_yield(100000);
                        if (++sanity > 10) {
                                break;
                        }
                }
        }

        switch_core_destroy_memory_pool(&globals.memory_pool);

}

/* For Emacs:
 * Local Variables:
 * mode:c
 * indent-tabs-mode:t
 * tab-width:4
 * c-basic-offset:4
 * End:
 * For VIM:
 * vim:set softtabstop=4 shiftwidth=4 tabstop=4 noet:
 */