/* 
 * FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application
 * Copyright (C) 2005/2006, Anthony Minessale II <anthmct@yahoo.com>
 *
 * 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 <anthmct@yahoo.com>
 * Portions created by the Initial Developer are Copyright (C)
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 * 
 * Anthony Minessale II <anthmct@yahoo.com>
 * Neal Horman <neal at wanlink dot com>
 *
 *
 * mod_conference.c -- Software Conference Bridge
 *
 */
#include <switch.h>

static const char modname[] = "mod_conference";
static const char global_app_name[] = "conference";
static char *global_cf_name = "conference.conf";
static switch_api_interface_t conf_api_interface;

/* Size to allocate for audio buffers */
#define CONF_BUFFER_SIZE 1024 * 128 
#define CONF_EVENT_MAINT "conference::maintenence"
#define CONF_DEFAULT_LEADIN 20

#define CONF_DBLOCK_SIZE CONF_BUFFER_SIZE
#define CONF_DBUFFER_SIZE CONF_BUFFER_SIZE
#define CONF_DBUFFER_MAX 0
#define CONF_CHAT_PROTO "conf"

#ifndef MIN
#define MIN(a, b) ((a)<(b)?(a):(b))
#endif

/* this doesn't work correctly yet, don't bother trying! */
//#define OPTION_IVR_MENU_SUPPORT */

typedef enum {
	FILE_STOP_CURRENT, 
	FILE_STOP_ALL
} file_stop_t;

/* Global Values */
static struct {
	switch_memory_pool_t *conference_pool;
	switch_mutex_t *conference_mutex;
	switch_hash_t *conference_hash;
	switch_mutex_t *id_mutex;
	switch_mutex_t *hash_mutex;
	uint32_t id_pool;
	int32_t running;
	uint32_t threads;
} globals;

typedef enum {
	CALLER_CONTROL_MUTE, 
	CALLER_CONTROL_DEAF_MUTE, 
	CALLER_CONTROL_ENERGY_UP, 
	CALLER_CONTROL_ENERGY_EQU_CONF, 
	CALLER_CONTROL_ENERGEY_DN, 
	CALLER_CONTROL_VOL_TALK_UP, 
	CALLER_CONTROL_VOL_TALK_ZERO, 
	CALLER_CONTROL_VOL_TALK_DN, 
	CALLER_CONTROL_VOL_LISTEN_UP, 
	CALLER_CONTROL_VOL_LISTEN_ZERO, 
	CALLER_CONTROL_VOL_LISTEN_DN, 
	CALLER_CONTROL_HANGUP, 
	CALLER_CONTROL_MENU, 
	CALLER_CONTROL_DIAL, 
} caller_control_t;

/* forward declaration for conference_obj and caller_control */
struct conference_member;
typedef struct conference_member conference_member_t;

typedef struct caller_control_fn_table {
	char *key;
	char *digits;
	caller_control_t action;
	void (*handler)(conference_member_t *, void *);
} caller_control_fn_table_t;

typedef struct caller_control_actions {
	caller_control_fn_table_t *fndesc;
	void *data;
} caller_control_action_t;

typedef struct caller_control_menu_info {
	switch_ivr_menu_t *stack;
	char *name;
} caller_control_menu_info_t;

typedef enum {
	MFLAG_RUNNING = (1 << 0), 
	MFLAG_CAN_SPEAK = (1 << 1), 
	MFLAG_CAN_HEAR = (1 << 2), 
	MFLAG_KICKED = (1 << 3), 
	MFLAG_ITHREAD = (1 << 4), 
	MFLAG_NOCHANNEL = (1 << 5),
    MFLAG_INTREE = (1 << 6)
} member_flag_t;

typedef enum {
	CFLAG_RUNNING = (1 << 0), 
	CFLAG_DYNAMIC = (1 << 1), 
	CFLAG_ENFORCE_MIN = (1 << 2), 
	CFLAG_DESTRUCT = (1 << 3), 
	CFLAG_LOCKED = (1 << 4), 
	CFLAG_ANSWERED = (1 << 5)
} conf_flag_t;

typedef enum {
	RFLAG_CAN_SPEAK = (1 << 0), 
	RFLAG_CAN_HEAR = (1 << 1)
} relation_flag_t;

typedef enum {
	NODE_TYPE_FILE, 
	NODE_TYPE_SPEECH
} node_type_t;

typedef struct conference_file_node {
	switch_file_handle_t fh;
	switch_speech_handle_t sh;
	node_type_t type;
	uint8_t done;
	switch_memory_pool_t *pool;
	uint32_t leadin;
	struct conference_file_node *next;
} conference_file_node_t;

/* conference xml config sections */
typedef struct conf_xml_cfg {
	switch_xml_t profile;
	switch_xml_t controls;
#ifdef OPTION_IVR_MENU_SUPPORT
	switch_xml_t menus;
#endif
} conf_xml_cfg_t;

/* Conference Object */
typedef struct conference_obj {
	char *name;
	char *timer_name;
	char *tts_engine;
	char *tts_voice;
	char *enter_sound;
	char *exit_sound;
	char *alone_sound;
	char *ack_sound;
	char *nack_sound;
	char *muted_sound;
	char *unmuted_sound;
	char *locked_sound;
	char *is_locked_sound;
	char *is_unlocked_sound;
	char *kicked_sound;
	char *caller_id_name;
	char *caller_id_number;
    char *sound_prefix;
	switch_ivr_digit_stream_parser_t *dtmf_parser;
	char *pin;
	char *pin_sound;
	char *bad_pin_sound;
	char *profile_name;
	char *domain;
	uint32_t flags;
	switch_call_cause_t bridge_hangup_cause;
	switch_mutex_t *flag_mutex;
	uint32_t rate;
	uint32_t interval;
	switch_mutex_t *mutex;
	conference_member_t *members;
    switch_mutex_t *member_mutex;
	conference_file_node_t *fnode;
	switch_memory_pool_t *pool;
	switch_thread_rwlock_t *rwlock;
	uint32_t count;
	int32_t energy_level;
	uint8_t min;
} conference_obj_t;

/* Relationship with another member */
typedef struct conference_relationship {
	uint32_t id;
	uint32_t flags;
	struct conference_relationship *next;
} conference_relationship_t;

/* Conference Member Object */
struct conference_member {
	uint32_t id;
	switch_core_session_t *session;
	conference_obj_t *conference;
	switch_memory_pool_t *pool;
	switch_buffer_t *audio_buffer;
	switch_buffer_t *mux_buffer;
	switch_buffer_t *resample_buffer;
	uint32_t flags;
	switch_mutex_t *flag_mutex;
	switch_mutex_t *audio_in_mutex;
	switch_mutex_t *audio_out_mutex;
	switch_codec_t read_codec;
	switch_codec_t write_codec;
	char *rec_path;
	uint8_t *frame;
	uint8_t *mux_frame;
	uint32_t buflen;
	uint32_t read;
	uint32_t len;
	int32_t energy_level;
	int32_t volume_in_level;
	int32_t volume_out_level;
	uint32_t native_rate;
	switch_audio_resampler_t *mux_resampler;
	switch_audio_resampler_t *read_resampler;
	conference_file_node_t *fnode;
	conference_relationship_t *relationships;
	switch_ivr_digit_stream_t *digit_stream;
	struct conference_member *next;
};

/* Record Node */
typedef struct conference_record {
	conference_obj_t *conference;
	char *path;
	switch_memory_pool_t *pool;
} conference_record_t;

typedef enum {
	CONF_API_SUB_ARGS_SPLIT, 
	CONF_API_SUB_MEMBER_TARGET, 
	CONF_API_SUB_ARGS_AS_ONE
} conference_fntype_t;

/* API command parser */
typedef struct api_command {
	char *pname;
	void *pfnapicmd;
	conference_fntype_t fntype;
	char *psyntax;
} api_command_t;


/* Function Prototypes */
static uint32_t next_member_id(void);
static conference_relationship_t *member_get_relationship(conference_member_t *member, conference_member_t *other_member);
static conference_member_t *conference_member_get(conference_obj_t *conference, uint32_t id);
static conference_relationship_t *member_add_relationship(conference_member_t *member, uint32_t id);
static switch_status_t member_del_relationship(conference_member_t *member, uint32_t id);
static switch_status_t conference_add_member(conference_obj_t *conference, conference_member_t *member);
static switch_status_t conference_del_member(conference_obj_t *conference, conference_member_t *member);
static void *SWITCH_THREAD_FUNC conference_thread_run(switch_thread_t *thread, void *obj);
static void conference_loop_output(conference_member_t *member);
static uint32_t conference_stop_file(conference_obj_t *conference, file_stop_t stop);
static switch_status_t conference_play_file(conference_obj_t *conference, char *file, uint32_t leadin, switch_channel_t *channel);
static switch_status_t conference_say(conference_obj_t *conference, const char *text, uint32_t leadin);
static void conference_list(conference_obj_t *conference, switch_stream_handle_t *stream, char *delim);
static switch_status_t conf_api_main(char *buf, switch_core_session_t *session, switch_stream_handle_t *stream);
static switch_status_t audio_bridge_on_ring(switch_core_session_t *session);
static switch_status_t conference_outcall(conference_obj_t *conference, 
										  switch_core_session_t *session, 
										  char *bridgeto, 
										  uint32_t timeout, 
										  char *flags, 
										  char *cid_name, 
										  char *cid_num,
                                          switch_call_cause_t *cause);
static switch_status_t conference_outcall_bg(conference_obj_t *conference, 
                                             switch_core_session_t *session, 
                                             char *bridgeto, 
                                             uint32_t timeout, 
                                             char *flags, 
                                             char *cid_name, 
                                             char *cid_num);
static void conference_function(switch_core_session_t *session, char *data);
static void launch_conference_thread(conference_obj_t *conference);
static void *SWITCH_THREAD_FUNC conference_loop_input(switch_thread_t *thread, void *obj);
static switch_status_t conference_local_play_file(conference_obj_t *conference,
                                                  switch_core_session_t *session, char *path, uint32_t leadin, char *buf, switch_size_t len);
static switch_status_t conference_member_play_file(conference_member_t *member, char *file, uint32_t leadin);
static switch_status_t conference_member_say(conference_member_t *member, char *text, uint32_t leadin);
static uint32_t conference_member_stop_file(conference_member_t *member, file_stop_t stop);
static conference_obj_t *conference_new(char *name, conf_xml_cfg_t cfg, switch_memory_pool_t *pool);
static switch_status_t chat_send(char *proto, char *from, char *to, char *subject, char *body, char *hint);
static void launch_conference_record_thread(conference_obj_t *conference, char *path);

typedef switch_status_t (*conf_api_args_cmd_t)(conference_obj_t*, switch_stream_handle_t*, int, char**);
typedef switch_status_t (*conf_api_member_cmd_t)(conference_member_t*, switch_stream_handle_t*, void*);
typedef switch_status_t (*conf_api_text_cmd_t)(conference_obj_t*, switch_stream_handle_t*, const char*);

static void conference_member_itterator(conference_obj_t *conference, 
										switch_stream_handle_t *stream, 
										conf_api_member_cmd_t pfncallback, 
										void *data);
static switch_status_t conf_api_sub_mute(conference_member_t *member, 
                                         switch_stream_handle_t *stream, 
                                         void *data);
static switch_status_t conf_api_sub_unmute(conference_member_t *member, 
                                           switch_stream_handle_t *stream, 
                                           void *data);
static switch_status_t conf_api_sub_deaf(conference_member_t *member, 
                                         switch_stream_handle_t *stream, 
                                         void *data);
static switch_status_t conf_api_sub_undeaf(conference_member_t *member, 
                                           switch_stream_handle_t *stream, 
                                           void *data);

/* Return a Distinct ID # */
static uint32_t next_member_id(void)
{
	uint32_t id;

	switch_mutex_lock(globals.id_mutex);
	id = ++globals.id_pool;
	switch_mutex_unlock(globals.id_mutex);

	return id;
}

/* if other_member has a relationship with member, produce it */
static conference_relationship_t *member_get_relationship(conference_member_t *member, conference_member_t *other_member)
{
	conference_relationship_t *rel = NULL;

	if (member != NULL && other_member != NULL) {
		conference_relationship_t *global = NULL;

		switch_mutex_lock(member->flag_mutex);
		switch_mutex_lock(other_member->flag_mutex);

		if (member->relationships) {
			for (rel = member->relationships; rel; rel = rel->next) {
				if (rel->id == other_member->id) {
					break;
				}

				/* 0 matches everyone.
				   (We will still test the others brcause a real match carries more clout) */

				if (rel->id == 0) { 
					global = rel;
				}
			}
		}

		switch_mutex_unlock(other_member->flag_mutex);
		switch_mutex_unlock(member->flag_mutex);

		if (!rel && global) {
			rel = global;
		}
	}

	return rel;
}

/* traverse the conference member list for the specified member id and return it's pointer */
static conference_member_t *conference_member_get(conference_obj_t *conference, uint32_t id)
{
	conference_member_t *member = NULL;

    assert(conference != NULL);
    assert(id != 0);

    switch_mutex_lock(conference->member_mutex);
    for(member = conference->members; member; member = member->next) {
        
        if (switch_test_flag(member, MFLAG_NOCHANNEL)) {
            continue;
        }
        
        if (member->id == id) {
            break;
        }
    }

    if (member && !switch_test_flag(member, MFLAG_INTREE)) {
        member = NULL;
    }

    switch_mutex_unlock(conference->member_mutex);

	return member;
}

/* stop the specified recording */
static switch_status_t conference_record_stop(conference_obj_t *conference, char *path)
{
	conference_member_t *member = NULL;
	int count = 0;

	assert (conference != NULL);
    switch_mutex_lock(conference->member_mutex);
    for(member = conference->members; member; member = member->next) {
        if (switch_test_flag(member, MFLAG_NOCHANNEL) && (!path || !strcmp(path, member->rec_path))) {
            switch_clear_flag_locked(member, MFLAG_RUNNING);
            count++;
        }
    }
    switch_mutex_unlock(conference->member_mutex);
	return count;
}

/* Add a custom relationship to a member */
static conference_relationship_t *member_add_relationship(conference_member_t *member, uint32_t id)
{
	conference_relationship_t *rel = NULL;

	if (member != NULL && id != 0 && (rel = switch_core_alloc(member->pool, sizeof(*rel)))) {
		rel->id = id;

		switch_mutex_lock(member->flag_mutex);
		rel->next = member->relationships;
		member->relationships = rel;
		switch_mutex_unlock(member->flag_mutex);
	}

	return rel;
}

/* Remove a custom relationship from a member */
static switch_status_t member_del_relationship(conference_member_t *member, uint32_t id)
{
	switch_status_t status = SWITCH_STATUS_FALSE;
	conference_relationship_t *rel, *last = NULL;

	if (member != NULL && id != 0) {
		switch_mutex_lock(member->flag_mutex);
		for (rel = member->relationships; rel; rel = rel->next) {
			if (rel->id == id) {
				/* we just forget about rel here cos it was allocated by the member's pool 
				   it will be freed when the member is */
				status = SWITCH_STATUS_SUCCESS;
				if (last) {
					last->next = rel->next;
				} else {
					member->relationships = rel->next;
				}
			}
			last = rel;
		}
		switch_mutex_unlock(member->flag_mutex);
	}

	return status;
}

/* Gain exclusive access and add the member to the list */
static switch_status_t conference_add_member(conference_obj_t *conference, conference_member_t *member)
{
	switch_status_t status = SWITCH_STATUS_FALSE;
    switch_event_t *event;

    assert(conference != NULL);
    assert(member != NULL);

    switch_mutex_lock(conference->mutex);
    switch_mutex_lock(member->audio_in_mutex);
    switch_mutex_lock(member->audio_out_mutex);
    switch_mutex_lock(member->flag_mutex);
    
    switch_mutex_lock(conference->member_mutex);
    member->conference = conference;
    member->next = conference->members;
    member->energy_level = conference->energy_level;
    conference->members = member;
    switch_set_flag(member, MFLAG_INTREE);
    switch_mutex_unlock(conference->member_mutex);

    if (!switch_test_flag(member, MFLAG_NOCHANNEL)) {
        conference->count++;
        if (switch_event_create(&event, SWITCH_EVENT_PRESENCE_IN) == SWITCH_STATUS_SUCCESS) {
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s@%s", conference->name, conference->domain);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "Active (%d caller%s)", conference->count, conference->count == 1 ? "" : "s");
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence");
            switch_event_fire(&event);
        }


        if (conference->enter_sound) {
            conference_play_file(conference, conference->enter_sound, CONF_DEFAULT_LEADIN, switch_core_session_get_channel(member->session));
        }

        if (conference->count == 1 && conference->alone_sound) {
            conference_play_file(conference, conference->alone_sound, 0, switch_core_session_get_channel(member->session));
        }

        if (conference->min && conference->count >= conference->min) {
            switch_set_flag(conference, CFLAG_ENFORCE_MIN);	
        }

        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "add-member");
            switch_event_fire(&event);
        }
    }
    switch_mutex_unlock(member->flag_mutex);
    switch_mutex_unlock(member->audio_out_mutex);
    switch_mutex_unlock(member->audio_in_mutex);

    switch_mutex_unlock(conference->mutex);
    status = SWITCH_STATUS_SUCCESS;
	

	return status;
}

/* Gain exclusive access and remove the member from the list */
static switch_status_t conference_del_member(conference_obj_t *conference, conference_member_t *member)
{
	switch_status_t status = SWITCH_STATUS_FALSE;
    conference_member_t *imember, *last = NULL;
    switch_event_t *event;

    assert(conference != NULL);
    assert(member != NULL);
    
    switch_mutex_lock(conference->mutex);
    switch_mutex_lock(conference->member_mutex);
    switch_mutex_lock(member->audio_in_mutex);
    switch_mutex_lock(member->audio_out_mutex);
    switch_mutex_lock(member->flag_mutex);
    switch_clear_flag(member, MFLAG_INTREE);
    
    for (imember = conference->members; imember; imember = imember->next) {
        if (imember == member ) {
            if (last) {
                last->next = imember->next;
            } else {
                conference->members = imember->next;
            }
            break;
        }
        last = imember;
    }

    /* Close Unused Handles */
    if (member->fnode) {
        conference_file_node_t *fnode, *cur;
        switch_memory_pool_t *pool;

        fnode = member->fnode;
        while(fnode) {
            cur = fnode;
            fnode = fnode->next;

            if (cur->type == NODE_TYPE_SPEECH) {
                switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE;
                switch_core_speech_close(&cur->sh, &flags);
            } else {
                switch_core_file_close(&cur->fh);
            }

            pool = cur->pool;
            switch_core_destroy_memory_pool(&pool);
        }
    }

    member->conference = NULL;

    if (!switch_test_flag(member, MFLAG_NOCHANNEL)) {
        conference->count--;
        if (switch_event_create(&event, SWITCH_EVENT_PRESENCE_IN) == SWITCH_STATUS_SUCCESS) {
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s@%s", conference->name, conference->domain);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "Active (%d caller%s)", conference->count, conference->count == 1 ? "" : "s");
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence");
            switch_event_fire(&event);
        }

        if ((conference->min && switch_test_flag(conference, CFLAG_ENFORCE_MIN) && conference->count < conference->min) 
            || (switch_test_flag(conference, CFLAG_DYNAMIC) && conference->count == 0) ) {
            switch_set_flag(conference, CFLAG_DESTRUCT);
        } else { 
            if (conference->exit_sound) {
                conference_play_file(conference, conference->exit_sound, 0, switch_core_session_get_channel(member->session));
            }
            if (conference->count == 1 && conference->alone_sound) {
                conference_play_file(conference, conference->alone_sound, 0, switch_core_session_get_channel(member->session));
            } 
        }

        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "del-member");
            switch_event_fire(&event);
        }
    }
    switch_mutex_unlock(conference->member_mutex);
    switch_mutex_unlock(member->flag_mutex);
    switch_mutex_unlock(member->audio_out_mutex);
    switch_mutex_unlock(member->audio_in_mutex);
    switch_mutex_unlock(conference->mutex);
    status = SWITCH_STATUS_SUCCESS;
	

	return status;
}

/* Main monitor thread (1 per distinct conference room) */
static void *SWITCH_THREAD_FUNC conference_thread_run(switch_thread_t *thread, void *obj)
{
	conference_obj_t *conference = (conference_obj_t *) obj;
	conference_member_t *imember, *omember;
	uint32_t divider = 1000 / conference->interval;
	uint32_t samples = (conference->rate / divider);
	uint32_t bytes = samples * 2;
	uint8_t ready = 0;
	switch_timer_t timer = {0};
	switch_event_t *event;

	if (switch_core_timer_init(&timer, conference->timer_name, conference->interval, samples, conference->pool) == SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "setup timer success interval: %u  samples: %u\n", conference->interval, samples);	
	} else {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Timer Setup Failed.  Conference Cannot Start\n");	
		return NULL;
	}

	switch_mutex_lock(globals.hash_mutex);
	globals.threads++;
	switch_mutex_unlock(globals.hash_mutex);

	while(globals.running && !switch_test_flag(conference, CFLAG_DESTRUCT)) {
		uint8_t file_frame[CONF_BUFFER_SIZE] = {0};
		switch_size_t file_sample_len = samples;
		switch_size_t file_data_len = samples * 2;

		/* Sync the conference to a single timing source */
		switch_core_timer_next(&timer);
		switch_mutex_lock(conference->mutex);
		ready = 0;

		/* Read one frame of audio from each member channel and save it for redistribution */
		for (imember = conference->members; imember; imember = imember->next) {
			if (imember->buflen) {
				memset(imember->frame, 255, imember->buflen);
			} else {
				imember->frame = switch_core_alloc(imember->pool, bytes);
				imember->mux_frame = switch_core_alloc(imember->pool, bytes);
				imember->buflen = bytes;
			}

			switch_mutex_lock(imember->audio_in_mutex);
			/* if there is audio in the resample buffer it takes precedence over the other data */
			if (imember->mux_resampler && switch_buffer_inuse(imember->resample_buffer) >= bytes) {
				imember->read = (uint32_t)switch_buffer_read(imember->resample_buffer, imember->frame, bytes);
				ready++;
			} else if ((imember->read = (uint32_t)switch_buffer_read(imember->audio_buffer, imember->frame, imember->buflen))) {
				/* If the caller is not at the right sample rate resample him to suit and buffer accordingly */
				if (imember->mux_resampler) {
					int16_t *bptr = (int16_t *) imember->frame;
					int16_t out[1024];
					int len = (int) imember->read;

					imember->mux_resampler->from_len = switch_short_to_float(bptr, imember->mux_resampler->from, (int) len / 2);
					imember->mux_resampler->to_len = switch_resample_process(imember->mux_resampler, imember->mux_resampler->from, 
                                                                             imember->mux_resampler->from_len, imember->mux_resampler->to, 
                                                                             imember->mux_resampler->to_size, 0);
					switch_float_to_short(imember->mux_resampler->to, out, len);
					len = imember->mux_resampler->to_len * 2;
					switch_buffer_write(imember->resample_buffer, out, len);
					if (switch_buffer_inuse(imember->resample_buffer) >= bytes) {
						imember->read = (uint32_t)switch_buffer_read(imember->resample_buffer, imember->frame, bytes);
						ready++;
					}
				} else {
					ready++; /* Tally of how many channels had data */
				}
			}
			switch_mutex_unlock(imember->audio_in_mutex);
		}
		/* If a file or speech event is being played */
		if (conference->fnode) {
			/* Lead in time */
			if (conference->fnode->leadin) {
				conference->fnode->leadin--;
			} else {
				ready++;
				if (conference->fnode->type == NODE_TYPE_SPEECH) {
					switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_BLOCKING;
					uint32_t rate = conference->rate;

					if (switch_core_speech_read_tts(&conference->fnode->sh, 
													file_frame, 
													&file_data_len, 
													&rate, 
													&flags) == SWITCH_STATUS_SUCCESS) {
						file_sample_len = file_data_len / 2;
					} else {
						file_sample_len = file_data_len  = 0;
					}
				} else if (conference->fnode->type == NODE_TYPE_FILE) {
					switch_core_file_read(&conference->fnode->fh, file_frame, &file_sample_len);
				}

				if (file_sample_len <= 0) {
					conference->fnode->done++;
				}
			}
		}

		if (ready) {
			/* Build a muxed frame for every member that contains the mixed audio of everyone else */
			for (omember = conference->members; omember; omember = omember->next) {
				omember->len = bytes;
				if (conference->fnode) {
					memcpy(omember->mux_frame, file_frame, file_sample_len * 2);
				} else {
					memset(omember->mux_frame, 255, bytes);
				}
				for (imember = conference->members; imember; imember = imember->next) {

					if (imember == omember) {
						/* Don't add audio from yourself */
						continue;
					}

					if (imember->read) { /* mux the frame with the collective */
						uint32_t x;
						int16_t *bptr, *muxed;

						/* If they are not supposed to talk to us then don't let them */
						if (omember->relationships) {
							conference_relationship_t *rel;

							if ((rel = member_get_relationship(omember, imember))) {
								if (! switch_test_flag(rel, RFLAG_CAN_HEAR)) {
									continue;
								}
							}
						}

						/* If we are not supposed to hear them then don't let it happen */
						if (imember->relationships) {
							conference_relationship_t *rel;

							if ((rel = member_get_relationship(imember, omember))) {
								if (! switch_test_flag(rel, RFLAG_CAN_SPEAK)) {
									continue;
								}
							}
						}

						if (imember->read > imember->len) {
							imember->len = imember->read;
						}

						bptr = (int16_t *) imember->frame;
						muxed = (int16_t *) omember->mux_frame;


						for (x = 0; x < imember->read / 2; x++) {
							int32_t z = muxed[x] + bptr[x];
							switch_normalize_to_16bit(z);
							muxed[x] = (int16_t)z;
						}

						ready++;
					}
				}
			}

			/* Go back and write each member his dedicated copy of the audio frame that does not contain his own audio. */
			for (imember = conference->members; imember; imember = imember->next) {
				switch_mutex_lock(imember->audio_out_mutex);
				switch_buffer_write(imember->mux_buffer, imember->mux_frame, imember->len);
				switch_mutex_unlock(imember->audio_out_mutex);
			}
		}

		if (conference->fnode && conference->fnode->done) {
			conference_file_node_t *fnode;
			switch_memory_pool_t *pool;

			if (conference->fnode->type == NODE_TYPE_SPEECH) {
				switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE;
				switch_core_speech_close(&conference->fnode->sh, &flags);
			} else {
				switch_core_file_close(&conference->fnode->fh);
			}

			fnode = conference->fnode;
			conference->fnode = conference->fnode->next;

			pool = fnode->pool;
			fnode = NULL;
			switch_core_destroy_memory_pool(&pool);

		}

		switch_mutex_unlock(conference->mutex);
	} /* Rinse ... Repeat */

	if (switch_event_create(&event, SWITCH_EVENT_PRESENCE_IN) == SWITCH_STATUS_SUCCESS) {
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO);
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", conference->name);
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s@%s", conference->name, conference->domain);
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "Inactive");
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "rpid", "idle");
		switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence");

		switch_event_fire(&event);
	}

	switch_core_timer_destroy(&timer);
    
	if (switch_test_flag(conference, CFLAG_DESTRUCT)) {

		switch_mutex_lock(conference->mutex);

		/* Close Unused Handles */ 
		if (conference->fnode) {
			conference_file_node_t *fnode, *cur; 
			switch_memory_pool_t *pool; 

			fnode = conference->fnode; 
			while (fnode) { 
				cur = fnode; 
				fnode = fnode->next; 

				if (cur->type == NODE_TYPE_SPEECH) { 
					switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE; 
					switch_core_speech_close(&cur->sh, &flags); 
				} else { 
					switch_core_file_close(&cur->fh); 
				} 

				pool = cur->pool; 
				switch_core_destroy_memory_pool(&pool); 
			} 
			conference->fnode = NULL; 
		} 

        switch_mutex_lock(conference->member_mutex);
		for(imember = conference->members; imember; imember = imember->next) {
			switch_channel_t *channel;

			if (!switch_test_flag(imember, MFLAG_NOCHANNEL)) {
				channel = switch_core_session_get_channel(imember->session);

				/* add this little bit to preserve the bridge cause code in case of an early media call that */
				/* never answers */
				if (switch_test_flag(conference, CFLAG_ANSWERED)) {
					switch_channel_hangup(channel, SWITCH_CAUSE_NORMAL_CLEARING);	
				} else 	{
					/* put actual cause code from outbound channel hangup here */
					switch_channel_hangup(channel, conference->bridge_hangup_cause);
				}
			}

			switch_clear_flag_locked(imember, MFLAG_RUNNING);
		}
        switch_mutex_unlock(conference->member_mutex);

		switch_mutex_unlock(conference->mutex);

		switch_mutex_lock(globals.hash_mutex);		
		switch_core_hash_delete(globals.conference_hash, conference->name);
		switch_mutex_unlock(globals.hash_mutex);

		/* Wait till everybody is out */
		switch_clear_flag_locked(conference, CFLAG_RUNNING);
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Write Lock ON\n");
		switch_thread_rwlock_wrlock(conference->rwlock);
		switch_thread_rwlock_unlock(conference->rwlock);
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Write Lock OFF\n");

		switch_ivr_digit_stream_parser_destroy(conference->dtmf_parser);

		if (conference->pool) {
			switch_memory_pool_t *pool = conference->pool;
			switch_core_destroy_memory_pool(&pool);
		}
	}

	switch_mutex_lock(globals.hash_mutex);
	globals.threads--;	
	switch_mutex_unlock(globals.hash_mutex);

	return NULL;
}

static void conference_loop_fn_mute_toggle(conference_member_t *member, void *data)
{
	if (member != NULL) {
		if (switch_test_flag(member, MFLAG_CAN_SPEAK)) {
			conf_api_sub_mute(member, NULL, NULL);
		} else {
			conf_api_sub_unmute(member, NULL, NULL);
            if (!switch_test_flag(member, MFLAG_CAN_HEAR)) {
                conf_api_sub_undeaf(member, NULL, NULL);
            }
		}
	}
}

static void conference_loop_fn_deafmute_toggle(conference_member_t *member, void *data)
{
	if (member != NULL) {
		if (switch_test_flag(member, MFLAG_CAN_SPEAK)) {
			conf_api_sub_mute(member, NULL, NULL);
            if (switch_test_flag(member, MFLAG_CAN_HEAR)) {
                conf_api_sub_deaf(member, NULL, NULL);
            }
		} else {
			conf_api_sub_unmute(member, NULL, NULL);
            if (!switch_test_flag(member, MFLAG_CAN_HEAR)) {
                conf_api_sub_undeaf(member, NULL, NULL);
            }
		}
	}
}

static void conference_loop_fn_energy_up(conference_member_t *member, void *data)
{
	if (member != NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->energy_level += 200;
		if (member->energy_level > 3000) {
			member->energy_level = 3000;
		}
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Energy level %d", member->energy_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "energy-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->energy_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_energy_equ_conf(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->energy_level = member->conference->energy_level;
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Energy level %d", member->energy_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "energy-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->energy_level);
			switch_event_fire(&event);
		}
	}
}
					
static void conference_loop_fn_energy_dn(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->energy_level -= 100;
		if (member->energy_level < 0) {
			member->energy_level = 0;
		}
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Energy level %d", member->energy_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "energy-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->energy_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_talk_up(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_out_level++;
		switch_normalize_volume(member->volume_out_level);
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Volume level %d", member->volume_out_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "volume-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_out_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_talk_zero(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_out_level = 0;
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Volume level %d", member->volume_out_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "volume-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_out_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_talk_dn(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_out_level--;
		switch_normalize_volume(member->volume_out_level);
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Volume level %d", member->volume_out_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "volume-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_out_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_listen_up(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_in_level++;
		switch_normalize_volume(member->volume_in_level);
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Gain level %d", member->volume_in_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "gain-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_in_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_listen_zero(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_in_level = 0;
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Gain level %d", member->volume_in_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "gain-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_in_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_volume_listen_dn(conference_member_t *member, void *data)
{
	if (member!= NULL) {
		char msg[512];
		switch_event_t *event;

		switch_mutex_lock(member->flag_mutex);
		member->volume_in_level--;
		switch_normalize_volume(member->volume_in_level);
		switch_mutex_unlock(member->flag_mutex);

		snprintf(msg, sizeof(msg), "Gain level %d", member->volume_in_level);
		conference_member_say(member, msg, 0);

		if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
			switch_channel_t *channel = switch_core_session_get_channel(member->session);

			switch_channel_event_set_data(channel, event);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "gain-level");
			switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Level", "%d", member->volume_in_level);
			switch_event_fire(&event);
		}
	}
}

static void conference_loop_fn_hangup(conference_member_t *member, void *data)
{
	switch_clear_flag_locked(member, MFLAG_RUNNING);
}

#ifdef OPTION_IVR_MENU_SUPPORT
typedef struct caller_control_menu_ctx {
	switch_ivr_menu_xml_ctx_t *xml_ctx;
	switch_ivr_menu_t *menu_stack;
	char *name;
} caller_control_menu_ctx_t;

static void conference_loop_fn_menu(conference_member_t *member, void *data)
{
	if (member != NULL && data != NULL) {
		caller_control_menu_ctx_t *menu_ctx = (caller_control_menu_ctx_t *)data;

		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "conference_loop_fn_menu handler '%s'\n", menu_ctx->name);
		if (menu_ctx->menu_stack != NULL && menu_ctx->xml_ctx != NULL) {
			switch_ivr_menu_execute(member->session, menu_ctx->menu_stack, menu_ctx->name, member);
		} else {
			if (menu_ctx->menu_stack == NULL)
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "conference_loop_fn_menu handler NULL menu_stack\n");
			if (menu_ctx->xml_ctx == NULL)
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "conference_loop_fn_menu handler NULL xml_ctx\n");
		}
	}
}
#endif

static void conference_loop_fn_dial(conference_member_t *member, void *data)
{
	if (member != NULL && data != NULL) {
		char *lbuf = strdup(data);
		char *argv[4];
		int argc = 0;

		if (lbuf != NULL) {
			memset(argv, 0, sizeof(argv));
			argc = switch_separate_string(lbuf, ' ', argv, (sizeof(argv) / sizeof(argv[0])));
			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "dial argc %u 1 '%s' 2 '%s' 3 '%s' 4 '%s'\n", 
                              argc, argv[0], argv[1], argv[2], argv[3]);
			if (argc >= 4) {
                switch_call_cause_t cause;
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "executing conference outcall\n");
				conference_outcall(member->conference, NULL, argv[0], atoi(argv[1]), NULL, argv[3], argv[2], &cause);
			} else {
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "conference outcall not executed\n");
			}

			free(lbuf);
		}
	}
}


/* marshall frames from the call leg to the conference thread for muxing to other call legs */
static void *SWITCH_THREAD_FUNC conference_loop_input(switch_thread_t *thread, void *obj)
{
	conference_member_t *member = obj;
	switch_channel_t *channel;
	switch_status_t status;
	switch_frame_t *read_frame = NULL;
	switch_codec_t *read_codec;
	uint32_t hangover = 40, 
		hangunder = 15, 
		hangover_hits = 0, 
		hangunder_hits = 0, 
		energy_level = 0, 
		diff_level = 400;
	uint8_t talking = 0;

	assert(member != NULL);

	channel = switch_core_session_get_channel(member->session);
	assert(channel != NULL);

	read_codec = switch_core_session_get_read_codec(member->session);
	assert(read_codec != NULL);

	/* As long as we have a valid read, feed that data into an input buffer where the conference thread will take it 
	   and mux it with any audio from other channels. */

	while(switch_test_flag(member, MFLAG_RUNNING) && switch_channel_ready(channel)) {
		/* Read a frame. */
		status = switch_core_session_read_frame(member->session, &read_frame, -1, 0);

		/* end the loop, if appropriate */
		if (!SWITCH_READ_ACCEPTABLE(status) || !switch_test_flag(member, MFLAG_RUNNING)) {
			break;
		}

		if (switch_test_flag(read_frame, SFF_CNG)) {
			continue;
		}

		energy_level = member->energy_level;

		/* if the member can speak, compute the audio energy level and */
		/* generate events when the level crosses the threshold        */
		if (switch_test_flag(member, MFLAG_CAN_SPEAK) && energy_level) {
			uint32_t energy = 0, i = 0, samples = 0, j = 0, score = 0;
			int16_t *data;

			data = read_frame->data;
			if ((samples = read_frame->datalen / sizeof(*data))) {

				for (i = 0; i < samples; i++) {
					energy += abs(data[j]);
					j += read_codec->implementation->number_of_channels;
				}
				score = energy / samples;
			}

			if (score > energy_level) {
				uint32_t diff = score - energy_level;
				if (hangover_hits) {
					hangover_hits--;
				}

				if (diff >= diff_level || ++hangunder_hits >= hangunder) {
					hangover_hits = hangunder_hits = 0;

					if (!talking) {
						switch_event_t *event;
						talking = 1;		
						if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
							switch_channel_event_set_data(channel, event);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "start-talking");
							switch_event_fire(&event);
						}
					}
				} 
			} else {
				if (hangunder_hits) {
					hangunder_hits--;
				}
				if (talking) {
					switch_event_t *event;
					if (++hangover_hits >= hangover) {
						hangover_hits = hangunder_hits = 0;
						talking = 0;

						if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
							switch_channel_event_set_data(channel, event);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
							switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "stop-talking");
							switch_event_fire(&event);
						}					
					}
				}
			}
		}

		/* skip frames that are not actual media or when we are muted or silent */
		if ((talking || energy_level == 0) && switch_test_flag(member, MFLAG_CAN_SPEAK)) {
			if (member->read_resampler) {
				int16_t *bptr = (int16_t *) read_frame->data;
				int len = (int) read_frame->datalen;;

				member->read_resampler->from_len = switch_short_to_float(bptr, member->read_resampler->from, (int) len / 2);
				member->read_resampler->to_len = switch_resample_process(member->read_resampler, member->read_resampler->from, 
																		 member->read_resampler->from_len, member->read_resampler->to, 
																		 member->read_resampler->to_size, 0);
				switch_float_to_short(member->read_resampler->to, read_frame->data, len);
				len = member->read_resampler->to_len * 2;
				read_frame->datalen = len;
				read_frame->samples = len / 2;
			}
			/* Check for input volume adjustments */
			if (member->volume_in_level) {
				switch_change_sln_volume(read_frame->data, read_frame->datalen / 2, member->volume_in_level);
			}

			/* Write the audio into the input buffer */
			switch_mutex_lock(member->audio_in_mutex);
			switch_buffer_write(member->audio_buffer, read_frame->data, read_frame->datalen);
			switch_mutex_unlock(member->audio_in_mutex);
		}
	}

	switch_clear_flag_locked(member, MFLAG_ITHREAD);

	return NULL;
}

/* launch an input thread for the call leg */
static void launch_conference_loop_input(conference_member_t *member, switch_memory_pool_t *pool)
{
	if (member != NULL) {
		switch_thread_t *thread;
		switch_threadattr_t *thd_attr = NULL;

		switch_threadattr_create(&thd_attr, pool);
		switch_threadattr_detach_set(thd_attr, 1);
		switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
		switch_set_flag_locked(member, MFLAG_ITHREAD);
		switch_thread_create(&thread, thd_attr, conference_loop_input, member, pool);
	}
}

static caller_control_fn_table_t ccfntbl[] = {
	{"mute", 		"0", 	CALLER_CONTROL_MUTE, 		conference_loop_fn_mute_toggle}, 
	{"deaf mute", 		"*", 	CALLER_CONTROL_DEAF_MUTE, 	conference_loop_fn_deafmute_toggle}, 
	{"energy up", 		"9", 	CALLER_CONTROL_ENERGY_UP, 	conference_loop_fn_energy_up}, 
	{"energy equ", 		"8", 	CALLER_CONTROL_ENERGY_EQU_CONF, 	conference_loop_fn_energy_equ_conf}, 
	{"energy dn", 		"7", 	CALLER_CONTROL_ENERGEY_DN, 	conference_loop_fn_energy_dn}, 
	{"vol talk up", 		"3", 	CALLER_CONTROL_VOL_TALK_UP, 	conference_loop_fn_volume_talk_up}, 
	{"vol talk zero", 	"2", 	CALLER_CONTROL_VOL_TALK_ZERO, 	conference_loop_fn_volume_talk_zero}, 
	{"vol talk dn", 		"1", 	CALLER_CONTROL_VOL_TALK_DN, 	conference_loop_fn_volume_talk_dn}, 
	{"vol listen up", 	"6", 	CALLER_CONTROL_VOL_LISTEN_UP, 	conference_loop_fn_volume_listen_up}, 
	{"vol listen zero", 	"5", 	CALLER_CONTROL_VOL_LISTEN_ZERO, 	conference_loop_fn_volume_listen_zero}, 
	{"vol listen dn", 	"4", 	CALLER_CONTROL_VOL_LISTEN_DN, 	conference_loop_fn_volume_listen_dn}, 
	{"hangup", 		"#", 	CALLER_CONTROL_HANGUP, 		conference_loop_fn_hangup}, 
#ifdef OPTION_IVR_MENU_SUPPORT
	{"menu", 		NULL, 	CALLER_CONTROL_MENU, 		conference_loop_fn_menu}, 
#endif
	{"dial", 		NULL, 	CALLER_CONTROL_DIAL, 		conference_loop_fn_dial}, 
};
#define CCFNTBL_QTY (sizeof(ccfntbl)/sizeof(ccfntbl[0]))

/* marshall frames from the conference (or file or tts output) to the call leg */
/* NB. this starts the input thread after some initial setup for the call leg */
static void conference_loop_output(conference_member_t *member)
{
	switch_channel_t *channel;
	switch_frame_t write_frame = {0};
	uint8_t data[SWITCH_RECCOMMENDED_BUFFER_SIZE];
	switch_timer_t timer = {0};
	uint32_t divider = 1000 / member->conference->interval;
	uint32_t samples = (member->conference->rate / divider);
	uint32_t bytes = samples * 2;

	channel = switch_core_session_get_channel(member->session);

	assert(channel != NULL);
	assert(member->conference != NULL);

	if (switch_core_timer_init(&timer, 
							   member->conference->timer_name, 
							   member->conference->interval, 
							   samples, 
							   NULL) == SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "setup timer %s success interval: %u  samples: %u\n", 
						  member->conference->timer_name, member->conference->interval, samples);	
	} else {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Timer Setup Failed.  Conference Cannot Start\n");	
		return;
	}

	write_frame.data = data;
	write_frame.buflen = sizeof(data);
	write_frame.codec = &member->write_codec;

	if (switch_test_flag(member->conference, CFLAG_ANSWERED)) {
		switch_channel_answer(channel);
	}

	/* Start the input thread */
	launch_conference_loop_input(member, switch_core_session_get_pool(member->session));

	/* build a digit stream object */
	if (member->conference->dtmf_parser != NULL && 
        switch_ivr_digit_stream_new(member->conference->dtmf_parser, &member->digit_stream) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Warning Will Robinson, there is no digit parser stream object\n");
	}

	/* Fair WARNING, If you expect the caller to hear anything or for digit handling to be proccessed, 		*/
	/* you better not block this thread loop for more than the duration of member->conference->timer_name!	*/
	while(switch_test_flag(member, MFLAG_RUNNING) && switch_test_flag(member, MFLAG_ITHREAD) && switch_channel_ready(channel)) {
		char dtmf[128] = "";
		uint8_t file_frame[CONF_BUFFER_SIZE] = {0};
		switch_size_t file_data_len = samples * 2;
		switch_size_t file_sample_len = samples;
		char *digit;
		switch_event_t *event;
		caller_control_action_t *caller_action = NULL;

		if (switch_core_session_dequeue_event(member->session, &event) == SWITCH_STATUS_SUCCESS) {
			char *from = switch_event_get_header(event, "from");
			char *to = switch_event_get_header(event, "to");
			char *proto = switch_event_get_header(event, "proto");
			char *subject = switch_event_get_header(event, "subject");
			char *hint = switch_event_get_header(event, "hint");
			char *body = switch_event_get_body(event);
			char *p, *freeme = NULL;

			if ((p = strchr(to, '+')) && 
				strncmp(to, CONF_CHAT_PROTO, strlen(CONF_CHAT_PROTO))) {
				freeme = switch_mprintf("%s+%s@%s", CONF_CHAT_PROTO, member->conference->name, member->conference->domain);
				to = freeme;
			}

			chat_send(proto, from, to, subject, body, hint);
			switch_safe_free(freeme);
			switch_event_destroy(&event);
		}

		if (switch_channel_test_flag(channel, CF_OUTBOUND)) {
			/* test to see if outbound channel has answered */
			if (switch_channel_test_flag(channel, CF_ANSWERED) && !switch_test_flag(member->conference, CFLAG_ANSWERED)) {
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Outbound conference channel answered, setting CFLAG_ANSWERED\n");
				switch_set_flag(member->conference, CFLAG_ANSWERED);
			}
		} else {
			if (switch_test_flag(member->conference, CFLAG_ANSWERED) && !switch_channel_test_flag(channel, CF_ANSWERED)) {
				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "CLFAG_ANSWERED set, answering inbound channel\n");
				switch_channel_answer(channel);
			}
		}

		/* if we have caller digits, feed them to the parser to find an action */
		if (switch_channel_has_dtmf(channel)) {
			switch_channel_dequeue_dtmf(channel, dtmf, sizeof(dtmf));

			if (member->conference->dtmf_parser != NULL) {

				for (digit = dtmf; *digit && caller_action == NULL; digit++) {
					caller_action = (caller_control_action_t *)switch_ivr_digit_stream_parser_feed(member->conference->dtmf_parser, member->digit_stream, *digit);
				}
			}
            /* otherwise, clock the parser so that it can handle digit timeout detection */
		} else if (member->conference->dtmf_parser != NULL) {
			caller_action = (caller_control_action_t *)switch_ivr_digit_stream_parser_feed(member->conference->dtmf_parser, member->digit_stream, '\0');
		}

		/* if a caller action has been detected, handle it */
		if (caller_action != NULL && caller_action->fndesc != NULL && caller_action->fndesc->handler != NULL) {
			switch_channel_t *channel		 = switch_core_session_get_channel(member->session);
			switch_caller_profile_t *profile	 = switch_channel_get_caller_profile(channel);
            char *param = NULL;

            if (caller_action->fndesc->action != CALLER_CONTROL_MENU) {
                param = caller_action->data;
            }

			switch_log_printf(SWITCH_CHANNEL_LOG, 
                              SWITCH_LOG_INFO, 
                              "executing caller control '%s' param '%s' on call '%u, %s, %s, %s'\n", 
                              caller_action->fndesc->key, 
                              param ? param : "none", 
                              member->id, 
                              switch_channel_get_name(channel), 
                              profile->caller_id_name, 
                              profile->caller_id_number
                              );
			caller_action->fndesc->handler(member, caller_action->data);

			/* set up for next pass */
			caller_action = NULL;
		}

		/* handle file and TTS frames */
		if (member->fnode) {
			/* if we are done, clean it up */
			if (member->fnode->done) {
				conference_file_node_t *fnode;
				switch_memory_pool_t *pool;

				if (member->fnode->type == NODE_TYPE_SPEECH) {
					switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE;
					switch_core_speech_close(&member->fnode->sh, &flags);
				} else {
					switch_core_file_close(&member->fnode->fh);
				}

				switch_mutex_lock(member->flag_mutex);
				fnode = member->fnode;
				member->fnode = member->fnode->next;
				switch_mutex_unlock(member->flag_mutex);

				pool = fnode->pool;
				fnode = NULL;
				switch_core_destroy_memory_pool(&pool);

			} else {
				/* skip this frame until leadin time has expired */
				if (member->fnode->leadin) {
					member->fnode->leadin--;
				} else {	/* send the node frame instead of the conference frame to the call leg */
					if (member->fnode->type == NODE_TYPE_SPEECH) {
						switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_BLOCKING;
						uint32_t rate = member->conference->rate;

						if (switch_core_speech_read_tts(&member->fnode->sh, 
														file_frame, 
														&file_data_len, 
														&rate, 
														&flags) == SWITCH_STATUS_SUCCESS) {
							file_sample_len = file_data_len / 2;
						} else {
							file_sample_len = file_data_len  = 0;
						}
					} else if (member->fnode->type == NODE_TYPE_FILE) {
						switch_core_file_read(&member->fnode->fh, file_frame, &file_sample_len);
						file_data_len = file_sample_len * 2;
					}

					if (file_sample_len <= 0) {
						member->fnode->done++;
					} else { /* there is file node data to deliver */
						write_frame.data = file_frame;
						write_frame.datalen = (uint32_t)file_data_len;
						write_frame.samples = (uint32_t)file_sample_len;
						/* Check for output volume adjustments */
						if (member->volume_out_level) {
							switch_change_sln_volume(write_frame.data, write_frame.samples, member->volume_out_level);
						}
						switch_core_session_write_frame(member->session, &write_frame, -1, 0);

						/* forget the conference data we played file node data instead */
						switch_mutex_lock(member->audio_out_mutex);
						switch_buffer_zero(member->mux_buffer);
						switch_mutex_unlock(member->audio_out_mutex);
					}
				}
			}
		} else {	/* send the conferecne frame to the call leg */
			switch_buffer_t *use_buffer = NULL;
			uint32_t mux_used = (uint32_t)switch_buffer_inuse(member->mux_buffer);

			if (mux_used) {
				/* Flush the output buffer and write all the data (presumably muxed) back to the channel */
				switch_mutex_lock(member->audio_out_mutex);
				write_frame.data = data;
				use_buffer = member->mux_buffer;

				if ((write_frame.datalen = (uint32_t)switch_buffer_read(use_buffer, write_frame.data, bytes))) {
					if (write_frame.datalen && switch_test_flag(member, MFLAG_CAN_HEAR)) {
						write_frame.samples = write_frame.datalen / 2;

						/* Check for output volume adjustments */
						if (member->volume_out_level) {
							switch_change_sln_volume(write_frame.data, write_frame.samples, member->volume_out_level);
						}
						switch_core_session_write_frame(member->session, &write_frame, -1, 0);
					}
				}

				switch_mutex_unlock(member->audio_out_mutex);
				continue;
			}
		}

		switch_core_timer_next(&timer);
	} /* Rinse ... Repeat */

	if (member->digit_stream != NULL) {
		switch_ivr_digit_stream_destroy(member->digit_stream);
	}

	switch_clear_flag_locked(member, MFLAG_RUNNING);
	switch_core_timer_destroy(&timer);

	switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Channel leaving conference, cause: %s\n", 
                      switch_channel_cause2str(switch_channel_get_cause(channel)));

	/* if it's an outbound channel, store the release cause in the conference struct, we might need it */
	if (switch_channel_test_flag(channel, CF_OUTBOUND)) {
		member->conference->bridge_hangup_cause = switch_channel_get_cause(channel);
	}

	/* Wait for the input thead to end */
	while(switch_test_flag(member, MFLAG_ITHREAD)) {
		switch_yield(1000);
	}
}

/* Sub-Routine called by a record entity inside a conference */
static void *SWITCH_THREAD_FUNC conference_record_thread_run(switch_thread_t *thread, void *obj)
{
	switch_frame_t write_frame = {0};
	uint8_t data[SWITCH_RECCOMMENDED_BUFFER_SIZE];
	switch_file_handle_t fh = {0};
	conference_member_t smember = {0}, *member;
	conference_record_t *rec = (conference_record_t *) obj;
	uint32_t divider = 1000 / rec->conference->interval;
	uint32_t samples = (rec->conference->rate / divider);
	uint32_t bytes = samples * 2;
	uint32_t mux_used;
	char *vval;

	if (switch_thread_rwlock_tryrdlock(rec->conference->rwlock) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Read Lock Fail\n");
		return NULL;
	}

	switch_mutex_lock(globals.hash_mutex);
	globals.threads++;
	switch_mutex_unlock(globals.hash_mutex);		

	member = &smember;

	member->flags = MFLAG_CAN_HEAR | MFLAG_NOCHANNEL | MFLAG_RUNNING;

	write_frame.data = data;
	write_frame.buflen = sizeof(data);
	assert(rec->conference != NULL);

	member->conference = rec->conference;
	member->native_rate = rec->conference->rate;
	member->rec_path = rec->path;
	fh.channels = 1;
	fh.samplerate = rec->conference->rate;
	member->id = next_member_id();
	member->pool = rec->pool;

	switch_mutex_init(&member->flag_mutex, SWITCH_MUTEX_NESTED, rec->pool);
	switch_mutex_init(&member->audio_in_mutex, SWITCH_MUTEX_NESTED, rec->pool);
	switch_mutex_init(&member->audio_out_mutex, SWITCH_MUTEX_NESTED, rec->pool);

	/* Setup an audio buffer for the incoming audio */
	if (switch_buffer_create_dynamic(&member->audio_buffer, CONF_DBLOCK_SIZE, CONF_DBUFFER_SIZE, 0) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error Creating Audio Buffer!\n");
		goto end;
	}

	/* Setup an audio buffer for the outgoing audio */
	if (switch_buffer_create_dynamic(&member->mux_buffer, CONF_DBLOCK_SIZE, CONF_DBUFFER_SIZE, 0) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error Creating Audio Buffer!\n");
		goto end;
	}

	if (conference_add_member(rec->conference, member) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Error Joining Conference\n");
		goto end;
	}

	if (switch_core_file_open(&fh, 
							  rec->path, 
							  SWITCH_FILE_FLAG_WRITE | SWITCH_FILE_DATA_SHORT, 
							  rec->pool) != SWITCH_STATUS_SUCCESS) {
		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Error Opening File [%s]\n", rec->path);
		goto end;
	}

	if ((vval = switch_mprintf("Conference %s", rec->conference->name))) {
		switch_core_file_set_string(&fh, SWITCH_AUDIO_COL_STR_TITLE, vval);
		switch_safe_free(vval);
	}

	while(switch_test_flag(member, MFLAG_RUNNING) && switch_test_flag(rec->conference, CFLAG_RUNNING) && rec->conference->count) {
		if ((mux_used = (uint32_t) switch_buffer_inuse(member->mux_buffer)) >= bytes) {
			/* Flush the output buffer and write all the data (presumably muxed) to the file */
			switch_mutex_lock(member->audio_out_mutex);
			write_frame.data = data;
			while ((write_frame.datalen = (uint32_t)switch_buffer_read(member->mux_buffer, write_frame.data, mux_used))) {
				if (!switch_test_flag((&fh), SWITCH_FILE_PAUSE)) {
					switch_size_t len = (switch_size_t) mux_used / 2;
					switch_core_file_write(&fh, write_frame.data, &len);
				}
			}
			switch_mutex_unlock(member->audio_out_mutex);
		} else {
			switch_yield(20000);
		}
	} /* Rinse ... Repeat */

	conference_del_member(rec->conference, member);
	switch_buffer_destroy(&member->audio_buffer);
	switch_buffer_destroy(&member->mux_buffer);
	switch_clear_flag_locked(member, MFLAG_RUNNING);
	switch_core_file_close(&fh);
	switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Recording Stopped\n");

 end:

	if (rec->pool) {
		switch_memory_pool_t *pool = rec->pool;
		rec = NULL;
		switch_core_destroy_memory_pool(&pool);
	}

	switch_mutex_lock(globals.hash_mutex);
	globals.threads--;
	switch_mutex_unlock(globals.hash_mutex);

	switch_thread_rwlock_unlock(rec->conference->rwlock);
	return NULL;
}

/* Make files stop playing in a conference either the current one or all of them */
static uint32_t conference_stop_file(conference_obj_t *conference, file_stop_t stop)
{
	uint32_t count = 0;
    conference_file_node_t *nptr;

    assert(conference != NULL);

    switch_mutex_lock(conference->mutex);

    if (stop == FILE_STOP_ALL) {
        for (nptr = conference->fnode; nptr; nptr = nptr->next) {
            nptr->done++;
            count++;
        }
    } else {
        if (conference->fnode) {
            conference->fnode->done++;
            count++;
        }
    }
    
    switch_mutex_unlock(conference->mutex);	

	return count;
}

/* stop playing a file for the member of the conference */
static uint32_t conference_member_stop_file(conference_member_t *member, file_stop_t stop)
{
	uint32_t count = 0;

	if (member != NULL) {
		conference_file_node_t *nptr;

		switch_mutex_lock(member->flag_mutex);

		if (stop == FILE_STOP_ALL) {
			for (nptr = member->fnode; nptr; nptr = nptr->next) {
				nptr->done++;
				count++;
			}
		} else {
			if (member->fnode) {
				member->fnode->done++;
				count++;
			}
		}

		switch_mutex_unlock(member->flag_mutex);
	}

	return count;
}

/* Play a file in the conference room */
static switch_status_t conference_play_file(conference_obj_t *conference, char *file, uint32_t leadin, switch_channel_t *channel)
{
	switch_status_t status = SWITCH_STATUS_SUCCESS;
    conference_file_node_t *fnode, *nptr;
    switch_memory_pool_t *pool;
    uint32_t count;
    char *dfile = NULL, *expanded = NULL;

    assert(conference != NULL);

    switch_mutex_lock(conference->mutex);
    switch_mutex_lock(conference->member_mutex);
    count = conference->count;
    switch_mutex_unlock(conference->member_mutex);
    switch_mutex_unlock(conference->mutex);	

    if (!count) {
        status = SWITCH_STATUS_FALSE;
        goto done;
    }

    if (channel) {
        if ((expanded = switch_channel_expand_variables(channel, file)) != file) {
            file = expanded;
        } else {
            expanded = NULL;
        }
    }

    if (!strncasecmp(file, "say:", 4)) {
        status = conference_say(conference, file + 4, leadin);
        goto done;
    } 

    if (!switch_is_file_path(file)) {
        if (conference->sound_prefix) {
            if (!(dfile = switch_mprintf("%s/%s", conference->sound_prefix, file))) {
                goto done;
            }
            file = dfile;
        } else {
            status = conference_say(conference, file, leadin);
            goto done;  
        }
    }

    /* Setup a memory pool to use. */
    if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
        status = SWITCH_STATUS_MEMERR;
        goto done;
    }

    /* Create a node object*/
    if (!(fnode = switch_core_alloc(pool, sizeof(*fnode)))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Alloc Failure\n");
        switch_core_destroy_memory_pool(&pool);
        status = SWITCH_STATUS_MEMERR;
        goto done;
    }

    fnode->type = NODE_TYPE_FILE;
    fnode->leadin = leadin;

    /* Open the file */
    if (switch_core_file_open(&fnode->fh, 
                              file, 
                              SWITCH_FILE_FLAG_READ | SWITCH_FILE_DATA_SHORT, 
                              pool) != SWITCH_STATUS_SUCCESS) {
        switch_core_destroy_memory_pool(&pool);
        status = SWITCH_STATUS_NOTFOUND;
        goto done;
    }

    fnode->pool = pool;

    /* Queue the node */
    switch_mutex_lock(conference->mutex);
    for (nptr = conference->fnode; nptr && nptr->next; nptr = nptr->next);

    if (nptr) {
        nptr->next = fnode;
    } else {
        conference->fnode = fnode;
    }
    switch_mutex_unlock(conference->mutex);

 done:


    switch_safe_free(expanded);
    switch_safe_free(dfile);

	

    return status;
}

/* Play a file in the conference room to a member */
static switch_status_t conference_member_play_file(conference_member_t *member, char *file, uint32_t leadin)
{
    switch_status_t status = SWITCH_STATUS_FALSE;
    char *dfile = NULL, *expanded = NULL;

    if (member != NULL && file != NULL) {
        conference_file_node_t *fnode, *nptr;
        switch_memory_pool_t *pool;

        if ((expanded = switch_channel_expand_variables(switch_core_session_get_channel(member->session), file)) != file) {
            file = expanded;
        } else {
            expanded = NULL;
        }

        if (!strncasecmp(file, "say:", 4)) {
            status = conference_say(member->conference, file + 4, leadin);
            goto done;
        } 

        if (!switch_is_file_path(file)) {
            if (member->conference->sound_prefix) {
                if (!(dfile = switch_mprintf("%s/%s", member->conference->sound_prefix, file))) {
                    goto done;
                }
                file = dfile;
            } else {
                status = conference_say(member->conference, file, leadin);
                goto done;  
            }
        }

        /* Setup a memory pool to use. */
        if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
            status = SWITCH_STATUS_MEMERR;
            goto done;
        }

        /* Create a node object*/
        if (!(fnode = switch_core_alloc(pool, sizeof(*fnode)))) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Alloc Failure\n");
            switch_core_destroy_memory_pool(&pool);
            status = SWITCH_STATUS_MEMERR;
            goto done;
        }

        fnode->type = NODE_TYPE_FILE;
        fnode->leadin = leadin;

        /* Open the file */
        if (switch_core_file_open(&fnode->fh, 
                                  file, 
                                  SWITCH_FILE_FLAG_READ | SWITCH_FILE_DATA_SHORT, 
                                  pool) != SWITCH_STATUS_SUCCESS) {
            switch_core_destroy_memory_pool(&pool);
            status = SWITCH_STATUS_NOTFOUND;
            goto done;
        }

        fnode->pool = pool;

        /* Queue the node */
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "queueing file '%s' for play\n", file);
        switch_mutex_lock(member->flag_mutex);
        for (nptr = member->fnode; nptr && nptr->next; nptr = nptr->next);

        if (nptr) {
            nptr->next = fnode;
        } else {
            member->fnode = fnode;
        }
        switch_mutex_unlock(member->flag_mutex);

        status = SWITCH_STATUS_SUCCESS;
    }

 done:

    switch_safe_free(expanded);
    switch_safe_free(dfile);

    return status;
}

/* Say some thing with TTS in the conference room */
static switch_status_t conference_member_say(conference_member_t *member, char *text, uint32_t leadin)
{
    switch_status_t status = SWITCH_STATUS_FALSE;

    if (member != NULL && !switch_strlen_zero(text)) {
        conference_obj_t *conference = (member != NULL ? member->conference : NULL);
        conference_file_node_t *fnode, *nptr;
        switch_memory_pool_t *pool;
        switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE;

        assert(conference != NULL);
        
        if (!(conference->tts_engine && conference->tts_voice)) {
            return SWITCH_STATUS_SUCCESS;
        }

        /* Setup a memory pool to use. */
        if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
            return SWITCH_STATUS_MEMERR;
        }

        /* Create a node object*/
        if (!(fnode = switch_core_alloc(pool, sizeof(*fnode)))) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Alloc Failure\n");
            switch_core_destroy_memory_pool(&pool);
            return SWITCH_STATUS_MEMERR;
        }

        fnode->type = NODE_TYPE_SPEECH;
        fnode->leadin = leadin;

        memset(&fnode->sh, 0, sizeof(fnode->sh));
        if (switch_core_speech_open(&fnode->sh, 
                                    conference->tts_engine, 
                                    conference->tts_voice, 
                                    conference->rate, 
                                    &flags, 
                                    conference->pool) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Invalid TTS module [%s]!\n", conference->tts_engine);
            return SWITCH_STATUS_FALSE;
        }

        fnode->pool = pool;

        /* Queue the node */
        switch_mutex_lock(member->flag_mutex);
        for (nptr = member->fnode; nptr && nptr->next; nptr = nptr->next);

        if (nptr) {
            nptr->next = fnode;
        } else {
            member->fnode = fnode;
        }

        /* Begin Generation */
        switch_sleep(200000);
        switch_core_speech_feed_tts(&fnode->sh, text, &flags);
        switch_mutex_unlock(member->flag_mutex);

        status = SWITCH_STATUS_SUCCESS;
    }

    return status;
}

/* Say some thing with TTS in the conference room */
static switch_status_t conference_say(conference_obj_t *conference, const char *text, uint32_t leadin)
{
    switch_status_t status = SWITCH_STATUS_FALSE;
    conference_file_node_t *fnode, *nptr;
    switch_memory_pool_t *pool;
    switch_speech_flag_t flags = SWITCH_SPEECH_FLAG_NONE;
    uint32_t count;

    assert(conference != NULL);

    if (switch_strlen_zero(text)) {
        return SWITCH_STATUS_GENERR;
    }

    switch_mutex_lock(conference->mutex);
    switch_mutex_lock(conference->member_mutex);
    count = conference->count;
    if (!(conference->tts_engine && conference->tts_voice)) {
        count = 0;
    }
    switch_mutex_unlock(conference->member_mutex);
    switch_mutex_unlock(conference->mutex);	

    if (!count) {
        return SWITCH_STATUS_FALSE;
    }

    /* Setup a memory pool to use. */
    if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
        return SWITCH_STATUS_MEMERR;
    }

    /* Create a node object*/
    if (!(fnode = switch_core_alloc(pool, sizeof(*fnode)))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Alloc Failure\n");
        switch_core_destroy_memory_pool(&pool);
        return SWITCH_STATUS_MEMERR;
    }

    fnode->type = NODE_TYPE_SPEECH;
    fnode->leadin = leadin;

    memset(&fnode->sh, 0, sizeof(fnode->sh));
    if (switch_core_speech_open(&fnode->sh, 
                                conference->tts_engine, 
                                conference->tts_voice, 
                                conference->rate, 
                                &flags, 
                                conference->pool) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Invalid TTS module [%s]!\n", conference->tts_engine);
        return SWITCH_STATUS_FALSE;
    }

    fnode->pool = pool;

    /* Queue the node */
    switch_mutex_lock(conference->mutex);
    for (nptr = conference->fnode; nptr && nptr->next; nptr = nptr->next);

    if (nptr) {
        nptr->next = fnode;
    } else {
        conference->fnode = fnode;
    }

    /* Begin Generation */
    switch_sleep(200000);
    switch_core_speech_feed_tts(&fnode->sh, (char *)text, &flags);
    switch_mutex_unlock(conference->mutex);

    status = SWITCH_STATUS_SUCCESS;

    return status;
}

/* execute a callback for every member of the conference */
static void conference_member_itterator(conference_obj_t *conference, switch_stream_handle_t *stream, conf_api_member_cmd_t pfncallback, void *data)
{
    conference_member_t *member = NULL;

    assert(conference != NULL);
    assert(stream != NULL);
    assert(pfncallback != NULL);

    switch_mutex_lock(conference->member_mutex);
    for (member = conference->members; member; member = member->next) {
        pfncallback(member, stream, data);
    }
    switch_mutex_unlock(conference->member_mutex);
	
}

static void conference_list_pretty(conference_obj_t *conference, switch_stream_handle_t *stream)
{
    conference_member_t *member = NULL;

    assert(conference != NULL);
    assert(stream != NULL);

    switch_mutex_lock(conference->member_mutex);
    //		stream->write_function(stream, "<pre>Current Callers:\n");

    for (member = conference->members; member; member = member->next) {
        switch_channel_t *channel;
        switch_caller_profile_t *profile;

        if (switch_test_flag(member, MFLAG_NOCHANNEL)) {
            continue;
        }
        channel = switch_core_session_get_channel(member->session);
        profile = switch_channel_get_caller_profile(channel);


        stream->write_function(stream, "%u) %s (%s)\n", 
                               member->id, 
                               profile->caller_id_name, 
                               profile->caller_id_number
                               );

    }

    switch_mutex_unlock(conference->member_mutex);
	
}

static void conference_list(conference_obj_t *conference, switch_stream_handle_t *stream, char *delim)
{
    conference_member_t *member = NULL;

    assert(conference != NULL);
    assert(stream != NULL);
    assert(delim != NULL);


    switch_mutex_lock(conference->member_mutex);

    for (member = conference->members; member; member = member->next) {
        switch_channel_t *channel;
        switch_caller_profile_t *profile;
        char *uuid;
        char *name;
        uint32_t count = 0;

        if (switch_test_flag(member, MFLAG_NOCHANNEL)) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "continue\n");
            continue;
        }

        uuid = switch_core_session_get_uuid(member->session);
        channel = switch_core_session_get_channel(member->session);
        profile = switch_channel_get_caller_profile(channel);
        name = switch_channel_get_name(channel);


        stream->write_function(stream, "%u%s%s%s%s%s%s%s%s%s", 
                               member->id, delim, 
                               name, delim, 
                               uuid, delim, 
                               profile->caller_id_name, delim, 
                               profile->caller_id_number, delim);

        if (switch_test_flag(member, MFLAG_CAN_HEAR)) {
            stream->write_function(stream, "hear");
            count++;
        }

        if (switch_test_flag(member, MFLAG_CAN_SPEAK)) {
            stream->write_function(stream, "%s%s", count ? "|" : "", "speak");
            count++;
        }

        stream->write_function(stream, "%s%d%s%d%s%d\n", 
                               delim, 
                               member->volume_in_level, delim, 
                               member->volume_out_level, delim, 
                               member->energy_level);
    }

    switch_mutex_unlock(conference->member_mutex);
	
}

static switch_status_t conf_api_sub_mute(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        switch_clear_flag_locked(member, MFLAG_CAN_SPEAK);
        if (member->conference->muted_sound) {
            conference_member_play_file(member, member->conference->muted_sound, 0);
        } else {
            char msg[512];

            snprintf(msg, sizeof(msg), "Muted");
            conference_member_say(member, msg, 0);
        }
        if (stream != NULL) {
            stream->write_function(stream, "OK mute %u\n", member->id);
        }
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "mute-member");
            switch_event_fire(&event);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_unmute(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        switch_set_flag_locked(member, MFLAG_CAN_SPEAK);
        if (stream != NULL) {
            stream->write_function(stream, "OK unmute %u\n", member->id);
        }
        if (member->conference->unmuted_sound) {
            conference_member_play_file(member, member->conference->unmuted_sound, 0);
        } else {
            char msg[512];

            snprintf(msg, sizeof(msg), "Un-Muted");
            conference_member_say(member, msg, 0);
        }
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "unmute-member");
            switch_event_fire(&event);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_deaf(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        switch_clear_flag_locked(member, MFLAG_CAN_HEAR);
        if (stream != NULL) {
            stream->write_function(stream, "OK deaf %u\n", member->id);
        }
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "deaf-member");
            switch_event_fire(&event);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_undeaf(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        switch_set_flag_locked(member, MFLAG_CAN_HEAR);
        if (stream != NULL) {
            stream->write_function(stream, "OK undeaf %u\n", member->id);
        }
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "undeaf-member");
            switch_event_fire(&event);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_kick(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        switch_mutex_lock(member->flag_mutex);
        switch_clear_flag(member, MFLAG_RUNNING);
        switch_set_flag(member, MFLAG_KICKED);
        switch_core_session_kill_channel(member->session, SWITCH_SIG_BREAK);
        switch_mutex_unlock(member->flag_mutex);

        if (stream != NULL) {
            stream->write_function(stream, "OK kicked %u\n", member->id);
        }

        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_channel_t *channel = switch_core_session_get_channel(member->session);
            switch_channel_event_set_data(channel, event);

            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "kick-member");
            switch_event_fire(&event);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}


static switch_status_t conf_api_sub_dtmf(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_event_t *event;
    char *dtmf = (char *) data;

    if (member == NULL) {
        stream->write_function(stream, "Invalid member!\n");
        return SWITCH_STATUS_GENERR;
    }

    if (switch_strlen_zero(dtmf)) {
        stream->write_function(stream, "Invalid input!\n");
        return SWITCH_STATUS_GENERR;
    }

    
    switch_mutex_lock(member->flag_mutex);
    switch_core_session_kill_channel(member->session, SWITCH_SIG_BREAK);
    switch_core_session_send_dtmf(member->session, dtmf);
    switch_mutex_unlock(member->flag_mutex);


    if (stream != NULL) {
        stream->write_function(stream, "OK sent %s to %u\n", (char *) data, member->id);
    }

    if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
        switch_channel_t *channel = switch_core_session_get_channel(member->session);
        switch_channel_event_set_data(channel, event);

        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "dtmf-member");
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Digits", dtmf);
        switch_event_fire(&event);
    }

    return SWITCH_STATUS_SUCCESS;
}

static switch_status_t conf_api_sub_energy(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        if (data) {
            switch_mutex_lock(member->flag_mutex);
            member->energy_level = atoi((char *)data);
            switch_mutex_unlock(member->flag_mutex);
        }

        if (stream != NULL) {
            stream->write_function(stream, "Energy %u = %d\n", member->id, member->energy_level);
        }

        if (data) {
            if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                switch_channel_t *channel = switch_core_session_get_channel(member->session);
                switch_channel_event_set_data(channel, event);

                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "energy-level-member");
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Energy-Level", "%d", member->energy_level);

                switch_event_fire(&event);
            }
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_volume_in(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        if (data) {
            switch_mutex_lock(member->flag_mutex);
            member->volume_in_level = atoi((char *)data);
            switch_normalize_volume(member->volume_in_level);
            switch_mutex_unlock(member->flag_mutex);
        }

        if (stream != NULL) {
            stream->write_function(stream, "Volume IN %u = %d\n", member->id, member->volume_in_level);
        }
        if (data) {
            if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                switch_channel_t *channel = switch_core_session_get_channel(member->session);
                switch_channel_event_set_data(channel, event);

                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "volume-in-member");
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Volume-Level", "%u", member->volume_in_level);

                switch_event_fire(&event);
            }
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_volume_out(conference_member_t *member, switch_stream_handle_t *stream, void *data)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    if (member != NULL) {
        switch_event_t *event;

        if (data) {
            switch_mutex_lock(member->flag_mutex);
            member->volume_out_level = atoi((char *)data);
            switch_normalize_volume(member->volume_out_level);
            switch_mutex_unlock(member->flag_mutex);
        }

        if (stream != NULL) {
            stream->write_function(stream, "Volume OUT %u = %d\n", member->id, member->volume_out_level);
        }

        if (data) {
            if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                switch_channel_t *channel = switch_core_session_get_channel(member->session);
                switch_channel_event_set_data(channel, event);

                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", member->conference->name);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "volume-out-member");
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Volume-Level", "%u", member->volume_out_level);

                switch_event_fire(&event);
            }
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_list(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    int ret_status = SWITCH_STATUS_GENERR;

    switch_hash_index_t *hi;
    void *val;
    char *d = ";";
    int pretty = 0;
    int argofs = (argc >= 2 && strcasecmp(argv[1], "list") == 0);	// detect being called from chat vs. api

    if (argv[1+argofs]) {
        if (argv[2+argofs] && !strcasecmp(argv[1+argofs], "delim")) {
            d = argv[2+argofs];

            if (*d == '"') {
                if (++d) {
                    char *p;
                    if ((p = strchr(d, '"'))) {
                        *p = '\0';
                    }
                } else {
                    d = ";";
                }
            }
        } else if (strcasecmp(argv[1+argofs], "pretty") == 0) {
            pretty = 1;
        }
    }

    if (conference == NULL) {
        for (hi = switch_hash_first(globals.conference_pool, globals.conference_hash); hi; hi = switch_hash_next(hi)) {
            switch_hash_this(hi, NULL, NULL, &val);
            conference = (conference_obj_t *) val;

            stream->write_function(stream, "Conference %s (%u member%s%s)\n", 
                                   conference->name, 
                                   conference->count, 
                                   conference->count == 1 ? "" : "s",
                                   switch_test_flag(conference, CFLAG_LOCKED) ? " locked" : ""
                                   );
            if (pretty) {
                conference_list_pretty(conference, stream);
            } else {
                conference_list(conference, stream, d);
            }
        }
    } else {
        if (pretty) {
            conference_list_pretty(conference, stream);
        } else {
            conference_list(conference, stream, d);
        }
    }

    ret_status = SWITCH_STATUS_SUCCESS;

    return ret_status;
}

static switch_status_t conf_api_sub_play(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    int ret_status = SWITCH_STATUS_GENERR;
    switch_event_t *event;

    assert(conference != NULL);
    assert(stream != NULL);

    
    if (argc == 3) {
        if (conference_play_file(conference, argv[2], 0, NULL) == SWITCH_STATUS_SUCCESS) {
            stream->write_function(stream, "(play) Playing file %s\n", argv[2]);
            if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "play-file");
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "File", argv[2]);
                switch_event_fire(&event);
            }
        } else {
            stream->write_function(stream, "(play) File: %s not found.\n", argv[2] ? argv[2] : "(unspecified)");
        }
        ret_status = SWITCH_STATUS_SUCCESS;
    } else if (argc == 4) {
        uint32_t id = atoi(argv[3]);
        conference_member_t *member;

        if ((member = conference_member_get(conference, id))) {
            if (conference_member_play_file(member, argv[2], 0) == SWITCH_STATUS_SUCCESS) {
                stream->write_function(stream, "(play) Playing file %s to member %u\n", argv[2], id);
                if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                    switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
                    switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", id);
                    switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "play-file-member");
                    switch_event_add_header(event, SWITCH_STACK_BOTTOM, "File", argv[2]);
                    switch_event_fire(&event);
                }
            } else {
                stream->write_function(stream, "(play) File: %s not found.\n", argv[2] ? argv[2] : "(unspecified)");
            }
            ret_status = SWITCH_STATUS_SUCCESS;
        } else {
            stream->write_function(stream, "Member: %u not found.\n", id);
        }
    }

    return ret_status;
}

static switch_status_t conf_api_sub_say(conference_obj_t *conference, switch_stream_handle_t *stream, const char *text)
{
    int ret_status = SWITCH_STATUS_GENERR;

    if (switch_strlen_zero(text)) {
        stream->write_function(stream, "(say) Error! No text.");
        return ret_status;
    }

    if (conference_say(conference, text, 0) == SWITCH_STATUS_SUCCESS) {
        switch_event_t *event;

        stream->write_function(stream, "(say) OK\n");
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "speak-text");
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Text", "%s", text);
            switch_event_fire(&event);
        }
        ret_status = SWITCH_STATUS_SUCCESS;
    } else {
        stream->write_function(stream, "(say) Error!");
    }

    return ret_status;
}

static switch_status_t conf_api_sub_saymember(conference_obj_t *conference, switch_stream_handle_t *stream, const char *text)
{
    int ret_status = SWITCH_STATUS_GENERR;
    char *expanded = NULL;
    char *start_text = NULL;
    char *workspace = NULL;
    uint32_t id = 0;
    conference_member_t *member;

    if (switch_strlen_zero(text)) {
        stream->write_function(stream, "(saymember) No Text!\n");
        goto done;
    }

    if (!(workspace = strdup(text))) {
        stream->write_function(stream, "(saymember) Memory Error!\n");
        goto done;
    }

    if ((start_text = strchr(workspace, ' '))) {
        *start_text++ = '\0';
        text = start_text;
    }

    id = atoi(workspace);

    if (!id || switch_strlen_zero(text)) {
        stream->write_function(stream, "(saymember) No Text!\n");
        goto done;
    }

    if (!(member = conference_member_get(conference, id))) {
        stream->write_function(stream, "(saymember) Unknown Member %u!", id);
        goto done;
    }

    if ((expanded = switch_channel_expand_variables(switch_core_session_get_channel(member->session), (char *)text)) != text) {
        text = expanded;
    } else {
        expanded = NULL;
    }

    if (text && conference_member_say(member, (char *)text, 0) == SWITCH_STATUS_SUCCESS) {
        switch_event_t *event;

        stream->write_function(stream, "(saymember) OK\n");
        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "speak-text-member");
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", id);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Text", "%s", text);
            switch_event_fire(&event);
        }
        ret_status = SWITCH_STATUS_SUCCESS;
    } else {
        stream->write_function(stream, "(saymember) Error!");
    }

 done:    
    switch_safe_free(workspace);
    switch_safe_free(expanded);
    return ret_status;
}

static switch_status_t conf_api_sub_stop(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    int ret_status = SWITCH_STATUS_GENERR;
    uint8_t current = 0, all = 0;

    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 2) {
        current = strcasecmp(argv[2], "current") ? 0 : 1;
        all = strcasecmp(argv[2], "all") ? 0 : 1;
    } else {
        all = 1;
    }

    if (current || all) {
        if (argc == 4) {
            uint32_t id = atoi(argv[3]);
            conference_member_t *member;

            if ((member = conference_member_get(conference, id))) {
                uint32_t stopped = conference_member_stop_file(member, current ? FILE_STOP_CURRENT : FILE_STOP_ALL);
                stream->write_function(stream, "Stopped %u files.\n", stopped);
            } else {
                stream->write_function(stream, "Member: %u not found.\n", id);
            }
            ret_status = SWITCH_STATUS_SUCCESS;
        } else {
            uint32_t stopped = conference_stop_file(conference, current ? FILE_STOP_CURRENT : FILE_STOP_ALL);
            stream->write_function(stream, "Stopped %u files.\n", stopped);
            ret_status = SWITCH_STATUS_SUCCESS;
        }
    }

    return ret_status;
}

static switch_status_t conf_api_sub_relate(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    int ret_status = SWITCH_STATUS_GENERR;

    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 4) {
        uint8_t nospeak = 0, nohear = 0, clear = 0;
        nospeak = strstr(argv[4], "nospeak") ? 1 : 0;
        nohear = strstr(argv[4], "nohear") ? 1 : 0;

        if (!strcasecmp(argv[4], "clear")) {
            clear = 1;
        }

        if (!(clear || nospeak || nohear)) { 
            ret_status = SWITCH_STATUS_GENERR;
            goto done;
        }
        ret_status = SWITCH_STATUS_SUCCESS;

        if (clear) {
            conference_member_t *member = NULL;
            uint32_t id = atoi(argv[2]);
            uint32_t oid = atoi(argv[3]);

            if ((member = conference_member_get(conference, id))) {
                member_del_relationship(member, oid);
                stream->write_function(stream, "relationship %u->%u cleared.", id, oid);
            } else {
                stream->write_function(stream, "relationship %u->%u not found", id, oid);
            }
        } else if (nospeak || nohear) {
            conference_member_t *member = NULL, *other_member = NULL;
            uint32_t id = atoi(argv[2]);
            uint32_t oid = atoi(argv[3]);

            if ((member = conference_member_get(conference, id)) && (other_member = conference_member_get(conference, oid))) {
                conference_relationship_t *rel = NULL;
                if ((rel = member_get_relationship(member, other_member))) {
                    rel->flags = 0;
                } else {
                    rel = member_add_relationship(member, oid);
                }

                if (rel) {
                    switch_set_flag(rel, RFLAG_CAN_SPEAK | RFLAG_CAN_HEAR);
                    if (nospeak) {
                        switch_clear_flag(rel, RFLAG_CAN_SPEAK);
                    }
                    if (nohear) {
                        switch_clear_flag(rel, RFLAG_CAN_HEAR);
                    }
                    stream->write_function(stream, "ok %u->%u set\n", id, oid);
                } else {
                    stream->write_function(stream, "error!\n");
                }
            } else {
                stream->write_function(stream, "relationship %u->%u not found", id, oid);
            }
        }
    }

 done:
    return ret_status;
}

static switch_status_t conf_api_sub_lock(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_event_t *event;

    assert(conference != NULL);
    assert(stream != NULL);

    if (conference->is_locked_sound) {
        conference_play_file(conference, conference->is_locked_sound, CONF_DEFAULT_LEADIN, NULL);
    }

    switch_set_flag_locked(conference, CFLAG_LOCKED);
    stream->write_function(stream, "OK %s locked\n", argv[0]);
    if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "lock");
        switch_event_fire(&event);
    }

    return 0;
}

static switch_status_t conf_api_sub_unlock(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_event_t *event;

    assert(conference != NULL);
    assert(stream != NULL);

    if (conference->is_unlocked_sound) {
        conference_play_file(conference, conference->is_unlocked_sound, CONF_DEFAULT_LEADIN, NULL);
    }

    switch_clear_flag_locked(conference, CFLAG_LOCKED);
    stream->write_function(stream, "OK %s unlocked\n", argv[0]);
    if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", conference->name);
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "unlock");
        switch_event_fire(&event);
    }
	

    return 0;
}

static switch_status_t conf_api_sub_dial(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 2) {
        switch_call_cause_t cause;
        conference_outcall(conference, NULL, argv[2], 60, NULL, argv[4], argv[3], &cause);
        stream->write_function(stream, "Call Requested: result: [%s]\n", switch_channel_cause2str(cause));
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}


static switch_status_t conf_api_sub_bgdial(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 2) {
        conference_outcall_bg(conference, NULL, argv[2], 60, NULL, argv[4], argv[3]);
        stream->write_function(stream, "OK\n");
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_transfer(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;
    char *params = NULL;
    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 3 && !switch_strlen_zero(argv[2])) {
        int x;

        for (x = 3; x<argc; x++) {
            conference_member_t *member = NULL;
            uint32_t id = atoi(argv[x]);
            conference_obj_t *new_conference = NULL;
            switch_channel_t *channel;
            switch_event_t *event;
            char *profile_name;
            switch_xml_t cxml = NULL, cfg = NULL, profiles = NULL;

            if (!id || !(member = conference_member_get(conference, id))) {								
                stream->write_function(stream, "No Member %u in conference %s.\n", id, conference->name);
                continue;
            }

            channel = switch_core_session_get_channel(member->session);

            /* build a new conference if it doesn't exist */
            if (!(new_conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, argv[2]))) {
                switch_memory_pool_t *pool = NULL;
                char *conf_name;
                conf_xml_cfg_t xml_cfg = {0};

                /* Setup a memory pool to use. */
                if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
                    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
                    goto done;
                }

                conf_name = switch_core_strdup(pool, argv[2]);

                if ((profile_name = strchr(conf_name, '@'))) {
                    *profile_name++ = '\0';
                } else {
                    profile_name = "default";
                }
                params = switch_mprintf("conf_name=%s&profile_name=%s", conf_name, profile_name);
                /* Open the config from the xml registry  */
                if (!(cxml = switch_xml_open_cfg(global_cf_name, &cfg, params))) {
                    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", global_cf_name);
                    goto done;
                }

                if ((profiles = switch_xml_child(cfg, "profiles"))) {
                    xml_cfg.profile = switch_xml_find_child(profiles, "profile", "name", profile_name);
                }
                xml_cfg.controls = switch_xml_child(cfg, "caller-controls");
#ifdef OPTION_IVR_MENU_SUPPORT
                xml_cfg.menus = switch_xml_child(cfg, "menus");
#endif

                /* Release the config registry handle */
                if (cxml) {
                    switch_xml_free(cxml);
                    cxml = NULL;
                }

                /* Create the conference object. */
                new_conference = conference_new(conf_name, xml_cfg, pool);

                if (!new_conference) {
                    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error!\n");
                    if (pool != NULL) {
                        switch_core_destroy_memory_pool(&pool);
                    }
                    goto done;
                }

                /* Set the minimum number of members (once you go above it you cannot go below it) */
                new_conference->min = 1;

                /* Indicate the conference is dynamic */
                switch_set_flag_locked(new_conference, CFLAG_DYNAMIC);

                switch_mutex_lock(new_conference->mutex);

                /* Start the conference thread for this conference */
                launch_conference_thread(new_conference);
            } else {
                switch_mutex_lock(new_conference->mutex);
            }

            /* move the member from the old conference to the new one */
            conference_del_member(conference, member);
            conference_add_member(new_conference, member);
            switch_mutex_unlock(new_conference->mutex);

            stream->write_function(stream, "OK Members sent to conference %s.\n", argv[2]);

            /* tell them what happened */
            if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
                switch_channel_event_set_data(channel, event);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Member-ID", "%u", member->id);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Old-Conference-Name", conference->name);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "New-Conference-Name", argv[3]);
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "transfer");
                switch_event_fire(&event);
            }
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

 done:
    switch_safe_free(params);
    return ret_status;
}

static switch_status_t conf_api_sub_record(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;
    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 2) {
        launch_conference_record_thread(conference, argv[2]);
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }

    return ret_status;
}

static switch_status_t conf_api_sub_norecord(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char**argv)
{
    switch_status_t ret_status = SWITCH_STATUS_SUCCESS;

    assert(conference != NULL);
    assert(stream != NULL);

    if (argc > 2) {
        int all = (strcasecmp(argv[2], "all") == 0 );

        if (!conference_record_stop(conference, all ? NULL : argv[2]) && !all) {
            stream->write_function(stream, "non-existant recording '%s'\n", argv[2]);
        }
    } else {
        ret_status = SWITCH_STATUS_GENERR;
    }
	
    return ret_status;
}

/* API Interface Function sub-commands */
static api_command_t conf_api_sub_commands[] = {
	{"list", &conf_api_sub_list, CONF_API_SUB_ARGS_SPLIT, "<confname> list [delim <string>]"}, 
	{"energy", &conf_api_sub_energy, CONF_API_SUB_MEMBER_TARGET, "<confname> energy <member_id|all|last> [<newval>]"}, 
	{"volume_in", &conf_api_sub_volume_in, CONF_API_SUB_MEMBER_TARGET, "<confname> volume_in <member_id|all|last> [<newval>]"}, 
	{"volume_out", &conf_api_sub_volume_out, CONF_API_SUB_MEMBER_TARGET, "<confname> volume_out <member_id|all|last> [<newval>]"}, 
	{"play", &conf_api_sub_play, CONF_API_SUB_ARGS_SPLIT, "<confname> play <file_path> [<member_id>]"}, 
	{"say", &conf_api_sub_say, CONF_API_SUB_ARGS_AS_ONE, "<confname> say <text>"}, 
	{"saymember", &conf_api_sub_saymember, CONF_API_SUB_ARGS_AS_ONE, "<confname> saymember <member_id> <text>"}, 
	{"stop", &conf_api_sub_stop, CONF_API_SUB_ARGS_SPLIT, "<confname> stop <[current|all|last]> [<member_id>]"}, 
	{"dtmf", &conf_api_sub_dtmf, CONF_API_SUB_MEMBER_TARGET, "<confname> dtmf <[member_id|all|last]> <digits>"}, 
	{"kick", &conf_api_sub_kick, CONF_API_SUB_MEMBER_TARGET, "<confname> kick <[member_id|all|last]>"}, 
	{"mute", &conf_api_sub_mute, CONF_API_SUB_MEMBER_TARGET, "<confname> mute <[member_id|all]|last>"}, 
	{"unmute", &conf_api_sub_unmute, CONF_API_SUB_MEMBER_TARGET, "<confname> unmute <[member_id|all]|last>"}, 
	{"deaf", &conf_api_sub_deaf, CONF_API_SUB_MEMBER_TARGET, "<confname> deaf <[member_id|all]|last>"}, 
	{"undeaf", &conf_api_sub_undeaf, CONF_API_SUB_MEMBER_TARGET, "<confname> undeaf <[member_id|all]|last>"}, 
	{"relate", &conf_api_sub_relate, CONF_API_SUB_ARGS_SPLIT, "<confname> relate <member_id> <other_member_id> [nospeak|nohear|clear]"}, 
	{"lock", &conf_api_sub_lock, CONF_API_SUB_ARGS_SPLIT, "<confname> lock"}, 
	{"unlock", &conf_api_sub_unlock, CONF_API_SUB_ARGS_SPLIT, "<confname> unlock"}, 
	{"dial", &conf_api_sub_dial, CONF_API_SUB_ARGS_SPLIT, "<confname> dial <endpoint_module_name>/<destination> <callerid number> <callerid name>"}, 
	{"bgdial", &conf_api_sub_bgdial, CONF_API_SUB_ARGS_SPLIT, "<confname> bgdial <endpoint_module_name>/<destination> <callerid number> <callerid name>"}, 
	{"transfer", &conf_api_sub_transfer, CONF_API_SUB_ARGS_SPLIT, "<confname> transfer <conference_name> <member id> [...<member id>]"}, 
	{"record", &conf_api_sub_record, CONF_API_SUB_ARGS_SPLIT, "<confname> record <filename>"}, 
	{"norecord", &conf_api_sub_norecord, CONF_API_SUB_ARGS_SPLIT, "<confname> norecord <[filename|all]>"}, 
};

#define CONFFUNCAPISIZE (sizeof(conf_api_sub_commands)/sizeof(conf_api_sub_commands[0]))

switch_status_t conf_api_dispatch(conference_obj_t *conference, switch_stream_handle_t *stream, int argc, char **argv, const char *cmdline, int argn)
{	
    switch_status_t status = SWITCH_STATUS_FALSE;
    uint32_t i, found = 0;
    assert(conference != NULL);
    assert(stream != NULL);

    /* loop through the command table to find a match */
    for (i = 0; i<CONFFUNCAPISIZE && !found; i++) {
        if (strcasecmp(argv[argn], conf_api_sub_commands[i].pname) == 0) {
            found = 1;
            switch(conf_api_sub_commands[i].fntype) {

                /* commands that we've broken the command line into arguments for */
            case CONF_API_SUB_ARGS_SPLIT:
                {	conf_api_args_cmd_t pfn = (conf_api_args_cmd_t)conf_api_sub_commands[i].pfnapicmd;

                    if (pfn(conference, stream, argc, argv) != SWITCH_STATUS_SUCCESS) {
                        /* command returned error, so show syntax usage */
                        stream->write_function(stream, conf_api_sub_commands[i].psyntax);
                    }
                }
                break;

                /* member specific command that can be itteratted */
            case CONF_API_SUB_MEMBER_TARGET:
                {
                    uint32_t id = 0;
                    uint8_t all = 0;
                    uint8_t last = 0;

                    if (argv[argn+1]) {
                        if (!(id = atoi(argv[argn+1]))) {
                            all = strcasecmp(argv[argn+1], "all") ? 0 : 1;
                            last = strcasecmp(argv[argn+1], "last") ? 0 : 1;
                        }                        
                    }

                    if (all) {
                        conference_member_itterator(conference, stream, conf_api_sub_commands[i].pfnapicmd, argv[argn+2]);
                    } else if (last) {
                        conference_member_t *member = NULL;
                        conference_member_t *last_member = NULL;

                        switch_mutex_lock(conference->member_mutex);

                        /* find last (oldest) member */
                        member = conference->members;
                        while (member != NULL) {
                            if (last_member == NULL || member->id > last_member->id) {
                                last_member = member;
                            }
                            member = member->next;
                        }

                        /* exec functio on last (oldest) member */
                        if (last_member != NULL) {
                            conf_api_member_cmd_t pfn = (conf_api_member_cmd_t)conf_api_sub_commands[i].pfnapicmd;
                            pfn(last_member, stream, argv[argn+2]);
                        }

                        switch_mutex_unlock(conference->member_mutex);
                    } else if (id) {
                        conf_api_member_cmd_t pfn = (conf_api_member_cmd_t)conf_api_sub_commands[i].pfnapicmd;
                        conference_member_t *member = conference_member_get(conference, id);
                        
                        if (member != NULL) {
                            pfn(conference_member_get(conference, id), stream, argv[argn+2]);
                        } else {
                            stream->write_function(stream, "Non-Existant ID %u\n", id);
                        }
                    } else {
                        stream->write_function(stream, conf_api_sub_commands[i].psyntax);
                    }
                }
                break;

                /* commands that deals with all text after command */
            case CONF_API_SUB_ARGS_AS_ONE:
                {	
                    conf_api_text_cmd_t pfn = (conf_api_text_cmd_t) conf_api_sub_commands[i].pfnapicmd;
                    char *start_text;
                    const char *modified_cmdline = cmdline;
                    const char *cmd = conf_api_sub_commands[i].pname;

                    if ((start_text = strstr(modified_cmdline, cmd))) {
                        modified_cmdline = start_text + strlen(cmd);
                        while(modified_cmdline && *modified_cmdline && (*modified_cmdline  == ' ' || *modified_cmdline == '\t')) {
                            modified_cmdline++;
                        }
                    }
                            
                    /* call the command handler */
                    if (pfn(conference, stream, modified_cmdline) != SWITCH_STATUS_SUCCESS) {
                        /* command returned error, so show syntax usage */
                        stream->write_function(stream, conf_api_sub_commands[i].psyntax);
                    }
                }
                break;
            }
        }
    }

    if (!found) {
        stream->write_function(stream, "Confernece command '%s' not found.\n", argv[argn]);
    } else {
        status = SWITCH_STATUS_SUCCESS;
    }

    return status;
}

/* API Interface Function */
static switch_status_t conf_api_main(char *buf, switch_core_session_t *session, switch_stream_handle_t *stream)
{
    char *lbuf = NULL;
    switch_status_t status = SWITCH_STATUS_SUCCESS;
    char *http = NULL;
    int argc;
    char *argv[25] = {0};

    if (!buf) {
        buf = "help";
    }

    if (session) {
        return SWITCH_STATUS_FALSE;
    }

    if (stream->event) {
        http = switch_event_get_header(stream->event, "http-host");
    }

    if (http) {
        /* Output must be to a web browser */
        stream->write_function(stream, "<pre>\n");
    }

    if (!(lbuf = strdup(buf))) {
        return status;
    }

    argc = switch_separate_string(lbuf, ' ', argv, (sizeof(argv) / sizeof(argv[0])));

    /* try to find a command to execute */
    if (argc) {
        conference_obj_t *conference = NULL;

        if ((conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, argv[0]))) {
            if (switch_thread_rwlock_tryrdlock(conference->rwlock) != SWITCH_STATUS_SUCCESS) {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Read Lock Fail\n");
                goto done;
            }
            if (argc >= 2) {
                conf_api_dispatch(conference, stream, argc, argv, (const char *)buf, 1);
            } else {
                stream->write_function(stream, "Conference command, not specified.\nTry 'help'\n");
            }
            switch_thread_rwlock_unlock(conference->rwlock);

        } else {
            /* special case the list command, because it doesn't require a conference argument */
            if (strcasecmp(argv[0], "list") == 0) {
                conf_api_sub_list(NULL, stream, argc, argv);
            } else if (strcasecmp(argv[0], "help") == 0 || strcasecmp(argv[0], "commands") == 0) {
                stream->write_function(stream, "%s\n", conf_api_interface.syntax);
            } else {
                stream->write_function(stream, "Conference %s not found\n", argv[0]);
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Conference %s not found\n", argv[0]);
            }
        }

    } else {
        stream->write_function(stream, "No parameters specified.\nTry 'help conference'\n");
    }

 done:
    switch_safe_free(lbuf);

    return status;

}

/* outbound call bridge progress call state callback handler */
static switch_status_t audio_bridge_on_ring(switch_core_session_t *session)
{
    switch_channel_t *channel = NULL;

    channel = switch_core_session_get_channel(session);
    assert(channel != NULL);

    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "CUSTOM RING\n");

    /* put the channel in a passive state so we can loop audio to it */
    switch_channel_set_state(channel, CS_TRANSMIT);
    return SWITCH_STATUS_FALSE;
}

static const switch_state_handler_table_t audio_bridge_peer_state_handlers = {
    /*.on_init */ NULL, 
    /*.on_ring */ audio_bridge_on_ring, 
    /*.on_execute */ NULL, 
    /*.on_hangup */ NULL, 
    /*.on_loopback */ NULL, 
    /*.on_transmit */ NULL, 
    /*.on_hold */ NULL, 
};


/* generate an outbound call from the conference */
static switch_status_t conference_outcall(conference_obj_t *conference, 
                                          switch_core_session_t *session, 
                                          char *bridgeto, 
                                          uint32_t timeout, 
                                          char *flags, 
                                          char *cid_name, 
                                          char *cid_num,
                                          switch_call_cause_t *cause)
{
    switch_core_session_t *peer_session;
    switch_channel_t *peer_channel;
    switch_status_t status = SWITCH_STATUS_SUCCESS;
    switch_channel_t *caller_channel = NULL;
    char appdata[512];

    *cause = SWITCH_CAUSE_NORMAL_CLEARING;


    if (switch_thread_rwlock_tryrdlock(conference->rwlock) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Read Lock Fail\n");
        return SWITCH_STATUS_FALSE;
    }

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

    if (switch_strlen_zero(cid_name)) {
        cid_name = conference->caller_id_name;
    }

    if (switch_strlen_zero(cid_num)) {
        cid_num = conference->caller_id_number;
    }

    /* establish an outbound call leg */
    if (switch_ivr_originate(session, 
                             &peer_session, 
                             cause, 
                             bridgeto, 
                             timeout, 
                             &audio_bridge_peer_state_handlers, 
                             cid_name, 
                             cid_num, 
                             NULL) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Cannot create outgoing channel, cause: %s\n", 
                          switch_channel_cause2str(*cause));
        if (caller_channel) {
            switch_channel_hangup(caller_channel, *cause);
        }
        goto done;
    } 


    peer_channel = switch_core_session_get_channel(peer_session);
    assert(peer_channel != NULL);

    /* make sure the conference still exists */
    if (!switch_test_flag(conference, CFLAG_RUNNING)) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Conference is gone now, nevermind..\n");
        if (caller_channel) {
            switch_channel_hangup(caller_channel, SWITCH_CAUSE_NO_ROUTE_DESTINATION);
        }
        switch_channel_hangup(peer_channel, SWITCH_CAUSE_NO_ROUTE_DESTINATION);
        goto done;
    }

    if (caller_channel && switch_channel_test_flag(peer_channel, CF_ANSWERED)) {
        switch_channel_answer(caller_channel);
    }

    /* if the outbound call leg is ready */
    if (switch_channel_test_flag(peer_channel, CF_ANSWERED) || switch_channel_test_flag(peer_channel, CF_EARLY_MEDIA)) {
        switch_caller_extension_t *extension = NULL;

        /* build an extension name object */
        if ((extension = switch_caller_extension_new(peer_session, conference->name, conference->name)) == 0) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "memory error!\n");
            status = SWITCH_STATUS_MEMERR;
            goto done;
        }
        /* add them to the conference */
        if (flags && strcasecmp(flags, "none")) {
            snprintf(appdata, sizeof(appdata), "%s +flags{%s}", conference->name, flags);
            switch_caller_extension_add_application(peer_session, extension, (char *) global_app_name, appdata);
        } else {
            switch_caller_extension_add_application(peer_session, extension, (char *) global_app_name, conference->name);
        }

        switch_channel_set_caller_extension(peer_channel, extension);
        switch_channel_set_state(peer_channel, CS_EXECUTE);

    } else {
        switch_channel_hangup(peer_channel, SWITCH_CAUSE_NO_ANSWER);
        status = SWITCH_STATUS_FALSE;
        goto done;
    }

 done:
    switch_thread_rwlock_unlock(conference->rwlock);
    return status;
}

struct bg_call {
    conference_obj_t *conference;
    switch_core_session_t *session;
    char *bridgeto;
    uint32_t timeout;
    char *flags;
    char *cid_name;
    char *cid_num;
};

static void *SWITCH_THREAD_FUNC conference_outcall_run(switch_thread_t *thread, void *obj)
{
    struct bg_call *call = (struct bg_call *) obj;
    
    if (call) {
        switch_call_cause_t cause;
        switch_event_t *event;

        conference_outcall(call->conference, call->session, call->bridgeto, call->timeout, call->flags, call->cid_name, call->cid_num, &cause);

        if (switch_event_create_subclass(&event, SWITCH_EVENT_CUSTOM, CONF_EVENT_MAINT) == SWITCH_STATUS_SUCCESS) {
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Conference-Name", call->conference->name);
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Action", "bgdial-result");
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "Result", switch_channel_cause2str(cause));
            switch_event_fire(&event);
        }
        switch_safe_free(call->bridgeto);
        switch_safe_free(call->flags);
        switch_safe_free(call->cid_name);
        switch_safe_free(call->cid_num);
        switch_safe_free(call);
    }

    return NULL;
}

static switch_status_t conference_outcall_bg(conference_obj_t *conference, 
                                             switch_core_session_t *session, 
                                             char *bridgeto, 
                                             uint32_t timeout, 
                                             char *flags, 
                                             char *cid_name, 
                                             char *cid_num)
{
    struct bg_call *call = NULL;
    
    if ((call = malloc(sizeof(*call)))) {
        switch_thread_t *thread;
        switch_threadattr_t *thd_attr = NULL;

        memset(call, 0, sizeof(*call));
        call->conference = conference;
        call->session = session;
        call->timeout = timeout;

        if (bridgeto) {
            call->bridgeto = strdup(bridgeto);
        }
        if (flags) {
            call->flags = strdup(flags);
        }
        if (cid_name) {
            call->cid_name = strdup(cid_name);
        }
        if (cid_num) {
            call->cid_num = strdup(cid_num);
        }
        
        switch_threadattr_create(&thd_attr, conference->pool);
        switch_threadattr_detach_set(thd_attr, 1);
        switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
        switch_thread_create(&thread, thd_attr, conference_outcall_run, call, conference->pool);
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Lanuching BG Thread for outcall\n");

		return SWITCH_STATUS_SUCCESS;
    }

	return SWITCH_STATUS_MEMERR;
}

/* Play a file */
static switch_status_t conference_local_play_file(conference_obj_t *conference, 
                                                  switch_core_session_t *session, char *path, uint32_t leadin, char *buf, switch_size_t len)
{
    uint32_t x = 0;
    switch_status_t status = SWITCH_STATUS_SUCCESS;

    /* generate some space infront of the file to be played */
    for (x = 0; x < leadin; x++) {
        switch_frame_t *read_frame;
        switch_status_t status = switch_core_session_read_frame(session, &read_frame, 1000, 0);

        if (!SWITCH_READ_ACCEPTABLE(status)) {
            break;
        }
    }

    /* if all is well, really play the file */
    if (status == SWITCH_STATUS_SUCCESS) {
        char *dpath = NULL;

        if (conference->sound_prefix) {
            if (!(dpath = switch_mprintf("%s/%s", conference->sound_prefix, path))) {
                return SWITCH_STATUS_MEMERR;
            }
            path = dpath;
        }

        status = switch_ivr_play_file(session, NULL, path, NULL);
        switch_safe_free(dpath);
    }

    return status;
}

/* Application interface function that is called from the dialplan to join the channel to a conference */
static void conference_function(switch_core_session_t *session, char *data)
{
    switch_codec_t *read_codec = NULL;
    uint32_t flags = 0;
    conference_member_t member = {0};
    conference_obj_t *conference = NULL;
    switch_channel_t *channel = NULL;
    char *mydata = switch_core_session_strdup(session, data);
    char *conf_name = NULL;
    char *bridge_prefix = "bridge:";
    char *flags_prefix = "+flags{";
    char *bridgeto = NULL;
    char *profile_name = NULL;
    switch_xml_t cxml = NULL, cfg = NULL, profiles = NULL;
    char *flags_str;
    member_flag_t uflags = MFLAG_CAN_SPEAK | MFLAG_CAN_HEAR;
    switch_core_session_message_t msg = {0};
    uint8_t rl = 0, isbr = 0;
    char *dpin = NULL;
    conf_xml_cfg_t xml_cfg = {0};
    char *params = NULL;

    channel = switch_core_session_get_channel(session);
    assert(channel != NULL);

    if (!mydata) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
        return;
    }

    /* Start the conference muted or deaf ? */
    if ((flags_str = strstr(mydata, flags_prefix))) {
        char *p;

        *flags_str = '\0';
        flags_str += strlen(flags_prefix);
        if ((p = strchr(flags_str, '}'))) {
            *p = '\0';
        }

        if (strstr(flags_str, "mute")) {
            uflags &= ~MFLAG_CAN_SPEAK;
        } else if (strstr(flags_str, "deaf")) {
            uflags &= ~MFLAG_CAN_HEAR;
        }
    }

    /* is this a bridging conference ? */
    if (!strncasecmp(mydata, bridge_prefix, strlen(bridge_prefix))) {
        isbr = 1;
        mydata += strlen(bridge_prefix);
        if ((bridgeto = strchr(mydata, ':'))) {
            *bridgeto++ = '\0';
        } else {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Config Error!\n");
            goto done;
        }
    }

    conf_name = mydata;

    /* is there a conference pin ? */
    if ((dpin = strchr(conf_name, '+'))) {
        *dpin++ = '\0';
    }

    /* is there profile specification ? */
    if ((profile_name = strchr(conf_name, '@'))) {
        *profile_name++ = '\0';
    } else {
        profile_name = "default";
    }

    params = switch_mprintf("conf_name=%s&profile_name=%s", conf_name, profile_name);

    /* Open the config from the xml registry */
    if (!(cxml = switch_xml_open_cfg(global_cf_name, &cfg, params))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", global_cf_name);
        goto done;
    }

    if ((profiles = switch_xml_child(cfg, "profiles"))) {
        xml_cfg.profile = switch_xml_find_child(profiles, "profile", "name", profile_name);
    }

    xml_cfg.controls = switch_xml_child(cfg, "caller-controls");
#ifdef OPTION_IVR_MENU_SUPPORT
    xml_cfg.menus = switch_xml_child(cfg, "menus");
#endif 


    /* if this is a bridging call, and it's not a duplicate, build a */
    /* conference object, and skip pin handling, and locked checking */
    if (isbr) {
        char *uuid = switch_core_session_get_uuid(session);

        if (!strcmp(conf_name, "_uuid_")) {
            conf_name = uuid;
        }

        if ((conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, conf_name))) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Conference %s already exists!\n", conf_name);
            goto done;
        }

        /* Create the conference object. */
        conference = conference_new(conf_name, xml_cfg, NULL);

        if (!conference) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error!\n");
            goto done;
        }

        /* Set the minimum number of members (once you go above it you cannot go below it) */
        conference->min = 2;

        /* if the dialplan specified a pin, override the profile's value */
        if (dpin) {
            conference->pin = switch_core_strdup(conference->pool, dpin);
        }

        /* Indicate the conference is dynamic */
        switch_set_flag_locked(conference, CFLAG_DYNAMIC);	

        /* Start the conference thread for this conference */
        launch_conference_thread(conference);

    } else {
        /* if the conference exists, get the pointer to it */
        if (!(conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, conf_name))) {
            /* couldn't find the conference, create one */
            conference = conference_new(conf_name, xml_cfg, NULL);

            if (!conference) {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error!\n");
                goto done;
            }

            /* if the dialplan specified a pin, override the profile's value */
            if (dpin) {
                conference->pin = switch_core_strdup(conference->pool, dpin);
            }

            /* Set the minimum number of members (once you go above it you cannot go below it) */
            conference->min = 1;

            /* Indicate the conference is dynamic */
            switch_set_flag_locked(conference, CFLAG_DYNAMIC);

            /* Start the conference thread for this conference */
            launch_conference_thread(conference);
        }

        /* acquire a read lock on the thread so it can't leave without us */
        if (switch_thread_rwlock_tryrdlock(conference->rwlock) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Read Lock Fail\n");
            goto done;
        }
        rl++;
        
        /* if this is not an outbound call, deal with conference pins */
        if (!switch_channel_test_flag(channel, CF_OUTBOUND) && conference->pin) {
            char pin_buf[80] = "";
            int  pin_retries = 3;	/* XXX - this should be configurable - i'm too lazy to do it right now... */
            int  pin_valid = 0;
            switch_status_t status = SWITCH_STATUS_SUCCESS;

            /* Answer the channel */
            switch_channel_answer(channel);

            while(!pin_valid && pin_retries && status == SWITCH_STATUS_SUCCESS) {

                /* be friendly */
                if (conference->pin_sound) {
                    conference_local_play_file(conference, session, conference->pin_sound, 20, pin_buf, sizeof(pin_buf));
                } 
                /* wait for them if neccessary */
                if (strlen(pin_buf) < strlen(conference->pin)) {
                    char *buf = pin_buf + strlen(pin_buf);
                    char term = '\0';

                    status = switch_ivr_collect_digits_count(session, 
                                                             buf, 
                                                             sizeof(pin_buf) - (unsigned int)strlen(pin_buf), 
                                                             (unsigned int)strlen(conference->pin) - (unsigned int)strlen(pin_buf), 
                                                             "#", &term, 10000);
                }

                pin_valid = (status == SWITCH_STATUS_SUCCESS && strcmp(pin_buf, conference->pin) == 0);
                if (!pin_valid) {
                    /* zero the collected pin */
                    memset(pin_buf, 0, sizeof(pin_buf));

                    /* more friendliness */
                    if (conference->bad_pin_sound) {
                        conference_local_play_file(conference, session, conference->bad_pin_sound, 20, pin_buf, sizeof(pin_buf));
                    }
                }
                pin_retries --;
            }

            if (!pin_valid) {
                goto done;
            }
        }

        /* don't allow more callers if the conference is locked, unless we invited them */
        if (switch_test_flag(conference, CFLAG_LOCKED) && !switch_channel_test_flag(channel, CF_OUTBOUND)) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_NOTICE, "Conference %s is locked.\n", conf_name);
            if (conference->locked_sound) {
                /* Answer the channel */
                switch_channel_answer(channel);
                conference_local_play_file(conference, session, conference->locked_sound, 20, NULL, 0);
            }
            goto done;
        }
    }

    /* Release the config registry handle */
    if (cxml) {
        switch_xml_free(cxml);
        cxml = NULL;
    }

    /* if we're using "bridge:" make an outbound call and bridge it in */
    if (!switch_strlen_zero(bridgeto) && strcasecmp(bridgeto, "none")) {
        switch_call_cause_t cause;
        if (conference_outcall(conference, session, bridgeto, 60, NULL, NULL, NULL, &cause) != SWITCH_STATUS_SUCCESS) {
            goto done;
        }
    } else {	
        /* if we're not using "bridge:" set the conference answered flag */
        /* and this isn't an outbound channel, answer the call */
        if (!switch_channel_test_flag(channel, CF_OUTBOUND)) 
            switch_set_flag(conference, CFLAG_ANSWERED);
    }

    /* Save the original read codec. */
    read_codec = switch_core_session_get_read_codec(session);
    member.native_rate = read_codec->implementation->samples_per_second;
    member.pool = switch_core_session_get_pool(session);

    /* Setup a Signed Linear codec for reading audio. */
    if (switch_core_codec_init(&member.read_codec, 
                               "L16", 
                               NULL, 
                               read_codec->implementation->samples_per_second, 
                               read_codec->implementation->microseconds_per_frame / 1000, 
                               1, 
                               SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, 
                               NULL, 
                               member.pool) == SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Raw Codec Activation Success L16@%uhz 1 channel %dms\n", 
                          conference->rate, conference->interval);
    } else {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Raw Codec Activation Failed L16@%uhz 1 channel %dms\n", 
                          conference->rate, conference->interval);
        flags = 0;
        goto done;
    }

    if (read_codec->implementation->samples_per_second != conference->rate) {
        switch_audio_resampler_t **resampler = read_codec->implementation->samples_per_second > conference->rate ? 
            &member.read_resampler : &member.mux_resampler;

        switch_resample_create(resampler, 
                               read_codec->implementation->samples_per_second, 
                               read_codec->implementation->samples_per_second * 20, 
                               conference->rate, 
                               conference->rate * 20, 
                               member.pool);

        /* Setup an audio buffer for the resampled audio */
        if (switch_buffer_create_dynamic(&member.resample_buffer, CONF_DBLOCK_SIZE, CONF_DBUFFER_SIZE, CONF_DBUFFER_MAX) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error Creating Audio Buffer!\n");
            goto done;
        }
    }
    /* Setup a Signed Linear codec for writing audio. */
    if (switch_core_codec_init(&member.write_codec, 
                               "L16", 
                               NULL, 
                               conference->rate, 
                               conference->interval, 
                               1, 
                               SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, 
                               NULL, 
                               member.pool) == SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Raw Codec Activation Success L16@%uhz 1 channel %dms\n", 
                          conference->rate, conference->interval);
    } else {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Raw Codec Activation Failed L16@%uhz 1 channel %dms\n", 
                          conference->rate, conference->interval);
        flags = 0;
        goto codec_done2;
    }

    /* Setup an audio buffer for the incoming audio */
    if (switch_buffer_create_dynamic(&member.audio_buffer, CONF_DBLOCK_SIZE, CONF_DBUFFER_SIZE, CONF_DBUFFER_MAX) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error Creating Audio Buffer!\n");
        goto codec_done1;
    }

    /* Setup an audio buffer for the outgoing audio */
    if (switch_buffer_create_dynamic(&member.mux_buffer, CONF_DBLOCK_SIZE, CONF_DBUFFER_SIZE, CONF_DBUFFER_MAX) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error Creating Audio Buffer!\n");
        goto codec_done1;
    }

    /* Prepare MUTEXS */
    member.id = next_member_id();
    member.session = session;
    switch_mutex_init(&member.flag_mutex, SWITCH_MUTEX_NESTED, member.pool);
    switch_mutex_init(&member.audio_in_mutex, SWITCH_MUTEX_NESTED, member.pool);
    switch_mutex_init(&member.audio_out_mutex, SWITCH_MUTEX_NESTED, member.pool);

    /* Install our Signed Linear codec so we get the audio in that format */
    switch_core_session_set_read_codec(member.session, &member.read_codec);

    /* Add the caller to the conference */
    if (conference_add_member(conference, &member) != SWITCH_STATUS_SUCCESS) {
        goto codec_done1;
    }
    switch_set_flag_locked((&member), MFLAG_RUNNING | uflags);

    msg.from = __FILE__;

    /* Tell the channel we are going to be in a bridge */
    msg.message_id = SWITCH_MESSAGE_INDICATE_BRIDGE;
    switch_core_session_receive_message(session, &msg);

    /* Run the confernece loop */
    conference_loop_output(&member);

    /* Tell the channel we are no longer going to be in a bridge */
    msg.message_id = SWITCH_MESSAGE_INDICATE_UNBRIDGE;
    switch_core_session_receive_message(session, &msg);

    /* Remove the caller from the conference */
    conference_del_member(member.conference, &member);

    /* Put the original codec back */
    switch_core_session_set_read_codec(member.session, read_codec);

    /* Clean Up.  codec_done(X): is for error situations after the codecs were setup and done: is for situations before */
 codec_done1:
    switch_core_codec_destroy(&member.read_codec);
 codec_done2:
    switch_core_codec_destroy(&member.write_codec);
 done:
    switch_safe_free(params);
    switch_buffer_destroy(&member.resample_buffer);
    switch_buffer_destroy(&member.audio_buffer);
    switch_buffer_destroy(&member.mux_buffer);

    /* Release the config registry handle */
    if (cxml) {
        switch_xml_free(cxml);
    }

    if (switch_test_flag(&member, MFLAG_KICKED) && conference->kicked_sound) {
        switch_ivr_play_file(session, NULL, conference->kicked_sound, NULL);
    }

    switch_core_session_reset(session);

    /* release the readlock */
    if (rl) {
        switch_thread_rwlock_unlock(conference->rwlock);
    }
}

/* Create a thread for the conference and launch it */
static void launch_conference_thread(conference_obj_t *conference)
{
    switch_thread_t *thread;
    switch_threadattr_t *thd_attr = NULL;

    switch_set_flag_locked(conference, CFLAG_RUNNING);
    switch_threadattr_create(&thd_attr, conference->pool);
    switch_threadattr_detach_set(thd_attr, 1);
    switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
    switch_mutex_lock(globals.hash_mutex);
    switch_core_hash_insert(globals.conference_hash, conference->name, conference);
    switch_mutex_unlock(globals.hash_mutex);
    switch_thread_create(&thread, thd_attr, conference_thread_run, conference, conference->pool);
}

static void launch_conference_record_thread(conference_obj_t *conference, char *path)
{
    switch_thread_t *thread;
    switch_threadattr_t *thd_attr = NULL;
    switch_memory_pool_t *pool;
    conference_record_t *rec;

    /* Setup a memory pool to use. */
    if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
    }

    /* Create a node object*/
    if (!(rec = switch_core_alloc(pool, sizeof(*rec)))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Alloc Failure\n");
        switch_core_destroy_memory_pool(&pool);
    }

    rec->conference = conference;
    rec->path = switch_core_strdup(pool, path);
    rec->pool = pool;

    switch_threadattr_create(&thd_attr, rec->pool);
    switch_threadattr_detach_set(thd_attr, 1);
    switch_threadattr_stacksize_set(thd_attr, SWITCH_THREAD_STACKSIZE);
    switch_thread_create(&thread, thd_attr, conference_record_thread_run, rec, rec->pool);
}

static const switch_application_interface_t conference_application_interface = {
    /*.interface_name */ global_app_name, 
    /*.application_function */ conference_function, 
    NULL, NULL, NULL, 
    /*.next*/ NULL
};

static switch_api_interface_t conf_api_interface = {
    /*.interface_name */	"conference", 
    /*.desc */				"Conference module commands", 
    /*.function */			conf_api_main, 
    /*.syntax */		/* see switch_module_load, this is built on the fly */
    /*.next */ 
};

static switch_status_t chat_send(char *proto, char *from, char *to, char *subject, char *body, char *hint)
{
    char name[512] = "", *p, *lbuf = NULL;
    switch_chat_interface_t *ci;
    conference_obj_t *conference = NULL;
    switch_stream_handle_t stream = {0};

    if ((p = strchr(to, '+'))) {
        to = ++p;
    }

    if (!body) {
        return SWITCH_STATUS_SUCCESS;
    }

    if (!(ci = switch_loadable_module_get_chat_interface(proto))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Invaid Chat Interface [%s]!\n", proto);
    }


    if ((p = strchr(to, '@'))) {
        switch_copy_string(name, to, ++p-to);
    } else {
        switch_copy_string(name, to, sizeof(name));
    }

    if (!(conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, name))) {
        ci->chat_send(CONF_CHAT_PROTO, to, hint && strchr(hint, '/') ? hint : from, "", "Conference not active.", NULL);
        return SWITCH_STATUS_FALSE;
    }

    SWITCH_STANDARD_STREAM(stream);

    if (body != NULL && (lbuf = strdup(body))) {
        int argc;
        char *argv[25];

        memset(argv, 0, sizeof(argv));
        argc = switch_separate_string(lbuf, ' ', argv, (sizeof(argv) / sizeof(argv[0])));

        /* try to find a command to execute */
        if (argc) {
            /* special case list */
            if (strcasecmp(argv[0], "list") == 0) {
                conference_list_pretty(conference, &stream);
                /* provide help */
            } 
#if 0
            else {
                if (strcasecmp(argv[0], "help") == 0 || strcasecmp(argv[0], "commands") == 0) {
                    stream.write_function(&stream, "%s\n", conf_api_interface.syntax);
                    /* find a normal command */
                } else {
                    conf_api_dispatch(conference, &stream, argc, argv, (const char *)body, 0);
                }
            }
#endif
        } else {
            stream.write_function(&stream, "No parameters specified.\nTry 'help'\n");
        }
    }
    switch_safe_free(lbuf);

    ci->chat_send(CONF_CHAT_PROTO, to, from, "", stream.data, NULL);
    switch_safe_free(stream.data);

    return SWITCH_STATUS_SUCCESS;
}

static const switch_chat_interface_t conference_chat_interface = {
    /*.name */ CONF_CHAT_PROTO, 
    /*.chat_send */ chat_send, 

};

static switch_loadable_module_interface_t conference_module_interface = {
    /*.module_name */ modname, 
    /*.endpoint_interface */ NULL, 
    /*.timer_interface */ NULL, 
    /*.dialplan_interface */ NULL, 
    /*.codec_interface */ NULL, 
    /*.application_interface */ &conference_application_interface, 
    /*.api_interface */ &conf_api_interface, 
    /*.file_interface */ NULL, 
    /*.speech_interface */ NULL, 
    /*.directory_interface */ NULL, 
    /*.chat_interface */ &conference_chat_interface
};

#ifdef OPTION_IVR_MENU_SUPPORT
static switch_ivr_action_t conference_caller_control_menu_handler(switch_ivr_menu_t *menu, char *param, char *buf, size_t buflen, void *obj)
{
    switch_ivr_action_t action = SWITCH_IVR_ACTION_NOOP;

    if (!switch_strlen_zero(param)) {
        if (obj != NULL) {
            int i, found;
            char *action_name = strdup(param);

            if (action_name != NULL) {
                char *sep = (action_name != NULL ? strchr(action_name, ' ') : NULL);

                /* split the action from any parameters */
                if (sep != NULL) {
                    *sep  = '\0';
                }

                /* find and execute the caller control handler */
                for(i = 0, found = 0; !found && i<CCFNTBL_QTY; i++) {
                    found = (ccfntbl[i].action != CALLER_CONTROL_MENU && strcasecmp(ccfntbl[i].key, action_name) == 0);
                    if (found) {
                        if (obj != NULL) {
                            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "invoking caller control menu action '%s'\n", ccfntbl[i].key);
                            ccfntbl[i].handler((conference_member_t *)obj, (sep != NULL ? sep+1 : NULL));
                            if (ccfntbl[i].action == CALLER_CONTROL_HANGUP) {
                                action = SWITCH_IVR_ACTION_DIE;
                            }
                        }
                    }
                }

                free(action_name);
            }

            if (!found) {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unknown caller control menu action '%s'\n", param);
            }
        } else {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "unable to invoke caller control menu action '%s', NULL member!\n", param);
        }
    } else {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "NULL or empty param!\n");
    }

    return action;
}

/*
  static switch_status_t ivr_menu_callback_play_file(char *file, uint32_t leadin, void *member)
  {
  switch_status_t status;

  switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "ivr_menu_callback_play_file\n");
  status = conference_member_play_file((conference_member_t *)member, file, leadin);
  if (status != SWITCH_STATUS_SUCCESS) {
  switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "ivr_menu_callback_play_file ERROR\n");
  }

  return status;
  }

  static switch_status_t ivr_menu_callback_say(char *file, uint32_t leadin, void *member)
  {
  switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "ivr_menu_callback_say\n");
  return conference_member_say((conference_member_t *)member, file, leadin);
  }
*/

static switch_status_t conference_caller_control_menu_build(caller_control_menu_ctx_t **ctx, 
                                                            conference_obj_t *conference, 
                                                            switch_xml_t menu_group, 
                                                            char *menu_name)
{
    switch_status_t status = SWITCH_STATUS_FALSE;
    switch_xml_t xml_menus;
    switch_xml_t xml_menu;

    assert(conference != NULL);
    assert(ctx != NULL);
    assert(menu_group != NULL);
    assert(menu_name != NULL);
    assert(xml_menus != NULL);

    xml_menus = switch_xml_child(menu_group, "menus");
    xml_menu = (xml_menus != NULL ? switch_xml_find_child(xml_menus, "menu", "name", menu_name) : NULL);



    /* if we found the requested menu in our menu_group */
    if (xml_menu != NULL && xml_menu != NULL) {
        *ctx = (caller_control_menu_ctx_t *)switch_core_alloc(conference->pool, sizeof(caller_control_menu_ctx_t));

        if (*ctx != NULL) {
            memset(*ctx, 0, sizeof(caller_control_menu_ctx_t));

            /* setup an xml parser context, and a menu stack context for the specified menu in our memory pool */
            status = switch_ivr_menu_stack_xml_init(&(*ctx)->xml_ctx, conference->pool);
            if (status == SWITCH_STATUS_SUCCESS) {
                (*ctx)->name = switch_core_strdup(conference->pool, menu_name);

                /* add our xml menu handler to the xml stack parser */
                status = switch_ivr_menu_stack_xml_add_custom((*ctx)->xml_ctx, "control", &conference_caller_control_menu_handler);
                if (status != SWITCH_STATUS_SUCCESS)
                    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to add custom xml handler\n");

                /* parse the xml stack to build the menu stack */
                status = switch_ivr_menu_stack_xml_build((*ctx)->xml_ctx, &(*ctx)->menu_stack, xml_menus, xml_menu, conference->timer_name);
                if (status != SWITCH_STATUS_SUCCESS)
                    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to build xml menu stack\n");

                /*
                // instruct ivr menu to use our file play and tts routines
                status = switch_ivr_menu_set_fileplay_callback((*ctx)->menu_stack, &ivr_menu_callback_play_file);
                if (status != SWITCH_STATUS_SUCCESS)
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to set file play calback\n");
                status = switch_ivr_menu_set_tts_callback((*ctx)->menu_stack, &ivr_menu_callback_say);
                if (status != SWITCH_STATUS_SUCCESS)
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to set tts calback\n");
                */
            } else {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to init xml menu context\n");
            }
            if (status != SWITCH_STATUS_SUCCESS)
                *ctx = NULL;
        }
    } else {
        if (xml_menus == NULL)
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "caller control menu unable to find xml menus\n");
        if (xml_menu == NULL)
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "caller control menu unable to find xml menu '%s'\n", menu_name);
    }

    return status;
}
#endif

static switch_status_t conf_default_controls(conference_obj_t *conference)
{
    switch_status_t status = SWITCH_STATUS_FALSE;
    uint32_t i;
    caller_control_action_t *action;

    assert(conference != NULL);

    for(i = 0, status = SWITCH_STATUS_SUCCESS; status == SWITCH_STATUS_SUCCESS && i<CCFNTBL_QTY; i++) {
        if (!switch_strlen_zero(ccfntbl[i].digits)) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Installing default caller control action '%s' bound to '%s'.\n", 
                              ccfntbl[i].key, 
                              ccfntbl[i].digits);
            action = (caller_control_action_t *)switch_core_alloc(conference->pool, sizeof(caller_control_action_t));
            if (action != NULL) {
                action->fndesc = &ccfntbl[i];
                action->data = NULL;
                status = switch_ivr_digit_stream_parser_set_event(conference->dtmf_parser, ccfntbl[i].digits, action);
            } else {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to alloc memory for caller control binding '%s' to '%s'\n", 
                                  ccfntbl[i].key, ccfntbl[i].digits);
                status = SWITCH_STATUS_MEMERR;
            }
        }
    }
	

    return status;
}

static switch_status_t conference_new_install_caller_controls_custom(conference_obj_t *conference, switch_xml_t xml_controls, switch_xml_t xml_menus)
{
    switch_status_t status = SWITCH_STATUS_FALSE;
    switch_xml_t xml_kvp;

    assert(conference != NULL);
    assert(xml_controls != NULL);

    /* parse the controls tree for caller control digit strings */
    for (xml_kvp = switch_xml_child(xml_controls, "control"); xml_kvp; xml_kvp = xml_kvp->next) {
        char *key = (char *) switch_xml_attr(xml_kvp, "action");
        char *val = (char *) switch_xml_attr(xml_kvp, "digits");
        char *data = (char *)switch_xml_attr_soft(xml_kvp, "data");

        if (!switch_strlen_zero(key) && !switch_strlen_zero(val)) {
            uint32_t i;

            /* scan through all of the valid actions, and if found, */
            /* set the new caller control action digit string, then */
            /* stop scanning the table, and go to the next xml kvp. */
            for(i = 0, status = SWITCH_STATUS_NOOP; i<CCFNTBL_QTY && status == SWITCH_STATUS_NOOP; i++) {

                if (strcasecmp(ccfntbl[i].key, key) == 0) {
                    status = SWITCH_STATUS_SUCCESS;
#ifdef OPTION_IVR_MENU_SUPPORT
                    if (xml_menus != NULL && ccfntbl[i].action == CALLER_CONTROL_MENU) {
                        char *menu_group_name = strdup(data);
                        char *menu_name = (menu_group_name != NULL ? strchr(menu_group_name, '/') : NULL);

                        /* format: "menu_group_name/menu_name" */
                        /* separate the menu name from the menu group */
                        if (menu_name != NULL) {
                            *(menu_name++) = '\0';
                        }
                        /* if there is a menu name, build the menu */
                        if (menu_name != NULL) {
                            caller_control_menu_ctx_t *menu_ctx = NULL;
                            switch_xml_t menu_group = switch_xml_find_child(xml_menus, "group", "name", menu_group_name);

                            status = conference_caller_control_menu_build(&menu_ctx, conference, menu_group, menu_name);
                            data = (char *)menu_ctx;
                        } else {
                            status = SWITCH_STATUS_FALSE;
                        }

                        if (status != SWITCH_STATUS_SUCCESS) {
                            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to build menu '%s' bound to '%s'\n", data, val);
                        }

                        /* clean up */
                        if (menu_group_name != NULL) {
                            free(menu_group_name);
                        }
                    }
#endif

                    if (status == SWITCH_STATUS_SUCCESS) {
                        caller_control_action_t *action;

                        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Installing caller control action '%s' bound to '%s'.\n", key, val);
                        action = (caller_control_action_t *)switch_core_alloc(conference->pool, sizeof(caller_control_action_t));
                        if (action != NULL) {
                            action->fndesc = &ccfntbl[i];
                            action->data = (void *)data;
                            status = switch_ivr_digit_stream_parser_set_event(conference->dtmf_parser, val, action);
                        } else {
                            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "unable to alloc memory for caller control binding '%s' to '%s'\n", ccfntbl[i].key, ccfntbl[i].digits);
                            status = SWITCH_STATUS_MEMERR;
                        }
                    }
                }
            }
            if (status == SWITCH_STATUS_NOOP) {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Invalid caller control action name '%s'.\n", key);
            }
        } else {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_WARNING, "Invalid caller control config entry pair action = '%s' digits = '%s'\n", key, val);
        }
    }

    return status;
}

/* create a new conferene with a specific profile */
static conference_obj_t *conference_new(char *name, conf_xml_cfg_t cfg, switch_memory_pool_t *pool)
{
    conference_obj_t *conference;
    switch_xml_t xml_kvp;
    char *rate_name = NULL;
    char *interval_name = NULL;
    char *timer_name = NULL;
    char *domain = NULL;
    char *tts_engine = NULL;
    char *tts_voice = NULL;
    char *enter_sound = NULL;
    char *sound_prefix = NULL;
    char *exit_sound = NULL;
    char *alone_sound = NULL;
    char *ack_sound = NULL;
    char *nack_sound = NULL;
    char *muted_sound = NULL;
    char *unmuted_sound = NULL;
    char *locked_sound = NULL;
    char *is_locked_sound = NULL;
    char *is_unlocked_sound = NULL;
    char *kicked_sound = NULL;
    char *pin = NULL;
    char *pin_sound = NULL; 
    char *bad_pin_sound = NULL;
    char *energy_level = NULL;
    char *caller_id_name = NULL;
    char *caller_id_number = NULL;
    char *caller_controls = NULL;
    uint32_t rate = 8000, interval = 20;
    switch_status_t status;

    /* Validate the conference name */
    if (switch_strlen_zero(name)) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Invalid Record! no name.\n");
        return NULL;
    }

    /* parse the profile tree for param values */
    for (xml_kvp = switch_xml_child(cfg.profile, "param"); xml_kvp; xml_kvp = xml_kvp->next) {
        char *var = (char *) switch_xml_attr_soft(xml_kvp, "name");
        char *val = (char *) switch_xml_attr_soft(xml_kvp, "value");
        char buf[128] = "";
        char *p;

        if ((p = strchr(var, '_'))) {
            switch_copy_string(buf, var, sizeof(buf));
            for(p = buf; *p; p++) {
                if (*p == '_') {
                    *p = '-';
                }
            }
            var = buf;
        }

        if (!strcasecmp(var, "rate")) {
            rate_name = val;
        } else if (!strcasecmp(var, "domain")) {
            domain = val;
        } else if (!strcasecmp(var, "interval")) {
            interval_name = val;
        } else if (!strcasecmp(var, "timer-name")) {
            timer_name = val;
        } else if (!strcasecmp(var, "tts-engine")) {
            tts_engine = val;
        } else if (!strcasecmp(var, "tts-voice")) {
            tts_voice = val;
        } else if (!strcasecmp(var, "enter-sound")) {
            enter_sound = val;
        } else if (!strcasecmp(var, "exit-sound")) {
            exit_sound = val;
        } else if (!strcasecmp(var, "alone-sound")) {
            alone_sound = val;
        } else if (!strcasecmp(var, "ack-sound")) {
            ack_sound = val;
        } else if (!strcasecmp(var, "nack-sound")) {
            nack_sound = val;
        } else if (!strcasecmp(var, "muted-sound")) {
            muted_sound = val;
        } else if (!strcasecmp(var, "unmuted-sound")) {
            unmuted_sound = val;
        } else if (!strcasecmp(var, "locked-sound")) {
            locked_sound = val;
        } else if (!strcasecmp(var, "is-locked-sound")) {
            is_locked_sound = val;
        } else if (!strcasecmp(var, "is-unlocked-sound")) {
            is_unlocked_sound = val;
        } else if (!strcasecmp(var, "kicked-sound")) {
            kicked_sound = val;
        } else if (!strcasecmp(var, "pin")) {
            pin = val;
        } else if (!strcasecmp(var, "pin-sound")) {
            pin_sound = val;
        } else if (!strcasecmp(var, "bad-pin-sound")) {
            bad_pin_sound = val;
        } else if (!strcasecmp(var, "energy-level")) {
            energy_level = val;
        } else if (!strcasecmp(var, "caller-id-name")) {
            caller_id_name = val;
        } else if (!strcasecmp(var, "caller-id-number")) {
            caller_id_number = val;
        } else if (!strcasecmp(var, "caller-controls")) {
            caller_controls = val;
        } else if (!strcasecmp(var, "sound-prefix")) {
            sound_prefix = val;
        }
    }

    /* Set defaults and various paramaters */

    /* Speed in hertz */
    if (!switch_strlen_zero(rate_name)) {
        uint32_t r = atoi(rate_name);
        if (r) {
            rate = r;
        }
    }

    /* Packet Interval in milliseconds */
    if (!switch_strlen_zero(interval_name)) {
        uint32_t i = atoi(interval_name);
        if (i) {
            interval = i;
        }
    }

    /* Timer module to use */
    if (switch_strlen_zero(timer_name)) {
        timer_name = "soft";
    }

    /* Caller ID Name */
    if (switch_strlen_zero(caller_id_name)) {
        caller_id_name = (char *) global_app_name;
    }

    /* Caller ID Number */
    if (switch_strlen_zero(caller_id_number)) {
        caller_id_number = "0000000000";
    }

    if (!pool) {
        /* Setup a memory pool to use. */
        if (switch_core_new_memory_pool(&pool) != SWITCH_STATUS_SUCCESS) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Pool Failure\n");
            status = SWITCH_STATUS_TERM;
            return NULL;
        }
    }

    /* Create the conference object. */
    if (!(conference = switch_core_alloc(pool, sizeof(*conference)))) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error!\n");
        status = SWITCH_STATUS_TERM;
        return NULL;
    }

    /* initialize the conference object with settings from the specified profile */
    conference->pool = pool;
    conference->timer_name = switch_core_strdup(conference->pool, timer_name);
    conference->tts_engine = switch_core_strdup(conference->pool, tts_engine);
    conference->tts_voice = switch_core_strdup(conference->pool, tts_voice);

    conference->caller_id_name = switch_core_strdup(conference->pool, caller_id_name);
    conference->caller_id_number = switch_core_strdup(conference->pool, caller_id_number);


    if (sound_prefix) {
        conference->sound_prefix = switch_core_strdup(conference->pool, sound_prefix);
    }

    if (!switch_strlen_zero(enter_sound)) {
        conference->enter_sound = switch_core_strdup(conference->pool, enter_sound);
    }

    if (!switch_strlen_zero(exit_sound)) {
        conference->exit_sound = switch_core_strdup(conference->pool, exit_sound);
    }

    if (!switch_strlen_zero(ack_sound)) {
        conference->ack_sound = switch_core_strdup(conference->pool, ack_sound);
    }

    if (!switch_strlen_zero(nack_sound)) {
        conference->nack_sound = switch_core_strdup(conference->pool, nack_sound);
    }

    if (!switch_strlen_zero(muted_sound)) {
        conference->muted_sound = switch_core_strdup(conference->pool, muted_sound);
    }

    if (!switch_strlen_zero(unmuted_sound)) {
        conference->unmuted_sound = switch_core_strdup(conference->pool, unmuted_sound);
    }

    if (!switch_strlen_zero(kicked_sound)) {
        conference->kicked_sound = switch_core_strdup(conference->pool, kicked_sound);
    }

    if (!switch_strlen_zero(pin_sound)) {
        conference->pin_sound = switch_core_strdup(conference->pool, pin_sound);
    }

    if (!switch_strlen_zero(bad_pin_sound)) {
        conference->bad_pin_sound = switch_core_strdup(conference->pool, bad_pin_sound);
    }

    if (!switch_strlen_zero(pin)) {
        conference->pin = switch_core_strdup(conference->pool, pin);
    }

    if (!switch_strlen_zero(alone_sound)) {
        conference->alone_sound = switch_core_strdup(conference->pool, alone_sound);
    } 

    if (!switch_strlen_zero(locked_sound)) {
        conference->locked_sound = switch_core_strdup(conference->pool, locked_sound);
    }

    if (!switch_strlen_zero(is_locked_sound)) {
        conference->is_locked_sound = switch_core_strdup(conference->pool, is_locked_sound);
    }

    if (!switch_strlen_zero(is_unlocked_sound)) {
        conference->is_unlocked_sound = switch_core_strdup(conference->pool, is_unlocked_sound);
    }

    if (!switch_strlen_zero(energy_level)) {
        conference->energy_level = atoi(energy_level);
    }

    conference->name = switch_core_strdup(conference->pool, name);
    if (domain) {
        conference->domain = switch_core_strdup(conference->pool, domain);
    } else {
        conference->domain = "cluecon.com";
    }
    conference->rate = rate;
    conference->interval = interval;
    conference->dtmf_parser = NULL;

    /* caller control configuration chores */
    if (switch_ivr_digit_stream_parser_new(conference->pool, &conference->dtmf_parser) == SWITCH_STATUS_SUCCESS) {

        /* if no controls, or default controls specified, install default */
        if (caller_controls == NULL || *caller_controls == '\0' || strcasecmp(caller_controls, "default") == 0) {
            status = conf_default_controls(conference);
        } else if (strcasecmp(caller_controls, "none") != 0) {
            /* try to build caller control if the group has been specified and != "none" */
            switch_xml_t xml_controls = switch_xml_find_child(cfg.controls, "group", "name", caller_controls);
#ifdef OPTION_IVR_MENU_SUPPORT
            status = conference_new_install_caller_controls_custom(conference, xml_controls, cfg.menus);
#else
            status = conference_new_install_caller_controls_custom(conference, xml_controls, NULL);
#endif
            if (status != SWITCH_STATUS_SUCCESS) {
                switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unable to install caller controls group '%s'\n", caller_controls);
            }
        } else {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "no caller controls intalled.\n");
        }
    } else {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unable to allocate caller control digit parser.\n");
    }

    /* Activate the conference mutex for exclusivity */
    switch_mutex_init(&conference->mutex, SWITCH_MUTEX_NESTED, conference->pool);
    switch_mutex_init(&conference->flag_mutex, SWITCH_MUTEX_NESTED, conference->pool);
    switch_thread_rwlock_create(&conference->rwlock, conference->pool);
	switch_mutex_init(&conference->member_mutex, SWITCH_MUTEX_NESTED, conference->pool);

    return conference;
}

static void pres_event_handler(switch_event_t *event) 
{ 
    char *to = switch_event_get_header(event, "to"); 
    char *dup_to = NULL, *conf_name, *e; 
    conference_obj_t *conference; 

    if (!to || strncasecmp(to, "conf+", 5)) { 
        return; 
    } 

    if (!(dup_to = strdup(to))) { 
        return; 
    } 

    conf_name = dup_to + 5; 

    if ((e = strchr(conf_name, '@'))) { 
        *e = '\0'; 
    } 

    if ((conference = (conference_obj_t *) switch_core_hash_find(globals.conference_hash, conf_name))) { 
        switch_event_t *event; 

        if (switch_event_create(&event, SWITCH_EVENT_PRESENCE_IN) == SWITCH_STATUS_SUCCESS) { 
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO); 
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", conference->name); 
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s@%s", conference->name, conference->domain); 
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "Active (%d caller%s)", conference->count, conference->count == 1 ? "" : "s"); 
            switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence"); 
            switch_event_fire(&event); 
        } 
    } else if (switch_event_create(&event, SWITCH_EVENT_PRESENCE_IN) == SWITCH_STATUS_SUCCESS) { 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO); 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", conf_name); 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s", to); 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "Idle"); 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "rpid", "idle"); 
        switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence"); 
        switch_event_fire(&event); 
    } 

    switch_safe_free(dup_to); 
} 
 
static void send_presence(switch_event_types_t id) 
{ 
    switch_xml_t cxml, cfg, advertise, room; 

    /* Open the config from the xml registry */ 
    if (!(cxml = switch_xml_open_cfg(global_cf_name, &cfg, "presence"))) { 
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", global_cf_name); 
        goto done; 
    } 

    if ((advertise = switch_xml_child(cfg, "advertise"))) { 
        for (room = switch_xml_child(advertise, "room"); room; room = room->next) { 
            char *name = (char *) switch_xml_attr_soft(room, "name"); 
            char *status = (char *) switch_xml_attr_soft(room, "status"); 
            switch_event_t *event; 

            if (name && switch_event_create(&event, id) == SWITCH_STATUS_SUCCESS) { 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "proto", CONF_CHAT_PROTO); 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "login", "%s", name); 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "from", "%s", name); 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "status", "%s", status ? status : "Available"); 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "rpid", "idle"); 
                switch_event_add_header(event, SWITCH_STACK_BOTTOM, "event_type", "presence"); 
                switch_event_fire(&event); 
            } 
        } 
    } 

 done: 
    /* Release the config registry handle */ 
    if (cxml) { 
        switch_xml_free(cxml); 
        cxml = NULL; 
    } 
} 

/* Called by FreeSWITCH when the module loads */
SWITCH_MOD_DECLARE(switch_status_t) switch_module_load(const switch_loadable_module_interface_t **module_interface, char *filename)
{
    uint32_t i;
    size_t nl, ol = 0;
    char *p = NULL;
    switch_status_t status = SWITCH_STATUS_SUCCESS;

    memset(&globals, 0, sizeof(globals));

    /* build api interface help ".syntax" field string */
    p = strdup("");
    for (i = 0; i<CONFFUNCAPISIZE; i++) {
        nl = strlen(conf_api_sub_commands[i].psyntax) + 4;
        if (p != NULL) {
            ol = strlen(p);
        }
        p = realloc(p, ol+nl);
        if (p != NULL) {
            strcat(p, "\t\t");
            strcat(p, conf_api_sub_commands[i].psyntax);
            if (i < CONFFUNCAPISIZE-1) {
                strcat(p, "\n");
            }
        }
		
    }
    /* install api interface help ".syntax" field string */
    if (p != NULL) {
        conf_api_interface.syntax = p;
    }

    /* Connect my internal structure to the blank pointer passed to me */
    *module_interface = &conference_module_interface;

    /* create/register custom event message type */
    if (switch_event_reserve_subclass(CONF_EVENT_MAINT) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Couldn't register subclass %s!", CONF_EVENT_MAINT);
        return SWITCH_STATUS_TERM;
    }

    /* Setup the pool */
    if (switch_core_new_memory_pool(&globals.conference_pool) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "OH OH no conference pool\n");
        return SWITCH_STATUS_TERM;
    }

    /* Setup a hash to store conferences by name */
    switch_core_hash_init(&globals.conference_hash, globals.conference_pool);
    switch_mutex_init(&globals.conference_mutex, SWITCH_MUTEX_NESTED, globals.conference_pool);
    switch_mutex_init(&globals.id_mutex, SWITCH_MUTEX_NESTED, globals.conference_pool);
    switch_mutex_init(&globals.hash_mutex, SWITCH_MUTEX_NESTED, globals.conference_pool);

    /* Subscribe to presence request events */
    if (switch_event_bind((char *) modname, SWITCH_EVENT_PRESENCE_PROBE, SWITCH_EVENT_SUBCLASS_ANY, pres_event_handler, NULL) != SWITCH_STATUS_SUCCESS) {
        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Couldn't subscribe to presence request events!\n");
        return SWITCH_STATUS_GENERR;
    }

    send_presence(SWITCH_EVENT_PRESENCE_IN);

    globals.running = 1;
    /* indicate that the module should continue to be loaded */
    return status;
}

SWITCH_MOD_DECLARE(switch_status_t) switch_module_shutdown(void)
{
    if (globals.running) {

        /* signal all threads to shutdown */
        globals.running = 0;

        /* wait for all threads */
        while (globals.threads) {
            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Waiting for %d threads\n", globals.threads);
            switch_yield(100000);
        }

        /* free api interface help ".syntax" field string */
        if (conf_api_interface.syntax != NULL) {
            free((char *)conf_api_interface.syntax);
        }
    }

    return SWITCH_STATUS_SUCCESS;
}

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