/*
 * FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application
 * Copyright (C) 2005-2021, 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>
 * Michael Jerris <mike@jerris.com>
 * Travis Cross <tc@traviscross.com>
 *
 * switch_ivr_originate.c -- IVR Library (originate)
 *
 */

#include <switch.h>
#define QUOTED_ESC_COMMA 1
#define UNQUOTED_ESC_COMMA 2

static const switch_state_handler_table_t originate_state_handlers;

static switch_status_t originate_on_consume_media_transmit(switch_core_session_t *session)
{
	switch_channel_t *channel = switch_core_session_get_channel(session);

	if (!switch_channel_test_flag(channel, CF_PROXY_MODE) && switch_channel_test_flag(channel, CF_CONSUME_ON_ORIGINATE)) {
		while (switch_channel_test_flag(channel, CF_ORIGINATING) &&
			   switch_channel_get_state(channel) == CS_CONSUME_MEDIA && !switch_channel_test_flag(channel, CF_TAGGED)) {
			if (!switch_channel_media_ready(channel)) {
				switch_yield(10000);
			} else {
				switch_ivr_sleep(session, 10, SWITCH_FALSE, NULL);
			}
			switch_ivr_parse_all_messages(session);
		}
	}

	switch_channel_clear_state_handler(channel, &originate_state_handlers);

	return SWITCH_STATUS_FALSE;
}

static switch_status_t originate_on_routing(switch_core_session_t *session)
{
	switch_channel_t *channel = switch_core_session_get_channel(session);

	if (switch_channel_get_state(channel) == CS_ROUTING) {
		/* put the channel in a passive state until it is answered */
		switch_channel_set_state(channel, CS_CONSUME_MEDIA);
	}

	return SWITCH_STATUS_FALSE;
}

static const switch_state_handler_table_t originate_state_handlers = {
	/*.on_init */ NULL,
	/*.on_routing */ originate_on_routing,
	/*.on_execute */ NULL,
	/*.on_hangup */ NULL,
	/*.on_exchange_media */ NULL,
	/*.on_soft_execute */ originate_on_consume_media_transmit,
	/*.on_consume_media */ originate_on_consume_media_transmit
};

#define MAX_PEERS 128

struct switch_dial_handle_s;


struct switch_dial_leg_list_s {
	int leg_idx;
	switch_dial_leg_t *legs[MAX_PEERS];
	struct switch_dial_handle_s *handle;
};

struct switch_dial_leg_s {
	char *dial_string;
	switch_event_t *leg_vars;
	struct switch_dial_handle_s *handle;
	struct switch_dial_leg_s *next;
};

struct switch_dial_handle_s {
	int is_sub;
	int leg_list_idx;
	switch_dial_leg_list_t *leg_lists[MAX_PEERS];
	switch_event_t *global_vars;
	switch_memory_pool_t *pool;
};

struct switch_dial_handle_list_s {
	int handle_idx;
	switch_dial_handle_t *handles[MAX_PEERS];
	switch_event_t *global_vars;
	switch_memory_pool_t *pool;
};

static switch_status_t switch_dial_handle_dup(switch_dial_handle_t **handle, switch_dial_handle_t *todup);

typedef struct {
	switch_core_session_t *down_session;
	switch_core_session_t *peer_session;
	switch_channel_t *peer_channel;
	switch_caller_profile_t *caller_profile;
	uint8_t ring_ready;
	uint8_t early_media;
	uint8_t answered;
	uint8_t tagged;
	uint8_t array_pos;
	uint32_t per_channel_timelimit_sec;
	uint32_t per_channel_progress_timelimit_sec;
	uint32_t per_channel_delay_start;
} originate_status_t;


typedef struct {
	switch_core_session_t *session;
	int32_t idx;
	uint32_t hups;
	char *file;
	char *error_file;
	int confirm_timeout;
	int confirm_read_timeout;
	char key[80];
	uint8_t early_ok;
	uint8_t ring_ready;
	uint8_t instant_ringback;
	uint8_t sent_ring;
	uint8_t progress;
	uint8_t return_ring_ready;
	uint8_t monitor_early_media_ring;
	uint8_t monitor_early_media_fail;
	uint8_t gen_ringback;
	uint8_t ignore_early_media;
	uint8_t ignore_ring_ready;
	int monitor_early_media_ring_count;
	int monitor_early_media_ring_total;
	switch_bool_t cancel_timeout;
	int continue_on_timeout;
	int ringback_ok;
	int sending_ringback;
	int bridge_early_media;
	switch_thread_t *ethread;
	switch_caller_profile_t *caller_profile_override;
	switch_bool_t check_vars;
	switch_memory_pool_t *pool;
	originate_status_t originate_status[MAX_PEERS];// = { {0} };
} originate_global_t;



typedef enum {
	IDX_XFER = -5,
	IDX_KEY_CANCEL = -4,
	IDX_TIMEOUT = -3,
	IDX_CANCEL = -2,
	IDX_NADA = -1
} abort_t;

struct key_collect {
	char *key;
	char *file;
	char *error_file;
	int confirm_read_timeout;
	switch_core_session_t *session;
};

static void *SWITCH_THREAD_FUNC collect_thread_run(switch_thread_t *thread, void *obj)
{
	struct key_collect *collect = (struct key_collect *) obj;
	switch_channel_t *channel = switch_core_session_get_channel(collect->session);
	char buf[10] = SWITCH_BLANK_STRING;
	switch_application_interface_t *application_interface = NULL;

	if (collect->session) {
		if (switch_core_session_read_lock(collect->session) != SWITCH_STATUS_SUCCESS) {
			return NULL;
		}
	} else {
		return NULL;
	}

	switch_ivr_sleep(collect->session, 0, SWITCH_TRUE, NULL);

	if (!strcasecmp(collect->key, "exec")) {
		char *data;
		char *app_name, *app_data;

		if (!(data = collect->file)) {
			goto wbreak;
		}

		app_name = data;

		if ((app_data = strchr(app_name, ' '))) {
			*app_data++ = '\0';
		}

		if ((application_interface = switch_loadable_module_get_application_interface(app_name)) == 0) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(collect->session), SWITCH_LOG_ERROR, "Invalid Application %s\n", app_name);
			switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
			goto wbreak;
		}

		if (!application_interface->application_function) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(collect->session), SWITCH_LOG_ERROR, "No Function for %s\n", app_name);
			switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
			goto wbreak;
		}

		switch_core_session_exec(collect->session, application_interface, app_data);

		if (switch_channel_up_nosig(channel)) {
			switch_channel_set_flag(channel, CF_WINNER);
			switch_channel_set_variable(channel, "group_dial_status", "winner");
		}
		goto wbreak;
	}

	if (!switch_channel_up_nosig(channel)) {
		switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
		goto wbreak;
	}

	while (switch_channel_ready(channel)) {
		switch_size_t len = strlen(collect->key);
		const char *file = collect->file;
		switch_status_t status;

		memset(buf, 0, sizeof(buf));

		if (zstr(file)) {
			file = "silence";
		}

		status = switch_ivr_read(collect->session,
								 (uint32_t)len,
								 (uint32_t)len,
								 file, NULL, buf, sizeof(buf), collect->confirm_read_timeout, NULL, 0);


		if (status != SWITCH_STATUS_SUCCESS && status != SWITCH_STATUS_BREAK && status != SWITCH_STATUS_TOO_SMALL) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(collect->session), SWITCH_LOG_ERROR, "%s Error Playing File!\n",
							  switch_channel_get_name(channel));
			switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
		}

		if (!strcmp(collect->key, buf)) {
			switch_channel_set_flag(channel, CF_WINNER);
			switch_channel_set_variable(channel, "group_dial_status", "winner");
			goto wbreak;
		} else if (collect->error_file) {
			switch_ivr_play_file(collect->session, NULL, collect->error_file, NULL);
		}
	}
  wbreak:

	switch_core_session_rwunlock(collect->session);

	UNPROTECT_INTERFACE(application_interface);

	return NULL;
}

static void launch_collect_thread(struct key_collect *collect)
{
	switch_thread_t *thread;
	switch_threadattr_t *thd_attr = NULL;

	switch_threadattr_create(&thd_attr, switch_core_session_get_pool(collect->session));
	switch_threadattr_detach_set(thd_attr, 1);
	switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
	switch_thread_create(&thread, thd_attr, collect_thread_run, collect, switch_core_session_get_pool(collect->session));
}

static int check_per_channel_timeouts(originate_global_t *oglobals,
									  int max, time_t start, switch_call_cause_t *force_reason)
{
	int x = 0, i, delayed_channels = 0, active_channels = 0;
	uint32_t early_exit_time = 0, delayed_min = 0;

	time_t elapsed = switch_epoch_time_now(NULL) - start;

	for (i = 0; i < max; i++) {
		if (oglobals->originate_status[i].peer_channel && switch_channel_get_state(oglobals->originate_status[i].peer_channel) != CS_DESTROY &&
			switch_channel_get_state(oglobals->originate_status[i].peer_channel) != CS_REPORTING) {
			if (oglobals->originate_status[i].per_channel_delay_start) {
				delayed_channels++;
			} else {
				active_channels++;
			}
		}
	}

	if (active_channels == 0 && delayed_channels) {
		for (i = 0; i < max; i++) {
			if (oglobals->originate_status[i].peer_channel && oglobals->originate_status[i].per_channel_delay_start &&
				(!delayed_min || delayed_min > oglobals->originate_status[i].per_channel_delay_start)) {
				delayed_min = oglobals->originate_status[i].per_channel_delay_start;
			}
		}
		early_exit_time = delayed_min - (uint32_t) elapsed;
	}
	for (i = 0; i < max; i++) {
		if (oglobals->originate_status[i].peer_channel && oglobals->originate_status[i].per_channel_delay_start &&
			(elapsed > oglobals->originate_status[i].per_channel_delay_start || active_channels == 0)) {
			if (active_channels == 0) {
				if (oglobals->originate_status[i].per_channel_timelimit_sec) {
					if (oglobals->originate_status[i].per_channel_timelimit_sec > early_exit_time) {
						/* IN theory this check is not needed ( should just be if !0 then -= with no else), if its not 0 it should always be greater.... */
						oglobals->originate_status[i].per_channel_timelimit_sec -= early_exit_time;
					} else {
						oglobals->originate_status[i].per_channel_timelimit_sec = 1;
					}
				}
				if (oglobals->originate_status[i].per_channel_progress_timelimit_sec) {
					if (oglobals->originate_status[i].per_channel_progress_timelimit_sec > early_exit_time) {
						/* IN theory this check is not needed ( should just be if !0 then -= with no else), if its not 0 it should always be greater.... */
						oglobals->originate_status[i].per_channel_progress_timelimit_sec -= early_exit_time;
					} else {
						oglobals->originate_status[i].per_channel_progress_timelimit_sec = 1;
					}
				}
				oglobals->originate_status[i].per_channel_delay_start -= delayed_min;
			} else {
				oglobals->originate_status[i].per_channel_delay_start = 0;
			}

			if (!oglobals->originate_status[i].per_channel_delay_start) {
				switch_channel_clear_flag(oglobals->originate_status[i].peer_channel, CF_BLOCK_STATE);
			}
		}

		if (oglobals->originate_status[i].peer_channel && switch_channel_up_nosig(oglobals->originate_status[i].peer_channel)) {
			if (oglobals->originate_status[i].per_channel_progress_timelimit_sec && elapsed > oglobals->originate_status[i].per_channel_progress_timelimit_sec &&
				!(switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_RING_READY) ||
				  switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_ANSWERED) ||
				  (!oglobals->monitor_early_media_ring && switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_EARLY_MEDIA))
				)
				) {
				switch_channel_hangup(oglobals->originate_status[i].peer_channel, SWITCH_CAUSE_PROGRESS_TIMEOUT);
				*force_reason = SWITCH_CAUSE_PROGRESS_TIMEOUT;
				x++;
			}
			if (oglobals->originate_status[i].per_channel_timelimit_sec && elapsed > oglobals->originate_status[i].per_channel_timelimit_sec) {
				switch_channel_hangup(oglobals->originate_status[i].peer_channel, SWITCH_CAUSE_ALLOTTED_TIMEOUT);
				x++;
			}
		}
	}

	return x;
}


static switch_bool_t monitor_callback(switch_core_session_t *session, const char *app, const char *data)
{
	if (app) {
		switch_channel_t *channel = switch_core_session_get_channel(session);
		if (!strcmp(app, "fail")) {
			const char *bd = switch_channel_get_variable(channel, "monitor_fail_dispo");
			if (!bd) {
				bd = "monitor_early_media_fail";
			}
			switch_channel_set_variable(channel, "DIALSTATUS", "BUSY");
			switch_channel_set_variable(channel, "originate_disposition", bd);
			switch_channel_hangup(channel, data ? switch_channel_str2cause(data) : SWITCH_CAUSE_USER_BUSY);
		} else if (!strcmp(app, "ring")) {
			originate_global_t *oglobals = (originate_global_t *) switch_channel_get_private(channel, "_oglobals_");
			const char *bd = switch_channel_get_variable(channel, "monitor_ring_dispo");
			if (!bd) {
				bd = "monitor_early_media_ring";
			}
			switch_channel_set_variable(channel, "originate_disposition", bd);
			switch_channel_set_variable(channel, "DIALSTATUS", "EARLY");

			if (oglobals) {
				if (oglobals->monitor_early_media_ring_total && ++oglobals->monitor_early_media_ring_count < oglobals->monitor_early_media_ring_total) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Ring %d/%d\n",
									  oglobals->monitor_early_media_ring_count, oglobals->monitor_early_media_ring_total);
					return SWITCH_TRUE;
				}

				switch_channel_set_private(channel, "_oglobals_", NULL);

				if (!oglobals->progress) {
					oglobals->progress = 1;
				}

				if (!oglobals->ring_ready && !oglobals->ignore_ring_ready) {
					oglobals->ring_ready = 1;
				}

				if (!oglobals->ignore_early_media && !oglobals->early_ok) {
					oglobals->early_ok = 1;
				}
			}
		}
	}

	return SWITCH_FALSE;
}

static void inherit_codec(switch_channel_t *caller_channel, switch_core_session_t *session)
{
	const char *var = switch_channel_get_variable(caller_channel, "inherit_codec");
	switch_channel_t *channel = switch_core_session_get_channel(session);

	if (!zstr(var) && !strcasecmp(var, "passthru")) {
		switch_channel_set_variable(caller_channel, "absolute_codec_string", switch_channel_get_variable(channel, "ep_codec_string"));
	} else if (switch_true(var)) {
		switch_codec_implementation_t impl = { 0 };
		switch_codec_implementation_t video_impl = { 0 };
		char tmp[128] = "";

		if (switch_core_session_get_read_impl(session, &impl) == SWITCH_STATUS_SUCCESS) {
			const char *ep = switch_channel_get_variable(caller_channel, "ep_codec_string");

			if (switch_core_session_get_video_read_impl(session, &video_impl) == SWITCH_STATUS_SUCCESS) {
				switch_snprintf(tmp, sizeof(tmp), "%s@%uh@%ui,%s",
								impl.iananame, impl.samples_per_second, (uint32_t)impl.microseconds_per_packet / 1000,
								video_impl.iananame);
			} else {
				switch_snprintf(tmp, sizeof(tmp), "%s@%uh@%ui",
								impl.iananame, impl.samples_per_second, (uint32_t)impl.microseconds_per_packet / 1000);
			}

			if (ep && switch_stristr(impl.iananame, ep)) {
				switch_channel_set_variable(caller_channel, "absolute_codec_string", tmp);
				switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_DEBUG, "Setting codec string on %s to %s\n",
								  switch_channel_get_name(caller_channel), tmp);
			} else {
				switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_DEBUG, "Codec string %s not supported on %s, skipping inheritance\n",
								  tmp, switch_channel_get_name(caller_channel));
			}
		} else {
			switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_WARNING,
							  "Error inheriting codec.  Channel %s has no read codec yet.\n",
							  switch_channel_get_name(channel));
		}

	}
}

static uint8_t check_channel_status(originate_global_t *oglobals, uint32_t len, switch_call_cause_t *force_reason, time_t start)
{

	uint32_t i;
	uint8_t rval = 0;
	switch_channel_t *caller_channel = NULL;
	int pindex = -1;
	char bug_key[256] = "";
	int send_ringback = 0;
	uint8_t ring_ready_val = 0;
	int pickups_without_timelimit = 0;

	oglobals->hups = 0;
	oglobals->idx = IDX_NADA;


	if (oglobals->session) {
		caller_channel = switch_core_session_get_channel(oglobals->session);
		if (switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
			caller_channel = NULL;
		}
	}


	for (i = 0; i < len; i++) {
		if (oglobals->originate_status[i].peer_channel && switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_CHANNEL_SWAP)) {
			const char *key = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "channel_swap_uuid");
			switch_core_session_t *swap_session, *old_session;
			
			if ((swap_session = switch_core_session_locate(key))) {
				switch_channel_clear_flag(oglobals->originate_status[i].peer_channel, CF_CHANNEL_SWAP);
				switch_channel_hangup(oglobals->originate_status[i].peer_channel, SWITCH_CAUSE_PICKED_OFF);

				switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(oglobals->originate_status[i].peer_channel), SWITCH_LOG_DEBUG, "Swapping %s for %s\n",
								  switch_core_session_get_name(swap_session), switch_channel_get_name(oglobals->originate_status[i].peer_channel));


				old_session = oglobals->originate_status[i].peer_session;
				oglobals->originate_status[i].peer_session = swap_session;
				oglobals->originate_status[i].peer_channel = switch_core_session_get_channel(oglobals->originate_status[i].peer_session);
				oglobals->originate_status[i].caller_profile = switch_channel_get_caller_profile(oglobals->originate_status[i].peer_channel);
				switch_channel_set_flag(oglobals->originate_status[i].peer_channel, CF_ORIGINATING);

				switch_channel_answer(oglobals->originate_status[i].peer_channel);

				switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "picked_up_uuid", switch_core_session_get_uuid(old_session));
				switch_channel_execute_on(oglobals->originate_status[i].peer_channel, "execute_on_pickup");
				switch_channel_api_on(oglobals->originate_status[i].peer_channel, "api_on_pickup");

				switch_core_session_rwunlock(old_session);
				break;
			}
		}
	}

	for (i = 0; i < len; i++) {
		switch_channel_state_t state;

		if (oglobals->originate_status[i].tagged && oglobals->originate_status[i].peer_session) {
			switch_channel_t *channel = switch_core_session_get_channel(oglobals->originate_status[i].peer_session);
			uint32_t j;

			if (switch_channel_down_nosig(channel)) {
				switch_call_cause_t cause = switch_channel_get_cause(channel);

				for (j = 0; j < len; j++) {
					channel = switch_core_session_get_channel(oglobals->originate_status[j].peer_session);
					switch_channel_hangup(channel, cause);
				}
				oglobals->hups = len;
				rval = 0;
				goto end;
			}
		}


		if (oglobals->originate_status[i].peer_channel && switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_PICKUP)) {
			if (oglobals->originate_status[i].per_channel_timelimit_sec == 0) {
				pickups_without_timelimit++;
			}
		}

		if (!(oglobals->originate_status[i].peer_channel && oglobals->originate_status[i].peer_session)) {
			oglobals->hups++;
			continue;
		}

		if ((ring_ready_val = (uint8_t)switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_RING_READY))) {
			if (!oglobals->originate_status[i].ring_ready) {
				oglobals->originate_status[i].ring_ready = ring_ready_val;
			}

			if (oglobals->sending_ringback == 1) {
				send_ringback++;
				pindex = (uint32_t) i;
			} else {
				if (!oglobals->ring_ready) {
					oglobals->ring_ready = ring_ready_val;
					if (caller_channel && !oglobals->ignore_ring_ready) {
						if (len == 1) {
							switch_channel_pass_callee_id(oglobals->originate_status[0].peer_channel, caller_channel);
						}
						switch_channel_ring_ready_value(caller_channel, ring_ready_val);
						oglobals->sent_ring = ring_ready_val;
					}
				}
			}
		}

		if (switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_EARLY_MEDIA)) {

			if (oglobals->ignore_early_media == 3 && oglobals->bridge_early_media == -1) {
				oglobals->bridge_early_media = i;
				oglobals->ringback_ok = 1;
			}

			if (oglobals->sending_ringback == 1) {
				send_ringback++;
				pindex = (uint32_t) i;
			} else if (!oglobals->sent_ring && oglobals->ignore_early_media == 2 && len == 1 && caller_channel && !oglobals->ignore_ring_ready) {
				switch_channel_pass_callee_id(oglobals->originate_status[0].peer_channel, caller_channel);
				switch_channel_ring_ready(caller_channel);
				oglobals->sent_ring = 1;
			}

			if (!oglobals->originate_status[i].early_media) {
				oglobals->originate_status[i].early_media = 1;
				if (oglobals->early_ok) {
					pindex = i;
				}

				if (oglobals->monitor_early_media_fail) {
					const char *var = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "monitor_early_media_fail");
					if (!zstr(var)) {
						char *fail_array[128] = { 0 };
						int fail_count = 0;
						char *fail_data = strdup(var);
						int fx;
						int y = 0;

						switch_assert(fail_data);
						fail_count = switch_separate_string(fail_data, '!', fail_array, (sizeof(fail_array) / sizeof(fail_array[0])));

						for (fx = 0; fx < fail_count; fx++) {
							char *cause = fail_array[fx];
							int hits = 2;
							char *p, *q;

							if (!(p = strchr(cause, ':'))) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}
							*p++ = '\0';


							if (!p) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}


							if (!(hits = atoi(p))) {
								hits = 2;
							}


							if (!(p = strchr(p, ':'))) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}
							*p++ = '\0';

							if (!p) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}

							for (q = p; q && *q; q++) {
								if (*q == '+') {
									*q = ',';
								}
							}
							switch_snprintf(bug_key, sizeof(bug_key), "monitor_early_media_fail_%d", ++y);
							switch_ivr_tone_detect_session(oglobals->originate_status[i].peer_session, bug_key, p, "r", 0, hits, "fail", cause, monitor_callback);

						}

						switch_safe_free(fail_data);

					}
				}

				if (oglobals->monitor_early_media_ring) {
					const char *var = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "monitor_early_media_ring");
					const char *var_total = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "monitor_early_media_ring_total");
					if (!zstr(var)) {
						char *ring_array[128] = { 0 };
						int ring_count = 0;
						char *ring_data = strdup(var);
						int fx;
						int y = 0;

						switch_assert(ring_data);
						ring_count = switch_separate_string(ring_data, '!', ring_array, (sizeof(ring_array) / sizeof(ring_array[0])));

						for (fx = 0; fx < ring_count; fx++) {
							int hits = 2;
							char *p = ring_array[fx], *q;

							if (!p) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}

							if (!(hits = atoi(p))) {
								hits = 2;
							}

							if (!(p = strchr(p, ':'))) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}
							*p++ = '\0';

							if (!p) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_ERROR, "Parse Error\n");
								continue;
							}

							for (q = p; q && *q; q++) {
								if (*q == '+') {
									*q = ',';
								}
							}

							switch_channel_set_private(oglobals->originate_status[i].peer_channel, "_oglobals_", oglobals);
							switch_snprintf(bug_key, sizeof(bug_key), "monitor_early_media_ring_%d", ++y);
							switch_ivr_tone_detect_session(oglobals->originate_status[i].peer_session, bug_key, p, "r", 0, hits, "ring", NULL, monitor_callback);

						}

						if (var_total) {
							int tmp = atoi(var_total);
							if (tmp > 0 && tmp < 100) {
								switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->originate_status[i].peer_session), SWITCH_LOG_DEBUG,
												  "%s setting ring total to %d\n", switch_channel_get_name(oglobals->originate_status[i].peer_channel), tmp);
								oglobals->monitor_early_media_ring_total = tmp;
							}
						}

						switch_safe_free(ring_data);

					}
				}
			}

			if (!oglobals->monitor_early_media_ring) {

				if (!oglobals->progress) {
					oglobals->progress = 1;
				}

				if (!oglobals->ring_ready && !oglobals->ignore_ring_ready) {
					oglobals->ring_ready = 1;

				}
			}
		}

		if (!switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_PARK) &&
			!switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_CONSUME_ON_ORIGINATE)) {
			if (switch_core_session_messages_waiting(oglobals->originate_status[i].peer_session)) {
				if (switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_THREAD_SLEEPING)) {
					switch_core_session_wake_session_thread(oglobals->originate_status[i].peer_session);
				} else {
					switch_ivr_parse_all_events(oglobals->originate_status[i].peer_session);
				}
			}
		}

		if (switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_EARLY_OK)) {
			if (!oglobals->early_ok) {
				oglobals->early_ok = 1;
			}
			switch_channel_clear_flag(oglobals->originate_status[i].peer_channel, CF_EARLY_OK);
		}

		if (caller_channel && switch_channel_test_flag(caller_channel, CF_EARLY_OK)) {
			if (!oglobals->early_ok) {
				oglobals->early_ok = 1;
			}
			switch_channel_clear_flag(caller_channel, CF_EARLY_OK);
		}

		state = switch_channel_get_state(oglobals->originate_status[i].peer_channel);
		if (state >= CS_HANGUP || state == CS_RESET || switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_TRANSFER) ||
			switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_REDIRECT) ||
			switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_BRIDGED) ||
			!switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_ORIGINATING)
			) {
			(oglobals->hups)++;
			if (switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_PICKUP)) {
				if (oglobals->originate_status[i].per_channel_timelimit_sec == 0) {
					pickups_without_timelimit--;
				}
			}
		} else if ((switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_ANSWERED) ||
					(oglobals->early_ok && switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_EARLY_MEDIA)) ||
					(oglobals->ring_ready && oglobals->return_ring_ready && len == 1 &&
					 switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_RING_READY))
				   )
				   && !switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_TAGGED)
			) {

			const char *group_confirm_key = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "group_confirm_key");
			const char *group_confirm_file = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "group_confirm_file");

			if (!zstr(oglobals->key) || !zstr(group_confirm_key)) {
				struct key_collect *collect;
				const char *group_confirm_timeout = switch_channel_get_variable(oglobals->originate_status[i].peer_channel, "group_confirm_timeout");
				int extend_timeout = 0;
				int cancel_timeout = 0;
				if (group_confirm_timeout && switch_is_number(group_confirm_timeout)) {
					// leg var overrides global group_confirm_timeout
					extend_timeout = atoi(group_confirm_timeout);
					if (extend_timeout == 0) {
						cancel_timeout = 1;
					}
				} else {
					extend_timeout = oglobals->confirm_timeout;
				}

				if (extend_timeout > 0) {
					/* extend timeout for this leg only */
					time_t elapsed = switch_epoch_time_now(NULL) - start;
					oglobals->originate_status[i].per_channel_progress_timelimit_sec = elapsed + extend_timeout;
					oglobals->originate_status[i].per_channel_timelimit_sec = elapsed + extend_timeout;
					switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "elapsed %" TIME_T_FMT ", timelimit extended to %u\n", elapsed, oglobals->originate_status[i].per_channel_timelimit_sec);
				} else if (oglobals->cancel_timeout || cancel_timeout) {
					/* cancel timeout for this leg only */
					oglobals->originate_status[i].per_channel_progress_timelimit_sec = 0;
					oglobals->originate_status[i].per_channel_timelimit_sec = 0;
				}

				if ((collect = switch_core_session_alloc(oglobals->originate_status[i].peer_session, sizeof(*collect)))) {
					switch_channel_set_flag(oglobals->originate_status[i].peer_channel, CF_TAGGED);
					if (!zstr(group_confirm_key)) {
						collect->key = switch_core_session_strdup(oglobals->originate_status[i].peer_session, group_confirm_key);
					} else {
						collect->key = switch_core_session_strdup(oglobals->originate_status[i].peer_session, oglobals->key);
					}

					if (!zstr(group_confirm_file)) {
						collect->file = switch_core_session_strdup(oglobals->originate_status[i].peer_session, group_confirm_file);
					} else if (!zstr(oglobals->file)) {
						collect->file = switch_core_session_strdup(oglobals->originate_status[i].peer_session, oglobals->file);
					}
					if (!zstr(oglobals->error_file)) {
						collect->error_file = switch_core_session_strdup(oglobals->originate_status[i].peer_session, oglobals->error_file);
					}

					if (oglobals->confirm_read_timeout) {
						collect->confirm_read_timeout = oglobals->confirm_read_timeout;
					} else {
						collect->confirm_read_timeout = 5000;
					}

					switch_channel_audio_sync(oglobals->originate_status[i].peer_channel);
					collect->session = oglobals->originate_status[i].peer_session;
					launch_collect_thread(collect);
				}
			} else {
				oglobals->idx = i;
				pindex = (uint32_t) i;
				rval = 0;
				goto end;

			}
		} else if (switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_WINNER)) {
			/* unset group_confirm variables */
			switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "group_confirm_key", NULL);
			switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "group_confirm_file", NULL);
			switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "group_confirm_error_file", NULL);
			switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "group_confirm_cancel_timeout", NULL);
			switch_channel_set_variable(oglobals->originate_status[i].peer_channel, "group_confirm_read_timeout", NULL);
			oglobals->idx = i;
			rval = 0;
			pindex = (uint32_t) i;
			goto end;
		}
	}

	if (oglobals->hups > 0 && oglobals->hups + pickups_without_timelimit == len) {
		/* only pickup channels with no timelimit remain */
		rval = 0;
	} else {
		rval = 1;
	}

  end:

	if (rval == 0 && pickups_without_timelimit) {
		for (i = 0; i < len; i++) {
			if (oglobals->originate_status[i].peer_channel && switch_channel_test_flag(oglobals->originate_status[i].peer_channel, CF_PICKUP) &&
				switch_channel_up(oglobals->originate_status[i].peer_channel)) {
				switch_channel_hangup(oglobals->originate_status[i].peer_channel, SWITCH_CAUSE_NO_PICKUP);
			}
		}
	}


	if (pindex > -1 && caller_channel && switch_channel_ready(caller_channel) && !switch_channel_media_ready(caller_channel) &&
		switch_channel_media_ready(oglobals->originate_status[pindex].peer_channel)) {
		inherit_codec(caller_channel, oglobals->originate_status[pindex].peer_session);
	}

	if (send_ringback) {
		oglobals->sending_ringback++;
	}

	return rval;

}

struct ringback {
	switch_buffer_t *audio_buffer;
	teletone_generation_session_t ts;
	switch_file_handle_t fhb;
	switch_file_handle_t *fh;
	int silence;
	uint8_t asis;
	int channels;
	void *mux_buf;
	int mux_buflen;
};

typedef struct ringback ringback_t;

static int teletone_handler(teletone_generation_session_t *ts, teletone_tone_map_t *map)
{
	ringback_t *tto = ts->user_data;
	int wrote;
	void *buf;
	int buflen;

	if (!tto) {
		return -1;
	}
	wrote = teletone_mux_tones(ts, map);

	if (tto->channels != 1) {
		if (tto->mux_buflen < wrote * 2 * tto->channels) {
			tto->mux_buflen = wrote * 2 * tto->channels;
			tto->mux_buf = realloc(tto->mux_buf, tto->mux_buflen);
		}
		memcpy(tto->mux_buf, ts->buffer, wrote * 2);
		switch_mux_channels((int16_t *) tto->mux_buf, wrote, 1, tto->channels);
		buf = tto->mux_buf;
		buflen = wrote * 2 * tto->channels;
	} else {
		buf = ts->buffer;
		buflen = wrote * 2;
	}

	switch_buffer_write(tto->audio_buffer, buf, buflen);

	return 0;
}


SWITCH_DECLARE(switch_status_t) switch_ivr_wait_for_answer(switch_core_session_t *session, switch_core_session_t *peer_session)
{
	switch_channel_t *caller_channel = NULL;
	switch_channel_t *peer_channel = switch_core_session_get_channel(peer_session);
	const char *ringback_data = NULL;
	switch_frame_t write_frame = { 0 };
	switch_codec_t write_codec = { 0 };
	switch_codec_t *read_codec = switch_core_session_get_read_codec(session);
	uint8_t pass = 0;
	ringback_t ringback = { 0 };
	switch_frame_t *read_frame = NULL;
	switch_status_t status = SWITCH_STATUS_SUCCESS;
	int timelimit = SWITCH_DEFAULT_TIMEOUT;
	const char *var;
	switch_time_t start = 0;
	const char *cancel_key = NULL;
	switch_channel_state_t wait_state = 0;

	switch_assert(peer_channel);

	if (switch_channel_get_state(peer_channel) == CS_RESET) {
		switch_channel_set_state(peer_channel, CS_SOFT_EXECUTE);
	}

	if (session) {
		caller_channel = switch_core_session_get_channel(session);
	}

	if ((switch_channel_test_flag(peer_channel, CF_ANSWERED) || switch_channel_test_flag(peer_channel, CF_EARLY_MEDIA))) {
		goto end;
	}

	switch_zmalloc(write_frame.data, SWITCH_RECOMMENDED_BUFFER_SIZE);
	write_frame.buflen = SWITCH_RECOMMENDED_BUFFER_SIZE;

	if (caller_channel && (var = switch_channel_get_variable(caller_channel, SWITCH_CALL_TIMEOUT_VARIABLE))) {
		timelimit = atoi(var);
		if (timelimit < 0) {
			timelimit = SWITCH_DEFAULT_TIMEOUT;
		}
	}

	timelimit *= 1000000;
	start = switch_micro_time_now();

	if (caller_channel) {
		cancel_key = switch_channel_get_variable(caller_channel, "origination_cancel_key");

		if (switch_channel_test_flag(caller_channel, CF_ANSWERED)) {
			ringback_data = switch_channel_get_variable(caller_channel, "transfer_ringback");
		}

		if (!ringback_data) {
			ringback_data = switch_channel_get_variable(caller_channel, "ringback");
		}

		if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE) || switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA)) {
			ringback_data = NULL;
		} else if (zstr(ringback_data)) {
			if ((var = switch_channel_get_variable(caller_channel, SWITCH_SEND_SILENCE_WHEN_IDLE_VARIABLE))) {
				int sval = atoi(var);

				if (sval) {
					ringback_data = switch_core_session_sprintf(session, "silence:%d", sval);
				}
			}
		}
	}


	if (read_codec && ringback_data) {
		if (switch_is_file_path(ringback_data)) {
			if (!(strrchr(ringback_data, '.') || strstr(ringback_data, SWITCH_URL_SEPARATOR))) {
				ringback.asis++;
			}
		}



		if (!ringback.asis) {
			if ((pass = (uint8_t) switch_test_flag(read_codec, SWITCH_CODEC_FLAG_PASSTHROUGH))) {
				goto no_ringback;
			}

			if (switch_core_codec_init(&write_codec,
									   "L16",
									   NULL,
									   NULL,
									   read_codec->implementation->actual_samples_per_second,
									   read_codec->implementation->microseconds_per_packet / 1000,
									   read_codec->implementation->number_of_channels, SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,
									   switch_core_session_get_pool(session)) != SWITCH_STATUS_SUCCESS) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Codec Error!\n");
				if (caller_channel) {
					switch_channel_hangup(caller_channel, SWITCH_CAUSE_BEARERCAPABILITY_NOTIMPL);
				}
				read_codec = NULL;
				goto done;
			} else {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG,
								  "Raw Codec Activation Success L16@%uhz 1 channel %dms\n",
								  read_codec->implementation->actual_samples_per_second, read_codec->implementation->microseconds_per_packet / 1000);

				write_frame.codec = &write_codec;
				write_frame.datalen = read_codec->implementation->decoded_bytes_per_packet;
				write_frame.samples = write_frame.datalen / 2;
				memset(write_frame.data, 255, write_frame.datalen);
				switch_core_session_set_read_codec(session, &write_codec);
			}
		}

		if (switch_channel_test_flag(caller_channel, CF_DISABLE_RINGBACK)) {
			ringback_data = NULL;
		}

		if (ringback_data) {
			char *tmp_data = NULL;

			if (switch_is_file_path(ringback_data)) {
				char *ext;

				if (ringback.asis) {
					write_frame.codec = read_codec;
					ext = read_codec->implementation->iananame;
					tmp_data = switch_mprintf("%s.%s", ringback_data, ext);
					ringback_data = tmp_data;
				}

				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Play Ringback File [%s]\n", ringback_data);

				ringback.fhb.channels = read_codec->implementation->number_of_channels;
				ringback.fhb.samplerate = read_codec->implementation->actual_samples_per_second;
				if (switch_core_file_open(&ringback.fhb,
										  ringback_data,
										  read_codec->implementation->number_of_channels,
										  read_codec->implementation->actual_samples_per_second,
										  SWITCH_FILE_FLAG_READ | SWITCH_FILE_DATA_SHORT, NULL) != SWITCH_STATUS_SUCCESS) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Error Playing File\n");
					switch_safe_free(tmp_data);
					goto done;
				}
				ringback.fh = &ringback.fhb;
			} else {
				if (!strncasecmp(ringback_data, "silence", 7)) {
					const char *p = ringback_data + 7;
					if (*p == ':') {
						p++;
						if (p) {
							ringback.silence = atoi(p);
						}
					}
					SWITCH_IVR_VERIFY_SILENCE_DIVISOR(ringback.silence);
				} else {
					switch_buffer_create_dynamic(&ringback.audio_buffer, 512, 1024, 0);
					switch_buffer_set_loops(ringback.audio_buffer, -1);

					teletone_init_session(&ringback.ts, 0, teletone_handler, &ringback);
					ringback.ts.rate = read_codec->implementation->actual_samples_per_second;
					ringback.channels = read_codec->implementation->number_of_channels;
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Play Ringback Tone [%s]\n", ringback_data);
					if (teletone_run(&ringback.ts, ringback_data)) {
						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Error Playing Tone\n");
						teletone_destroy_session(&ringback.ts);
						switch_buffer_destroy(&ringback.audio_buffer);
						ringback_data = NULL;
					}
				}
			}
			switch_safe_free(tmp_data);
		}
	}

  no_ringback:

	if (caller_channel) {
		wait_state = switch_channel_get_state(caller_channel);
	}

	while (switch_channel_ready(peer_channel) && !switch_channel_media_ready(peer_channel)) {
		int diff = (int) (switch_micro_time_now() - start);

		switch_ivr_parse_all_messages(session);

		if (caller_channel && cancel_key) {
			if (switch_channel_has_dtmf(caller_channel)) {
				switch_dtmf_t dtmf = { 0, 0 };
				if (switch_channel_dequeue_dtmf(caller_channel, &dtmf) == SWITCH_STATUS_SUCCESS) {
					if (dtmf.digit == *cancel_key) {
						status = SWITCH_STATUS_FALSE;
						goto done;
					}
				}
			}
		}

		if (caller_channel && switch_channel_get_state(caller_channel) != wait_state) {
			goto done;
		}

		if (diff > timelimit) {
			status = SWITCH_STATUS_TIMEOUT;
			goto done;
		}

		if (switch_channel_media_ready(caller_channel)) {
			status = switch_core_session_read_frame(session, &read_frame, SWITCH_IO_FLAG_NONE, 0);
			if (!SWITCH_READ_ACCEPTABLE(status)) {
				break;
			}
		} else {
			read_frame = NULL;
		}

		if (read_frame && !pass) {

			if (!write_frame.codec) {
				status = SWITCH_STATUS_FALSE;
				break;
			}

			if (ringback.fh) {
				switch_size_t mlen, olen;
				unsigned int pos = 0;

				if (ringback.asis) {
					mlen = write_frame.codec->implementation->encoded_bytes_per_packet;
				} else {
					mlen = write_frame.codec->implementation->samples_per_packet;
				}

				olen = mlen;
				//if (ringback.fh->resampler && ringback.fh->resampler->rfactor > 1) {
				//olen = (switch_size_t) (olen * ringback.fh->resampler->rfactor);
				//}
				switch_core_file_read(ringback.fh, write_frame.data, &olen);

				if (olen == 0) {
					olen = mlen;
					ringback.fh->speed = 0;
					switch_core_file_seek(ringback.fh, &pos, 0, SEEK_SET);
					switch_core_file_read(ringback.fh, write_frame.data, &olen);
					if (olen == 0) {
						switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_ERROR,
										  "Failure to read or re-read after seeking to beginning on file [%s]\n", ringback.fh->file_path);
						break;
					}
				}
				write_frame.datalen = (uint32_t) (ringback.asis ? olen : olen * 2 * ringback.fh->channels);
			} else if (ringback.audio_buffer) {
				if ((write_frame.datalen = (uint32_t) switch_buffer_read_loop(ringback.audio_buffer,
																			  write_frame.data,
																			  write_frame.codec->implementation->decoded_bytes_per_packet)) <= 0) {
					break;
				}
			} else if (ringback.silence) {
				write_frame.datalen = write_frame.codec->implementation->decoded_bytes_per_packet;
				switch_generate_sln_silence((int16_t *) write_frame.data, write_frame.datalen / 2,
											write_frame.codec->implementation->number_of_channels, ringback.silence);
			}

			if ((ringback.fh || ringback.silence || ringback.audio_buffer) && write_frame.codec && write_frame.datalen) {
				if (switch_core_session_write_frame(session, &write_frame, SWITCH_IO_FLAG_NONE, 0) != SWITCH_STATUS_SUCCESS) {
					break;
				}
			}
		} else {
			switch_cond_next();
		}
	}

  done:

	if (ringback.fh) {
		switch_core_file_close(ringback.fh);
		ringback.fh = NULL;
	} else if (ringback.audio_buffer) {
		teletone_destroy_session(&ringback.ts);
		switch_safe_free(ringback.mux_buf);
		switch_buffer_destroy(&ringback.audio_buffer);
	}


	switch_ivr_parse_all_events(session);

	switch_core_session_reset(session, SWITCH_TRUE, SWITCH_TRUE);

	if (switch_core_codec_ready(&write_codec)) {
		switch_core_codec_destroy(&write_codec);
	}

	switch_safe_free(write_frame.data);

  end:

	if (!switch_channel_media_ready(peer_channel)) {
		if (switch_channel_up_nosig(peer_channel)) {
			switch_channel_hangup(peer_channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
		}
		status = SWITCH_STATUS_FALSE;
	}

	if (switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
		switch_channel_state_t peer_state = switch_channel_get_state(peer_channel);

		while (switch_channel_ready(peer_channel) && switch_channel_get_state(peer_channel) == peer_state) {
			switch_ivr_parse_all_messages(session);
			switch_channel_ready(caller_channel);
			switch_yield(20000);
		}
	}

	if (caller_channel && !switch_channel_up_nosig(caller_channel)) {
		status = SWITCH_STATUS_FALSE;
	}

	return status;
}

SWITCH_DECLARE(void) switch_process_import(switch_core_session_t *session, switch_channel_t *peer_channel, const char *varname, const char *prefix)
{
	const char *import, *val;
	switch_channel_t *caller_channel;

	switch_assert(session && peer_channel);
	caller_channel = switch_core_session_get_channel(session);

	if ((import = switch_channel_get_variable(caller_channel, varname))) {
		char *mydata = switch_core_session_strdup(session, import);
		int i, argc;
		char *argv[64] = { 0 };

		if ((argc = switch_separate_string(mydata, ',', argv, (sizeof(argv) / sizeof(argv[0]))))) {
			for (i = 0; i < argc; i++) {
				if ((val = switch_channel_get_variable(peer_channel, argv[i]))) {
					if (prefix) {
						char *var = switch_mprintf("%s%s", prefix, argv[i]);
						switch_channel_set_variable(caller_channel, var, val);
						free(var);
					} else {
						switch_channel_set_variable(caller_channel, argv[i], val);
					}
				}
			}
		}
	}
}


static switch_status_t setup_ringback(originate_global_t *oglobals, originate_status_t *originate_status, int len,
									  const char *ringback_data, ringback_t *ringback, switch_frame_t *write_frame, switch_codec_t *write_codec)
{
	switch_status_t status = SWITCH_STATUS_SUCCESS;
	switch_channel_t *caller_channel = switch_core_session_get_channel(oglobals->session);
	switch_codec_t *read_codec = NULL;
	char *tmp_data = NULL;

	if (!switch_channel_test_flag(caller_channel, CF_ANSWERED)
		&& !switch_channel_test_flag(caller_channel, CF_EARLY_MEDIA)) {
		if (oglobals->bridge_early_media > -1  && len == 1 && originate_status[0].peer_session &&
			switch_channel_media_ready(originate_status[0].peer_channel)) {
			inherit_codec(caller_channel, originate_status[0].peer_session);
		}
		if ((status = switch_channel_pre_answer(caller_channel)) != SWITCH_STATUS_SUCCESS) {
			switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_DEBUG, "%s Media Establishment Failed.\n",
							  switch_channel_get_name(caller_channel));
			switch_goto_status(SWITCH_STATUS_BREAK, end);
		}
	}

	if (oglobals->session && (read_codec = switch_core_session_get_read_codec(oglobals->session))) {
		if (ringback_data && switch_is_file_path(ringback_data)) {
			if (!(strrchr(ringback_data, '.') || strstr(ringback_data, SWITCH_URL_SEPARATOR))) {
				ringback->asis++;
			}
		} else if (oglobals->bridge_early_media > -1 && zstr(ringback_data) && len == 1 && originate_status[0].peer_session) {
			switch_codec_implementation_t read_impl = { 0 }, write_impl = { 0 };

			if (switch_channel_ready(originate_status[0].peer_channel)
				&& switch_core_session_get_read_impl(originate_status[0].peer_session, &read_impl) == SWITCH_STATUS_SUCCESS
				&& switch_core_session_get_write_impl(oglobals->session, &write_impl) == SWITCH_STATUS_SUCCESS) {
				if (read_impl.impl_id == write_impl.impl_id &&
					read_impl.microseconds_per_packet == write_impl.microseconds_per_packet &&
					read_impl.actual_samples_per_second == write_impl.actual_samples_per_second) {
						ringback->asis++;
						write_frame->codec = switch_core_session_get_write_codec(originate_status[0].peer_session);
						write_frame->datalen = write_frame->codec->implementation->decoded_bytes_per_packet;
						switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_DEBUG, "bridge_early_media: passthrough enabled\n");
					} else {
						switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_DEBUG, "bridge_early_media: codecs don't match (%s@%uh@%di / %s@%uh@%di)\n",
							read_impl.iananame, read_impl.actual_samples_per_second, read_impl.microseconds_per_packet / 1000,
							write_impl.iananame, write_impl.actual_samples_per_second, write_impl.microseconds_per_packet / 1000);
					}
			}
		}

		if (!ringback->asis) {
			switch_codec_implementation_t peer_read_impl = { 0 };

			if (switch_test_flag(read_codec, SWITCH_CODEC_FLAG_PASSTHROUGH)) {
				switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_WARNING, "%s Ringback not supported in passthrough codec mode.\n",
								  switch_channel_get_name(caller_channel));
				switch_goto_status(SWITCH_STATUS_GENERR, end);
			}

			if (oglobals->bridge_early_media > -1 && zstr(ringback_data) && len == 1 && originate_status[0].peer_session) {
				switch_core_session_get_read_impl(originate_status[0].peer_session, &peer_read_impl);
			} else {
				switch_core_session_get_read_impl(oglobals->session, &peer_read_impl);
			}

			if (switch_core_codec_init(write_codec,
									   "L16",
									   NULL,
									   NULL,
									   peer_read_impl.actual_samples_per_second,
									   peer_read_impl.microseconds_per_packet / 1000,
									   peer_read_impl.number_of_channels, SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,
									   switch_core_session_get_pool(oglobals->session)) == SWITCH_STATUS_SUCCESS) {


				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->session), SWITCH_LOG_DEBUG,
								  "Raw Codec Activation Success L16@%uhz %d channel %dms\n",
								  peer_read_impl.actual_samples_per_second, peer_read_impl.number_of_channels, peer_read_impl.microseconds_per_packet / 1000);
				write_frame->codec = write_codec;
				write_frame->datalen = peer_read_impl.decoded_bytes_per_packet;
				write_frame->samples = write_frame->datalen / 2;
				memset(write_frame->data, 255, write_frame->datalen);
				switch_core_session_set_read_codec(oglobals->session, write_codec);
			} else {
				switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(caller_channel), SWITCH_LOG_ERROR, "Codec Error!\n");
				switch_channel_hangup(caller_channel, SWITCH_CAUSE_BEARERCAPABILITY_NOTIMPL);
				read_codec = NULL;
				switch_goto_status(SWITCH_STATUS_BREAK, end);
			}
		}

		oglobals->gen_ringback = 1;

		if (zstr(ringback_data)) {
			switch_goto_status(SWITCH_STATUS_SUCCESS, end);
		}

		if (switch_is_file_path(ringback_data)) {
			char *ext;

			if (ringback->asis) {
				write_frame->codec = read_codec;
				ext = read_codec->implementation->iananame;
				tmp_data = switch_mprintf("%s.%s", ringback_data, ext);
				ringback_data = tmp_data;
			}

			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->session), SWITCH_LOG_DEBUG, "Play Ringback File [%s]\n", ringback_data);

			if (switch_test_flag((&ringback->fhb), SWITCH_FILE_OPEN)) {
				switch_core_file_close(&ringback->fhb);
			}


			ringback->fhb.channels = read_codec->implementation->number_of_channels;
			ringback->fhb.samplerate = read_codec->implementation->actual_samples_per_second;
			if (switch_core_file_open(&ringback->fhb,
									  ringback_data,
									  read_codec->implementation->number_of_channels,
									  read_codec->implementation->actual_samples_per_second,
									  SWITCH_FILE_FLAG_READ | SWITCH_FILE_DATA_SHORT, NULL) != SWITCH_STATUS_SUCCESS) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->session), SWITCH_LOG_ERROR, "Error Playing File\n");
				switch_safe_free(tmp_data);
				switch_goto_status(SWITCH_STATUS_GENERR, end);
				//switch_goto_status(SWITCH_STATUS_FALSE, end);
			}
			ringback->fh = &ringback->fhb;

		} else if (!strncasecmp(ringback_data, "silence", 7)) {
			const char *c = ringback_data + 7;
			if (*c == ':') {
				c++;
				if (c) {
					ringback->silence = atoi(c);
				}
			}
			SWITCH_IVR_VERIFY_SILENCE_DIVISOR(ringback->silence);
		} else {
			if (ringback->audio_buffer) {
				switch_buffer_destroy(&ringback->audio_buffer);
				teletone_destroy_session(&ringback->ts);
			}

			switch_buffer_create_dynamic(&ringback->audio_buffer, 512, 1024, 0);
			switch_buffer_set_loops(ringback->audio_buffer, -1);

			teletone_init_session(&ringback->ts, 0, teletone_handler, ringback);
			ringback->ts.rate = read_codec->implementation->actual_samples_per_second;
			ringback->channels = read_codec->implementation->number_of_channels;
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->session), SWITCH_LOG_DEBUG, "Play Ringback Tone [%s]\n", ringback_data);
			/* ringback->ts.debug = 1;
			   ringback->ts.debug_stream = switch_core_get_console(); */

			if (teletone_run(&ringback->ts, ringback_data)) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals->session), SWITCH_LOG_ERROR, "Error Playing Tone\n");
				teletone_destroy_session(&ringback->ts);
				switch_buffer_destroy(&ringback->audio_buffer);
				switch_goto_status(SWITCH_STATUS_GENERR, end);
			}
		}
	}

  end:

	switch_safe_free(tmp_data);

	return status;

}




typedef struct {
	switch_core_session_t *session;
	switch_core_session_t *bleg;
	switch_call_cause_t cause;
	switch_call_cause_t cancel_cause;
	const char *bridgeto;
	uint32_t timelimit_sec;
	const switch_state_handler_table_t *table;
	const char *cid_name_override;
	const char *cid_num_override;
	switch_caller_profile_t *caller_profile_override;
	switch_event_t *ovars;
	switch_originate_flag_t flags;
	switch_status_t status;
	int done;
	switch_thread_t *thread;
	switch_mutex_t *mutex;
	switch_dial_handle_t *dh;
} enterprise_originate_handle_t;


struct ent_originate_ringback {
	switch_core_session_t *session;
	int running;
	const char *ringback_data;
	switch_thread_t *thread;
};

static void *SWITCH_THREAD_FUNC enterprise_originate_thread(switch_thread_t *thread, void *obj)
{
	enterprise_originate_handle_t *handle = (enterprise_originate_handle_t *) obj;

	handle->done = 0;
	handle->status = switch_ivr_originate(NULL, &handle->bleg, &handle->cause,
										  handle->bridgeto, handle->timelimit_sec,
										  handle->table,
										  handle->cid_name_override,
										  handle->cid_num_override,
										  handle->caller_profile_override,
										  handle->ovars,
										  handle->flags,
										  &handle->cancel_cause,
										  handle->dh);


	handle->done = 1;
	switch_mutex_lock(handle->mutex);
	switch_mutex_unlock(handle->mutex);

	if (handle->done != 2) {
		if (handle->status == SWITCH_STATUS_SUCCESS && handle->bleg) {
			switch_channel_t *channel = switch_core_session_get_channel(handle->bleg);

			switch_channel_set_variable(channel, "group_dial_status", "loser");
			switch_channel_hangup(channel, SWITCH_CAUSE_LOSE_RACE);
			switch_core_session_rwunlock(handle->bleg);
		}
	}

	return NULL;
}

static void *SWITCH_THREAD_FUNC enterprise_originate_ringback_thread(switch_thread_t *thread, void *obj)
{
	struct ent_originate_ringback *rb_data = (struct ent_originate_ringback *) obj;
	switch_core_session_t *session = rb_data->session;
	switch_channel_t *channel;
	switch_status_t status = SWITCH_STATUS_FALSE;

	if (switch_core_session_read_lock(session) != SWITCH_STATUS_SUCCESS) {
		return NULL;
	}

	channel = switch_core_session_get_channel(session);

	while (rb_data->running && switch_channel_ready(channel)) {
		switch_ivr_parse_all_messages(session);
		if (status != SWITCH_STATUS_BREAK) {
			if (zstr(rb_data->ringback_data) || !strcasecmp(rb_data->ringback_data, "silence")) {
				status = switch_ivr_collect_digits_callback(session, NULL, 0, 0);
			} else if (switch_is_file_path(rb_data->ringback_data)) {
				status = switch_ivr_play_file(session, NULL, rb_data->ringback_data, NULL);
			} else {
				status = switch_ivr_gentones(session, rb_data->ringback_data, 0, NULL);
			}
		}

		if (status == SWITCH_STATUS_BREAK) {
			switch_channel_set_flag(channel, CF_NOT_READY);
		}
	}
	switch_core_session_rwunlock(session);

	rb_data->running = 0;
	return NULL;
}


SWITCH_DECLARE(switch_status_t) switch_ivr_enterprise_originate(switch_core_session_t *session,
																switch_core_session_t **bleg,
																switch_call_cause_t *cause,
																const char *bridgeto,
																uint32_t timelimit_sec,
																const switch_state_handler_table_t *table,
																const char *cid_name_override,
																const char *cid_num_override,
																switch_caller_profile_t *caller_profile_override,
																switch_event_t *ovars, switch_originate_flag_t flags,
																switch_call_cause_t *cancel_cause,
																switch_dial_handle_list_t *hl)
{
	int x_argc = 0;
	char *x_argv[MAX_PEERS] = { 0 };
	enterprise_originate_handle_t *hp = NULL, handles[MAX_PEERS] = { {0} };
	int i;
	switch_caller_profile_t *cp = NULL;
	switch_channel_t *channel = NULL;
	char *data = NULL;
	switch_status_t status = SWITCH_STATUS_FALSE;
	switch_threadattr_t *thd_attr = NULL;
	int running = 0, over = 0;
	switch_status_t tstatus = SWITCH_STATUS_FALSE;
	switch_memory_pool_t *pool;
	switch_event_header_t *hi = NULL;
	struct ent_originate_ringback rb_data = { 0 };
	const char *ringback_data = NULL;
	switch_event_t *var_event = NULL;
	int getcause = 1;

	*cause = SWITCH_CAUSE_SUCCESS;

	switch_core_new_memory_pool(&pool);

	if (zstr(bridgeto) && (!hl || hl->handle_idx == 0)) {
		*cause = SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER;
		getcause = 0;
		switch_goto_status(SWITCH_STATUS_FALSE, end);
	}

	if (!hl) {
		data = switch_core_strdup(pool, bridgeto);
	}

	if (session) {
		switch_caller_profile_t *cpp = NULL;
		channel = switch_core_session_get_channel(session);
		if ((cpp = switch_channel_get_caller_profile(channel))) {
			cp = switch_caller_profile_dup(pool, cpp);
		}
	}

	if (ovars) {
		var_event = ovars;
	} else {
		if (switch_event_create_plain(&var_event, SWITCH_EVENT_CHANNEL_DATA) != SWITCH_STATUS_SUCCESS) {
			abort();
		}
	}

	if (session) {
		switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "ent_originate_aleg_uuid", switch_core_session_get_uuid(session));
	}

	if (channel) {
		const char *tmp_var = NULL;

		switch_channel_process_export(channel, NULL, var_event, SWITCH_EXPORT_VARS_VARIABLE);

		if ((tmp_var = switch_channel_get_variable(channel, "effective_ani"))) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_ani", tmp_var);
		}

		if ((tmp_var = switch_channel_get_variable(channel, "effective_aniii"))) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_aniii", tmp_var);
		}

		if ((tmp_var = switch_channel_get_variable(channel, "effective_caller_id_name"))) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_caller_id_name", tmp_var);
		}

		if ((tmp_var = switch_channel_get_variable(channel, "effective_caller_id_number"))) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_caller_id_number", tmp_var);
		}
	}

	/* strip leading spaces */
	while (data && *data && *data == ' ') {
		data++;
	}

	/* extract channel variables, allowing multiple sets of braces */
	switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Parsing ultra-global variables\n");
	while (data && *data == '<') {
		char *parsed = NULL;

		if (switch_event_create_brackets(data, '<', '>', ',', &var_event, &parsed, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS || !parsed) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Parse Error!\n");
			switch_goto_status(SWITCH_STATUS_GENERR, done);
		}

		data = parsed;
	}
	if (hl && hl->global_vars) {
		switch_event_merge(var_event, hl->global_vars);
	}

	/* strip leading spaces (again) */
	while (data && *data && *data == ' ') {
		data++;
	}

	if (ovars && ovars != var_event) {
		for (hi = ovars->headers; hi; hi = hi->next) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, hi->name, hi->value);
		}
	}

	switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "ignore_early_media", "true");

	if (data) {
		if (!(x_argc = switch_separate_string_string(data, SWITCH_ENT_ORIGINATE_DELIM, x_argv, MAX_PEERS))) {
			*cause = SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER;
			getcause = 0;
			switch_goto_status(SWITCH_STATUS_FALSE, end);
		}
	} else if (hl) {
		x_argc = hl->handle_idx;
	}

	switch_threadattr_create(&thd_attr, pool);
	switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);

	for (i = 0; i < x_argc; i++) {
		handles[i].session = session;
		handles[i].bleg = NULL;
		handles[i].cause = 0;
		handles[i].cancel_cause = 0;
		handles[i].bridgeto = x_argv[i];
		handles[i].timelimit_sec = timelimit_sec;
		handles[i].table = table;
		handles[i].cid_name_override = cid_name_override;
		handles[i].cid_num_override = cid_num_override;
		handles[i].caller_profile_override = cp;
		switch_event_dup(&handles[i].ovars, var_event);
		handles[i].flags = flags;
		if (hl) {
			switch_dial_handle_dup(&handles[i].dh, hl->handles[i]);
		}
		switch_mutex_init(&handles[i].mutex, SWITCH_MUTEX_NESTED, pool);
		switch_mutex_lock(handles[i].mutex);
		switch_thread_create(&handles[i].thread, thd_attr, enterprise_originate_thread, &handles[i], pool);
	}

	if (channel && !switch_channel_test_flag(channel, CF_PROXY_MODE) && !switch_channel_test_flag(channel, CF_PROXY_MEDIA)) {
		if (switch_channel_test_flag(channel, CF_ANSWERED)) {
			ringback_data = switch_channel_get_variable(channel, "transfer_ringback");
		}

		if (!ringback_data) {
			ringback_data = switch_channel_get_variable(channel, "ringback");
		}

		if (ringback_data || switch_channel_media_ready(channel)) {
			rb_data.ringback_data = ringback_data;
			rb_data.session = session;
			rb_data.running = 1;
			if (!switch_channel_media_ready(channel)) {
				if (switch_channel_pre_answer(channel) != SWITCH_STATUS_SUCCESS) {
					goto done;
				}
			}
			switch_thread_create(&rb_data.thread, thd_attr, enterprise_originate_ringback_thread, &rb_data, pool);
		}
	}


	for (;;) {
		running = 0;
		over = 0;

		if (channel && !switch_channel_ready(channel)) {
			break;
		}

		if (cancel_cause && *cancel_cause > 0) {
			break;
		}

		for (i = 0; i < x_argc; i++) {


			if (handles[i].done == 0) {
				running++;
			} else if (handles[i].done == 1) {
				if (handles[i].status == SWITCH_STATUS_SUCCESS) {
					handles[i].done = 2;
					hp = &handles[i];
					goto done;
				} else {
					handles[i].done = -1;
				}
			} else {
				over++;
			}

			switch_yield(10000);
		}

		if (!running || over == x_argc) {
			break;
		}
	}


  done:

	if (hp) {
		*cause = hp->cause;
		getcause = 0;
		status = hp->status;
		*bleg = hp->bleg;
		if (*bleg) {
			switch_channel_t *bchan = switch_core_session_get_channel(*bleg);
			switch_caller_profile_t *cloned_profile;

			if (session) {
				cloned_profile = switch_caller_profile_clone(*bleg, cp);
				switch_channel_set_originator_caller_profile(bchan, cloned_profile);
				
				cloned_profile = switch_caller_profile_clone(session, switch_channel_get_caller_profile(bchan));
				switch_channel_set_originatee_caller_profile(channel, cloned_profile);
			}
		}
		switch_mutex_unlock(hp->mutex);
		switch_thread_join(&tstatus, hp->thread);
		switch_event_destroy(&hp->ovars);
		switch_dial_handle_destroy(&hp->dh);
	}

	for (i = 0; i < x_argc; i++) {
		if (hp == &handles[i]) {
			continue;
		}

		if (cancel_cause && *cancel_cause > 0) {
			handles[i].cancel_cause = *cancel_cause;
		} else {
			handles[i].cancel_cause = SWITCH_CAUSE_LOSE_RACE;
		}
	}

	for (i = 0; i < x_argc; i++) {

		if (hp == &handles[i]) {
			continue;
		}

		if (getcause && channel && handles[i].cause && handles[i].cause != SWITCH_CAUSE_SUCCESS) {
			switch_channel_handle_cause(channel, handles[i].cause);
		}

		switch_mutex_unlock(handles[i].mutex);

		if (getcause && *cause != handles[i].cause && handles[i].cause != SWITCH_CAUSE_LOSE_RACE && handles[i].cause != SWITCH_CAUSE_NO_PICKUP) {
			*cause = handles[i].cause;
			getcause++;
		}

		switch_thread_join(&tstatus, handles[i].thread);
		switch_event_destroy(&handles[i].ovars);
		switch_dial_handle_destroy(&handles[i].dh);
	}

	if (channel && rb_data.thread) {
		switch_channel_set_flag(channel, CF_NOT_READY);
		switch_thread_join(&tstatus, rb_data.thread);
		switch_channel_clear_flag(channel, CF_NOT_READY);
	}


  end:

	if (getcause == 1 && *cause == SWITCH_CAUSE_SUCCESS) {
		*cause = SWITCH_CAUSE_NO_ANSWER;
	}

	if (channel) {
		if (*cause == SWITCH_CAUSE_SUCCESS) {
			switch_channel_set_variable(channel, "originate_disposition", "success");
		} else {
			switch_channel_set_variable(channel, "originate_disposition", "failure");
			switch_channel_set_variable(channel, "hangup_cause", switch_channel_cause2str(*cause));
		}
	}


	if (var_event && var_event != ovars) {
		switch_event_destroy(&var_event);
	}

	switch_core_destroy_memory_pool(&pool);

	return status;

}

struct early_state {
	originate_global_t *oglobals;
	switch_mutex_t *mutex;
	switch_buffer_t *buffer;
	int ready;
	ringback_t *ringback;
	int ttl;
};
typedef struct early_state early_state_t;


static void *SWITCH_THREAD_FUNC early_thread_run(switch_thread_t *thread, void *obj)
{
	early_state_t *state = (early_state_t *) obj;
	originate_status_t originate_status[MAX_PEERS] = { {0} };
	uint8_t array_pos = 0;
	int16_t mux_data[SWITCH_RECOMMENDED_BUFFER_SIZE / 2] = { 0 };
	int32_t sample;
	switch_codec_t read_codecs[MAX_PEERS] = { {0} };
	int i, x, ready = 0, answered = 0, ring_ready = 0;
	int16_t *data;
	uint32_t datalen = 0;
	switch_status_t status;
	switch_frame_t *read_frame = NULL;
	switch_codec_implementation_t read_impl = { 0 };

	for (i = 0; i < MAX_PEERS && i < state->ttl; i++) {
		switch_core_session_t *session = state->oglobals->originate_status[i].peer_session;
		switch_channel_t *channel = NULL;

		if (session) channel = switch_core_session_get_channel(session);

		if (!session || !channel || !switch_channel_up(channel)) {
			continue;
		}

		if (switch_core_session_read_lock(session) == SWITCH_STATUS_SUCCESS) {
			originate_status[array_pos].peer_session = session;
			originate_status[array_pos].peer_channel = channel;
			originate_status[array_pos].array_pos = (uint8_t) i;
			array_pos++;
		}
	}
	
	if (state->oglobals->session) {
		switch_core_session_get_read_impl(state->oglobals->session, &read_impl);
	}

	while (state->ready) {
		datalen = 0;
		memset(mux_data, 0, sizeof(mux_data));
		ready = 0;
		answered = 0;

		for (array_pos = 0; array_pos < MAX_PEERS && originate_status[array_pos].peer_session; array_pos++) {
			switch_core_session_t *session = originate_status[array_pos].peer_session;
			switch_channel_t *channel = originate_status[array_pos].peer_channel;
			i = originate_status[array_pos].array_pos;

			if (!session || !channel || !switch_channel_up(channel)) {
				continue;
			}

			if (switch_channel_media_ready(channel)) {
				ready++;

				if (switch_channel_test_flag(channel, CF_RING_READY)) {
					ring_ready = 1;
					state->oglobals->bridge_early_media = -1;
					state->oglobals->ignore_early_media = 1;
				}

				if (switch_channel_test_flag(channel, CF_ANSWERED)) {
					answered++;
				}

				if (!state->ringback->asis) {
					if (!switch_core_codec_ready((&read_codecs[i]))) {
						if (switch_core_codec_init(&read_codecs[i],
												   "L16",
												   NULL,
												   NULL,
												   read_impl.actual_samples_per_second,
												   read_impl.microseconds_per_packet / 1000,
												   read_impl.number_of_channels, SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,
												   switch_core_session_get_pool(session)) != SWITCH_STATUS_SUCCESS) {
							switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Codec Error!\n");
						}
						switch_core_session_set_read_codec(session, NULL);
						switch_core_session_set_read_codec(session, &read_codecs[i]);
					}
					status = switch_core_session_read_frame(session, &read_frame, SWITCH_IO_FLAG_NONE, 0);
					if (SWITCH_READ_ACCEPTABLE(status) && !switch_test_flag(read_frame, SFF_CNG)) {
						data = (int16_t *) read_frame->data;
						if (datalen < read_frame->datalen) {
							datalen = read_frame->datalen;
						}
						for (x = 0; x < (int) read_frame->datalen / 2; x++) {
							sample = data[x] + mux_data[x];
							switch_normalize_to_16bit(sample);
							mux_data[x] = (int16_t) sample;
						}
					}
				} else {
					status = switch_core_session_read_frame(session, &read_frame, SWITCH_IO_FLAG_NONE, 0);
					if (SWITCH_READ_ACCEPTABLE(status) && !switch_test_flag(read_frame, SFF_CNG)) {
						datalen = read_frame->datalen;
					}
					break;
				}
			}
		}

		if (!ready || answered || ring_ready) {
			break;
		}

		if (!datalen) {
			continue;
		}

		if (state->ringback->asis) {
			uint16_t flen = (uint16_t)datalen;
			switch_mutex_lock(state->mutex);
			switch_buffer_write(state->buffer, &flen, sizeof(uint16_t));
			switch_buffer_write(state->buffer, read_frame->data, datalen);
			switch_mutex_unlock(state->mutex);
		} else {
			switch_mutex_lock(state->mutex);
			switch_buffer_write(state->buffer, mux_data, datalen);
			switch_mutex_unlock(state->mutex);
		}
	}


	for (array_pos = 0; array_pos < MAX_PEERS && originate_status[array_pos].peer_session; array_pos++) {
		switch_core_session_t *session = originate_status[array_pos].peer_session;
		switch_channel_t *channel = originate_status[array_pos].peer_channel;
		i = originate_status[array_pos].array_pos;

		if (!session) continue;

		if (switch_core_codec_ready((&read_codecs[i]))) {
			switch_core_session_set_read_codec(session, NULL);
			switch_core_codec_destroy(&read_codecs[i]);
		}

		if (switch_channel_up_nosig(channel)) {
			switch_core_session_reset(session, SWITCH_FALSE, SWITCH_TRUE);
		}

		switch_core_session_rwunlock(session);
	}

	if (!ring_ready) {
		state->oglobals->early_ok = 1;
	}

	return NULL;
}

#define peer_eligible(_peer) (_peer && !(switch_channel_test_flag(_peer, CF_TRANSFER) || \
										 switch_channel_test_flag(_peer, CF_REDIRECT) || \
										 switch_channel_test_flag(_peer, CF_BRIDGED) || \
										 switch_channel_get_state(_peer) == CS_RESET || \
										 !switch_channel_test_flag(_peer, CF_ORIGINATING)))

static void wait_for_cause(switch_channel_t *channel)
{
	int sanity = 5;

	while (--sanity > 0 && peer_eligible(channel) && switch_channel_get_cause(channel) == SWITCH_CAUSE_NONE) {
		switch_yield(10000);
	}
}



SWITCH_DECLARE(switch_status_t) switch_ivr_originate(switch_core_session_t *session,
													 switch_core_session_t **bleg,
													 switch_call_cause_t *cause,
													 const char *bridgeto,
													 uint32_t timelimit_sec,
													 const switch_state_handler_table_t *table,
													 const char *cid_name_override,
													 const char *cid_num_override,
													 switch_caller_profile_t *caller_profile_override,
													 switch_event_t *ovars, switch_originate_flag_t flags,
													 switch_call_cause_t *cancel_cause,
													 switch_dial_handle_t *dh)
{
	//originate_status_t originate_status[MAX_PEERS] = { {0} };
	switch_originate_flag_t dftflags = SOF_NONE, myflags;
	char *pipe_names[MAX_PEERS] = { 0 };
	char *data = NULL;
	switch_status_t status = SWITCH_STATUS_SUCCESS;
	switch_channel_t *caller_channel = NULL;
	char *peer_names[MAX_PEERS] = { 0 };
	switch_event_t *peer_vars[MAX_PEERS] = { 0 };
	switch_core_session_t *new_session = NULL, *peer_session = NULL;
	switch_caller_profile_t *new_profile = NULL, *caller_caller_profile;
	char *chan_type = NULL, *chan_data;
	switch_channel_t *peer_channel = NULL;
	ringback_t ringback = { 0 };
	time_t start, global_start;
	switch_time_t last_retry_start = 0;
	switch_frame_t *read_frame = NULL;
	int r = 0, i, and_argc = 0, or_argc = 0;
	int32_t sleep_ms = 1000, try = 0, retries = 1, retry_timelimit_sec = 0;
	int32_t min_retry_period_ms = sleep_ms;
	switch_codec_t write_codec = { 0 };
	switch_frame_t write_frame = { 0 };
	char *odata, *var;
	switch_call_cause_t reason = SWITCH_CAUSE_NONE;
	switch_call_cause_t force_reason = SWITCH_CAUSE_NONE;
	uint8_t to = 0;
	char *var_val;
	const char *ringback_data = NULL;
	switch_event_t *var_event = NULL;
	int8_t fail_on_single_reject = 0;
	int8_t hangup_on_single_reject = 0;
	char *fail_on_single_reject_var = NULL;
	char *loop_data = NULL;
	uint32_t progress_timelimit_sec = 0;
	const char *cid_tmp, *lc;
	originate_global_t oglobals = { 0 };
	int cdr_total = 0;
	int local_clobber = 0;
	const char *cancel_key = NULL;
	const char *holding = NULL;
	const char *soft_holding = NULL;
	early_state_t early_state = { 0 };
	int read_packet = 0;
	int check_reject = 1;
	switch_codec_implementation_t read_impl = { 0 };
	const char *ani_override = NULL;
	const char *aniii_override = NULL;
	const char *ent_aleg_uuid = NULL;
	switch_core_session_t *a_session = session, *l_session = NULL;
	char *event_string;
	
	if (!bridgeto || dh) {
		bridgeto = "";
	}
	
	if (session) {
		caller_channel = switch_core_session_get_channel(session);

		if (switch_false(switch_channel_get_variable(caller_channel, "preserve_originated_vars"))) {
			switch_channel_set_variable(caller_channel, "originated_legs", NULL);
			switch_channel_set_variable(caller_channel, "originate_causes", NULL);
		}
	}


	if (strstr(bridgeto, SWITCH_ENT_ORIGINATE_DELIM)) {
		return switch_ivr_enterprise_originate(session, bleg, cause, bridgeto, timelimit_sec, table, cid_name_override, cid_num_override,
											   caller_profile_override, ovars, flags, cancel_cause, NULL);
	}

	oglobals.check_vars = SWITCH_TRUE;
	oglobals.ringback_ok = 1;
	oglobals.bridge_early_media = -1;
	oglobals.file = NULL;
	oglobals.error_file = NULL;
	switch_core_new_memory_pool(&oglobals.pool);

	if (caller_profile_override) {
		oglobals.caller_profile_override = switch_caller_profile_dup(oglobals.pool, caller_profile_override);
	} else if (session) {
		switch_caller_profile_t *cp = switch_channel_get_caller_profile(caller_channel);

		if (cp) {
			oglobals.caller_profile_override = switch_caller_profile_dup(oglobals.pool, cp);
		}
	}

	if (session) {
		const char *to_var, *bypass_media = NULL, *proxy_media = NULL, *zrtp_passthru = NULL;
		switch_channel_set_flag(caller_channel, CF_ORIGINATOR);
		oglobals.session = session;

		switch_channel_execute_on(caller_channel, SWITCH_CHANNEL_EXECUTE_ON_PRE_ORIGINATE_VARIABLE);
		switch_channel_api_on(caller_channel, SWITCH_CHANNEL_API_ON_PRE_ORIGINATE_VARIABLE);

		switch_core_session_get_read_impl(session, &read_impl);

		if ((to_var = switch_channel_get_variable(caller_channel, SWITCH_CALL_TIMEOUT_VARIABLE))) {
			timelimit_sec = atoi(to_var);
		}

		proxy_media = switch_channel_get_variable(caller_channel, SWITCH_PROXY_MEDIA_VARIABLE);
		bypass_media = switch_channel_get_variable(caller_channel, SWITCH_BYPASS_MEDIA_VARIABLE);
		zrtp_passthru = switch_channel_get_variable(caller_channel, SWITCH_ZRTP_PASSTHRU_VARIABLE);

		if (!zstr(proxy_media)) {
			if (switch_true(proxy_media)) {
				switch_channel_set_flag(caller_channel, CF_PROXY_MEDIA);
			} else if (switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA)) {
				switch_channel_clear_flag(caller_channel, CF_PROXY_MEDIA);
			}
		}

		if (!zstr(zrtp_passthru)) {
			if (switch_true(zrtp_passthru)) {
				switch_channel_set_flag(caller_channel, CF_ZRTP_PASSTHRU_REQ);
			} else if (switch_channel_test_flag(caller_channel, CF_ZRTP_PASSTHRU_REQ)) {
				switch_channel_clear_flag(caller_channel, CF_ZRTP_PASSTHRU_REQ);
			}
		}

		if (bypass_media && switch_channel_test_flag(caller_channel, CF_EARLY_MEDIA) && !switch_channel_test_flag(caller_channel, CF_ANSWERED)) {
			switch_core_session_message_t msg = { 0 };

			msg.message_id = SWITCH_MESSAGE_INDICATE_CLEAR_PROGRESS;
			msg.from = __FILE__;
			switch_core_session_receive_message(session, &msg);
		}


		if (!zstr(bypass_media) && !switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA)) {
			if (switch_true(bypass_media)) {
				switch_channel_set_flag(caller_channel, CF_PROXY_MODE);
			} else if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE)) {
				if (!switch_channel_test_flag(caller_channel, CF_ANSWERED) && switch_channel_test_flag(caller_channel, CF_EARLY_MEDIA)) {
					switch_channel_set_variable(caller_channel, SWITCH_B_SDP_VARIABLE, NULL);
					switch_channel_answer(caller_channel);
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING,
									  "Must answer channel %s due to SIP PARADOX\n", switch_channel_get_name(caller_channel));
				}
				switch_channel_set_variable(caller_channel, SWITCH_B_SDP_VARIABLE, NULL);
				switch_ivr_media(switch_core_session_get_uuid(session), SMF_NONE);
			}
		}

		if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE) && switch_channel_test_flag(caller_channel, CF_ANSWERED)) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG,
							  "Channel is already up, delaying proxy mode 'till both legs are answered.\n");
			switch_channel_set_variable(caller_channel, "bypass_media_after_bridge", "true");
			switch_channel_set_variable(caller_channel, SWITCH_BYPASS_MEDIA_VARIABLE, NULL);
			switch_channel_clear_flag(caller_channel, CF_PROXY_MODE);
		}
	}

	if (timelimit_sec <= 0) {
		timelimit_sec = SWITCH_DEFAULT_TIMEOUT;
	}


	oglobals.idx = IDX_NADA;
	oglobals.early_ok = 1;

	*bleg = NULL;

	switch_zmalloc(write_frame.data, SWITCH_RECOMMENDED_BUFFER_SIZE);
	write_frame.buflen = SWITCH_RECOMMENDED_BUFFER_SIZE;

	odata = strdup(bridgeto);

	if (!odata) {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Memory Error!\n");
		status = SWITCH_STATUS_MEMERR;
		goto done;
	}

	data = odata;


	/* Some channel are created from an originating channel and some aren't so not all outgoing calls have a way to get params
	   so we will normalize dialstring params and channel variables (when there is an originator) into an event that we
	   will use as a pseudo hash to consult for params as needed.
	 */

	if (ovars) {
		var_event = ovars;
	} else {
		if (switch_event_create_plain(&var_event, SWITCH_EVENT_CHANNEL_DATA) != SWITCH_STATUS_SUCCESS) {
			abort();
		}
	}

	ent_aleg_uuid = switch_event_get_header(var_event, "ent_originate_aleg_uuid");

	if (caller_channel) {
		switch_channel_process_export(caller_channel, NULL, var_event, SWITCH_EXPORT_VARS_VARIABLE);
	}

	/* strip leading spaces */
	while (data && *data && *data == ' ') {
		data++;
	}

	if ((ovars && switch_true(switch_event_get_header(ovars,"origination_nested_vars"))) ||
		(caller_channel && switch_true(switch_channel_get_variable(caller_channel, "origination_nested_vars")))
		|| switch_true(switch_core_get_variable("origination_nested_vars")) || switch_stristr("origination_nested_vars=true", data)) {
		oglobals.check_vars = SWITCH_FALSE;
	}

	if (dh) {
		switch_event_t *vp = switch_dial_handle_get_global_vars(dh);
		if (vp) {
			if (var_event && var_event != ovars) {
				switch_event_destroy(&var_event);
			}
			switch_event_dup(&var_event, vp);
		}
	}

	/* extract channel variables, allowing multiple sets of braces */
	if (*data == '<') {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Parsing ultra-global variables\n");
		while (*data == '<') {
			char *parsed = NULL;

			if (switch_event_create_brackets(data, '<', '>', ',', &var_event, &parsed, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS || !parsed) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Parse Error!\n");
				switch_goto_status(SWITCH_STATUS_GENERR, done);
			}

			data = parsed;
		}
	}

	/* extract channel variables, allowing multiple sets of braces */
	switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Parsing global variables\n");
	while (*data == '{') {
		char *parsed = NULL;

		if (switch_event_create_brackets(data, '{', '}', ',', &var_event, &parsed, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS || !parsed) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Parse Error!\n");
			switch_goto_status(SWITCH_STATUS_GENERR, done);
		}

		data = parsed;
	}
	
	if (dh && var_event && switch_event_serialize(var_event, &event_string, SWITCH_FALSE) == SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Global Vars\n======================\n%s\n", event_string);
		switch_safe_free(event_string);
	}
	
	/* strip leading spaces (again) */
	while (data && *data && *data == ' ') {
		data++;
	}

	if (zstr(data) && !dh) {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING, "No origination URL specified!\n");
		status = SWITCH_STATUS_GENERR;
		goto done;
	}

	if (!(flags & SOF_NOBLOCK) && var_event && (var = switch_event_get_header(var_event, "originate_delay_start"))) {
		int tmp = atoi(var);
		if (tmp > 0) {
			while (tmp && (!cancel_cause || *cancel_cause == 0)) {
				switch_cond_next();
				tmp--;
			}
		}
	}

	if (oglobals.session) {
		switch_event_header_t *hi;
		const char *cdr_total_var;
		const char *cdr_var;
		const char *json_cdr_var;

		if (switch_channel_var_true(caller_channel, "originate_xfer_zombie")) {
			switch_channel_set_flag(caller_channel, CF_XFER_ZOMBIE);
			oglobals.early_ok = 0;
			oglobals.ignore_early_media = 1;
		}

		if ((cdr_var = switch_channel_get_variable(caller_channel, "failed_xml_cdr_prefix"))) {
			char buf[128] = "";
			switch_snprintf(buf, sizeof(buf), "%s_total", cdr_var);
			if ((cdr_total_var = switch_channel_get_variable(caller_channel, buf))) {
				int tmp = atoi(cdr_total_var);
				if (tmp > 0) {
					cdr_total = tmp;
				}
			}
		}

		if ((json_cdr_var = switch_channel_get_variable(caller_channel, "failed_json_cdr_prefix"))) {
			char buf[128] = "";
			switch_snprintf(buf, sizeof(buf), "%s_total", json_cdr_var);
			if ((cdr_total_var = switch_channel_get_variable(caller_channel, buf))) {
				int tmp = atoi(cdr_total_var);
				if (tmp > 0) {
					cdr_total = tmp;
				}
			}
		}

		/* Copy all the missing applicable channel variables from A-leg into the event */
		if ((hi = switch_channel_variable_first(caller_channel))) {
			for (; hi; hi = hi->next) {
				int ok = 0;
				if (!strcasecmp((char *) hi->name, "group_confirm_key")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "group_confirm_file")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "group_confirm_read_timeout")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "group_confirm_cancel_timeout")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "group_confirm_timeout")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "forked_dial")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "fail_on_single_reject")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "hangup_on_single_reject")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "ignore_early_media")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "bridge_early_media")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "originate_continue_on_timeout")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "ignore_ring_ready")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "monitor_early_media_ring")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "monitor_early_media_ring_total")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "monitor_early_media_fail")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "return_ring_ready")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "ring_ready")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "instant_ringback")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "progress_timeout")) {
					ok = 1;
				} else if (!strcasecmp((char *) hi->name, "language")) {
					ok = 1;
				}

				if (ok && !switch_event_get_header(var_event, hi->name)) {
					switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, (char *) hi->name, (char *) hi->value);
				}
			}
			switch_channel_variable_last(caller_channel);
		}
		/*
		   if ((hi = switch_channel_variable_first(caller_channel))) {
		   for (; hi; hi = switch_core_hash_next(&hi)) {
		   switch_core_hash_this(hi, &vvar, NULL, &vval);
		   if (vvar && vval) {
		   switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, (void *) vvar, (char *) vval);
		   }
		   }
		   switch_channel_variable_last(caller_channel);
		   }
		 */
	}

	if (caller_channel) {		/* ringback is only useful when there is an originator */
		ringback_data = NULL;
		cancel_key = switch_channel_get_variable(caller_channel, "origination_cancel_key");

		if (switch_channel_test_flag(caller_channel, CF_ANSWERED)) {
			ringback_data = switch_channel_get_variable(caller_channel, "transfer_ringback");
		}

		if (!ringback_data) {
			ringback_data = switch_channel_get_variable(caller_channel, "ringback");
		}

		switch_channel_set_variable(caller_channel, "originate_disposition", "failure");
		switch_channel_set_variable(caller_channel, "DIALSTATUS", "INVALIDARGS");

		if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE) || switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA)) {
			ringback_data = NULL;
		}
	}
#if 0
	/* changing behaviour ignore_early_media=true must also be explicitly set for previous behaviour */
	if (ringback_data) {
		oglobals.early_ok = 0;
	}
#endif

	if ((var = switch_event_get_header(var_event, "group_confirm_timeout"))) {
		// has precedence over group_confirm_cancel_timeout
		if (switch_is_number(var)) {
			oglobals.confirm_timeout = atoi(var);
			if (oglobals.confirm_timeout == 0) {
				oglobals.cancel_timeout = SWITCH_TRUE;
			}
		}
	} else if (switch_true(switch_event_get_header(var_event, "group_confirm_cancel_timeout"))) {
		oglobals.cancel_timeout = SWITCH_TRUE;
	}

	if ((var = switch_event_get_header(var_event, "group_confirm_early_ok"))) {
		oglobals.early_ok = switch_true(var);
	}

	if ((var = switch_event_get_header(var_event, "group_confirm_key"))) {
		switch_copy_string(oglobals.key, var, sizeof(oglobals.key));
		if ((var = switch_event_get_header(var_event, "group_confirm_file"))) {
			oglobals.file = strdup(var);
		}
		if ((var = switch_event_get_header(var_event, "group_confirm_error_file"))) {
			oglobals.error_file = strdup(var);
		}
		if ((var = switch_event_get_header(var_event, "group_confirm_read_timeout"))) {
			int tmp = atoi(var);

			if (tmp >= 0) {
				oglobals.confirm_read_timeout = tmp;
			}

		}
	}
	/* When using the AND operator, the fail_on_single_reject flag may be set in order to indicate that a single
	   rejections should terminate the attempt rather than a timeout, answer, or rejection by all.
	   If the value is set to 'true' any fail cause will end the attempt otherwise it can contain a comma (,) separated
	   list of cause names which should be considered fatal
	 */
	if ((var = switch_event_get_header(var_event, "hangup_on_single_reject"))) {
		hangup_on_single_reject = switch_true(var);
	}

	if ((var = switch_event_get_header(var_event, "fail_on_single_reject")) || hangup_on_single_reject) {
		if (var) {
			fail_on_single_reject_var = strdup(var);
		}

		if (switch_true(var)) {
			fail_on_single_reject = 1;
		} else {
			fail_on_single_reject = -1;
		}
	}

	if ((!zstr(oglobals.file)) && (!strcmp(oglobals.file, "undef"))) {
		switch_safe_free(oglobals.file);
		oglobals.file = NULL;
	}
	if ((!zstr(oglobals.error_file)) && (!strcmp(oglobals.error_file, "undef"))) {
		switch_safe_free(oglobals.error_file);
		oglobals.error_file = NULL;
	}

	if ((var_val = switch_event_get_header(var_event, "bridge_early_media"))) {
		if (switch_true(var_val)) {
			oglobals.early_ok = 0;
			oglobals.ignore_early_media = 3;
		}
	}

	if ((var_val = switch_event_get_header(var_event, "ignore_early_media"))) {
		if (switch_true(var_val)) {
			oglobals.early_ok = 0;
			oglobals.ignore_early_media = 1;
		} else if (!strcmp(var_val, "consume")) {
			oglobals.early_ok = 0;
			oglobals.ignore_early_media = 4;
		} else if (!strcmp(var_val, "ring_ready")) {
			oglobals.early_ok = 0;
			oglobals.ignore_early_media = 2;
		}
	}

	if ((var_val = switch_event_get_header(var_event, "originate_continue_on_timeout")) && switch_true(var_val)) {
		oglobals.continue_on_timeout = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "ignore_ring_ready")) && switch_true(var_val)) {
		oglobals.ignore_ring_ready = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "monitor_early_media_ring")) && switch_true(var_val)) {
		oglobals.early_ok = 0;
		oglobals.monitor_early_media_ring = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "monitor_early_media_fail")) && switch_true(var_val)) {
		oglobals.early_ok = 0;
		oglobals.monitor_early_media_fail = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "return_ring_ready")) && switch_true(var_val)) {
		oglobals.return_ring_ready = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "ring_ready")) && switch_true(var_val)) {
		oglobals.ring_ready = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "instant_ringback")) && switch_true(var_val)) {
		oglobals.instant_ringback = 1;
	}

	if ((var_val = switch_event_get_header(var_event, "originate_timeout"))) {
		int tmp = atoi(var_val);
		if (tmp > 0) {
			timelimit_sec = (uint32_t) tmp;
		}
	}

	if ((var_val = switch_event_get_header(var_event, "progress_timeout"))) {
		int tmp = atoi(var_val);
		if (tmp > 0) {
			progress_timelimit_sec = (uint32_t) tmp;
		}
	}

	if ((var_val = switch_event_get_header(var_event, "originate_retry_timeout")) && switch_true(var_val)) {
		int32_t tmp;
		tmp = atoi(var_val);
		if (tmp > 0) {
			retry_timelimit_sec = tmp;
		} else {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING,
				"Invalid originate_retry_timeout setting of %s ignored, value must be > 0\n", var_val);
		}
	}

	if ((var_val = switch_event_get_header(var_event, "originate_retries")) && switch_true(var_val)) {
		int32_t tmp;
		tmp = atoi(var_val);
		/* allow large number of retries if timeout is set */
		if (tmp > 0 && (retry_timelimit_sec > 0 || tmp < 101)) {
			retries = tmp;
		} else {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING,
							  "Invalid originate_retries setting of %d ignored, value must be between 1 and 100\n", tmp);
		}
	}

	if ((var_val = switch_event_get_header(var_event, "originate_retry_sleep_ms")) && switch_true(var_val)) {
		int32_t tmp;
		tmp = atoi(var_val);
		if (tmp >= 500 && tmp <= 60000) {
			sleep_ms = tmp;
		} else {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING,
							  "Invalid originate_retry_sleep_ms setting of %d ignored, value must be between 500 and 60000\n", tmp);
		}
	}

	if ((var_val = switch_event_get_header(var_event, "originate_retry_min_period_ms")) && switch_true(var_val)) {
		int32_t tmp;
		tmp = atoi(var_val);
		if (tmp >= 500 && tmp <= 300000) {
			min_retry_period_ms = tmp;
		} else {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING,
							  "Invalid originate_retry_min_period_ms setting of %d ignored, value must be between 500 and 300000\n", tmp);
		}
	}

	/* variable to force ANI / ANIII */
	ani_override = switch_event_get_header(var_event, "origination_ani");
	aniii_override = switch_event_get_header(var_event, "origination_aniii");

	if ((cid_tmp = switch_event_get_header(var_event, "origination_caller_id_name"))) {
		cid_name_override = cid_tmp;
	}

	if (cid_name_override) {
		if (!cid_tmp) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_caller_id_name", cid_name_override);
		}
	} else {
		cid_name_override = switch_event_get_header(var_event, "origination_caller_id_name");
	}

	if ((cid_tmp = switch_event_get_header(var_event, "origination_caller_id_number"))) {
		cid_num_override = cid_tmp;
	}

	if (cid_num_override) {
		if (!cid_tmp) {
			switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_caller_id_number", cid_num_override);
		}
	} else {
		cid_num_override = switch_event_get_header(var_event, "origination_caller_id_number");
	}

	if (flags & SOF_NO_LIMITS) {
		dftflags |= SOF_NO_LIMITS;
	}

	if (ani_override) {
		dftflags |= SOF_NO_EFFECTIVE_ANI;
	}

	if (aniii_override) {
		dftflags |= SOF_NO_EFFECTIVE_ANIII;
	}

	if (cid_num_override) {
		dftflags |= SOF_NO_EFFECTIVE_CID_NUM;
	}

	if (cid_name_override) {
		dftflags |= SOF_NO_EFFECTIVE_CID_NAME;
	}

	if (!progress_timelimit_sec) {
		progress_timelimit_sec = timelimit_sec;
	}

	switch_epoch_time_now(&global_start);
	last_retry_start = switch_micro_time_now();

	for (try = 0; try < retries; try++) {

		if (try > 0) {
			int64_t elapsed = switch_epoch_time_now(NULL) - global_start;

			/* check if retry time limit has been exceeded */
			if (retry_timelimit_sec > 0) {
				if (elapsed > retry_timelimit_sec) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_NOTICE,
									  "Elapsed = %"SWITCH_INT64_T_FMT", originate retry timeout.\n", elapsed);
					break;
				} else if (cancel_cause && *cancel_cause != 0) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Originate cancelled\n");
					break;
				} else {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG,
									  "Elapsed = %"SWITCH_INT64_T_FMT", originate retry not timed out yet\n", elapsed);
				}
			}

			/* don't allow retry to start too quickly since last attempt */
			if (min_retry_period_ms > sleep_ms) {
				int64_t retry_sleep_ms = min_retry_period_ms - sleep_ms - ((switch_micro_time_now() - last_retry_start) / 1000);
				if (retry_sleep_ms > 0 && retry_sleep_ms <= 300000) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_INFO, "Minimum retry period has not elapsed yet, waiting %"SWITCH_INT64_T_FMT" ms\n", retry_sleep_ms);
					if (caller_channel) {
						switch_ivr_sleep(oglobals.session, retry_sleep_ms, SWITCH_TRUE, NULL);
						if (!switch_channel_ready(caller_channel)) {
							status = SWITCH_STATUS_FALSE;
							goto done;
						}
					} else {
						switch_yield(retry_sleep_ms * 1000);
					}
				}
			}
		}

		switch_safe_free(loop_data);
		loop_data = strdup(data);
		switch_assert(loop_data);

		if (dh) {
			or_argc = switch_dial_handle_get_total(dh);
		} else {
			or_argc = switch_separate_string(loop_data, '|', pipe_names, (sizeof(pipe_names) / sizeof(pipe_names[0])));
		}
		
		if ((flags & SOF_NOBLOCK) && or_argc > 1) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING, "Only calling the first element in the list in this mode.\n");
			or_argc = 1;
		}
		
		if (or_argc <= 0) {
			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Nothing to do\n");
			goto outer_for;
		}
		
		for (r = 0; r < or_argc && (!cancel_cause || *cancel_cause == 0); r++) {
			char *p, *end = NULL;
			int q = 0, alt = 0;

			check_reject = 1;

			oglobals.hups = 0;

			reason = SWITCH_CAUSE_NONE;
			memset(peer_names, 0, sizeof(peer_names));
			peer_session = NULL;
			memset(oglobals.originate_status, 0, sizeof(oglobals.originate_status));
			new_profile = NULL;
			new_session = NULL;
			chan_type = NULL;
			chan_data = NULL;
			peer_channel = NULL;
			start = 0;
			read_frame = NULL;
			oglobals.ringback_ok = 1;
			var = NULL;
			to = 0;
			oglobals.sent_ring = 0;
			oglobals.progress = 0;
			myflags = dftflags;


			if (try > 0) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_NOTICE, "Originate attempt %d/%d in %d ms\n", try + 1, retries,
								  sleep_ms);
				if (caller_channel) {
					switch_ivr_sleep(oglobals.session, sleep_ms, SWITCH_TRUE, NULL);
					if (!switch_channel_ready(caller_channel)) {
						status = SWITCH_STATUS_FALSE;
						/* set try and retries to 0 */
						try = 0;
						retries = 0;
						goto done;
					}
				} else {
					switch_yield(sleep_ms * 1000);
				}
			}

			if (r == 0) {
				last_retry_start = switch_micro_time_now();
			}

			if (!dh) {
				p = pipe_names[r];

				while (p && *p) {
					if (!end && *p == '[') {
						end = switch_find_end_paren(p, '[', ']');
						if (*(p+1) == '^' && *(p + 2) == '^') {
							alt = 1;
						} else {
							alt = 0;
						}
						q = 0;
					}

					if (*p == '\'') {
						q = !q;
					}

					if (end && p < end && *p == ',' && *(p-1) != '\\') {

						if (q || alt) {
							*p = QUOTED_ESC_COMMA;
						} else {
							*p = UNQUOTED_ESC_COMMA;
						}
					}

					if (p == end) {
						end = NULL;
					}

					p++;
				}
				
				and_argc = switch_separate_string(pipe_names[r], ',', peer_names, (sizeof(peer_names) / sizeof(peer_names[0])));
			} else {
				and_argc = switch_dial_handle_get_peers(dh, r, peer_names, MAX_PEERS);
				switch_dial_handle_get_vars(dh, r, peer_vars, MAX_PEERS);
			}
			
			if ((flags & SOF_NOBLOCK) && and_argc > 1) {
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_WARNING, "Only calling the first element in the list in this mode.\n");
				and_argc = 1;
			}
			
			for (i = 0; i < and_argc; i++) {
				const char *current_variable;
				switch_event_t *local_var_event = NULL, *originate_var_event = NULL;

				end = NULL;

				if (!(chan_type = peer_names[i])) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Empty dial string\n");
					switch_goto_status(SWITCH_STATUS_FALSE, done);
				}


				/* strip leading spaces */
				while (chan_type && *chan_type && *chan_type == ' ') {
					chan_type++;
				}

				/* extract channel variables, allowing multiple sets of braces */

				if (*chan_type == '[') {
					switch_event_create_plain(&local_var_event, SWITCH_EVENT_CHANNEL_DATA);
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Parsing session specific variables\n");
				}

				while (*chan_type == '[') {
					char *parsed = NULL;
					char *bend = switch_find_end_paren(chan_type, '[', ']');

					for (p = chan_type + 1; p && p < bend && *p; p++) {
						if (*p == QUOTED_ESC_COMMA) {
							*p = ',';
						}
					}

					if (switch_event_create_brackets(chan_type, '[', ']', UNQUOTED_ESC_COMMA,
													 &local_var_event, &parsed, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS || !parsed) {
						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Parse Error!\n");
						switch_goto_status(SWITCH_STATUS_GENERR, done);
					}

					if (chan_type == parsed) {
						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_ERROR, "Parse Error!\n");
						switch_goto_status(SWITCH_STATUS_GENERR, done);
					} else {
						chan_type = parsed;
					}
				}

				if (peer_vars[i]) {
					if (local_var_event) {
						switch_event_merge(local_var_event, peer_vars[i]);
					} else {
						switch_event_dup(&local_var_event, peer_vars[i]);
					}

					if (dh && local_var_event && switch_event_serialize(local_var_event, &event_string, SWITCH_FALSE) == SWITCH_STATUS_SUCCESS) {
						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Local Vars for %s\n======================\n%s\n",
										  peer_names[i], event_string);
						switch_safe_free(event_string);
					}
				}
				
				/* strip leading spaces (again) */
				while (chan_type && *chan_type && *chan_type == ' ') {
					chan_type++;
				}

				if ((chan_data = strchr(chan_type, '/')) != 0) {
					*chan_data = '\0';
					chan_data++;
				}

				if (oglobals.session) {
					if (!switch_channel_ready(caller_channel)) {
						status = SWITCH_STATUS_FALSE;
						if (local_var_event) switch_event_destroy(&local_var_event);
						goto done;
					}

					if ((caller_caller_profile = oglobals.caller_profile_override)) {
						new_profile = switch_caller_profile_dup(oglobals.pool, caller_caller_profile);
					} else {
						new_profile = switch_caller_profile_new(oglobals.pool,
																NULL,
																NULL,
																cid_name_override, cid_num_override, NULL, ani_override, aniii_override, NULL, __FILE__, NULL, chan_data);
					}

					new_profile->uuid = SWITCH_BLANK_STRING;
					new_profile->chan_name = SWITCH_BLANK_STRING;
					new_profile->destination_number = switch_core_strdup(new_profile->pool, chan_data);

					if (ani_override) {
						new_profile->ani = switch_core_strdup(new_profile->pool, ani_override);
					}
					if (aniii_override) {
						new_profile->aniii = switch_core_strdup(new_profile->pool, aniii_override);
					}
					if (cid_name_override) {
						new_profile->caller_id_name = switch_core_strdup(new_profile->pool, cid_name_override);
					}
					if (cid_num_override) {
						new_profile->caller_id_number = switch_core_strdup(new_profile->pool, cid_num_override);
					}
				} else {
					if (oglobals.caller_profile_override) {
						new_profile = switch_caller_profile_dup(oglobals.pool, oglobals.caller_profile_override);
						new_profile->destination_number = switch_core_strdup(new_profile->pool, switch_str_nil(chan_data));
						new_profile->uuid = SWITCH_BLANK_STRING;
						new_profile->chan_name = SWITCH_BLANK_STRING;
					} else {
						if (!cid_name_override) {
							cid_name_override = SWITCH_DEFAULT_CLID_NAME;
						}
						if (!cid_num_override) {
							cid_num_override = SWITCH_DEFAULT_CLID_NUMBER;
						}

						new_profile = switch_caller_profile_new(oglobals.pool,
																NULL,
																NULL,
																cid_name_override, cid_num_override, NULL, ani_override, aniii_override, NULL, __FILE__, NULL, chan_data);
					}
				}

				if (zstr(new_profile->destination_number)) {
					new_profile->destination_number = switch_core_strdup(new_profile->pool, "service");
				}

				new_profile->callee_id_name = switch_core_strdup(new_profile->pool, "Outbound Call");
				new_profile->callee_id_number = switch_sanitize_number(switch_core_strdup(new_profile->pool, new_profile->destination_number));

				oglobals.originate_status[i].caller_profile = NULL;
				oglobals.originate_status[i].peer_channel = NULL;
				oglobals.originate_status[i].peer_session = NULL;

				new_session = NULL;

				if (and_argc > 1 || or_argc > 1) {
					myflags |= SOF_FORKED_DIAL;
				}

				if (var_event) {
					const char *vvar;
					if ((vvar = switch_event_get_header(var_event, "forked_dial")) && switch_true(vvar)) {
						myflags |= SOF_FORKED_DIAL;
					}
					if ((vvar = switch_event_get_header(var_event, "no_throttle_limits")) && switch_true(vvar)) {
						myflags |= SOF_NO_LIMITS;
					}
				}


				/* Valid in both {} and [] with [] taking precedence */

				/* make a special var event with mixture of the {} and the [] vars to pass down as global vars to the outgoing channel
				   so if something like the user channel does another originate our options will be passed down properly
				 */

				switch_event_dup(&originate_var_event, var_event);

				if (local_var_event) {
					switch_event_merge(originate_var_event, local_var_event);
				}

				if ((current_variable = switch_event_get_header(originate_var_event, "origination_ani"))) {
					new_profile->ani = switch_core_strdup(new_profile->pool, current_variable);
					myflags |= SOF_NO_EFFECTIVE_ANI;
				}

				if ((current_variable = switch_event_get_header(originate_var_event, "origination_aniii"))) {
					new_profile->aniii = switch_core_strdup(new_profile->pool, current_variable);
					myflags |= SOF_NO_EFFECTIVE_ANIII;
				}

				if ((current_variable = switch_event_get_header(originate_var_event, "origination_caller_id_number"))) {
					new_profile->caller_id_number = switch_core_strdup(new_profile->pool, current_variable);
					myflags |= SOF_NO_EFFECTIVE_CID_NUM;
				}

				if ((current_variable = switch_event_get_header(originate_var_event, "origination_caller_id_name"))) {
					new_profile->caller_id_name = switch_core_strdup(new_profile->pool, current_variable);
					myflags |= SOF_NO_EFFECTIVE_CID_NAME;
				}

				if ((current_variable = switch_event_get_header(originate_var_event, "origination_privacy"))) {
					new_profile->flags = SWITCH_CPF_NONE;

					if (switch_stristr("screen", current_variable)) {
						switch_set_flag(new_profile, SWITCH_CPF_SCREEN);
					}

					if (switch_stristr("hide_name", current_variable)) {
						switch_set_flag(new_profile, SWITCH_CPF_HIDE_NAME);
					}

					if (switch_stristr("hide_number", current_variable)) {
						switch_set_flag(new_profile, SWITCH_CPF_HIDE_NUMBER);
					}
				}

				switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "originate_early_media", oglobals.early_ok ? "true" : "false");


				if (caller_channel && switch_true(switch_channel_get_variable(caller_channel, "push_channel_name"))) {
					char *new_name = switch_core_session_sprintf(session, "%s__B", switch_channel_get_name(caller_channel));
					switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "origination_channel_name", new_name);
					new_name = switch_core_session_sprintf(session, "_%s", switch_channel_get_name(caller_channel));
					switch_event_add_header_string(var_event, SWITCH_STACK_BOTTOM, "sip_h_X-FS-Channel-Name", new_name);
				}


				reason = switch_core_session_outgoing_channel(oglobals.session, originate_var_event, chan_type,
															  new_profile, &new_session, NULL, myflags, cancel_cause);
				switch_event_destroy(&originate_var_event);

				if (reason != SWITCH_CAUSE_SUCCESS) {
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_NOTICE, "Cannot create outgoing channel of type [%s] cause: [%s]\n",
									  chan_type, switch_channel_cause2str(reason));
					if (local_var_event) switch_event_destroy(&local_var_event);

					if (fail_on_single_reject_var) {
						const char *cause_str = switch_channel_cause2str(reason);
						int neg = *fail_on_single_reject_var == '!';
						int pos = !!switch_stristr(cause_str, fail_on_single_reject_var);

						if (neg) {
							pos = !pos;
						}

						check_reject = 0;

						if (fail_on_single_reject == 1 || pos) {
							force_reason = reason;
							status = SWITCH_STATUS_FALSE;
							goto outer_for;
						}
					}
					continue;
				}

				if (switch_core_session_read_lock(new_session) != SWITCH_STATUS_SUCCESS) {
					status = SWITCH_STATUS_FALSE;
					if (local_var_event) switch_event_destroy(&local_var_event);
					goto done;
				}

				oglobals.originate_status[i].peer_channel = switch_core_session_get_channel(new_session);
				oglobals.originate_status[i].caller_profile = switch_channel_get_caller_profile(oglobals.originate_status[i].peer_channel);
				oglobals.originate_status[i].peer_session = new_session;

				switch_channel_set_flag(oglobals.originate_status[i].peer_channel, CF_ORIGINATING);

				if (caller_channel) {
					switch_channel_set_variable(oglobals.originate_status[i].peer_channel, "call_uuid", switch_channel_get_variable(caller_channel, "call_uuid"));
				}


				if (local_var_event) {
					const char *device_id = switch_event_get_header(local_var_event, "device_id");
					switch_channel_set_profile_var(oglobals.originate_status[i].peer_channel, "device_id", device_id);
				}

				if ((lc = switch_event_get_header(var_event, "local_var_clobber"))) {
					local_clobber = switch_true(lc);
				}

				if (switch_channel_test_flag(oglobals.originate_status[i].peer_channel, CF_NO_PRESENCE)) {
					if (var_event) {
						switch_event_del_header(var_event, "presence_id");
					}
					if (local_var_event) {
						switch_event_del_header(local_var_event, "presence_id");
					}
				}


				if (local_clobber) {
					if (var_event) {
						switch_event_header_t *header;
						/* install the vars from the {} params */
						for (header = var_event->headers; header; header = header->next) {
							switch_channel_set_variable_var_check(oglobals.originate_status[i].peer_channel, header->name, header->value, oglobals.check_vars);
						}
					}
				}

				/* copy local originate vars to the channel */
				if (local_var_event) {
					switch_event_header_t *header;
					for (header = local_var_event->headers; header; header = header->next) {
						switch_channel_set_variable_var_check(oglobals.originate_status[i].peer_channel, header->name, header->value, oglobals.check_vars);
					}
					switch_event_destroy(&local_var_event);
				}

				if (!local_clobber) {
					if (var_event) {
						switch_event_header_t *header;
						/* install the vars from the {} params */
						for (header = var_event->headers; header; header = header->next) {
							switch_channel_set_variable_var_check(oglobals.originate_status[i].peer_channel, header->name, header->value, oglobals.check_vars);
						}
					}
				}

				if (oglobals.originate_status[i].peer_channel) {
					const char *vvar;

					if (switch_true(switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "leg_required"))) {
						oglobals.originate_status[i].tagged = 1;
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "origination_channel_name"))) {
						switch_channel_set_name(oglobals.originate_status[i].peer_channel, vvar);
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "origination_callee_id_name"))) {
						switch_channel_set_profile_var(oglobals.originate_status[i].peer_channel, "callee_id_name", vvar);
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "origination_callee_id_number"))) {
						switch_channel_set_profile_var(oglobals.originate_status[i].peer_channel, "callee_id_number", vvar);
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "leg_timeout"))) {
						int val = atoi(vvar);

						if (val > 0) {
							switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "%s Setting leg timeout to %d\n",
											  switch_channel_get_name(oglobals.originate_status[i].peer_channel), val);
							oglobals.originate_status[i].per_channel_timelimit_sec = (uint32_t) val;
						}
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "leg_progress_timeout"))) {
						int val = atoi(vvar);
						if (val > 0) {
							switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "%s Setting leg progress timeout to %d\n",
											  switch_channel_get_name(oglobals.originate_status[i].peer_channel), val);
							oglobals.originate_status[i].per_channel_progress_timelimit_sec = (uint32_t) val;
						}
					}

					if ((vvar = switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "leg_delay_start"))) {
						int val = atoi(vvar);
						if (val > 0) {
							switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "%s Setting leg delay start to %d\n",
											  switch_channel_get_name(oglobals.originate_status[i].peer_channel), val);
							oglobals.originate_status[i].per_channel_delay_start = (uint32_t) val;

							if (oglobals.originate_status[i].per_channel_progress_timelimit_sec != 0) {
								oglobals.originate_status[i].per_channel_progress_timelimit_sec += oglobals.originate_status[i].per_channel_delay_start;
							}

							if (oglobals.originate_status[i].per_channel_timelimit_sec != 0) {
								oglobals.originate_status[i].per_channel_timelimit_sec += oglobals.originate_status[i].per_channel_delay_start;
							}
						}
					}

					if (!zstr(ent_aleg_uuid)) {
						l_session = switch_core_session_locate(ent_aleg_uuid);
						a_session = l_session;
					}

					if (a_session) {
						switch_channel_t *channel = switch_core_session_get_channel(a_session);
						char *val =
							switch_core_session_sprintf(a_session, "%s;%s;%s",
														switch_core_session_get_uuid(oglobals.originate_status[i].peer_session),
														switch_str_nil(switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "callee_id_name")),
														switch_str_nil(switch_channel_get_variable(oglobals.originate_status[i].peer_channel, "callee_id_number")));


						switch_channel_set_variable(oglobals.originate_status[i].peer_channel, "originating_leg_uuid", switch_core_session_get_uuid(a_session));

						switch_channel_add_variable_var_check(channel, "originated_legs", val, SWITCH_FALSE, SWITCH_STACK_PUSH);

					}

					if (l_session) {
						switch_core_session_rwunlock(l_session);
						l_session = NULL;
					}

					switch_channel_execute_on(oglobals.originate_status[i].peer_channel, SWITCH_CHANNEL_EXECUTE_ON_ORIGINATE_VARIABLE);
					switch_channel_api_on(oglobals.originate_status[i].peer_channel, SWITCH_CHANNEL_API_ON_ORIGINATE_VARIABLE);
				}

				if (table) {
					switch_channel_add_state_handler(oglobals.originate_status[i].peer_channel, table);
				}

				if (oglobals.monitor_early_media_ring || oglobals.monitor_early_media_fail || oglobals.ignore_early_media == 4) {
					switch_channel_set_flag(oglobals.originate_status[i].peer_channel, CF_CONSUME_ON_ORIGINATE);
				}

				switch_channel_add_state_handler(oglobals.originate_status[i].peer_channel, &originate_state_handlers);

				if ((flags & SOF_NOBLOCK) && oglobals.originate_status[i].peer_session) {
					status = SWITCH_STATUS_SUCCESS;
					*bleg = oglobals.originate_status[i].peer_session;
					*cause = SWITCH_CAUSE_SUCCESS;
					goto outer_for;
				}

				if (!switch_core_session_running(oglobals.originate_status[i].peer_session)) {
					if (oglobals.originate_status[i].per_channel_delay_start) {
						switch_channel_set_flag(oglobals.originate_status[i].peer_channel, CF_BLOCK_STATE);
					}
					switch_core_session_thread_launch(oglobals.originate_status[i].peer_session);
				}
			}

			switch_epoch_time_now(&start);

			for (;;) {
				uint32_t valid_channels = 0;
				for (i = 0; i < and_argc; i++) {
					int state;
					time_t elapsed;

					if (!oglobals.originate_status[i].peer_channel) {
						continue;
					}

					state = switch_channel_get_state(oglobals.originate_status[i].peer_channel);

					if (state < CS_HANGUP) {
						valid_channels++;
					} else {
						continue;
					}

					if (state >= CS_ROUTING) {
						goto endfor1;
					}

					if (caller_channel && !switch_channel_ready(caller_channel)) {
						goto notready;
					}

					elapsed = switch_epoch_time_now(NULL) - start;

					if (elapsed > (time_t) timelimit_sec) {
						to++;
						oglobals.idx = IDX_TIMEOUT;
						goto notready;
					}

					if (!oglobals.sent_ring && !oglobals.ignore_ring_ready &&
						!oglobals.progress && (progress_timelimit_sec && elapsed > (time_t) progress_timelimit_sec)) {
						to++;
						oglobals.idx = IDX_TIMEOUT;
						if (force_reason == SWITCH_CAUSE_NONE) {
							force_reason = SWITCH_CAUSE_PROGRESS_TIMEOUT;
						}
						goto notready;
					}

					switch_cond_next();
				}

				check_per_channel_timeouts(&oglobals, and_argc, start, &force_reason);


				if (valid_channels == 0) {
					status = SWITCH_STATUS_GENERR;
					goto done;
				}

			}

		  endfor1:

			if (caller_channel) {
				if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE) ||
					switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA) || switch_channel_test_flag(caller_channel, CF_DISABLE_RINGBACK)) {
					ringback_data = NULL;
				}
			}


#if 0
			/* changing behaviour ignore_early_media=true must also be explicitly set for previous behaviour */
			if (ringback_data) {
				oglobals.early_ok = 0;
			}
#endif

			if (ringback_data) {
				oglobals.sending_ringback = 1;
			} else {
				oglobals.ringback_ok = 0;
			}

			if (caller_channel) {
				soft_holding = switch_channel_get_variable(caller_channel, SWITCH_SOFT_HOLDING_UUID_VARIABLE);
			}

			while ((!caller_channel || switch_channel_ready(caller_channel) || switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) &&
					check_channel_status(&oglobals, and_argc, &force_reason, start)) {
				time_t elapsed = switch_epoch_time_now(NULL) - start;
				read_packet = 0;

				if (cancel_cause && *cancel_cause > 0) {
					if (force_reason == SWITCH_CAUSE_NONE) {
						force_reason = *cancel_cause;
					}
					oglobals.idx = IDX_CANCEL;
					goto notready;
				}

				check_per_channel_timeouts(&oglobals, and_argc, start, &force_reason);

				if (oglobals.session) {
					switch_ivr_parse_all_events(oglobals.session);
				}

				if (!oglobals.sent_ring && !oglobals.progress && (progress_timelimit_sec && elapsed > (time_t) progress_timelimit_sec)) {
					oglobals.idx = IDX_TIMEOUT;
					if (force_reason == SWITCH_CAUSE_NONE) {
						force_reason = SWITCH_CAUSE_PROGRESS_TIMEOUT;
					}
					goto notready;
				}

				if ((to = (uint8_t) (elapsed >= (time_t) timelimit_sec)) || (fail_on_single_reject && oglobals.hups)) {
					int ok = 0;

					if (fail_on_single_reject_var) {
						if (!switch_true(fail_on_single_reject_var)) {
							ok = 1;

							for (i = 0; i < and_argc; i++) {
								switch_channel_t *pchannel;
								const char *cause_str;

								if (!oglobals.originate_status[i].peer_session) {
									continue;
								}
								pchannel = switch_core_session_get_channel(oglobals.originate_status[i].peer_session);

								if (switch_channel_down_nosig(pchannel)) {
									int neg, pos;
									cause_str = switch_channel_cause2str(switch_channel_get_cause(pchannel));
									neg = *fail_on_single_reject_var == '!';
									pos = !!switch_stristr(cause_str, fail_on_single_reject_var);

									if (neg) {
										pos = !pos;
									}

									if (pos) {
										ok = 0;
										break;
									}
								}
							}
						}
					}
					if (!ok) {
						oglobals.idx = IDX_TIMEOUT;
						goto notready;
					}
				}

				/* read from the channel while we wait if the audio is up on it */
				if (oglobals.session &&
					!switch_channel_test_flag(caller_channel, CF_PROXY_MODE) &&
					!switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA) &&
					//!switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE) &&
					switch_channel_up(caller_channel) &&
					(oglobals.ringback_ok
					 || (switch_channel_test_flag(caller_channel, CF_ANSWERED) || switch_channel_test_flag(caller_channel, CF_EARLY_MEDIA)))) {

					switch_status_t tstatus = SWITCH_STATUS_SUCCESS;
					int silence = 0;

					if (caller_channel && cancel_key) {
						if (switch_channel_has_dtmf(caller_channel)) {
							switch_dtmf_t dtmf = { 0, 0 };
							if (switch_channel_dequeue_dtmf(caller_channel, &dtmf) == SWITCH_STATUS_SUCCESS) {
								if (dtmf.digit == *cancel_key) {
									oglobals.idx = IDX_KEY_CANCEL;
									goto notready;
								}
							}
						}
					}

					if (switch_channel_media_ready(caller_channel)) {
						tstatus = switch_core_session_read_frame(oglobals.session, &read_frame, SWITCH_IO_FLAG_NONE, 0);
						if (!SWITCH_READ_ACCEPTABLE(tstatus)) {
							if (soft_holding) {
								switch_channel_set_flag(caller_channel, CF_XFER_ZOMBIE);
							}

							if (switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
								goto do_continue;
							}
							break;
						}

						read_packet++;
					} else {
						read_frame = NULL;
					}


					if (oglobals.ringback_ok && (oglobals.ring_ready || oglobals.instant_ringback ||
												 oglobals.sending_ringback > 1 || oglobals.bridge_early_media > -1)) {
						if (oglobals.ringback_ok == 1) {
							switch_status_t rst;

							rst = setup_ringback(&oglobals, oglobals.originate_status, and_argc, ringback_data, &ringback, &write_frame, &write_codec);

							if (oglobals.bridge_early_media > -1) {
								switch_threadattr_t *thd_attr = NULL;
								switch_threadattr_create(&thd_attr, switch_core_session_get_pool(session));
								switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
								early_state.oglobals = &oglobals;
								//early_state.originate_status = oglobals.originate_status;
								early_state.ready = 1;
								early_state.ringback = &ringback;
								early_state.ttl = and_argc;
								switch_mutex_init(&early_state.mutex, SWITCH_MUTEX_NESTED, switch_core_session_get_pool(session));
								switch_buffer_create_dynamic(&early_state.buffer, 1024, 1024, 0);
								switch_thread_create(&oglobals.ethread, thd_attr, early_thread_run, &early_state, switch_core_session_get_pool(session));
							}


							switch (rst) {
							case SWITCH_STATUS_SUCCESS:
								oglobals.ringback_ok++;
								break;
							case SWITCH_STATUS_FALSE:
								goto notready;
								break;
							case SWITCH_STATUS_BREAK:
								status = SWITCH_STATUS_FALSE;
								goto done;
								break;
							default:
								ringback_data = NULL;
								oglobals.ringback_ok = 0;
								oglobals.sending_ringback = 0;
								break;
							}

							goto do_continue;
						}

						if (oglobals.bridge_early_media > -1) {
							write_frame.datalen = 0;
							switch_mutex_lock(early_state.mutex);
							if (ringback.asis) {
								uint16_t mlen;
								switch_size_t buflen = switch_buffer_inuse(early_state.buffer);
								if (buflen > sizeof(uint16_t)) {
									switch_buffer_peek(early_state.buffer, &mlen, sizeof(uint16_t));
									if (buflen >= (mlen + sizeof(uint16_t))) {
										switch_buffer_toss(early_state.buffer, sizeof(uint16_t));
										write_frame.datalen = (uint32_t)switch_buffer_read(early_state.buffer, write_frame.data, mlen);
									}
								}
							} else {
								if (write_frame.codec && switch_buffer_inuse(early_state.buffer) >= write_frame.codec->implementation->decoded_bytes_per_packet) {
									write_frame.datalen = (uint32_t)switch_buffer_read(early_state.buffer, write_frame.data,
																			 write_frame.codec->implementation->decoded_bytes_per_packet);
								}
							}
							switch_mutex_unlock(early_state.mutex);
						} else if (ringback.fh) {
							switch_size_t mlen, olen;
							unsigned int pos = 0;

							if (ringback.asis) {
								mlen = write_frame.codec->implementation->encoded_bytes_per_packet;
							} else {
								mlen = write_frame.codec->implementation->samples_per_packet;
							}

							olen = mlen;

							//if (ringback.fh->resampler && ringback.fh->resampler->rfactor > 1) {
							//olen = (switch_size_t) (olen * ringback.fh->resampler->rfactor);
							//}

							switch_core_file_read(ringback.fh, write_frame.data, &olen);

							if (olen == 0) {
								olen = mlen;
								ringback.fh->speed = 0;
								switch_core_file_seek(ringback.fh, &pos, 0, SEEK_SET);
								switch_core_file_read(ringback.fh, write_frame.data, &olen);
								if (olen == 0) {
									break;
								}
							}
							write_frame.datalen = (uint32_t) (ringback.asis ? olen : olen * 2 * ringback.fh->channels);
							write_frame.samples = (uint32_t) olen;

						} else if (ringback.audio_buffer) {
							if ((write_frame.datalen = (uint32_t) switch_buffer_read_loop(ringback.audio_buffer,
																						  write_frame.data,
																						  write_frame.codec->implementation->decoded_bytes_per_packet)) <=
								0) {

								if (soft_holding) {
									switch_channel_set_flag(caller_channel, CF_XFER_ZOMBIE);
									goto do_continue;
								}

								break;
							}
						} else if (ringback.silence) {
							silence = ringback.silence;
						}
					} else {
						silence = 600;
					}

					if ((ringback.fh || silence || ringback.audio_buffer || oglobals.bridge_early_media > -1) && write_frame.codec && write_frame.codec->implementation && write_frame.datalen) {
						if (silence) {
							write_frame.datalen = read_impl.decoded_bytes_per_packet;
							switch_generate_sln_silence((int16_t *) write_frame.data, write_frame.datalen / 2, write_frame.codec->implementation->number_of_channels, silence);
						}

						if (switch_core_session_write_frame(oglobals.session, &write_frame, SWITCH_IO_FLAG_NONE, 0) != SWITCH_STATUS_SUCCESS) {
							if (soft_holding) {
								switch_channel_set_flag(caller_channel, CF_XFER_ZOMBIE);
							}
							if (switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
								goto do_continue;
							}
							break;
						}
					}

				}

			do_continue:

				if (!read_packet) {
					switch_yield(20000);
				}
			}

		  notready:

			if (caller_channel) {
				holding = switch_channel_get_variable(caller_channel, SWITCH_HOLDING_UUID_VARIABLE);
				switch_channel_set_variable(caller_channel, SWITCH_HOLDING_UUID_VARIABLE, NULL);

				if (soft_holding && switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
					holding = soft_holding;
					soft_holding = NULL;
					switch_channel_set_variable(caller_channel, SWITCH_SOFT_HOLDING_UUID_VARIABLE, NULL);
				}
			}

			if (caller_channel && !switch_channel_ready(caller_channel) && !switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE)) {
				oglobals.idx = IDX_CANCEL;
			}

			if (oglobals.session && (ringback_data || !(switch_channel_test_flag(caller_channel, CF_PROXY_MODE) ||
														switch_channel_test_flag(caller_channel, CF_PROXY_MEDIA)))) {
				switch_core_session_reset(oglobals.session, SWITCH_FALSE, SWITCH_TRUE);
			}

			if (holding) {
				if (oglobals.idx > IDX_NADA) {
					peer_session = oglobals.originate_status[oglobals.idx].peer_session;
					peer_channel = oglobals.originate_status[oglobals.idx].peer_channel;
					oglobals.originate_status[oglobals.idx].peer_channel = NULL;
				} else if (and_argc == 1) {
					peer_session = oglobals.originate_status[0].peer_session;
					peer_channel = oglobals.originate_status[0].peer_channel;
					oglobals.originate_status[0].peer_channel = NULL;
				} else {
					for (i = 0; i < and_argc; i++) {
						if (!peer_eligible(oglobals.originate_status[i].peer_channel)) {
							continue;
						}
						if (switch_channel_media_ready(oglobals.originate_status[i].peer_channel)) {
							peer_session = oglobals.originate_status[i].peer_session;
							peer_channel = oglobals.originate_status[i].peer_channel;
							oglobals.originate_status[i].peer_channel = NULL;
							goto end_search;
						}
					}
					for (i = 0; i < and_argc; i++) {
						if (!peer_eligible(oglobals.originate_status[i].peer_channel)) {
							continue;
						}
						if (switch_channel_up_nosig(oglobals.originate_status[i].peer_channel)) {
							peer_session = oglobals.originate_status[i].peer_session;
							peer_channel = oglobals.originate_status[i].peer_channel;
							oglobals.originate_status[i].peer_channel = NULL;
							break;
						}
					}
				}

			  end_search:

				if (peer_channel && switch_channel_down_nosig(peer_channel)) {
					switch_core_session_rwunlock(peer_session);
					peer_session = NULL;
					peer_channel = NULL;

				}

				if (oglobals.idx == IDX_TIMEOUT || to || oglobals.idx == IDX_KEY_CANCEL || oglobals.idx == IDX_CANCEL ||
					(!peer_session && oglobals.idx == IDX_NADA)) {
					const char *dest = NULL;
					const char *context = NULL;
					const char *dialplan = NULL;
					switch_core_session_t *holding_session;

					if (caller_channel) {
						if (zstr(context)) {
							context = switch_channel_get_variable(caller_channel, "context");
						}
						if (zstr(dialplan)) {
							dialplan = switch_channel_get_variable(caller_channel, "dialplan");
						}
					}

					if (zstr(context)) {
						context = "default";
					}

					if (zstr(context)) {
						dialplan = "XML";
					}

					if ((holding_session = switch_core_session_locate(holding))) {
						switch_channel_t *holding_channel = switch_core_session_get_channel(holding_session);
						switch_status_t mstatus = SWITCH_STATUS_FALSE;

						if (caller_channel) {
							if ((mstatus = switch_channel_caller_extension_masquerade(caller_channel, holding_channel, 0)) == SWITCH_STATUS_SUCCESS) {
								switch_channel_restart(holding_channel);
							}
						}

						if (mstatus != SWITCH_STATUS_SUCCESS) {
							if (peer_channel) {
								dest = switch_channel_get_variable(peer_channel, "destination_number");
								context = switch_channel_get_variable(peer_channel, "context");
								dialplan = switch_channel_get_variable(peer_channel, "dialplan");
							} else if (caller_channel) {
								dest = switch_channel_get_variable(caller_channel, "destination_number");
							}
							if (dest) {
								switch_ivr_session_transfer(holding_session, dest, dialplan, context);
							}
						}

						switch_core_session_rwunlock(holding_session);
						holding = NULL;
						holding_session = NULL;
					}

					if (peer_channel) {
						switch_channel_hangup(peer_channel, SWITCH_CAUSE_ATTENDED_TRANSFER);
						switch_core_session_rwunlock(peer_session);
					}
					if (force_reason == SWITCH_CAUSE_NONE) {
						force_reason = SWITCH_CAUSE_ATTENDED_TRANSFER;
					}
				} else if (zstr(soft_holding)) {

					if (peer_channel && switch_channel_ready(peer_channel)) {
						switch_core_session_t *holding_session;

						if (force_reason == SWITCH_CAUSE_NONE) {
							force_reason = SWITCH_CAUSE_ATTENDED_TRANSFER;
						}

						if ((holding_session = switch_core_session_locate(holding))) {
							switch_channel_set_variable(switch_core_session_get_channel(holding_session), SWITCH_HANGUP_AFTER_BRIDGE_VARIABLE, "true");
							switch_core_session_rwunlock(holding_session);
						}
						switch_channel_set_flag(peer_channel, CF_LAZY_ATTENDED_TRANSFER);
						switch_ivr_uuid_bridge(holding, switch_core_session_get_uuid(peer_session));
						holding = NULL;
						oglobals.idx = IDX_XFER;
						if (caller_channel && switch_channel_up_nosig(caller_channel) && !switch_channel_test_flag(caller_channel, CF_INTERCEPTED)) {
							switch_channel_hangup(caller_channel, SWITCH_CAUSE_ATTENDED_TRANSFER);
						}
						caller_channel = NULL;
						oglobals.session = NULL;
						session = NULL;
						switch_core_session_rwunlock(peer_session);
					} else {
						switch_core_session_t *holding_session;

						if ((holding_session = switch_core_session_locate(holding))) {
							switch_channel_t *holding_channel = switch_core_session_get_channel(holding_session);

							if (caller_channel && switch_channel_ready(caller_channel)) {
								switch_channel_set_variable(holding_channel, SWITCH_HANGUP_AFTER_BRIDGE_VARIABLE, "true");
								switch_ivr_uuid_bridge(holding, switch_core_session_get_uuid(session));
								holding = NULL;
							} else {
								switch_channel_hangup(holding_channel, SWITCH_CAUSE_NORMAL_UNSPECIFIED);
							}
							switch_core_session_rwunlock(holding_session);
						}
					}
				}

				peer_session = NULL;
				peer_channel = NULL;
			}

			for (i = 0; i < and_argc; i++) {
				if (!peer_eligible(oglobals.originate_status[i].peer_channel)) {
					continue;
				}

				if (i != oglobals.idx) {
					holding = NULL;

					if (oglobals.idx == IDX_TIMEOUT || to) {
						reason = SWITCH_CAUSE_NO_ANSWER;
					} else {
						if (oglobals.idx == IDX_CANCEL) {
							reason = SWITCH_CAUSE_ORIGINATOR_CANCEL;
						} else {
							if (and_argc > 1) {
								reason = SWITCH_CAUSE_LOSE_RACE;
							} else if (!switch_channel_ready(oglobals.originate_status[i].peer_channel)) {
								wait_for_cause(oglobals.originate_status[i].peer_channel);
								if (switch_channel_down_nosig(oglobals.originate_status[i].peer_channel)) {
									reason = switch_channel_get_cause(oglobals.originate_status[i].peer_channel);
								}
							} else {
								reason = SWITCH_CAUSE_NO_ANSWER;
							}
						}
					}
					if (switch_channel_up_nosig(oglobals.originate_status[i].peer_channel)) {
						if (caller_channel && i == 0) {
							holding = switch_channel_get_variable(caller_channel, SWITCH_SOFT_HOLDING_UUID_VARIABLE);
							switch_channel_set_variable(caller_channel, SWITCH_SOFT_HOLDING_UUID_VARIABLE, NULL);
						}

						if (holding && oglobals.idx != IDX_TIMEOUT && oglobals.idx != IDX_KEY_CANCEL && oglobals.idx < 0) {
							switch_core_session_t *holding_session;

							if ((holding_session = switch_core_session_locate(holding))) {
								switch_channel_t *holding_channel = switch_core_session_get_channel(holding_session);

								switch_channel_set_variable(holding_channel, SWITCH_HANGUP_AFTER_BRIDGE_VARIABLE, "true");

								if (caller_channel && switch_true(switch_channel_get_variable(caller_channel, "recording_follow_transfer"))) {
									switch_ivr_transfer_recordings(session, oglobals.originate_status[i].peer_session);
								}

								if (switch_true(switch_channel_get_variable(holding_channel, "recording_follow_transfer"))) {
									switch_ivr_transfer_recordings(holding_session, oglobals.originate_status[i].peer_session);
								}

								switch_core_session_rwunlock(holding_session);
							}
							switch_channel_set_flag(oglobals.originate_status[i].peer_channel, CF_LAZY_ATTENDED_TRANSFER);
							switch_ivr_uuid_bridge(holding, switch_core_session_get_uuid(oglobals.originate_status[i].peer_session));
							holding = NULL;
						} else {
							if (force_reason == SWITCH_CAUSE_LOSE_RACE || reason == SWITCH_CAUSE_LOSE_RACE) {
								switch_channel_set_variable(oglobals.originate_status[i].peer_channel, "group_dial_status", "loser");
							}
							switch_channel_hangup(oglobals.originate_status[i].peer_channel, force_reason ? force_reason : reason);
						}
					}
				}
			}



			if (oglobals.idx > IDX_NADA) {
				if ((peer_session = oglobals.originate_status[oglobals.idx].peer_session)) {
					peer_channel = switch_core_session_get_channel(oglobals.originate_status[oglobals.idx].peer_session);
				}
			} else {
				status = SWITCH_STATUS_FALSE;
				if (caller_channel && peer_channel) {
					switch_process_import(oglobals.session, peer_channel, "import", NULL);
				}
				peer_channel = NULL;
				goto done;
			}

			if (caller_channel) {

				if (switch_channel_test_flag(caller_channel, CF_XFER_ZOMBIE) && !switch_channel_up(caller_channel)) {
					if (switch_channel_media_up(peer_channel)) {
						oglobals.idx = IDX_XFER;
						reason = force_reason = SWITCH_CAUSE_ATTENDED_TRANSFER;
						switch_channel_execute_on(peer_channel, "execute_on_orphaned_bleg");
						switch_channel_api_on(peer_channel, "api_on_orphaned_bleg");
					}
				} else if (switch_channel_test_flag(peer_channel, CF_ANSWERED)) {
					switch_channel_pass_callee_id(peer_channel, caller_channel);
					if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE)) {
						status = SWITCH_STATUS_SUCCESS;
					} else {
						status = switch_channel_answer(caller_channel);
					}
				} else if (switch_channel_test_flag(peer_channel, CF_EARLY_MEDIA)) {
					if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE)) {
						status = SWITCH_STATUS_SUCCESS;
					} else {
						switch_channel_pass_callee_id(peer_channel, caller_channel);
						status = switch_channel_pre_answer(caller_channel);
					}
				} else {
					status = SWITCH_STATUS_SUCCESS;
				}

				if (status != SWITCH_STATUS_SUCCESS) {
					switch_log_printf(SWITCH_CHANNEL_CHANNEL_LOG(peer_channel), SWITCH_LOG_DEBUG, "%s Media Establishment Failed.\n",
									  switch_channel_get_name(caller_channel));
					switch_channel_hangup(peer_channel, SWITCH_CAUSE_INCOMPATIBLE_DESTINATION);
				}
			}

			if (switch_channel_test_flag(peer_channel, CF_ANSWERED) ||
				(oglobals.early_ok && switch_channel_test_flag(peer_channel, CF_EARLY_MEDIA)) ||
				(oglobals.return_ring_ready && switch_channel_test_flag(peer_channel, CF_RING_READY))
				) {
				*bleg = peer_session;

				if (oglobals.monitor_early_media_ring || oglobals.monitor_early_media_fail) {
					switch_ivr_stop_tone_detect_session(peer_session);
					switch_channel_set_private(peer_channel, "_oglobals_", NULL);
				}

				status = SWITCH_STATUS_SUCCESS;
			} else {
				status = SWITCH_STATUS_FALSE;
			}

		  done:

			*cause = SWITCH_CAUSE_NONE;

			if (caller_channel && !switch_channel_ready(caller_channel)) {
				status = SWITCH_STATUS_FALSE;
			}

			if (status == SWITCH_STATUS_SUCCESS) {
				if (caller_channel) {
					switch_channel_set_variable(caller_channel, "originate_disposition", "call accepted");
					if (peer_channel) {
						switch_process_import(oglobals.session, peer_channel, "import", NULL);

						if (switch_channel_test_flag(peer_channel, CF_ANSWERED)) {
							switch_channel_set_variable(caller_channel, "DIALSTATUS", "EARLY");
						} else {
							switch_channel_set_variable(caller_channel, "DIALSTATUS", "ANSWER");
						}

					}
				}
				switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals.session), SWITCH_LOG_DEBUG, "Originate Resulted in Success: [%s] Peer UUID: %s\n",
								  switch_channel_get_name(peer_channel), switch_channel_get_uuid(peer_channel));
				*cause = SWITCH_CAUSE_SUCCESS;

			} else {
				const char *cdr_var = NULL;
				const char *json_cdr_var = NULL;

				switch_xml_t cdr = NULL;
				cJSON *json_cdr = NULL;

				char *json_text;
				char *xml_text;
				char buf[128] = "", buf2[128] = "";

				if (caller_channel) {
					cdr_var = switch_channel_get_variable(caller_channel, "failed_xml_cdr_prefix");
				}

				if (caller_channel) {
					json_cdr_var = switch_channel_get_variable(caller_channel, "failed_json_cdr_prefix");
				}

				if (peer_channel) {
					wait_for_cause(peer_channel);
					*cause = switch_channel_get_cause(peer_channel);
				} else {
					for (i = 0; i < and_argc; i++) {
						if (!oglobals.originate_status[i].peer_channel) {
							continue;
						}
						*cause = switch_channel_get_cause(oglobals.originate_status[i].peer_channel);
						break;
					}
				}

				if (cdr_var) {
					for (i = 0; i < and_argc; i++) {
						switch_channel_t *channel;

						if (!oglobals.originate_status[i].peer_session) {
							continue;
						}

						channel = switch_core_session_get_channel(oglobals.originate_status[i].peer_session);

						switch_channel_wait_for_state_timeout(channel, CS_REPORTING, 5000);

						if (!switch_channel_test_flag(channel, CF_TIMESTAMP_SET)) {
							switch_channel_set_timestamps(channel);
						}

						if (switch_ivr_generate_xml_cdr(oglobals.originate_status[i].peer_session, &cdr) == SWITCH_STATUS_SUCCESS) {
							if ((xml_text = switch_xml_toxml(cdr, SWITCH_FALSE))) {
								switch_snprintf(buf, sizeof(buf), "%s_%d", cdr_var, ++cdr_total);
								switch_channel_set_variable(caller_channel, buf, xml_text);
								switch_safe_free(xml_text);
							}
							switch_xml_free(cdr);
							cdr = NULL;
						}

					}
					switch_snprintf(buf, sizeof(buf), "%s_total", cdr_var);
					switch_snprintf(buf2, sizeof(buf2), "%d", cdr_total ? cdr_total : 0);
					switch_channel_set_variable(caller_channel, buf, buf2);
				}

				if (json_cdr_var) {
					for (i = 0; i < and_argc; i++) {
						switch_channel_t *channel;

						if (!oglobals.originate_status[i].peer_session) {
							continue;
						}

						channel = switch_core_session_get_channel(oglobals.originate_status[i].peer_session);

						switch_channel_wait_for_state_timeout(channel, CS_REPORTING, 5000);

						if (!switch_channel_test_flag(channel, CF_TIMESTAMP_SET)) {
							switch_channel_set_timestamps(channel);
						}

						if (switch_ivr_generate_json_cdr(oglobals.originate_status[i].peer_session, &json_cdr, SWITCH_TRUE) == SWITCH_STATUS_SUCCESS) {
							json_text = cJSON_PrintUnformatted(json_cdr);
							switch_snprintf(buf, sizeof(buf), "%s_%d", json_cdr_var, ++cdr_total);
							switch_channel_set_variable(caller_channel, buf, json_text);
							// switch_safe_free(json_text);
							cJSON_Delete(json_cdr);
							json_cdr = NULL;
						}

					}
					switch_snprintf(buf, sizeof(buf), "%s_total", json_cdr_var);
					switch_snprintf(buf2, sizeof(buf2), "%d", cdr_total ? cdr_total : 0);
					switch_channel_set_variable(caller_channel, buf, buf2);
				}

				if (caller_channel && switch_channel_test_flag(caller_channel, CF_INTERCEPTED)) {
					*cause = SWITCH_CAUSE_PICKED_OFF;
				}

				if (!*cause) {
					if (reason) {
						*cause = reason;
					} else if (caller_channel) {
						*cause = switch_channel_get_cause(caller_channel);
					} else {
						*cause = SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER;
						for (i = 0; i < and_argc; i++) {
							if (!peer_eligible(oglobals.originate_status[i].peer_channel)) {
								continue;
							}

							wait_for_cause(oglobals.originate_status[i].peer_channel);

							if (switch_channel_down_nosig(oglobals.originate_status[i].peer_channel)) {
								*cause = switch_channel_get_cause(oglobals.originate_status[i].peer_channel);
								break;
							}

						}
					}
				}

				if (*cause == SWITCH_CAUSE_SUCCESS || *cause == SWITCH_CAUSE_NONE) {
					*cause = SWITCH_CAUSE_ORIGINATOR_CANCEL;
				}

				if (oglobals.idx == IDX_CANCEL) {
					*cause = SWITCH_CAUSE_ORIGINATOR_CANCEL;
					switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals.session), SWITCH_LOG_DEBUG,
									  "Originate Cancelled by originator termination Cause: %d [%s]\n", *cause, switch_channel_cause2str(*cause));

				} else if (oglobals.idx == IDX_TIMEOUT) {
					*cause = SWITCH_CAUSE_NO_ANSWER;
				} else {
					if (oglobals.idx == IDX_XFER) {
						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals.session), SWITCH_LOG_DEBUG,
										  "Originate Resulted in Attended Transfer Cause: %d [%s]\n", *cause, switch_channel_cause2str(*cause));
					} else {

						switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(oglobals.session), SWITCH_LOG_DEBUG,
										  "Originate Resulted in Error Cause: %d [%s]\n", *cause, switch_channel_cause2str(*cause));
					}
				}
			}

			if (caller_channel) {
				switch_channel_set_variable(caller_channel, "originate_disposition", switch_channel_cause2str(*cause));

				switch (*cause) {
				case SWITCH_CAUSE_ORIGINATOR_CANCEL:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", "CANCEL");
					break;
				case SWITCH_CAUSE_USER_BUSY:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", "BUSY");
					break;
				case SWITCH_CAUSE_NO_ANSWER:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", "NOANSWER");
					break;
				case SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER:
				case SWITCH_CAUSE_INVALID_PROFILE:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", "INVALIDARGS");
					break;
				case SWITCH_CAUSE_CALL_REJECTED:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", "DONTCALL");
					break;
				default:
					switch_channel_set_variable(caller_channel, "DIALSTATUS", switch_channel_cause2str(*cause));
					break;
				}
			}

			early_state.ready = 0;

			if (oglobals.ethread) {
				switch_status_t st;
				switch_thread_join(&st, oglobals.ethread);
			}

			if (early_state.buffer) {
				switch_buffer_destroy(&early_state.buffer);
			}

			if (ringback.fh) {
				switch_core_file_close(ringback.fh);
				ringback.fh = NULL;
			} else if (ringback.audio_buffer) {
				teletone_destroy_session(&ringback.ts);
				switch_safe_free(ringback.mux_buf);
				switch_buffer_destroy(&ringback.audio_buffer);
			}

			if (oglobals.session) {
				switch_core_session_reset(oglobals.session, SWITCH_FALSE, SWITCH_TRUE);
			}

			if (switch_core_codec_ready(&write_codec)) {
				switch_core_codec_destroy(&write_codec);
			}

			for (i = 0; i < and_argc; i++) {
				switch_channel_state_t state;
				switch_core_session_t *peer_session;
				char *val;

				if (!oglobals.originate_status[i].peer_channel) {
					continue;
				}

				if (session) {
					val = switch_core_session_sprintf(oglobals.originate_status[i].peer_session, "%s;%s",
													  switch_core_session_get_uuid(oglobals.originate_status[i].peer_session),
													  switch_channel_cause2str(switch_channel_get_cause(oglobals.originate_status[i].peer_channel)));

					switch_channel_add_variable_var_check(switch_core_session_get_channel(session), "originate_causes", val, SWITCH_FALSE, SWITCH_STACK_PUSH);
				}

				if (status == SWITCH_STATUS_SUCCESS) {
					switch_channel_clear_flag(oglobals.originate_status[i].peer_channel, CF_ORIGINATING);
					if (bleg && *bleg && *bleg == oglobals.originate_status[i].peer_session) {
						continue;
					}
				} else if ((state = switch_channel_get_state(oglobals.originate_status[i].peer_channel)) < CS_HANGUP &&
						   switch_channel_test_flag(oglobals.originate_status[i].peer_channel, CF_ORIGINATING)) {
					if (!(state == CS_RESET || switch_channel_test_flag(oglobals.originate_status[i].peer_channel, CF_TRANSFER) ||
						  switch_channel_test_flag(oglobals.originate_status[i].peer_channel, CF_REDIRECT) ||
						  switch_channel_test_flag(oglobals.originate_status[i].peer_channel, CF_BRIDGED))) {
						if (caller_channel && switch_channel_test_flag(caller_channel, CF_INTERCEPTED)) {
							switch_channel_set_flag(oglobals.originate_status[i].peer_channel, CF_INTERCEPT);
						}
						switch_channel_hangup(oglobals.originate_status[i].peer_channel, *cause);
					}
				}
				switch_channel_clear_flag(oglobals.originate_status[i].peer_channel, CF_ORIGINATING);

				peer_session = oglobals.originate_status[i].peer_session;
				oglobals.originate_status[i].down_session = oglobals.originate_status[i].peer_session;
				oglobals.originate_status[i].peer_session = NULL;
				oglobals.originate_status[i].peer_channel = NULL;

				switch_core_session_rwunlock(peer_session);
			}

			if (status == SWITCH_STATUS_SUCCESS || oglobals.idx == IDX_XFER) {
				goto outer_for;
			} else {
				int ok = 1;

				if (fail_on_single_reject && check_reject && !switch_true(fail_on_single_reject_var)) {
					for (i = 0; i < and_argc; i++) {
						switch_channel_t *pchannel;
						const char *cause_str;

						if (!oglobals.originate_status[i].down_session) {
							continue;
						}

						pchannel = switch_core_session_get_channel(oglobals.originate_status[i].down_session);
						wait_for_cause(pchannel);

						if (switch_channel_down_nosig(pchannel)) {
							int neg, pos;

							cause_str = switch_channel_cause2str(switch_channel_get_cause(pchannel));

							neg = *fail_on_single_reject_var == '!';
							pos = !!switch_stristr(cause_str, fail_on_single_reject_var);

							if (neg) {
								pos = !pos;
							}

							if (pos) {
								ok = 0;
								break;
							}
						}
					}
				}

				if (!ok) {
					goto outer_for;
				}

				if (to && !oglobals.continue_on_timeout) {
					goto outer_for;
				}
			}
		}
	}
  outer_for:
	switch_safe_free(loop_data);
	switch_safe_free(odata);
	switch_safe_free(oglobals.file);
	switch_safe_free(oglobals.error_file);

	if (bleg && status != SWITCH_STATUS_SUCCESS) {
		*bleg = NULL;
	}

	if (bleg && !*bleg && status == SWITCH_STATUS_SUCCESS) {
		status = SWITCH_STATUS_FALSE;
	}

	if (bleg && *bleg) {
		switch_channel_t *bchan = switch_core_session_get_channel(*bleg);

		if (session && caller_channel) {
			switch_caller_profile_t *cloned_profile, *peer_profile = switch_channel_get_caller_profile(switch_core_session_get_channel(*bleg));

			if (peer_profile) {
				if ((cloned_profile = switch_caller_profile_clone(session, peer_profile)) != 0) {
					switch_channel_set_originatee_caller_profile(caller_channel, cloned_profile);
				}
			}

			switch_channel_set_variable(caller_channel, SWITCH_SIGNAL_BOND_VARIABLE, switch_core_session_get_uuid(*bleg));
			// Now main SWITCH_SIGNAL_BOND_VARIABLE is populated, don't need this one anymore...
			switch_channel_set_variable(caller_channel, SWITCH_ORIGINATE_SIGNAL_BOND_VARIABLE, NULL);
		}


		switch_channel_execute_on(bchan, SWITCH_CHANNEL_EXECUTE_ON_POST_ORIGINATE_VARIABLE);
		switch_channel_api_on(bchan, SWITCH_CHANNEL_API_ON_POST_ORIGINATE_VARIABLE);


		while(switch_channel_state_change_pending(bchan)) {
			switch_cond_next();
		}

		switch_channel_audio_sync(bchan);

		if (caller_channel) {
			switch_channel_audio_sync(caller_channel);
		}
	}

	if (oglobals.session) {
		switch_ivr_parse_all_events(oglobals.session);
	}

	if (oglobals.session && status == SWITCH_STATUS_SUCCESS) {
		switch_ivr_sleep(oglobals.session, 0, SWITCH_TRUE, NULL);
	}

	if (var_event && var_event != ovars) {
		switch_event_destroy(&var_event);
	}

	switch_safe_free(write_frame.data);
	switch_safe_free(fail_on_single_reject_var);

	if (force_reason != SWITCH_CAUSE_NONE) {
		*cause = force_reason;
	}

	if (caller_channel) {

		switch_channel_execute_on(caller_channel, SWITCH_CHANNEL_EXECUTE_ON_POST_ORIGINATE_VARIABLE);
		switch_channel_api_on(caller_channel, SWITCH_CHANNEL_API_ON_POST_ORIGINATE_VARIABLE);

		switch_channel_clear_flag(caller_channel, CF_ORIGINATOR);
		switch_channel_clear_flag(caller_channel, CF_XFER_ZOMBIE);

		if (hangup_on_single_reject) {
			switch_channel_hangup(caller_channel, *cause);
		}
	}


	switch_core_destroy_memory_pool(&oglobals.pool);

	return status;
}

SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_create(switch_dial_handle_list_t **hl)
{
	switch_dial_handle_list_t *hlP = NULL;
	switch_memory_pool_t *pool = NULL;

	switch_core_new_memory_pool(&pool);
	switch_assert(pool);

	hlP = switch_core_alloc(pool, sizeof(*hlP));
	switch_assert(hlP);

	hlP->pool = pool;

	*hl = hlP;

	return SWITCH_STATUS_SUCCESS;
}

static switch_status_t switch_dial_handle_list_add_handle(switch_dial_handle_list_t *hl, switch_dial_handle_t *handle)
{
	if (hl->handle_idx < MAX_PEERS && handle) {
		hl->handles[hl->handle_idx++] = handle;
		return SWITCH_STATUS_SUCCESS;
	}
	return SWITCH_STATUS_FALSE;
}

SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_create_handle(switch_dial_handle_list_t *hl, switch_dial_handle_t **handle)
{
	switch_dial_handle_t *hp = NULL;
	if (hl->handle_idx < MAX_PEERS && switch_dial_handle_create(&hp) == SWITCH_STATUS_SUCCESS && hp) {
		hl->handles[hl->handle_idx++] = hp;
		*handle = hp;
		return SWITCH_STATUS_SUCCESS;
	}
	return SWITCH_STATUS_FALSE;
}

SWITCH_DECLARE(void) switch_dial_handle_list_destroy(switch_dial_handle_list_t **hl)
{
	switch_dial_handle_list_t *hlP = *hl;
	switch_memory_pool_t *pool = NULL;

	*hl = NULL;

	if (hlP) {
		int i;
		for (i = 0; i < hlP->handle_idx; i++) {
			switch_dial_handle_destroy(&hlP->handles[i]);
		}

		switch_event_destroy(&hlP->global_vars);
		pool = hlP->pool;
		hlP = NULL;
		switch_core_destroy_memory_pool(&pool);
	}
}

SWITCH_DECLARE(void) switch_dial_handle_list_add_global_var(switch_dial_handle_list_t *hl, const char *var, const char *val)
{
	switch_assert(hl);

	if (!hl->global_vars) {
		switch_event_create_plain(&hl->global_vars, SWITCH_EVENT_CHANNEL_DATA);
	}

	switch_event_add_header_string(hl->global_vars, SWITCH_STACK_BOTTOM, var, val);
}

SWITCH_DECLARE(void) switch_dial_handle_list_add_global_var_printf(switch_dial_handle_list_t *hl, const char *var, const char *fmt, ...)
{
	int ret = 0;
	char *data = NULL;
	va_list ap;

	va_start(ap, fmt);
	ret = switch_vasprintf(&data, fmt, ap);
	va_end(ap);

	if (ret == -1) {
		abort();
	}

	switch_dial_handle_list_add_global_var(hl, var, data);
	free(data);
}

static switch_status_t switch_dial_handle_dup(switch_dial_handle_t **handle, switch_dial_handle_t *todup)
{
	int i;
	switch_dial_handle_t *hp;

	if (!todup || !handle) {
		return SWITCH_STATUS_FALSE;
	}

	*handle = NULL;

	switch_dial_handle_create(&hp);
	switch_assert(hp);

	for (i = 0; i < todup->leg_list_idx; i++) {
		int j;
		switch_dial_leg_list_t *ll_todup = todup->leg_lists[i];
		switch_dial_leg_list_t *ll = NULL;
		switch_dial_handle_add_leg_list(hp, &ll);
		for (j = 0; j < ll_todup->leg_idx; j++) {
			switch_dial_leg_t *leg;
			switch_dial_leg_t *leg_todup = ll_todup->legs[j];
			switch_dial_leg_list_add_leg(ll, &leg, leg_todup->dial_string);
			if (leg_todup->leg_vars) {
				switch_event_dup(&leg->leg_vars, leg_todup->leg_vars);
			}
		}
	}

	if (todup->global_vars) {
		switch_event_dup(&hp->global_vars, todup->global_vars);
	}

	hp->is_sub = todup->is_sub;

	*handle = hp;

	return SWITCH_STATUS_SUCCESS;
}

SWITCH_DECLARE(switch_status_t) switch_dial_handle_create(switch_dial_handle_t **handle)
{
	switch_dial_handle_t *hp;
	switch_memory_pool_t *pool = NULL;

	switch_core_new_memory_pool(&pool);
	switch_assert(pool);
	
	hp = switch_core_alloc(pool, sizeof(*hp));
	switch_assert(hp);

	hp->pool = pool;

	*handle = hp;
	
	return SWITCH_STATUS_SUCCESS;
}

SWITCH_DECLARE(void) switch_dial_handle_destroy(switch_dial_handle_t **handle)
{
	switch_dial_handle_t *hp = *handle;
	switch_memory_pool_t *pool = NULL;

	*handle = NULL;

	if (hp) {
		int i, j;

		for (i = 0; i < hp->leg_list_idx; i++) {
			for(j = 0; j < hp->leg_lists[i]->leg_idx; j++) {
				switch_event_destroy(&hp->leg_lists[i]->legs[j]->leg_vars);
			}
		}

		switch_event_destroy(&hp->global_vars);
		pool = hp->pool;
		hp = NULL;
		switch_core_destroy_memory_pool(&pool);	
	}
}

SWITCH_DECLARE(void) switch_dial_handle_add_leg_list(switch_dial_handle_t *handle, switch_dial_leg_list_t **leg_listP)
{
	switch_dial_leg_list_t *leg_list;
	
	switch_assert(handle);

	leg_list = switch_core_alloc(handle->pool, sizeof(*leg_list));
	leg_list->handle = handle;

	handle->leg_lists[handle->leg_list_idx++] = leg_list;
	
	*leg_listP = leg_list;
}

SWITCH_DECLARE(void) switch_dial_leg_list_add_leg_printf(switch_dial_leg_list_t *parent, switch_dial_leg_t **legP, const char *fmt, ...)
{
	int ret = 0;
	char *data = NULL;
	va_list ap;

	va_start(ap, fmt);
	ret = switch_vasprintf(&data, fmt, ap);
	va_end(ap);

	if (ret == -1) {
		abort();
	}

	switch_dial_leg_list_add_leg(parent, legP, data);
	free(data);
}

SWITCH_DECLARE(void) switch_dial_leg_list_add_leg(switch_dial_leg_list_t *parent, switch_dial_leg_t **legP, const char *dial_string)
{
	switch_dial_leg_t *leg;
	
	switch_assert(parent);

	leg = switch_core_alloc(parent->handle->pool, sizeof(*leg));
	leg->handle = parent->handle;
	leg->dial_string = switch_core_strdup(parent->handle->pool, dial_string);
	
	parent->legs[parent->leg_idx++] = leg;

	if (legP) {
		*legP = leg;
	}
}

SWITCH_DECLARE(void) switch_dial_handle_add_global_var(switch_dial_handle_t *handle, const char *var, const char *val)
{
	switch_assert(handle);
	
	if (!handle->global_vars) {
		switch_event_create_plain(&handle->global_vars, SWITCH_EVENT_CHANNEL_DATA);
	}

	switch_event_add_header_string(handle->global_vars, SWITCH_STACK_BOTTOM, var, val);
}

SWITCH_DECLARE(void) switch_dial_handle_add_global_var_printf(switch_dial_handle_t *handle, const char *var, const char *fmt, ...)
{
	int ret = 0;
	char *data = NULL;
	va_list ap;

	va_start(ap, fmt);
	ret = switch_vasprintf(&data, fmt, ap);
	va_end(ap);

	if (ret == -1) {
		abort();
	}

	switch_dial_handle_add_global_var(handle, var, data);
	free(data);
}

SWITCH_DECLARE(switch_status_t) switch_dial_handle_add_leg_var(switch_dial_leg_t *leg, const char *var, const char *val)
{
	if (!leg) return SWITCH_STATUS_NOTFOUND;
	
	if (!leg->leg_vars) {
		switch_event_create_plain(&leg->leg_vars, SWITCH_EVENT_CHANNEL_DATA);
	}

	switch_event_add_header_string(leg->leg_vars, SWITCH_STACK_BOTTOM, var, val);

	return SWITCH_STATUS_SUCCESS;
	
}

SWITCH_DECLARE(switch_status_t) switch_dial_handle_add_leg_var_printf(switch_dial_leg_t *leg, const char *var, const char *fmt, ...)
{
	int ret = 0;
	char *data = NULL;
	va_list ap;
	switch_status_t status;
	
	va_start(ap, fmt);
	ret = switch_vasprintf(&data, fmt, ap);
	va_end(ap);

	if (ret == -1) {
		abort();
	}

	status = switch_dial_handle_add_leg_var(leg, var, data);

	free(data);

	return status;
}

SWITCH_DECLARE(int) switch_dial_handle_get_total(switch_dial_handle_t *handle)
{
	return handle->leg_list_idx;
}

SWITCH_DECLARE(int) switch_dial_handle_get_peers(switch_dial_handle_t *handle, int idx, char **array, int max)
{
	int i, j = 0;

	if (!handle->leg_lists[idx]) return 0;
	
	for (i = 0; i < max && handle->leg_lists[idx]->legs[i]; i++) {
		array[j++] = handle->leg_lists[idx]->legs[i]->dial_string;
	}

	return j;
}


SWITCH_DECLARE(int) switch_dial_handle_get_vars(switch_dial_handle_t *handle, int idx, switch_event_t **array, int max)
{
	int i, j = 0;

	if (!handle->leg_lists[idx]) return 0;
	
	for (i = 0; i < max && handle->leg_lists[idx]->legs[i]; i++) {
		array[j++] = handle->leg_lists[idx]->legs[i]->leg_vars;
	}

	return j;
}


SWITCH_DECLARE(switch_event_t *) switch_dial_handle_get_global_vars(switch_dial_handle_t *handle)
{
	switch_assert(handle);
	
	return handle->global_vars;
}

SWITCH_DECLARE(switch_event_t *) switch_dial_leg_get_vars(switch_dial_leg_t *leg)
{
	switch_assert(leg);
	
	return leg->leg_vars;
}

SWITCH_DECLARE(const char *) switch_dial_leg_get_var(switch_dial_leg_t *leg, const char *key)
{
	switch_assert(leg);

	return switch_event_get_header(leg->leg_vars, key);
}

static switch_status_t vars_serialize_json_obj(switch_event_t *event, cJSON **json)
{
	switch_event_header_t *hp;
	*json = cJSON_CreateObject();
	for (hp = event->headers; hp; hp = hp->next) {
		if (hp->name && hp->value) {
			cJSON_AddItemToObject(*json, hp->name, cJSON_CreateString(hp->value));
		}
	}
	return SWITCH_STATUS_SUCCESS;
}


static switch_status_t leg_serialize_json_obj(switch_dial_leg_t *leg, cJSON **json)
{
	cJSON *vars_json = NULL;
	*json = cJSON_CreateObject();
	if (leg->dial_string) {
		cJSON_AddStringToObject(*json, "dial_string", leg->dial_string);
	}
	if (leg->leg_vars && vars_serialize_json_obj(leg->leg_vars, &vars_json) == SWITCH_STATUS_SUCCESS && vars_json) {
		cJSON_AddItemToObject(*json, "vars", vars_json);
	}
	return SWITCH_STATUS_SUCCESS;
}


static switch_status_t leg_list_serialize_json_obj(switch_dial_leg_list_t *ll, cJSON **json)
{
	int i;
	cJSON *legs_json = cJSON_CreateArray();
	*json = cJSON_CreateObject();
	cJSON_AddItemToObject(*json, "legs", legs_json);
	for (i = 0; i < ll->leg_idx; i++) {
		switch_dial_leg_t *leg = ll->legs[i];
		cJSON *leg_json = NULL;
		if (leg_serialize_json_obj(leg, &leg_json) == SWITCH_STATUS_SUCCESS && leg_json) {
			cJSON_AddItemToArray(legs_json, leg_json);
		}
	}
	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_serialize_json_obj(switch_dial_handle_t *handle, cJSON **json)
{
	int i;
	cJSON *global_vars_json = NULL;
	cJSON *leg_lists_json = NULL;
	if (!handle) {
		return SWITCH_STATUS_FALSE;
	}
	*json = cJSON_CreateObject();
	if (handle->global_vars && vars_serialize_json_obj(handle->global_vars, &global_vars_json) == SWITCH_STATUS_SUCCESS && global_vars_json) {
		cJSON_AddItemToObject(*json, "vars", global_vars_json);
	}

	leg_lists_json = cJSON_CreateArray();
	cJSON_AddItemToObject(*json, "leg_lists", leg_lists_json);
	for (i = 0; i < handle->leg_list_idx; i++) {
		switch_dial_leg_list_t *ll = handle->leg_lists[i];
		cJSON *leg_list_json = NULL;
		if (leg_list_serialize_json_obj(ll, &leg_list_json) == SWITCH_STATUS_SUCCESS && leg_list_json) {
			cJSON_AddItemToArray(leg_lists_json, leg_list_json);
		}
	}

	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_serialize_json(switch_dial_handle_t *handle, char **str)
{
	cJSON *json = NULL;
	if (switch_dial_handle_serialize_json_obj(handle, &json) == SWITCH_STATUS_SUCCESS && json) {
		*str = cJSON_PrintUnformatted(json);
		cJSON_Delete(json);
		return SWITCH_STATUS_SUCCESS;
	}
	return SWITCH_STATUS_FALSE;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_create_json_obj(switch_dial_handle_t **handle, cJSON *json)
{
	cJSON *vars_json = NULL;
	cJSON *var_json = NULL;
	cJSON *leg_lists_json = NULL;
	if (!json) {
		return SWITCH_STATUS_FALSE;
	}
	switch_dial_handle_create(handle);

	leg_lists_json = cJSON_GetObjectItem(json, "leg_lists");
	if (leg_lists_json && leg_lists_json->type == cJSON_Array) {
		cJSON *leg_list_json = NULL;
		cJSON_ArrayForEach(leg_list_json, leg_lists_json) {
			cJSON *legs_json = cJSON_GetObjectItem(leg_list_json, "legs");
			cJSON *leg_json = NULL;
			switch_dial_leg_list_t *ll = NULL;
			if (!legs_json || legs_json->type != cJSON_Array) {
				continue;
			}
			switch_dial_handle_add_leg_list(*handle, &ll);
			cJSON_ArrayForEach(leg_json, legs_json) {
				switch_dial_leg_t *leg = NULL;
				const char *dial_string = NULL;
				if (!leg_json || leg_json->type != cJSON_Object) {
					continue;
				}
				dial_string = cJSON_GetObjectCstr(leg_json, "dial_string");
				if (!dial_string) {
					continue;
				}
				switch_dial_leg_list_add_leg(ll, &leg, dial_string);

				vars_json = cJSON_GetObjectItem(leg_json, "vars");
				if (vars_json && vars_json->type == cJSON_Object) {
					cJSON_ArrayForEach(var_json, vars_json) {
						if (!var_json || var_json->type != cJSON_String || !var_json->valuestring || !var_json->string) {
							continue;
						}
						switch_dial_handle_add_leg_var(leg, var_json->string, var_json->valuestring);
					}
				}
			}
		}
	}

	vars_json = cJSON_GetObjectItem(json, "vars");
	if (vars_json && vars_json->type == cJSON_Object) {
		cJSON_ArrayForEach(var_json, vars_json) {
			if (!var_json || var_json->type != cJSON_String || !var_json->valuestring || !var_json->string) {
				continue;
			}
			switch_dial_handle_add_global_var(*handle, var_json->string, var_json->valuestring);
		}
	}
	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_create_json(switch_dial_handle_t **handle, const char *handle_string)
{
	switch_status_t status;
	cJSON *handle_json = NULL;

	if (zstr(handle_string)) {
		return SWITCH_STATUS_FALSE;
	}

	handle_json = cJSON_Parse(handle_string);
	if (!handle_json) {
		return SWITCH_STATUS_FALSE;
	}

	status = switch_dial_handle_create_json_obj(handle, handle_json);
	cJSON_Delete(handle_json);
	return status;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_serialize_json_obj(switch_dial_handle_list_t *hl, cJSON **json)
{
	int i;
	cJSON *global_vars_json = NULL;
	cJSON *handles_json = NULL;
	if (!hl) {
		return SWITCH_STATUS_FALSE;
	}
	*json = cJSON_CreateObject();
	if (hl->global_vars && vars_serialize_json_obj(hl->global_vars, &global_vars_json) == SWITCH_STATUS_SUCCESS && global_vars_json) {
		cJSON_AddItemToObject(*json, "vars", global_vars_json);
	}

	handles_json = cJSON_CreateArray();
	cJSON_AddItemToObject(*json, "handles", handles_json);
	for (i = 0; i < hl->handle_idx; i++) {
		switch_dial_handle_t *handle = hl->handles[i];
		cJSON *handle_json = NULL;
		if (switch_dial_handle_serialize_json_obj(handle, &handle_json) == SWITCH_STATUS_SUCCESS && handle_json) {
			cJSON_AddItemToArray(handles_json, handle_json);
		}
	}

	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_serialize_json(switch_dial_handle_list_t *hl, char **str)
{
	cJSON *json = NULL;
	if (switch_dial_handle_list_serialize_json_obj(hl, &json) == SWITCH_STATUS_SUCCESS && json) {
		*str = cJSON_PrintUnformatted(json);
		cJSON_Delete(json);
		return SWITCH_STATUS_SUCCESS;
	}
	return SWITCH_STATUS_FALSE;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_create_json_obj(switch_dial_handle_list_t **hl, cJSON *handle_list_json)
{
	cJSON *handle_json = NULL;
	cJSON *handles_json = NULL;
	cJSON *vars_json = NULL;

	*hl = NULL;

	handles_json = cJSON_GetObjectItem(handle_list_json, "handles");
	if (!handles_json || !cJSON_IsArray(handles_json)) {
		return SWITCH_STATUS_FALSE;
	}
	switch_dial_handle_list_create(hl);
	switch_assert(*hl);
	for (handle_json = handles_json->child; handle_json; handle_json = handle_json->next) {
		switch_dial_handle_t *handle = NULL;
		if (switch_dial_handle_create_json_obj(&handle, handle_json) == SWITCH_STATUS_SUCCESS && handle) {
			if (switch_dial_handle_list_add_handle(*hl, handle) != SWITCH_STATUS_SUCCESS) {
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Not adding remaining dial handles: exceeded limit of %d handles\n", MAX_PEERS);
				switch_dial_handle_destroy(&handle);
				break;
			}
		} else {
			char *handle_json_str = cJSON_PrintUnformatted(handle_json);
			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Failed to create dial handle: %s\n", handle_json_str);
			switch_safe_free(handle_json_str);
		}
	}

	if ((*hl)->handle_idx == 0) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Failed to create dial handle list: no handles added!\n");
		switch_dial_handle_list_destroy(hl);
		return SWITCH_STATUS_FALSE;
	}

	vars_json = cJSON_GetObjectItem(handle_list_json, "vars");
	if (vars_json && vars_json->type == cJSON_Object) {
		cJSON *var_json = NULL;
		cJSON_ArrayForEach(var_json, vars_json) {
			if (!var_json || var_json->type != cJSON_String || !var_json->valuestring || !var_json->string) {
				continue;
			}
			switch_dial_handle_list_add_global_var(*hl, var_json->string, var_json->valuestring);
		}
	}

	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_dial_handle_list_create_json(switch_dial_handle_list_t **hl, const char *handle_list_string)
{
	switch_status_t status;
	cJSON *handle_list_json = NULL;

	if (zstr(handle_list_string)) {
		return SWITCH_STATUS_FALSE;
	}

	handle_list_json = cJSON_Parse(handle_list_string);
	if (!handle_list_json) {
		return SWITCH_STATUS_FALSE;
	}

	status = switch_dial_handle_list_create_json_obj(hl, handle_list_json);
	cJSON_Delete(handle_list_json);
	return status;
}


static switch_status_t o_bridge_on_dtmf(switch_core_session_t *session, void *input, switch_input_type_t itype, void *buf, unsigned int buflen)
{
	char *str = (char *) buf;

	if (str && input && itype == SWITCH_INPUT_TYPE_DTMF) {
		switch_dtmf_t *dtmf = (switch_dtmf_t *) input;
		if (strchr(str, dtmf->digit)) {
			return SWITCH_STATUS_BREAK;
		}
	}
	return SWITCH_STATUS_SUCCESS;
}


SWITCH_DECLARE(switch_status_t) switch_ivr_enterprise_orig_and_bridge(switch_core_session_t *session, const char *data, switch_dial_handle_list_t *hl, switch_call_cause_t *cause)
{
	switch_channel_t *caller_channel = switch_core_session_get_channel(session);
	switch_core_session_t *peer_session = NULL;
	switch_status_t status = SWITCH_STATUS_FALSE;
	int fail = 0;

	if ((status = switch_ivr_enterprise_originate(session,
									   &peer_session,
									   cause, data, 0, NULL, NULL, NULL, NULL, NULL, SOF_NONE, NULL, hl)) != SWITCH_STATUS_SUCCESS) {
		fail = 1;
	}


	if (fail) {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_INFO, "Originate Failed.  Cause: %s\n", switch_channel_cause2str(*cause));

		switch_channel_set_variable(caller_channel, "originate_failed_cause", switch_channel_cause2str(*cause));

		switch_channel_handle_cause(caller_channel, *cause);

		return status;
	} else {
		switch_channel_t *peer_channel = switch_core_session_get_channel(peer_session);

		if (switch_true(switch_channel_get_variable(caller_channel, SWITCH_BYPASS_MEDIA_AFTER_BRIDGE_VARIABLE)) ||
			switch_true(switch_channel_get_variable(peer_channel, SWITCH_BYPASS_MEDIA_AFTER_BRIDGE_VARIABLE))) {
			switch_channel_set_flag(caller_channel, CF_BYPASS_MEDIA_AFTER_BRIDGE);
		}

		if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE)) {
			switch_ivr_signal_bridge(session, peer_session);
		} else {
			char *a_key = (char *) switch_channel_get_variable(caller_channel, "bridge_terminate_key");
			char *b_key = (char *) switch_channel_get_variable(peer_channel, "bridge_terminate_key");
			int ok = 0;
			switch_input_callback_function_t func = NULL;

			if (a_key) {
				a_key = switch_core_session_strdup(session, a_key);
				ok++;
			}
			if (b_key) {
				b_key = switch_core_session_strdup(session, b_key);
				ok++;
			}
			if (ok) {
				func = o_bridge_on_dtmf;
			} else {
				a_key = NULL;
				b_key = NULL;
			}

			switch_ivr_multi_threaded_bridge(session, peer_session, func, a_key, b_key);
		}

		if (peer_session) {
			switch_core_session_rwunlock(peer_session);
		}
	}

	return status;
}


SWITCH_DECLARE(switch_status_t) switch_ivr_orig_and_bridge(switch_core_session_t *session, const char *data, switch_dial_handle_t *dh, switch_call_cause_t *cause)
{
	switch_channel_t *caller_channel = switch_core_session_get_channel(session);
	switch_core_session_t *peer_session = NULL;
	switch_status_t status = SWITCH_STATUS_FALSE;
	int fail = 0;
	
	if ((status = switch_ivr_originate(session,
									   &peer_session,
									   cause, data, 0, NULL, NULL, NULL, NULL, NULL, SOF_NONE, NULL, dh)) != SWITCH_STATUS_SUCCESS) {
		fail = 1;
	}


	if (fail) {
		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_INFO, "Originate Failed.  Cause: %s\n", switch_channel_cause2str(*cause));
		
		switch_channel_set_variable(caller_channel, "originate_failed_cause", switch_channel_cause2str(*cause));

		switch_channel_handle_cause(caller_channel, *cause);

		return status;
	} else {
		switch_channel_t *peer_channel = switch_core_session_get_channel(peer_session);

		if (switch_true(switch_channel_get_variable(caller_channel, SWITCH_BYPASS_MEDIA_AFTER_BRIDGE_VARIABLE)) ||
			switch_true(switch_channel_get_variable(peer_channel, SWITCH_BYPASS_MEDIA_AFTER_BRIDGE_VARIABLE))) {
			switch_channel_set_flag(caller_channel, CF_BYPASS_MEDIA_AFTER_BRIDGE);
		}

		if (switch_channel_test_flag(caller_channel, CF_PROXY_MODE)) {
			switch_ivr_signal_bridge(session, peer_session);
		} else {
			char *a_key = (char *) switch_channel_get_variable(caller_channel, "bridge_terminate_key");
			char *b_key = (char *) switch_channel_get_variable(peer_channel, "bridge_terminate_key");
			int ok = 0;
			switch_input_callback_function_t func = NULL;

			if (a_key) {
				a_key = switch_core_session_strdup(session, a_key);
				ok++;
			}
			if (b_key) {
				b_key = switch_core_session_strdup(session, b_key);
				ok++;
			}
			if (ok) {
				func = o_bridge_on_dtmf;
			} else {
				a_key = NULL;
				b_key = NULL;
			}

			switch_ivr_multi_threaded_bridge(session, peer_session, func, a_key, b_key);
		}

		if (peer_session) {
			switch_core_session_rwunlock(peer_session);
		}
	}

	return status;
}



/* 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:
 */
