diff --git a/src/include/private/switch_core_pvt.h b/src/include/private/switch_core_pvt.h
index 2df37b0e05..6d36bae008 100644
--- a/src/include/private/switch_core_pvt.h
+++ b/src/include/private/switch_core_pvt.h
@@ -98,8 +98,7 @@ typedef enum {
 	SSF_READ_TRANSCODE = (1 << 5),
 	SSF_WRITE_TRANSCODE = (1 << 6),
 	SSF_READ_CODEC_RESET = (1 << 7),
-	SSF_WRITE_CODEC_RESET = (1 << 8),
-	SSF_DESTROYABLE = (1 << 9)
+	SSF_WRITE_CODEC_RESET = (1 << 8)
 } switch_session_flag_t;
 
 
diff --git a/src/mod/endpoints/mod_opal/Makefile b/src/mod/endpoints/mod_opal/Makefile
index d80ba64e57..fc0fc4873d 100644
--- a/src/mod/endpoints/mod_opal/Makefile
+++ b/src/mod/endpoints/mod_opal/Makefile
@@ -1,19 +1,7 @@
 BASE=../../../..
-
-PKG_DIR:=/usr/local/lib/pkgconfig
-ifeq ($(PKG_CONFIG_PATH),)
-  export PKG_CONFIG_PATH:=$(PKG_DIR)
-else
-  ifeq ($(findstring $(PKG_DIR),$(PKG_CONFIG_PATH)),)
-    export PKG_CONFIG_PATH:=$(PKG_CONFIG_PATH):$(PKG_DIR)
-  endif
-endif
-
-#DEBUG_SUFFIX:=--define-variable=suffix=_d
-
-LOCAL_INSERT_CFLAGS= pkg-config opal $(DEBUG_SUFFIX) --cflags 
-LOCAL_CFLAGS+=-g -ggdb
-LOCAL_INSERT_LDFLAGS= pkg-config opal $(DEBUG_SUFFIX) --libs
+LOCAL_INSERT_CFLAGS= pkg-config opal --cflags 
+LOCAL_CFLAGS+=-g -ggdb -I.
+LOCAL_INSERT_LDFLAGS= pkg-config opal --libs
 
 include $(BASE)/build/modmake.rules
 
diff --git a/src/mod/endpoints/mod_opal/mod_opal.cpp b/src/mod/endpoints/mod_opal/mod_opal.cpp
index cf160ba527..0760588019 100644
--- a/src/mod/endpoints/mod_opal/mod_opal.cpp
+++ b/src/mod/endpoints/mod_opal/mod_opal.cpp
@@ -1,1280 +1,1486 @@
-/* Opal endpoint interface for Freeswitch Modular Media Switching Software Library /
- * Soft-Switch Application
- *
- * Version: MPL 1.1
- *
- * Copyright (c) 2007 Tuyan Ozipek (tuyanozipek@gmail.com)
- * Copyright (c) 2008-2012 Vox Lucida Pty. Ltd. (robertj@voxlucida.com.au)
- *
- * 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.
- *
- * Contributor(s):
- * Tuyan Ozipek   (tuyanozipek@gmail.com)
- * Lukasz Zwierko (lzwierko@gmail.com)
- * Robert Jongbloed (robertj@voxlucida.com.au)
- *
- */
-
-#include "mod_opal.h"
-#include <opal/patch.h>
-#include <rtp/rtp.h>
-#include <h323/h323pdu.h>
-#include <h323/gkclient.h>
-
-
-/* FreeSWITCH does not correctly handle an H.323 subtely, that is that a
-   MAXIMUM audio frames per packet is nototiated, and there is no
-   requirement for the remote to actually send that many. So, in say GSM, we
-   negotiate up to 3 frames or 60ms of data and the remote actually sends one
-   (20ms) frame per packet. Perfectly legal but blows up the media handling
-   in FS.
-
-   Eventually we will get around to bundling the packets, but not yet. This
-   compile flag will just force one frame/packet for all audio codecs.
- */
-#define IMPLEMENT_MULTI_FAME_AUDIO 0
-
-
-static switch_call_cause_t create_outgoing_channel(switch_core_session_t   *session,
-                                                   switch_event_t          *var_event,
-                                                   switch_caller_profile_t *outbound_profile,
-                                                   switch_core_session_t  **new_session,
-                                                   switch_memory_pool_t   **pool,
-                                                   switch_originate_flag_t  flags,
-                                                   switch_call_cause_t     *cancel_cause);
-
-
-static FSProcess *opal_process = NULL;
-
-
-static PConstString const ModuleName("opal");
-static char const ConfigFile[] = "opal.conf";
-
-
-static switch_io_routines_t opalfs_io_routines = {
-    /*.outgoing_channel */ create_outgoing_channel,
-    /*.read_frame */ FSConnection::read_audio_frame,
-    /*.write_frame */ FSConnection::write_audio_frame,
-    /*.kill_channel */ FSConnection::kill_channel,
-    /*.send_dtmf */ FSConnection::send_dtmf,
-    /*.receive_message */ FSConnection::receive_message,
-    /*.receive_event */ FSConnection::receive_event,
-    /*.state_change */ FSConnection::state_change,
-    /*.read_video_frame */ FSConnection::read_video_frame,
-    /*.write_video_frame */ FSConnection::write_video_frame
-};
-
-static switch_state_handler_table_t opalfs_event_handlers = {
-    /*.on_init */ FSConnection::on_init,
-    /*.on_routing */ FSConnection::on_routing,
-    /*.on_execute */ FSConnection::on_execute,
-    /*.on_hangup */ FSConnection::on_hangup,
-    /*.on_exchange_media */ FSConnection::on_exchange_media,
-    /*.on_soft_execute */ FSConnection::on_soft_execute,
-    /*.on_consume_media*/ NULL,
-    /*.on_hibernate*/ NULL,
-    /*.on_reset*/ NULL,
-    /*.on_park*/ NULL,
-    /*.on_reporting*/ NULL,
-    /*.on_destroy*/ FSConnection::on_destroy
-};
-
-
-SWITCH_BEGIN_EXTERN_C
-/*******************************************************************************/
-
-SWITCH_MODULE_LOAD_FUNCTION(mod_opal_load);
-SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_opal_shutdown);
-SWITCH_MODULE_DEFINITION(mod_opal, mod_opal_load, mod_opal_shutdown, NULL);
-
-SWITCH_MODULE_LOAD_FUNCTION(mod_opal_load)
-{
-    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "Starting loading mod_opal\n");
-
-    /* Prevent the loading of OPAL codecs via "plug ins", this is a directory
-       full of DLLs that will be loaded automatically. */
-    putenv((char *)"PTLIBPLUGINDIR=/no/thanks");
-
-
-    *module_interface = switch_loadable_module_create_module_interface(pool, modname);
-    if (!*module_interface) {
-        return SWITCH_STATUS_MEMERR;
-    }
-
-    opal_process = new FSProcess();
-    if (opal_process == NULL) {
-        return SWITCH_STATUS_MEMERR;
-    }
-
-    if (opal_process->Initialise(*module_interface)) {
-        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "Opal manager initialized and running\n");
-        //unloading causes a seg in linux
-        //return SWITCH_STATUS_UNLOAD;
-        return SWITCH_STATUS_SUCCESS;
-    }
-
-    delete opal_process;
-    opal_process = NULL;
-    return SWITCH_STATUS_FALSE;
-}
-
-
-SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_opal_shutdown)
-{
-    delete opal_process;
-    opal_process = NULL;
-    return SWITCH_STATUS_SUCCESS;
-}
-
-SWITCH_END_EXTERN_C
-/*******************************************************************************/
-
-///////////////////////////////////////////////////////////////////////
-
-#if PTRACING
-
-class FSTrace : public std::ostream
-{
-private:
-  class Buffer : public std::stringbuf
-  {
-    virtual int sync()
-    {
-      std::string s = str();
-      if (s.empty())
-        return 0;
-
-      //Due to explicit setting of flags we know exactly what we are getting
-  #define THREAD_ID_INDEX 2
-  #define FILE_NAME_INDEX 3
-  #define FILE_LINE_INDEX 4
-#if PTLIB_CHECK_VERSION(2,11,1)
-  #define CONTEXT_ID_REGEX "([0-9]+|- - - - - - -)\t"
-  #define LOG_PRINTF_FORMAT "{%s,%s} %s"
-  #define FULL_TEXT_INDEX 6
-#else
-  #define CONTEXT_ID_REGEX
-  #define LOG_PRINTF_FORMAT "{%s} %s"
-  #define FULL_TEXT_INDEX 5
-#endif
-      PStringArray fields(7);
-      static PRegularExpression logRE("^([0-9]+)\t *(.+)\t *([^(]+)\\(([0-9]+)\\)\t"CONTEXT_ID_REGEX"(.*)",
-                                      PRegularExpression::Extended);
-      if (!logRE.Execute(s.c_str(), fields)) {
-        fields[1] = "4";
-        fields[THREAD_ID_INDEX] = "unknown";
-        fields[FILE_NAME_INDEX] = __FILE__;
-        fields[FILE_LINE_INDEX] = __LINE__;
-        fields[FULL_TEXT_INDEX] = s;
-      }
-
-      switch_log_level_t level;
-      switch (fields[1].AsUnsigned()) {
-        case 0 :
-          level = SWITCH_LOG_ALERT;
-          break;
-        case 1 :
-          level = SWITCH_LOG_ERROR;
-          break;
-        case 2 :
-          level = SWITCH_LOG_WARNING;
-          break;
-        case 3 :
-          level = SWITCH_LOG_INFO;
-          break;
-        default :
-          level = SWITCH_LOG_DEBUG;
-          break;
-      }
-
-      fields[4].Replace("\t", " ", true);
-#if PTLIB_CHECK_VERSION(2,11,1)
-      fields[5].Replace("- - - - - - -", "-"),
-#endif
-      switch_log_printf(SWITCH_CHANNEL_ID_LOG,
-                        fields[FILE_NAME_INDEX],
-                        "PTLib-OPAL",
-                        fields[FILE_LINE_INDEX].AsUnsigned(),
-                        NULL,
-                        level,
-                        LOG_PRINTF_FORMAT,
-                        fields[THREAD_ID_INDEX].GetPointer(),
-#if PTLIB_CHECK_VERSION(2,11,1)
-                        fields[5].GetPointer(),
-#endif
-                        fields[FULL_TEXT_INDEX].GetPointer());
-
-      // Reset string
-      str(std::string());
-      return 0;
-    }
-  } buffer;
-
-public:
-  FSTrace()
-    : ostream(&buffer)
-  {
-  }
-};
-
-#endif // PTRACING
-
-
-///////////////////////////////////////////////////////////////////////
-
-FSProcess::FSProcess()
-  : PLibraryProcess("Vox Lucida Pty. Ltd.", MODNAME, 1, 1, BetaCode, 1)
-  , m_manager(NULL)
-{
-}
-
-
-FSProcess::~FSProcess()
-{
-  delete m_manager;
-#if PTRACING
-    PTrace::SetStream(NULL); // This will delete the FSTrace object
-#endif
-}
-
-
-bool FSProcess::Initialise(switch_loadable_module_interface_t *iface)
-{
-    m_manager = new FSManager();
-    return m_manager != NULL && m_manager->Initialise(iface);
-}
-
-
-///////////////////////////////////////////////////////////////////////
-
-FSManager::FSManager()
-  : m_context("default")
-  , m_dialplan("XML")
-{
-    // These are deleted by the OpalManager class, no need to have destructor
-    m_h323ep = new H323EndPoint(*this);
-    m_iaxep = new IAX2EndPoint(*this);
-    m_fsep = new FSEndPoint(*this);
-}
-
-
-bool FSManager::Initialise(switch_loadable_module_interface_t *iface)
-{
-    ReadConfig(false);
-
-    m_FreeSwitch = (switch_endpoint_interface_t *) switch_loadable_module_create_interface(iface, SWITCH_ENDPOINT_INTERFACE);
-    m_FreeSwitch->interface_name = ModuleName;
-    m_FreeSwitch->io_routines = &opalfs_io_routines;
-    m_FreeSwitch->state_handler = &opalfs_event_handlers;
-
-    silenceDetectParams.m_mode = OpalSilenceDetector::NoSilenceDetection;
-
-    if (m_listeners.empty()) {
-        m_h323ep->StartListener("");
-    } else {
-        for (std::list < FSListener >::iterator it = m_listeners.begin(); it != m_listeners.end(); ++it) {
-            if (!m_h323ep->StartListener(OpalTransportAddress(it->m_address, it->m_port))) {
-                PTRACE(2, "mod_opal\tCannot start listener for " << it->m_name);
-            }
-        }
-    }
-
-    AddRouteEntry("h323:.* = local:<da>");  // config option for direct routing
-    AddRouteEntry("iax2:.* = local:<da>");  // config option for direct routing
-    AddRouteEntry("local:.* = h323:<da>");  // config option for direct routing
-
-    // Make sure all known codecs are instantiated,
-    // these are ones we know how to translate into H.323 capabilities
-    GetOpalG728();
-    GetOpalG729();
-    GetOpalG729A();
-    GetOpalG729B();
-    GetOpalG729AB();
-    GetOpalG7231_6k3();
-    GetOpalG7231_5k3();
-    GetOpalG7231A_6k3();
-    GetOpalG7231A_5k3();
-    GetOpalGSM0610();
-    GetOpalGSMAMR();
-    GetOpaliLBC();
-
-#if !IMPLEMENT_MULTI_FAME_AUDIO
-    OpalMediaFormatList allCodecs = OpalMediaFormat::GetAllRegisteredMediaFormats();
-    for (OpalMediaFormatList::iterator it = allCodecs.begin(); it != allCodecs.end(); ++it) {
-      if (it->GetMediaType() == OpalMediaType::Audio()) {
-        it->SetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption(), 1);
-        it->SetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption(), 1);
-        OpalMediaFormat::SetRegisteredMediaFormat(*it);
-      }
-    }
-#endif // IMPLEMENT_MULTI_FAME_AUDIO
-
-    if (!m_gkAddress.IsEmpty()) {
-      if (m_h323ep->UseGatekeeper(m_gkAddress, m_gkIdentifer, m_gkInterface))
-        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Started gatekeeper: %s\n",
-                          (const char *)m_h323ep->GetGatekeeper()->GetName());
-      else
-        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR,
-                          "Could not start gatekeeper: addr=\"%s\", id=\"%s\", if=\"%s\"\n",
-                          (const char *)m_gkAddress,
-                          (const char *)m_gkIdentifer,
-                          (const char *)m_gkInterface);
-    }
-
-    return TRUE;
-}
-
-
-switch_status_t FSManager::ReadConfig(int reload)
-{
-    switch_event_t *request_params = NULL;
-    switch_event_create(&request_params, SWITCH_EVENT_REQUEST_PARAMS);
-    switch_assert(request_params);
-    switch_event_add_header_string(request_params, SWITCH_STACK_BOTTOM, "profile", switch_str_nil(""));
-
-    switch_xml_t cfg;
-    switch_xml_t xml = switch_xml_open_cfg(ConfigFile, &cfg, request_params);
-    if (xml == NULL) {
-        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", ConfigFile);
-        return SWITCH_STATUS_FALSE;
-    }
-
-    switch_xml_t xmlSettings = switch_xml_child(cfg, "settings");
-    if (xmlSettings) {
-        for (switch_xml_t xmlParam = switch_xml_child(xmlSettings, "param"); xmlParam != NULL; xmlParam = xmlParam->next) {
-            PConstCaselessString const var(switch_xml_attr_soft(xmlParam, "name"));
-            PConstString const val(switch_xml_attr_soft(xmlParam, "value"));
-
-            if (var == "context") {
-                m_context = val;
-            } else if (var == "dialplan") {
-                m_dialplan = val;
-            } else if (var == "codec-prefs") {
-                m_codecPrefs = val;
-            } else if (var == "disable-transcoding") {
-                m_disableTranscoding = switch_true(val);
-            } else if (var == "jitter-size") {
-                SetAudioJitterDelay(val.AsUnsigned(), val.Mid(val.Find(',')+1).AsUnsigned()); // In milliseconds
-            } else if (var == "gk-address") {
-                m_gkAddress = val;
-            } else if (var == "gk-identifer") {
-                m_gkIdentifer = val;
-            } else if (var == "gk-interface") {
-                m_gkInterface = val;
-#if PTRACING
-            } else if (var == "trace-level") {
-                unsigned level = val.AsUnsigned();
-                if (level > 0) {
-                    PTrace::SetLevel(level);
-                    PTrace::ClearOptions(0xffffffff); // Everything off
-                    PTrace::SetOptions(               // Except these
-                      PTrace::TraceLevel|PTrace::FileAndLine|PTrace::Thread
-#if PTLIB_CHECK_VERSION(2,11,1)
-                      |PTrace::ContextIdentifier
-#endif
-                    );
-                    PTrace::SetStream(new FSTrace);
-                }
-#endif
-            }
-        }
-    }
-
-    switch_xml_t xmlListeners = switch_xml_child(cfg, "listeners");
-    if (xmlListeners != NULL) {
-        for (switch_xml_t xmlListener = switch_xml_child(xmlListeners, "listener"); xmlListener != NULL; xmlListener = xmlListener->next) {
-
-            m_listeners.push_back(FSListener());
-            FSListener & listener = m_listeners.back();
-
-            listener.m_name = switch_xml_attr_soft(xmlListener, "name");
-            if (listener.m_name.IsEmpty())
-                listener.m_name = "unnamed";
-
-            for (switch_xml_t xmlParam = switch_xml_child(xmlListener, "param"); xmlParam != NULL; xmlParam = xmlParam->next) {
-                PConstCaselessString const var(switch_xml_attr_soft(xmlParam, "name"));
-                PConstString const val(switch_xml_attr_soft(xmlParam, "value"));
-                if (var == "h323-ip")
-                    listener.m_address = val;
-                else if (var == "h323-port")
-                    listener.m_port = (uint16_t)val.AsUnsigned();
-            }
-
-            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Created Listener '%s'\n", (const char *) listener.m_name);
-        }
-    }
-
-    switch_event_destroy(&request_params);
-
-    if (xml)
-        switch_xml_free(xml);
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-static switch_call_cause_t create_outgoing_channel(switch_core_session_t   *session,
-                                                   switch_event_t          *var_event,
-                                                   switch_caller_profile_t *outbound_profile,
-                                                   switch_core_session_t  **new_session,
-                                                   switch_memory_pool_t   **pool,
-                                                   switch_originate_flag_t  flags,
-                                                   switch_call_cause_t     *cancel_cause)
-{
-    if (opal_process == NULL)
-      return SWITCH_CAUSE_CRASH;
-
-    FSConnection::outgoing_params params;
-    params.var_event        = var_event;
-    params.outbound_profile = outbound_profile;
-    params.new_session      = new_session;
-    params.pool             = pool;
-    params.flags            = flags;
-    params.cancel_cause     = cancel_cause;
-    params.fail_cause       = SWITCH_CAUSE_INVALID_NUMBER_FORMAT;
-
-    if (opal_process->GetManager().SetUpCall("local:", outbound_profile->destination_number, &params) != NULL)
-        return SWITCH_CAUSE_SUCCESS;
-
-    if (*new_session != NULL)
-        switch_core_session_destroy(new_session);
-    return params.fail_cause;
-}
-
-
-///////////////////////////////////////////////////////////////////////
-
-FSEndPoint::FSEndPoint(FSManager & manager)
-  : OpalLocalEndPoint(manager)
-  , m_manager(manager)
-{
-    PTRACE(4, "mod_opal\tFSEndPoint created.");
-}
-
-
-OpalLocalConnection *FSEndPoint::CreateConnection(OpalCall & call, void *userData, unsigned options, OpalConnection::StringOptions* stringOptions)
-{
-    return new FSConnection(call, *this, options, stringOptions, (FSConnection::outgoing_params *)userData);
-}
-
-
-///////////////////////////////////////////////////////////////////////
-
-FSConnection::FSConnection(OpalCall & call,
-                           FSEndPoint & endpoint,
-                           unsigned options,
-                           OpalConnection::StringOptions* stringOptions,
-                           outgoing_params * params)
-  : OpalLocalConnection(call, endpoint, NULL, options, stringOptions)
-  , m_endpoint(endpoint)
-  , m_fsSession(NULL)
-  , m_fsChannel(NULL)
-  , m_flushAudio(false)
-{
-    memset(&m_read_timer, 0, sizeof(m_read_timer));
-    memset(&m_read_codec, 0, sizeof(m_read_codec));
-    memset(&m_write_codec, 0, sizeof(m_write_codec));
-    memset(&m_vid_read_timer, 0, sizeof(m_vid_read_timer));
-    memset(&m_vid_read_codec, 0, sizeof(m_vid_read_codec));
-    memset(&m_vid_write_codec, 0, sizeof(m_vid_write_codec));
-
-    if (params != NULL) {
-        // If we fail, this is the cause
-        params->fail_cause = SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER;
-
-        if ((m_fsSession = switch_core_session_request(endpoint.GetManager().GetSwitchInterface(),
-                  SWITCH_CALL_DIRECTION_INBOUND, params->flags, params->pool)) == NULL) {
-            PTRACE(1, "mod_opal\tCannot create session for outgoing call.");
-            return;
-        }
-    }
-    else {
-      if ((m_fsSession = switch_core_session_request(endpoint.GetManager().GetSwitchInterface(),
-                                                     SWITCH_CALL_DIRECTION_INBOUND, SOF_NONE, NULL)) == NULL) {
-            PTRACE(1, "mod_opal\tCannot create session for incoming call.");
-            return;
-      }
-    }
-
-    if ((m_fsChannel = switch_core_session_get_channel(m_fsSession)) == NULL) {
-        switch_core_session_destroy(&m_fsSession);
-        return;
-    }
-
-    switch_core_session_set_private(m_fsSession, this);
-    SafeReference(); // Make sure cannot be deleted until on_destroy()
-
-    if (params != NULL) {
-        switch_caller_profile_t *caller_profile = switch_caller_profile_clone(m_fsSession, params->outbound_profile);
-        switch_channel_set_caller_profile(m_fsChannel, caller_profile);
-        SetLocalPartyName(caller_profile->caller_id_number);
-        SetDisplayName(caller_profile->caller_id_name);
-
-        *params->new_session = m_fsSession;
-    }
-
-    switch_channel_set_state(m_fsChannel, CS_INIT);
-}
-
-
-bool FSConnection::OnOutgoingSetUp()
-{
-    if (m_fsSession == NULL || m_fsChannel == NULL) {
-        PTRACE(1, "mod_opal\tSession request failed.");
-        return false;
-    }
-
-    // Transfer FS caller_id_number & caller_id_name from the FSConnection
-    // to the protocol connection (e.g. H.323) so gets sent correctly
-    // in outgoing packets
-    PSafePtr<OpalConnection> proto = GetOtherPartyConnection();
-    if (proto == NULL) {
-        PTRACE(1, "mod_opal\tNo protocol connection in call.");
-        return false;
-    }
-
-    proto->SetLocalPartyName(GetLocalPartyName());
-    proto->SetDisplayName(GetDisplayName());
-
-    switch_channel_set_name(m_fsChannel, ModuleName + '/' + GetRemotePartyURL());
-    return true;
-}
-
-
-bool FSConnection::OnIncoming()
-{
-    if (m_fsSession == NULL || m_fsChannel == NULL) {
-        PTRACE(1, "mod_opal\tSession request failed.");
-        return false;
-    }
-
-    switch_core_session_add_stream(m_fsSession, NULL);
-
-    PURL url = GetRemotePartyURL();
-    switch_caller_profile_t *caller_profile = switch_caller_profile_new(
-          switch_core_session_get_pool(m_fsSession),
-          url.GetUserName(),      /** username */
-          m_endpoint.GetManager().GetDialPlan(), /** dial plan */
-          GetRemotePartyName(),   /** caller_id_name */
-          GetRemotePartyNumber(), /** caller_id_number */
-          url.GetHostName(),      /** network addr */
-          NULL,                   /** ANI */
-          NULL,                   /** ANI II */
-          NULL,                   /** RDNIS */
-          ModuleName,             /** source */
-          m_endpoint.GetManager().GetContext(), /** set context  */
-          GetCalledPartyNumber()  /** destination_number */
-    );
-    if (caller_profile == NULL) {
-        PTRACE(1, "mod_opal\tCould not create caller profile");
-        return false;
-    }
-
-    PTRACE(4, "mod_opal\tCreated switch caller profile:\n"
-              "  username          = " << caller_profile->username << "\n"
-              "  dialplan          = " << caller_profile->dialplan << "\n"
-              "  caller_id_name    = " << caller_profile->caller_id_name << "\n"
-              "  caller_id_number  = " << caller_profile->caller_id_number << "\n"
-              "  network_addr      = " << caller_profile->network_addr << "\n"
-              "  source            = " << caller_profile->source << "\n"
-              "  context           = " << caller_profile->context << "\n"
-              "  destination_number= " << caller_profile->destination_number);
-    switch_channel_set_caller_profile(m_fsChannel, caller_profile);
-
-    switch_channel_set_name(m_fsChannel, ModuleName + '/' + url.GetScheme() + ':' + caller_profile->destination_number);
-
-    if (switch_core_session_thread_launch(m_fsSession) != SWITCH_STATUS_SUCCESS) {
-        PTRACE(1, "mod_opal\tCould not launch session thread");
-        switch_core_session_destroy(&m_fsSession);
-        m_fsChannel = NULL;
-        return false;
-    }
-
-    return true;
-}
-
-
-void FSConnection::OnReleased()
-{
-    m_rxAudioOpened.Signal();   // Just in case
-    m_txAudioOpened.Signal();
-
-    if (m_fsChannel == NULL) {
-        PTRACE(3, "mod_opal\tHanging up FS side");
-        switch_channel_hangup(m_fsChannel, (switch_call_cause_t)callEndReason.q931);
-    }
-
-    OpalLocalConnection::OnReleased();
-}
-
-
-PBoolean FSConnection::SetAlerting(const PString & calleeName, PBoolean withMedia)
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return false;
-
-    switch_channel_mark_ring_ready(m_fsChannel);
-    return OpalLocalConnection::SetAlerting(calleeName, withMedia);
-}
-
-
-PBoolean FSConnection::SendUserInputTone(char tone, unsigned duration)
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return false;
-
-    switch_dtmf_t dtmf = { tone, duration };
-    return switch_channel_queue_dtmf(m_fsChannel, &dtmf) == SWITCH_STATUS_SUCCESS;
-}
-
-
-OpalMediaFormatList FSConnection::GetMediaFormats() const
-{
-    if (m_switchMediaFormats.IsEmpty()) {
-        const_cast<FSConnection *>(this)->SetCodecs();
-    }
-
-    return m_switchMediaFormats;
-}
-
-
-void FSConnection::SetCodecs()
-{
-    int numCodecs = 0;
-    const switch_codec_implementation_t *codecs[SWITCH_MAX_CODECS];
-
-    PString codec_string = switch_channel_get_variable(m_fsChannel, "absolute_codec_string");
-    if (codec_string.IsEmpty()) {
-        codec_string = switch_channel_get_variable(m_fsChannel, "codec_string");
-        if (codec_string.IsEmpty()) {
-            codec_string = m_endpoint.GetManager().GetCodecPrefs();
-            if (codec_string.IsEmpty()) {
-                numCodecs = switch_loadable_module_get_codecs(codecs, sizeof(codecs) / sizeof(codecs[0]));
-                for (int i = 0; i < numCodecs; i++) {
-                  if (i > 0)
-                    codec_string += ',';
-                  codec_string += codecs[i]->iananame;
-                }
-                PTRACE(4, "mod_opal\tDefault to all loaded codecs=" << codec_string);
-            }
-            else {
-                PTRACE(4, "mod_opal\tSettings codec-prefs=" << codec_string);
-            }
-        }
-        else {
-            PTRACE(4, "mod_opal\tChannel codec_string=" << codec_string);
-        }
-
-        PString orig_codec = switch_channel_get_variable(m_fsChannel, SWITCH_ORIGINATOR_CODEC_VARIABLE);
-        if (!orig_codec.IsEmpty()) {
-          if (m_endpoint.GetManager().GetDisableTranscoding()) {
-              codec_string = orig_codec;
-              PTRACE(4, "mod_opal\tNo transcoding, forced to originator codec=" << orig_codec);
-          }
-          else {
-              codec_string.Splice(orig_codec+',', 0);
-              PTRACE(4, "mod_opal\tSetting preference to originator codec=" << orig_codec);
-          }
-        }
-    }
-    else {
-        PTRACE(4, "mod_opal\tChannel absolute_codec_string=" << codec_string);
-    }
-
-    {
-        char *codec_order[SWITCH_MAX_CODECS];
-        int codec_order_last = switch_separate_string((char *)codec_string.GetPointer(), ',', codec_order, SWITCH_MAX_CODECS);
-        numCodecs = switch_loadable_module_get_codecs_sorted(codecs, SWITCH_MAX_CODECS, codec_order, codec_order_last);
-    }
-
-    for (int i = 0; i < numCodecs; i++) {
-        const switch_codec_implementation_t *codec = codecs[i];
-
-        // See if we have a match by PayloadType/rate/name
-        OpalMediaFormat switchFormat((RTP_DataFrame::PayloadTypes)codec->ianacode,
-                                     codec->samples_per_second,
-                                     codec->iananame);
-        if (!switchFormat.IsValid()) {
-            // See if we have a match by name alone
-            switchFormat = codec->iananame;
-            if (!switchFormat.IsValid()) {
-              PTRACE(2, "mod_opal\tCould not match FS codec "
-                     << codec->iananame << '@' << codec->samples_per_second
-                     << " (pt=" << (unsigned)codec->ianacode << ")"
-                        " to an OPAL media format.");
-              continue;
-            }
-        }
-
-        PTRACE(4, "mod_opal\tMatched FS codec " << codec->iananame << " to OPAL media format " << switchFormat);
-
-#if IMPLEMENT_MULTI_FAME_AUDIO
-        // Did we match or create a new media format?
-        if (switchFormat.IsValid() && codec->codec_type == SWITCH_CODEC_TYPE_AUDIO) {
-            // Calculate frames per packet, do not use codec->codec_frames_per_packet as that field
-            // has slightly different semantics when used in streamed codecs such as G.711
-            int fpp = codec->samples_per_packet/switchFormat.GetFrameTime();
-
-            /* Set the frames/packet to maximum of what is in the FS table. The OPAL negotiations will
-               drop the value from there. This might fail if there are "holes" in the FS table, e.g.
-               if for some reason G.723.1 has 30ms and 90ms but not 60ms, then the OPAL negotiations
-               could end up with 60ms and the codec cannot be created. The "holes" are unlikely in
-               all but streamed codecs such as G.711, where it is theoretically possible for OPAL to
-               come up with 32ms and there is only 30ms and 40ms in the FS table. We deem these
-               scenarios sufficiently rare that we can safely ignore them ... for now. */
-
-            if (fpp > switchFormat.GetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption())) {
-                switchFormat.SetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption(), fpp);
-            }
-
-            if (fpp > switchFormat.GetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption())) {
-                switchFormat.SetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption(), fpp);
-            }
-        }
-#endif // IMPLEMENT_MULTI_FAME_AUDIO
-
-        m_switchMediaFormats += switchFormat;
-    }
-}
-
-
-OpalMediaStream *FSConnection::CreateMediaStream(const OpalMediaFormat & mediaFormat, unsigned sessionID, PBoolean isSource)
-{
-    return new FSMediaStream(*this, mediaFormat, sessionID, isSource);
-}
-
-
-void FSConnection::OnPatchMediaStream(PBoolean isSource, OpalMediaPatch & patch)
-{
-    OpalConnection::OnPatchMediaStream(isSource, patch);
-
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return;
-
-    if (patch.GetSource().GetMediaFormat().GetMediaType() != OpalMediaType::Audio())
-        return;
-
-    if (switch_channel_direction(m_fsChannel) == SWITCH_CALL_DIRECTION_INBOUND) {
-      if (isSource)
-          m_rxAudioOpened.Signal();
-      else
-          m_txAudioOpened.Signal();
-    }
-    else if (GetMediaStream(OpalMediaType::Audio(), !isSource) != NULL) {
-        // Have open media in both directions.
-        if (IsEstablished())
-            switch_channel_mark_answered(m_fsChannel);
-        else if (!IsReleased())
-            switch_channel_mark_pre_answered(m_fsChannel);
-    }
-}
-
-
-switch_status_t FSConnection::on_init()
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return SWITCH_STATUS_FALSE;
-
-    PTRACE(4, "mod_opal\tStarted routing for connection " << *this);
-    switch_channel_set_state(m_fsChannel, CS_ROUTING);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_routing()
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return SWITCH_STATUS_FALSE;
-
-    PTRACE(4, "mod_opal\tRouting connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_execute()
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return SWITCH_STATUS_FALSE;
-
-    PTRACE(4, "mod_opal\tExecuting connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_destroy()
-{
-    PTRACE(3, "mod_opal\tFS on_destroy for connection " << *this);
-
-    m_fsChannel = NULL; // Will be destoyed by FS, so don't use it any more.
-
-    switch_core_codec_destroy(&m_read_codec);
-    switch_core_codec_destroy(&m_write_codec);
-    switch_core_codec_destroy(&m_vid_read_codec);
-    switch_core_codec_destroy(&m_vid_write_codec);
-    switch_core_timer_destroy(&m_read_timer);
-    switch_core_timer_destroy(&m_vid_read_timer);
-
-    switch_core_session_set_private(m_fsSession, NULL);
-    SafeDereference();
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_hangup()
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return SWITCH_STATUS_FALSE;
-
-    /* if this is still here it was our idea to hangup not opal's */
-    ClearCallSynchronous(NULL, H323TranslateToCallEndReason(
-              (Q931::CauseValues)switch_channel_get_cause_q850(m_fsChannel), UINT_MAX));
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_exchange_media()
-{
-    PTRACE(4, "mod_opal\tExchanging media on connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::on_soft_execute()
-{
-    PTRACE(4, "mod_opal\tTransmit on connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::kill_channel(int sig)
-{
-    switch (sig) {
-    case SWITCH_SIG_KILL:
-        m_rxAudioOpened.Signal();
-        m_txAudioOpened.Signal();
-        PTRACE(4, "mod_opal\tSignal channel KILL on connection " << *this);
-        break;
-    case SWITCH_SIG_XFER:
-    case SWITCH_SIG_BREAK:
-    default:
-        PTRACE(4, "mod_opal\tSignal channel " << sig << " on connection " << *this);
-        break;
-    }
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::send_dtmf(const switch_dtmf_t *dtmf)
-{
-    OnUserInputTone(dtmf->digit, dtmf->duration);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::receive_message(switch_core_session_message_t *msg)
-{
-    if (PAssertNULL(m_fsChannel) == NULL)
-        return SWITCH_STATUS_FALSE;
-
-    switch (msg->message_id) {
-    case SWITCH_MESSAGE_INDICATE_RINGING:
-    case SWITCH_MESSAGE_INDICATE_PROGRESS:
-    case SWITCH_MESSAGE_INDICATE_ANSWER:
-    case SWITCH_MESSAGE_INDICATE_DEFLECT:
-        if (switch_channel_direction(m_fsChannel) == SWITCH_CALL_DIRECTION_INBOUND) {
-            switch_caller_profile_t * profile = switch_channel_get_caller_profile(m_fsChannel);
-            if (profile != NULL && profile->caller_extension != NULL)
-            {
-                PSafePtr<OpalConnection> other = GetOtherPartyConnection();
-                if (other != NULL) {
-                    other->SetLocalPartyName(profile->caller_extension->extension_number);
-                    other->SetDisplayName(profile->caller_extension->extension_name);
-                }
-                SetLocalPartyName(profile->caller_extension->extension_number);
-                SetDisplayName(profile->caller_extension->extension_name);
-            }
-        }
-        else {
-            return SWITCH_STATUS_FALSE;
-        }
-        break;
-
-    default:
-        break;
-    }
-
-    switch (msg->message_id) {
-    case SWITCH_MESSAGE_INDICATE_BRIDGE:
-    case SWITCH_MESSAGE_INDICATE_UNBRIDGE:
-    case SWITCH_MESSAGE_INDICATE_AUDIO_SYNC:
-        m_flushAudio = true;
-        break;
-
-    case SWITCH_MESSAGE_INDICATE_RINGING:
-        AlertingIncoming();
-        break;
-
-    case SWITCH_MESSAGE_INDICATE_PROGRESS:
-        AutoStartMediaStreams();
-        AlertingIncoming();
-
-        if (!WaitForMedia())
-            return SWITCH_STATUS_FALSE;
-
-        if (!switch_channel_test_flag(m_fsChannel, CF_EARLY_MEDIA)) {
-            switch_channel_mark_pre_answered(m_fsChannel);
-        }
-        break;
-
-    case SWITCH_MESSAGE_INDICATE_ANSWER:
-        AcceptIncoming();
-
-        if (!WaitForMedia())
-            return SWITCH_STATUS_FALSE;
-
-        if (!switch_channel_test_flag(m_fsChannel, CF_ANSWERED)) {
-            switch_channel_mark_answered(m_fsChannel);
-        }
-        break;
-
-    case SWITCH_MESSAGE_INDICATE_DEFLECT:
-        ownerCall.Transfer(msg->string_arg, GetOtherPartyConnection());
-        break;
-
-    default:
-        PTRACE(3, "mod_opal\tReceived unhandled message " << msg->message_id << " on connection " << *this);
-    }
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-bool FSConnection::WaitForMedia()
-{
-    PTRACE(4, "mod_opal\tAwaiting media start on connection " << *this);
-    m_rxAudioOpened.Wait();
-    m_txAudioOpened.Wait();
-
-    if (IsReleased()) {
-        // Call got aborted
-        switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(m_fsSession), SWITCH_LOG_ERROR, "Call abandoned!\n");
-        return false;
-    }
-
-    PTRACE(3, "mod_opal\tMedia started on connection " << *this);
-    return true;
-}
-
-
-switch_status_t FSConnection::receive_event(switch_event_t *event)
-{
-    PTRACE(4, "mod_opal\tReceived event " << event->event_id << " on connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::state_change()
-{
-    PTRACE(4, "mod_opal\tState changed on connection " << *this);
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSConnection::read_audio_frame(switch_frame_t **frame, switch_io_flag_t flags, int stream_id)
-{
-    return read_frame(OpalMediaType::Audio(), frame, flags);
-}
-
-
-switch_status_t FSConnection::write_audio_frame(switch_frame_t *frame, switch_io_flag_t flags, int stream_id)
-{
-    return write_frame(OpalMediaType::Audio(), frame, flags);
-}
-
-
-switch_status_t FSConnection::read_video_frame(switch_frame_t **frame, switch_io_flag_t flag, int stream_id)
-{
-    return read_frame(OpalMediaType::Video(), frame, flag);
-}
-
-
-switch_status_t FSConnection::write_video_frame(switch_frame_t *frame, switch_io_flag_t flag, int stream_id)
-{
-    return write_frame(OpalMediaType::Video(), frame, flag);
-}
-
-
-switch_status_t FSConnection::read_frame(const OpalMediaType & mediaType, switch_frame_t **frame, switch_io_flag_t flags)
-{
-    PSafePtr <FSMediaStream> stream = PSafePtrCast <OpalMediaStream, FSMediaStream>(GetMediaStream(mediaType, false));
-    return stream != NULL ? stream->read_frame(frame, flags) : SWITCH_STATUS_FALSE;
-}
-
-
-switch_status_t FSConnection::write_frame(const OpalMediaType & mediaType, const switch_frame_t *frame, switch_io_flag_t flags)
-{
-    PSafePtr <FSMediaStream> stream = PSafePtrCast<OpalMediaStream, FSMediaStream>(GetMediaStream(mediaType, true));
-    return stream != NULL ? stream->write_frame(frame, flags) : SWITCH_STATUS_FALSE;
-}
-
-
-///////////////////////////////////////////////////////////////////////
-
-FSMediaStream::FSMediaStream(FSConnection & conn, const OpalMediaFormat & mediaFormat, unsigned sessionID, bool isSource)
-    : OpalMediaStream(conn, mediaFormat, sessionID, isSource)
-    , m_connection(conn)
-    , m_readRTP(0, SWITCH_RECOMMENDED_BUFFER_SIZE)
-{
-    memset(&m_readFrame, 0, sizeof(m_readFrame));
-}
-
-
-PBoolean FSMediaStream::Open()
-{
-    if (IsOpen()) {
-        return true;
-    }
-
-    switch_core_session_t *fsSession = m_connection.GetSession();
-    switch_channel_t *fsChannel = m_connection.GetChannel();
-    if (PAssertNULL(fsSession) == NULL || PAssertNULL(fsChannel) == NULL)
-        return false;
-
-    bool isAudio;
-    if (mediaFormat.GetMediaType() == OpalMediaType::Audio()) {
-        isAudio = true;
-    } else if (mediaFormat.GetMediaType() == OpalMediaType::Video()) {
-        isAudio = false;
-    } else {
-        return false;
-    }
-
-    int ptime = mediaFormat.GetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption()) * mediaFormat.GetFrameTime() / mediaFormat.GetTimeUnits();
-
-    if (IsSink()) {
-        m_switchCodec = isAudio ? &m_connection.m_read_codec : &m_connection.m_vid_read_codec;
-        m_switchTimer = isAudio ? &m_connection.m_read_timer : &m_connection.m_vid_read_timer;
-        m_readFrame.codec = m_switchCodec;
-        m_readFrame.rate = mediaFormat.GetClockRate();
-    } else {
-        m_switchCodec = isAudio ? &m_connection.m_write_codec : &m_connection.m_vid_write_codec;
-    }
-
-    // The following is performed on two different instances of this object.
-    if (switch_core_codec_init(m_switchCodec, mediaFormat.GetEncodingName(), NULL, // FMTP
-                               mediaFormat.GetClockRate(), ptime, 1,  // Channels
-                               SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,   // Settings
-                               switch_core_session_get_pool(fsSession)) != SWITCH_STATUS_SUCCESS) {
-        // Could not select a codecs using negotiated frames/packet, so try using default.
-        if (switch_core_codec_init(m_switchCodec, mediaFormat.GetEncodingName(), NULL, // FMTP
-                                   mediaFormat.GetClockRate(), 0, 1,  // Channels
-                                   SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,   // Settings
-                                   switch_core_session_get_pool(fsSession)) != SWITCH_STATUS_SUCCESS) {
-            PTRACE(1, "mod_opal\t" << switch_channel_get_name(fsChannel)
-                   << " cannot initialise " << (IsSink()? "read" : "write") << ' '
-                   << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
-            switch_channel_hangup(fsChannel, SWITCH_CAUSE_INCOMPATIBLE_DESTINATION);
-            return false;
-        }
-        PTRACE(2, "mod_opal\t" << switch_channel_get_name(fsChannel)
-               << " unsupported ptime of " << ptime << " on " << (IsSink()? "read" : "write") << ' '
-               << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
-    }
-
-    if (IsSink()) {
-        if (isAudio) {
-            switch_core_session_set_read_codec(fsSession, m_switchCodec);
-            if (switch_core_timer_init(m_switchTimer,
-                                       "soft",
-                                       m_switchCodec->implementation->microseconds_per_packet / 1000,
-                                       m_switchCodec->implementation->samples_per_packet,
-                                       switch_core_session_get_pool(fsSession)) != SWITCH_STATUS_SUCCESS) {
-                PTRACE(1, "mod_opal\t" << switch_channel_get_name(fsChannel)
-                       << " timer init failed on " << (IsSink()? "read" : "write") << ' '
-                       << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
-                switch_core_codec_destroy(m_switchCodec);
-                m_switchCodec = NULL;
-                return false;
-            }
-        } else {
-            switch_core_session_set_video_read_codec(fsSession, m_switchCodec);
-            switch_channel_set_flag(fsChannel, CF_VIDEO);
-        }
-    } else {
-        if (isAudio) {
-            switch_core_session_set_write_codec(fsSession, m_switchCodec);
-        } else {
-            switch_core_session_set_video_write_codec(fsSession, m_switchCodec);
-            switch_channel_set_flag(fsChannel, CF_VIDEO);
-        }
-    }
-
-    PTRACE(3, "mod_opal\t" << switch_channel_get_name(fsChannel)
-           << " initialised " << (IsSink()? "read" : "write") << ' '
-           << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
-
-    return OpalMediaStream::Open();
-}
-
-
-void FSMediaStream::InternalClose()
-{
-}
-
-
-PBoolean FSMediaStream::IsSynchronous() const
-{
-    return true;
-}
-
-
-PBoolean FSMediaStream::RequiresPatchThread(OpalMediaStream *) const
-{
-    return false;
-}
-
-
-int FSMediaStream::StartReadWrite(PatchPtr & mediaPatch) const
-{
-    if (!IsOpen()) {
-        PTRACE(2, "mod_opal\tNot open!");
-        return -1;
-    }
-
-    if (!m_switchCodec) {
-        PTRACE(2, "mod_opal\tNo codec!");
-        return -1;
-    }
-
-    if (!m_connection.IsChannelReady()) {
-        PTRACE(2, "mod_opal\tChannel not ready!");
-        return -1;
-    }
-
-    // We make referenced copy of pointer so can't be deleted out from under us
-    mediaPatch = m_mediaPatch;
-    if (mediaPatch == NULL) {
-        /*There is a race here... sometimes we make it here and m_mediaPatch is NULL
-          if we wait it shows up in 1ms, maybe there is a better way to wait. */
-        PTRACE(3, "mod_opal\tPatch not ready!");
-        return 1;
-    }
-
-    return 0;
-}
-
-
-switch_status_t FSMediaStream::read_frame(switch_frame_t **frame, switch_io_flag_t flags)
-{
-    PatchPtr mediaPatch;
-    switch (StartReadWrite(mediaPatch)) {
-      case -1 :
-        return SWITCH_STATUS_FALSE;
-      case 1 :
-        return SWITCH_STATUS_SUCCESS;
-    }
-
-    if (m_connection.NeedFlushAudio()) {
-        mediaPatch->GetSource().EnableJitterBuffer(); // This flushes data and resets jitter buffer
-        m_readRTP.SetPayloadSize(0);
-    } else {
-        m_readRTP.SetTimestamp(m_readFrame.timestamp + m_switchCodec->implementation->samples_per_packet);
-
-        if (!mediaPatch->GetSource().ReadPacket(m_readRTP)) {
-            return SWITCH_STATUS_FALSE;
-        }
-    }
-
-    if (m_switchTimer != NULL) {
-        switch_core_timer_next(m_switchTimer);
-    }
-
-    if (m_switchCodec != NULL) {
-        if (!switch_core_codec_ready(m_switchCodec)) {
-            PTRACE(2, "mod_opal\tread_frame: codec not ready!");
-            return SWITCH_STATUS_FALSE;
-        }
-    }
-
-    m_readFrame.packet    = m_readRTP.GetPointer();
-    m_readFrame.packetlen = m_readRTP.GetHeaderSize() + m_readFrame.datalen;
-
-#if IMPLEMENT_MULTI_FAME_AUDIO
-    // Repackage frames in incoming packet to agree with what FS expects.
-    // Not implmented yet!!!!!!!!!
-    // Cheating and only supporting one frame per packet
-#endif
-
-    m_readFrame.buflen    = m_readRTP.GetSize();
-    m_readFrame.data      = m_readRTP.GetPayloadPtr();
-    m_readFrame.datalen   = m_readRTP.GetPayloadSize();
-    m_readFrame.timestamp = m_readRTP.GetTimestamp();
-    m_readFrame.seq       = m_readRTP.GetSequenceNumber();
-    m_readFrame.ssrc      = m_readRTP.GetSyncSource();
-    m_readFrame.m         = m_readRTP.GetMarker() ? SWITCH_TRUE : SWITCH_FALSE;
-    m_readFrame.payload   = (switch_payload_t)m_readRTP.GetPayloadType();
-    m_readFrame.flags     = m_readFrame.datalen == 0 ||
-                            m_readFrame.payload == RTP_DataFrame::CN ||
-                            m_readFrame.payload == RTP_DataFrame::Cisco_CN ? SFF_CNG : 0;
-
-    *frame = &m_readFrame;
-
-    return SWITCH_STATUS_SUCCESS;
-}
-
-
-switch_status_t FSMediaStream::write_frame(const switch_frame_t *frame, switch_io_flag_t flags)
-{
-    PatchPtr mediaPatch;
-    switch (StartReadWrite(mediaPatch)) {
-      case -1 :
-        return SWITCH_STATUS_FALSE;
-      case 1 :
-        return SWITCH_STATUS_SUCCESS;
-    }
-
-    if ((frame->flags & SFF_RAW_RTP) != 0) {
-        RTP_DataFrame rtp((const BYTE *)frame->packet, frame->packetlen, false);
-        return mediaPatch->PushFrame(rtp) ? SWITCH_STATUS_SUCCESS : SWITCH_STATUS_FALSE;
-    }
-
-    RTP_DataFrame rtp(frame->datalen);
-    memcpy(rtp.GetPayloadPtr(), frame->data, frame->datalen);
-
-    rtp.SetPayloadType(mediaFormat.GetPayloadType());
-
-    /* Not sure what FS is going to give us!
-       Suspect it depends on the mod on the other side sending it. */
-    if (frame->timestamp != 0)
-      timestamp = frame->timestamp;
-    else if (frame->samples != 0)
-      timestamp += frame->samples;
-    else
-      timestamp += m_switchCodec->implementation->samples_per_packet;
-    rtp.SetTimestamp(timestamp);
-
-    return mediaPatch->PushFrame(rtp) ? SWITCH_STATUS_SUCCESS : SWITCH_STATUS_FALSE;
-}
-
-
-/* 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:s:
- */
+/* Opal endpoint interface for Freeswitch Modular Media Switching Software Library /
+ * Soft-Switch Application
+ *
+ * Version: MPL 1.1
+ *
+ * Copyright (c) 2007 Tuyan Ozipek (tuyanozipek@gmail.com)
+ *
+ * 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.
+ *
+ * Contributor(s):
+ * Tuyan Ozipek   (tuyanozipek@gmail.com)
+ * Lukasz Zwierko (lzwierko@gmail.com)
+ * Robert Jongbloed (robertj@voxlucida.com.au)
+ *
+ */
+
+#include "mod_opal.h"
+#include <opal/patch.h>
+#include <rtp/rtp.h>
+#include <h323/h323pdu.h>
+#include <h323/gkclient.h>
+
+SWITCH_DECLARE_GLOBAL_STRING_FUNC(set_global_codec_string, mod_opal_globals.codec_string);
+SWITCH_DECLARE_GLOBAL_STRING_FUNC(set_global_context, mod_opal_globals.context);
+SWITCH_DECLARE_GLOBAL_STRING_FUNC(set_global_dialplan, mod_opal_globals.dialplan);
+
+
+#define CF_NEED_FLUSH (1 << 1)
+
+struct mod_opal_globals mod_opal_globals = { 0 };
+
+
+static switch_call_cause_t create_outgoing_channel(switch_core_session_t *session, switch_event_t *var_event,
+                                                   switch_caller_profile_t *outbound_profile, switch_core_session_t **new_session,
+                                                   switch_memory_pool_t **pool, switch_originate_flag_t flags, switch_call_cause_t *cancel_cause);
+
+
+static FSProcess *opal_process = NULL;
+
+
+static const char ModuleName[] = "opal";
+
+
+static switch_status_t on_hangup(switch_core_session_t *session);
+static switch_status_t on_destroy(switch_core_session_t *session);
+
+
+static switch_io_routines_t opalfs_io_routines = {
+    /*.outgoing_channel */ create_outgoing_channel,
+    /*.read_frame */ FSConnection::read_audio_frame,
+    /*.write_frame */ FSConnection::write_audio_frame,
+    /*.kill_channel */ FSConnection::kill_channel,
+    /*.send_dtmf */ FSConnection::send_dtmf,
+    /*.receive_message */ FSConnection::receive_message,
+    /*.receive_event */ FSConnection::receive_event,
+    /*.state_change */ FSConnection::state_change,
+    /*.read_video_frame */ FSConnection::read_video_frame,
+    /*.write_video_frame */ FSConnection::write_video_frame
+};
+
+static switch_state_handler_table_t opalfs_event_handlers = {
+    /*.on_init */ FSConnection::on_init,
+    /*.on_routing */ FSConnection::on_routing,
+    /*.on_execute */ FSConnection::on_execute,
+    /*.on_hangup */ on_hangup,
+    /*.on_exchange_media */ FSConnection::on_exchange_media,
+    /*.on_soft_execute */ FSConnection::on_soft_execute,
+    /*.on_consume_media*/ NULL,
+    /*.on_hibernate*/ NULL,
+    /*.on_reset*/ NULL,
+    /*.on_park*/ NULL,
+    /*.on_reporting*/ NULL,
+    /*.on_destroy*/ on_destroy
+};
+
+
+SWITCH_BEGIN_EXTERN_C
+/*******************************************************************************/
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_opal_load);
+SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_opal_shutdown);
+SWITCH_MODULE_DEFINITION(mod_opal, mod_opal_load, mod_opal_shutdown, NULL);
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_opal_load) {
+    switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "Starting loading mod_opal\n");
+
+    /* Prevent the loading of OPAL codecs via "plug ins", this is a directory
+       full of DLLs that will be loaded automatically. */
+    putenv((char *)"PTLIBPLUGINDIR=/no/thanks");
+
+
+    *module_interface = switch_loadable_module_create_module_interface(pool, modname);
+    if (!*module_interface) {
+        return SWITCH_STATUS_MEMERR;
+    }
+
+    opal_process = new FSProcess();
+    if (opal_process == NULL) {
+        return SWITCH_STATUS_MEMERR;
+    }
+
+    if (opal_process->Initialise(*module_interface)) {
+        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "Opal manager initialized and running\n");
+        //unloading causes a seg in linux
+        return SWITCH_STATUS_NOUNLOAD;
+        //return SWITCH_STATUS_SUCCESS;
+    }
+
+    delete opal_process;
+    opal_process = NULL;
+    return SWITCH_STATUS_FALSE;
+}
+
+
+SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_opal_shutdown) {
+    
+    switch_safe_free(mod_opal_globals.context);
+    switch_safe_free(mod_opal_globals.dialplan);
+    switch_safe_free(mod_opal_globals.codec_string);
+    delete opal_process;
+    opal_process = NULL;
+    return SWITCH_STATUS_SUCCESS;
+}
+
+SWITCH_END_EXTERN_C
+/*******************************************************************************/
+
+
+
+static switch_call_cause_t create_outgoing_channel(switch_core_session_t *session,
+                                                   switch_event_t *var_event,
+                                                   switch_caller_profile_t *outbound_profile,
+                                                   switch_core_session_t **new_session, switch_memory_pool_t **pool, switch_originate_flag_t flags, switch_call_cause_t *cancel_cause)
+{
+    if (opal_process == NULL) {
+        return SWITCH_CAUSE_CRASH;
+    }
+
+    PString token;
+
+    FSManager & manager = opal_process->GetManager();
+    if (!manager.SetUpCall("local:", outbound_profile->destination_number, token, outbound_profile)) {
+        return SWITCH_CAUSE_INVALID_NUMBER_FORMAT;
+    }
+
+    PSafePtr < OpalCall > call = manager.FindCallWithLock(token);
+
+    if (call == NULL) {
+        return SWITCH_CAUSE_PROTOCOL_ERROR;
+    }
+
+    PSafePtr < FSConnection > connection = call->GetConnectionAs < FSConnection > (0);
+
+    if (connection == NULL) {
+        return SWITCH_CAUSE_PROTOCOL_ERROR;
+    }
+
+    *new_session = connection->GetSession();
+
+    return SWITCH_CAUSE_SUCCESS;
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+#if PTRACING
+
+class FSTrace : public ostream {
+ public:
+ FSTrace()
+     : ostream(&buffer)
+        {
+        }
+
+ private:
+ class Buffer : public streambuf {
+        char buffer[250];
+
+    public:
+        Buffer()
+            {
+                setg(buffer, buffer, &buffer[sizeof(buffer)-2]);
+                setp(buffer, &buffer[sizeof(buffer)-2]);
+            }
+
+        virtual int sync()
+        {
+            return overflow(EOF);
+        }
+
+        virtual int underflow()
+        {
+            return EOF;
+        }
+
+        virtual int overflow(int c)
+        {
+            const char *fmt = "%s";
+            char *func = NULL;
+
+            int bufSize = pptr() - pbase();
+
+            if (c != EOF) {
+                *pptr() = (char)c;
+                bufSize++;
+            }
+            
+            if (bufSize != 0) {
+                char *bufPtr = pbase();
+                char *bufEndPtr = NULL;
+                setp(bufPtr, epptr());
+                bufPtr[bufSize] = '\0';
+                int line = 0;
+                char *p;
+                
+                char *file = NULL;
+                switch_log_level_t level;
+
+                
+                switch (strtoul(bufPtr, &file, 10)) {
+                case 1 :
+                    level = SWITCH_LOG_INFO;
+                    break;
+                default :
+                    level = SWITCH_LOG_DEBUG;
+                    break;
+                }
+
+                if (file) {
+                    while (isspace(*file)) file++;
+                    
+                    if (file && (bufPtr = strchr(file, '(')) && (bufEndPtr = strchr(bufPtr, ')'))) {
+                        char *e;
+
+                        for(p = bufPtr; p && *p; p++) {
+                            if (*p == '\t') {
+                                *p = ' ';
+                            }
+                        }
+
+                        *bufPtr++ = '\0';
+                        line = atoi(bufPtr);
+                        while (bufEndPtr && isspace(*(++bufEndPtr)));
+                        bufPtr = bufEndPtr;
+                        if (bufPtr && ((e = strchr(bufPtr, ' ')) || (e = strchr(bufPtr, '\t')))) {
+                            func = bufPtr;
+                            bufPtr = e;
+                            *bufPtr++ = '\0';
+                        }
+                    }
+                }
+                
+                switch_text_channel_t tchannel = SWITCH_CHANNEL_ID_LOG;
+
+                if (!bufPtr) {
+                    bufPtr = pbase();
+                    level = SWITCH_LOG_DEBUG;
+                }
+
+                if (bufPtr) {
+                    if (end_of(bufPtr) != '\n') {
+                        fmt = "%s\n";
+                    }
+                    if (!(file && func && line)) tchannel = SWITCH_CHANNEL_ID_LOG_CLEAN;
+
+                    switch_log_printf(tchannel, file, func, line, NULL, level, fmt, bufPtr);
+                }
+                
+            }
+
+            return 0;
+        }
+    } buffer;
+};
+
+#endif
+
+
+///////////////////////////////////////////////////////////////////////
+
+FSProcess::FSProcess()
+  : PLibraryProcess("Vox Lucida Pty. Ltd.", "mod_opal", 1, 0, AlphaCode, 1)
+  , m_manager(NULL)
+{
+}
+
+
+FSProcess::~FSProcess()
+{
+  delete m_manager;
+}
+
+
+bool FSProcess::Initialise(switch_loadable_module_interface_t *iface)
+{
+  m_manager = new FSManager();
+  return m_manager != NULL && m_manager->Initialise(iface);
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+FSManager::FSManager()
+{
+    // These are deleted by the OpalManager class, no need to have destructor
+    m_h323ep = new H323EndPoint(*this);
+    m_iaxep = new IAX2EndPoint(*this);
+    m_fsep = new FSEndPoint(*this);
+}
+
+
+bool FSManager::Initialise(switch_loadable_module_interface_t *iface)
+{
+    ReadConfig(false);
+
+#if PTRACING
+    PTrace::SetLevel(mod_opal_globals.trace_level);        //just for fun and eyecandy ;)
+    PTrace::SetOptions(PTrace::TraceLevel);
+    PTrace::SetStream(new FSTrace);
+#endif
+
+    m_FreeSwitch = (switch_endpoint_interface_t *) switch_loadable_module_create_interface(iface, SWITCH_ENDPOINT_INTERFACE);
+    m_FreeSwitch->interface_name = ModuleName;
+    m_FreeSwitch->io_routines = &opalfs_io_routines;
+    m_FreeSwitch->state_handler = &opalfs_event_handlers;
+
+    silenceDetectParams.m_mode = OpalSilenceDetector::NoSilenceDetection;
+
+    if (m_listeners.empty()) {
+        m_h323ep->StartListener("");
+    } else {
+        for (std::list < FSListener >::iterator it = m_listeners.begin(); it != m_listeners.end(); ++it) {
+            if (!m_h323ep->StartListener(it->listenAddress)) {
+                PTRACE(3, "mod_opal\tCannot start listener for " << it->name);
+            }
+        }
+    }
+
+    AddRouteEntry("h323:.* = local:<da>");  // config option for direct routing
+    AddRouteEntry("iax2:.* = local:<da>");  // config option for direct routing
+    AddRouteEntry("local:.* = h323:<da>");  // config option for direct routing
+
+    // Make sure all known codecs are instantiated,
+    // these are ones we know how to translate into H.323 capabilities
+    GetOpalG728();
+    GetOpalG729();
+    GetOpalG729A();
+    GetOpalG729B();
+    GetOpalG729AB();
+    GetOpalG7231_6k3();
+    GetOpalG7231_5k3();
+    GetOpalG7231A_6k3();
+    GetOpalG7231A_5k3();
+    GetOpalGSM0610();
+    GetOpalGSMAMR();
+    GetOpaliLBC();
+
+    /* For compatibility with the algorithm in FSConnection::SetCodecs() we need
+       to set all audio media formats to be 1 frame per packet */
+    OpalMediaFormatList allCodecs = OpalMediaFormat::GetAllRegisteredMediaFormats();
+    for (OpalMediaFormatList::iterator it = allCodecs.begin(); it != allCodecs.end(); ++it) {
+      if (it->GetMediaType() == OpalMediaType::Audio()) {
+        it->SetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption(), 1);
+        it->SetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption(), 1);
+      }
+    }
+
+    if (!m_gkAddress.IsEmpty()) {
+      if (m_h323ep->UseGatekeeper(m_gkAddress, m_gkIdentifer, m_gkInterface))
+        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Started gatekeeper: %s\n",
+                          (const char *)m_h323ep->GetGatekeeper()->GetName());
+      else
+        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR,
+                          "Could not start gatekeeper: addr=\"%s\", id=\"%s\", if=\"%s\"\n",
+                          (const char *)m_gkAddress,
+                          (const char *)m_gkIdentifer,
+                          (const char *)m_gkInterface);
+    }
+
+    return TRUE;
+}
+
+
+switch_status_t FSManager::ReadConfig(int reload)
+{
+    const char *cf = "opal.conf";
+    switch_status_t status = SWITCH_STATUS_SUCCESS;
+
+    switch_memory_pool_t *pool = NULL;
+    if ((status = switch_core_new_memory_pool(&pool)) != SWITCH_STATUS_SUCCESS) {
+        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CRIT, "Memory Error!\n");
+        return status;
+    }
+
+    set_global_context("default");
+    set_global_dialplan("XML");
+
+    switch_event_t *params = NULL;
+    switch_event_create(&params, SWITCH_EVENT_REQUEST_PARAMS);
+    switch_assert(params);
+    switch_event_add_header_string(params, SWITCH_STACK_BOTTOM, "profile", switch_str_nil(""));
+    switch_xml_t cfg;
+    switch_xml_t xml = switch_xml_open_cfg(cf, &cfg, params);
+    if (xml == NULL) {
+        switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", cf);
+        return SWITCH_STATUS_FALSE;
+    }
+
+    switch_xml_t xmlSettings = switch_xml_child(cfg, "settings");
+    if (xmlSettings) {
+        for (switch_xml_t xmlParam = switch_xml_child(xmlSettings, "param"); xmlParam != NULL; xmlParam = xmlParam->next) {
+            const char *var = switch_xml_attr_soft(xmlParam, "name");
+            const char *val = switch_xml_attr_soft(xmlParam, "value");
+
+            if (!strcasecmp(var, "trace-level")) {
+                int level = atoi(val);
+                if (level > 0) {
+                    mod_opal_globals.trace_level = level;
+                }
+            } else if (!strcasecmp(var, "context")) {
+                set_global_context(val);
+            } else if (!strcasecmp(var, "dialplan")) {
+                set_global_dialplan(val);
+            } else if (!strcasecmp(var, "codec-prefs")) {
+                set_global_codec_string(val);
+            } else if (!strcasecmp(var, "jitter-size")) {
+                char * next;
+                unsigned minJitter = strtoul(val, &next, 10);
+                if (minJitter >= 10) {
+                    unsigned maxJitter = minJitter;
+                    if (*next == ',')
+                      maxJitter = atoi(next+1);
+                    SetAudioJitterDelay(minJitter, maxJitter); // In milliseconds
+                }
+            } else if (!strcasecmp(var, "gk-address")) {
+                m_gkAddress = val;
+            } else if (!strcasecmp(var, "gk-identifer")) {
+                m_gkIdentifer = val;
+            } else if (!strcasecmp(var, "gk-interface")) {
+                m_gkInterface = val;
+            }
+        }
+    }
+
+    switch_xml_t xmlListeners = switch_xml_child(cfg, "listeners");
+    if (xmlListeners != NULL) {
+        for (switch_xml_t xmlListener = switch_xml_child(xmlListeners, "listener"); xmlListener != NULL; xmlListener = xmlListener->next) {
+
+            m_listeners.push_back(FSListener());
+            FSListener & listener = m_listeners.back();
+
+            listener.name = switch_xml_attr_soft(xmlListener, "name");
+            if (listener.name.IsEmpty())
+                listener.name = "unnamed";
+
+            PIPSocket::Address ip;
+            WORD port = 1720;
+
+            for (switch_xml_t xmlParam = switch_xml_child(xmlListener, "param"); xmlParam != NULL; xmlParam = xmlParam->next) {
+                const char *var = switch_xml_attr_soft(xmlParam, "name");
+                const char *val = switch_xml_attr_soft(xmlParam, "value");
+                //switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Var - '%s' and Val - '%s' \n", var, val);
+                if (!strcasecmp(var, "h323-ip"))
+                    ip = val;
+                else if (!strcasecmp(var, "h323-port"))
+                    port = (WORD) atoi(val);
+            }
+
+            listener.listenAddress = OpalTransportAddress(ip, port);
+            switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Created Listener '%s'\n", (const char *) listener.name);
+        }
+    }
+
+    switch_event_destroy(&params);
+
+    if (xml)
+        switch_xml_free(xml);
+
+    return status;
+}
+
+
+OpalCall * FSManager::CreateCall(void * /*userData*/)
+{
+  return new FSCall(*this);
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+FSEndPoint::FSEndPoint(FSManager & manager)
+:   OpalLocalEndPoint(manager)
+{
+    PTRACE(3, "mod_opal\t FSEndPoint Created!");
+}
+
+
+bool FSEndPoint::OnIncomingCall(OpalLocalConnection & connection)
+{
+    return ((FSConnection &) connection).OnIncoming();
+}
+
+
+OpalLocalConnection *FSEndPoint::CreateConnection(OpalCall & call, void *userData, unsigned options, OpalConnection::StringOptions* stringOptions)
+{
+    FSManager & mgr = (FSManager &) GetManager();
+    switch_core_session_t *fsSession = switch_core_session_request(mgr.GetSwitchInterface(), 
+                                       (switch_caller_profile_t *)userData ? SWITCH_CALL_DIRECTION_OUTBOUND : SWITCH_CALL_DIRECTION_INBOUND, SOF_NONE, NULL);
+    if (fsSession == NULL)
+        return NULL;
+
+    switch_channel_t *fsChannel = switch_core_session_get_channel(fsSession);
+
+    if (fsChannel == NULL) {
+        switch_core_session_destroy(&fsSession);
+        return NULL;
+    }
+
+    return new FSConnection(call, *this, userData, options, stringOptions, (switch_caller_profile_t *)userData, fsSession, fsChannel);
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+FSCall::FSCall(OpalManager & manager)
+  : OpalCall(manager)
+{
+}
+
+
+PBoolean FSCall::OnSetUp(OpalConnection & connection)
+{
+  // Transfer FS caller_id_number & caller_id_name from the FSConnection
+  // to the protocol connectionm (e.g. H.323) so gets sent correctly
+  // in outgoing packets
+  PSafePtr<FSConnection> local = GetConnectionAs<FSConnection>();
+  if (local != NULL) {
+    PSafePtr<OpalConnection> proto = local->GetOtherPartyConnection();
+    if (proto != NULL) {
+      proto->SetLocalPartyName(local->GetLocalPartyName());
+      proto->SetDisplayName(local->GetDisplayName());
+    }
+  }
+
+  return OpalCall::OnSetUp(connection);
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+
+FSConnection::FSConnection(OpalCall & call, FSEndPoint & endpoint, void* userData, unsigned options, OpalConnection::StringOptions* stringOptions, switch_caller_profile_t *outbound_profile, switch_core_session_t *fsSession, switch_channel_t *fsChannel)
+  : OpalLocalConnection(call, endpoint, userData, options, stringOptions)
+  , m_endpoint(endpoint)
+  , m_fsSession(fsSession)
+  , m_fsChannel(fsChannel)
+{
+    opal_private_t *tech_pvt;
+
+    tech_pvt = (opal_private_t *) switch_core_session_alloc(m_fsSession, sizeof(*tech_pvt));
+    tech_pvt->me = this;
+    switch_core_session_set_private(m_fsSession, tech_pvt);
+
+    if (outbound_profile != NULL) {
+        SetLocalPartyName(outbound_profile->caller_id_number);
+        SetDisplayName(outbound_profile->caller_id_name);
+
+        switch_caller_profile_t *caller_profile = switch_caller_profile_clone(m_fsSession, outbound_profile);
+        switch_channel_set_caller_profile(m_fsChannel, caller_profile);
+
+        PString name = "opal/";
+        name += outbound_profile->destination_number;
+        switch_channel_set_name(m_fsChannel, name);
+
+        switch_channel_set_state(m_fsChannel, CS_INIT);
+    }
+}
+
+
+bool FSConnection::OnIncoming()
+{
+    if (m_fsSession == NULL) {
+        PTRACE(1, "mod_opal\tSession request failed.");
+        return false;
+    }
+
+    switch_core_session_add_stream(m_fsSession, NULL);
+
+    switch_channel_t *channel = switch_core_session_get_channel(m_fsSession);
+    if (channel == NULL) {
+        PTRACE(1, "mod_opal\tSession does not have a channel");
+        return false;
+    }
+
+    PURL url = GetRemotePartyURL();
+    switch_caller_profile_t *caller_profile = switch_caller_profile_new(switch_core_session_get_pool(m_fsSession),
+                                                                        url.GetUserName(),
+                                                                        /** username */
+                                                                        mod_opal_globals.dialplan,
+                                                                        /** dial plan */
+                                                                        GetRemotePartyName(),
+                                                                        /** caller_id_name */
+                                                                        GetRemotePartyNumber(),
+                                                                        /** caller_id_number */
+                                                                        url.GetHostName(),
+                                                                        /** network addr */
+                                                                        NULL,
+                                                                        /** ANI */
+                                                                        NULL,
+                                                                        /** ANI II */
+                                                                        NULL,
+                                                                        /** RDNIS */
+                                                                        ModuleName,
+                                                                        /** source */
+                                                                        mod_opal_globals.context,
+                                                                        /** set context  */
+                                                                        GetCalledPartyNumber()
+                                                                        /** destination_number */
+                                                                        );
+    if (caller_profile == NULL) {
+        PTRACE(1, "mod_opal\tCould not create caller profile");
+        return false;
+    }
+
+    PTRACE(4, "mod_opal\tCreated switch caller profile:\n"
+           "  username       = " << caller_profile->username << "\n"
+           "  dialplan       = " << caller_profile->dialplan << "\n"
+           "  caller_id_name     = " << caller_profile->caller_id_name << "\n"
+           "  caller_id_number   = " << caller_profile->caller_id_number << "\n"
+           "  network_addr   = " << caller_profile->network_addr << "\n"
+           "  source         = " << caller_profile->source << "\n"
+           "  context        = " << caller_profile->context << "\n" "  destination_number= " << caller_profile->destination_number);
+    switch_channel_set_caller_profile(channel, caller_profile);
+
+    char name[256] = "opal/in:";
+    switch_copy_string(name + 8, caller_profile->destination_number, sizeof(name)-8);
+    switch_channel_set_name(channel, name);
+    switch_channel_set_state(channel, CS_INIT);
+
+    if (switch_core_session_thread_launch(m_fsSession) != SWITCH_STATUS_SUCCESS) {
+        PTRACE(1, "mod_opal\tCould not launch session thread");
+        return false;
+    }
+
+    return true;
+}
+
+
+void FSConnection::OnReleased()
+{
+    opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(m_fsSession);
+    
+    /* so FS on_hangup will not try to deref a landmine */
+    tech_pvt->me = NULL;
+    
+    m_rxAudioOpened.Signal();   // Just in case
+    m_txAudioOpened.Signal();
+    H225_ReleaseCompleteReason dummy;
+    switch_channel_hangup(switch_core_session_get_channel(m_fsSession),
+                          (switch_call_cause_t)H323TranslateFromCallEndReason(GetCallEndReason(), dummy));    
+    OpalLocalConnection::OnReleased();
+}
+
+
+void FSConnection::OnAlerting()
+{
+    switch_channel_mark_ring_ready(m_fsChannel);
+    return OpalLocalConnection::OnAlerting();
+}
+
+PBoolean FSConnection::SetAlerting(const PString & calleeName, PBoolean withMedia)
+{
+    return OpalLocalConnection::SetAlerting(calleeName, withMedia);
+}
+
+
+void FSConnection::OnEstablished()
+{
+    OpalLocalConnection::OnEstablished();
+}
+
+
+PBoolean FSConnection::SendUserInputTone(char tone, unsigned duration)
+{
+    switch_dtmf_t dtmf = { tone, duration };
+    return switch_channel_queue_dtmf(m_fsChannel, &dtmf) == SWITCH_STATUS_SUCCESS;
+}
+
+
+PBoolean FSConnection::SendUserInputString(const PString & value)
+{
+  return OpalConnection::SendUserInputString(value);
+}
+
+
+OpalMediaFormatList FSConnection::GetMediaFormats() const
+{
+    if (m_switchMediaFormats.IsEmpty()) {
+        const_cast<FSConnection *>(this)->SetCodecs();
+    }
+    
+    return m_switchMediaFormats;
+}
+
+
+void FSConnection::SetCodecs()
+{
+    int numCodecs = 0;
+    const switch_codec_implementation_t *codecs[SWITCH_MAX_CODECS];    
+    const char *codec_string = NULL, *abs, *ocodec;
+    char *tmp_codec_string = NULL;
+    char *codec_order[SWITCH_MAX_CODECS];
+    int codec_order_last;
+
+
+    if ((abs = switch_channel_get_variable(m_fsChannel, "absolute_codec_string"))) {
+        codec_string = abs;
+    } else {
+        if ((abs = switch_channel_get_variable(m_fsChannel, "codec_string"))) {
+            codec_string = abs;
+        }
+
+        if ((ocodec = switch_channel_get_variable(m_fsChannel, SWITCH_ORIGINATOR_CODEC_VARIABLE))) {
+            codec_string = switch_core_session_sprintf(m_fsSession, "%s,%s", ocodec, codec_string);
+        }
+    }
+    
+    if (!codec_string) {
+        codec_string = mod_opal_globals.codec_string;
+    }
+
+    if (codec_string) {
+        if ((tmp_codec_string = strdup(codec_string))) {
+            codec_order_last = switch_separate_string(tmp_codec_string, ',', codec_order, SWITCH_MAX_CODECS);
+            numCodecs = switch_loadable_module_get_codecs_sorted(codecs, SWITCH_MAX_CODECS, codec_order, codec_order_last);
+            
+        }
+    } else {
+        numCodecs = switch_loadable_module_get_codecs(codecs, sizeof(codecs) / sizeof(codecs[0]));
+    }
+    
+    for (int i = 0; i < numCodecs; i++) {
+        const switch_codec_implementation_t *codec = codecs[i];
+
+        // See if we have a match by PayloadType/rate/name
+        OpalMediaFormat switchFormat((RTP_DataFrame::PayloadTypes)codec->ianacode,
+                                     codec->samples_per_second,
+                                     codec->iananame);
+        if (!switchFormat.IsValid()) {
+            // See if we have a match by name alone
+            switchFormat = codec->iananame;
+            if (!switchFormat.IsValid()) {
+              PTRACE(2, "mod_opal\tCould not match FS codec " << codec->iananame << " to OPAL media format.");
+              continue;
+            }
+        }
+        
+
+        // Did we match or create a new media format?
+        if (switchFormat.IsValid() && codec->codec_type == SWITCH_CODEC_TYPE_AUDIO) {
+            PTRACE(2, "mod_opal\tMatched FS codec " << codec->iananame << " to OPAL media format " << switchFormat);
+
+            // Calculate frames per packet, do not use codec->codec_frames_per_packet as that field
+            // has slightly different semantics when used in streamed codecs such as G.711
+            int fpp = codec->samples_per_packet/switchFormat.GetFrameTime();
+
+            /* Set the frames/packet to maximum of what is in the FS table. The OPAL negotiations will
+               drop the value from there. This might fail if there are "holes" in the FS table, e.g.
+               if for some reason G.723.1 has 30ms and 90ms but not 60ms, then the OPAL negotiations
+               could end up with 60ms and the codec cannot be created. The "holes" are unlikely in
+               all but streamed codecs such as G.711, where it is theoretically possible for OPAL to
+               come up with 32ms and there is only 30ms and 40ms in the FS table. We deem these
+               scenarios succifiently rare that we can safely ignore them ... for now. */
+
+            if (fpp > switchFormat.GetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption())) {
+                switchFormat.SetOptionInteger(OpalAudioFormat::RxFramesPerPacketOption(), fpp);
+            }
+
+            if (fpp > switchFormat.GetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption())) {
+                switchFormat.SetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption(), fpp);
+            }
+        }
+
+        m_switchMediaFormats += switchFormat;
+    }
+    
+    switch_safe_free(tmp_codec_string);
+}
+
+
+OpalMediaStream *FSConnection::CreateMediaStream(const OpalMediaFormat & mediaFormat, unsigned sessionID, PBoolean isSource)
+{
+    return new FSMediaStream(*this, mediaFormat, sessionID, isSource);
+}
+
+
+PBoolean FSConnection::OnOpenMediaStream(OpalMediaStream & stream)
+{
+    if (!OpalConnection::OnOpenMediaStream(stream)) {
+        return false;
+    }
+
+    if (stream.GetMediaFormat().GetMediaType() != OpalMediaType::Audio()) {
+        return true;
+    }
+
+    if (stream.IsSource()) {
+        m_rxAudioOpened.Signal();
+    } else {
+        m_txAudioOpened.Signal();
+    }
+
+    if (GetMediaStream(stream.GetSessionID(), stream.IsSink()) != NULL) {
+        // Have open media in both directions.
+        if (GetPhase() == AlertingPhase) {
+            switch_channel_mark_pre_answered(m_fsChannel);
+        } else if (GetPhase() < ReleasingPhase) {
+            switch_channel_mark_answered(m_fsChannel);
+        }
+    }
+
+    return true;
+}
+
+
+switch_status_t FSConnection::on_init()
+{
+    switch_channel_t *channel = switch_core_session_get_channel(m_fsSession);
+    if (channel == NULL) {
+        return SWITCH_STATUS_FALSE;
+    }
+
+    PTRACE(3, "mod_opal\tStarted routing for connection " << *this);
+    switch_channel_set_state(channel, CS_ROUTING);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::on_routing()
+{
+    PTRACE(3, "mod_opal\tRouting connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::on_execute()
+{
+    PTRACE(3, "mod_opal\tExecuting connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t on_destroy(switch_core_session_t *session)
+{
+    //switch_channel_t *channel = switch_core_session_get_channel(session);
+    opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(session);
+    
+    if (tech_pvt) {
+    if (tech_pvt->read_codec.implementation) {
+        switch_core_codec_destroy(&tech_pvt->read_codec);
+    }
+
+    if (tech_pvt->write_codec.implementation) {
+        switch_core_codec_destroy(&tech_pvt->write_codec);
+    }
+
+    if (tech_pvt->vid_read_codec.implementation) {
+        switch_core_codec_destroy(&tech_pvt->vid_read_codec);
+    }
+
+    if (tech_pvt->vid_write_codec.implementation) {
+        switch_core_codec_destroy(&tech_pvt->vid_write_codec);
+    }
+
+    if (tech_pvt->read_timer.timer_interface) {
+        switch_core_timer_destroy(&tech_pvt->read_timer);
+    }
+
+    if (tech_pvt->vid_read_timer.timer_interface) {
+        switch_core_timer_destroy(&tech_pvt->vid_read_timer);
+    }
+    }
+
+    return SWITCH_STATUS_SUCCESS;
+}
+
+/* this function has to be called with the original session beause the FSConnection might already be destroyed and we 
+   will can't have it be a method of a dead object
+ */
+static switch_status_t on_hangup(switch_core_session_t *session)
+{
+    switch_channel_t *channel = switch_core_session_get_channel(session);
+    opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(session);
+    
+    /* if this is still here it was our idea to hangup not opal's */
+    if (tech_pvt->me) {
+        Q931::CauseValues cause = (Q931::CauseValues)switch_channel_get_cause_q850(channel);
+        tech_pvt->me->SetQ931Cause(cause);
+        tech_pvt->me->ClearCallSynchronous(NULL, H323TranslateToCallEndReason(cause, UINT_MAX));
+        tech_pvt->me = NULL;
+    }
+
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::on_exchange_media()
+{
+    PTRACE(3, "mod_opal\tLoopback on connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::on_soft_execute()
+{
+    PTRACE(3, "mod_opal\tTransmit on connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::kill_channel(int sig)
+{
+    PTRACE(3, "mod_opal\tKill " << sig << " on connection " << *this);
+
+    switch (sig) {
+    case SWITCH_SIG_BREAK:
+        break;
+    case SWITCH_SIG_KILL:
+        m_rxAudioOpened.Signal();
+        m_txAudioOpened.Signal();
+        break;
+    default:
+        break;
+    }
+
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::send_dtmf(const switch_dtmf_t *dtmf)
+{
+    OnUserInputTone(dtmf->digit, dtmf->duration);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::receive_message(switch_core_session_message_t *msg)
+{
+    switch_channel_t *channel = switch_core_session_get_channel(m_fsSession);
+
+
+    /*
+      SWITCH_MESSAGE_INDICATE_PROGRESS:  establish early media now and return SWITCH_STATUS_FALSE if you can't
+      SWITCH_MESSAGE_INDICATE_ANSWER:  answer and set up media now if it's not already and return SWITCH_STATUS_FALSE if you can't
+
+      Neither message means anything on an outbound call....
+
+      It would only happen if someone called switch_channel_answer() instead of switch_channel_mark_answered() on an outbound call.
+      it should not do anything if someone does it by accident somewhere hense this in both cases:
+
+      if (switch_channel_direction(channel) == SWITCH_CALL_DIRECTION_OUTBOUND) {
+      return SWITCH_STATUS_FALSE;
+      }
+
+
+      When we get these messages the core will trust that you have triggered FSMediaStream::Open and are ready for media if we do not
+      have media we MUST return SWITCH_STATUS_FALSE or it will cause a CRASH.
+
+
+
+    */
+    switch (msg->message_id) {
+    case SWITCH_MESSAGE_INDICATE_BRIDGE:
+    case SWITCH_MESSAGE_INDICATE_UNBRIDGE:
+    case SWITCH_MESSAGE_INDICATE_AUDIO_SYNC:
+        switch_channel_set_private_flag(channel, CF_NEED_FLUSH);
+        break;
+
+    case SWITCH_MESSAGE_INDICATE_RINGING:
+    case SWITCH_MESSAGE_INDICATE_PROGRESS:
+    case SWITCH_MESSAGE_INDICATE_ANSWER:
+        {
+            switch_caller_profile_t * profile = switch_channel_get_caller_profile(channel);
+            if (profile != NULL && profile->caller_extension != NULL)
+            {
+                PSafePtr<OpalConnection> other = GetOtherPartyConnection();
+                if (other != NULL) {
+                    other->SetLocalPartyName(profile->caller_extension->extension_number);
+                    other->SetDisplayName(profile->caller_extension->extension_name);
+                }
+                SetLocalPartyName(profile->caller_extension->extension_number);
+                SetDisplayName(profile->caller_extension->extension_name);
+            }
+        }
+        break;
+
+    default:
+        break;
+    }
+
+    switch (msg->message_id) {
+    case SWITCH_MESSAGE_INDICATE_RINGING:
+        SetPhase(OpalConnection::AlertingPhase);
+        OnAlerting();
+        break;
+
+    case SWITCH_MESSAGE_INDICATE_DEFLECT:
+    {
+        PSafePtr<OpalConnection> other = GetOtherPartyConnection();
+        if (other != NULL)
+          other->TransferConnection(msg->string_arg);
+        break;
+    }
+
+    case SWITCH_MESSAGE_INDICATE_PROGRESS:
+    case SWITCH_MESSAGE_INDICATE_ANSWER:
+        {
+            int fixed = 0;
+            
+            if (switch_channel_direction(channel) == SWITCH_CALL_DIRECTION_OUTBOUND) {
+                return SWITCH_STATUS_FALSE;
+            }
+
+            if (msg->message_id == SWITCH_MESSAGE_INDICATE_PROGRESS) {
+                if (fixed) {
+                    /* this should send alerting + media and wait for it to be established and return SUCCESS or FAIL
+                       depending on if media was able to be established.  Need code to tell the other side we want early media here.
+                    */
+                    GetCall().OpenSourceMediaStreams(*this, OpalMediaType::Audio());
+                    SetPhase(OpalConnection::AlertingPhase);
+                    /* how do i say please establish early media ? */
+                    OnAlerting();
+                } else {
+                    /* hack to avoid getting stuck, pre_answer will imply answer */
+                    OnConnectedInternal();
+                }
+            } else {
+                OnConnectedInternal();
+            }
+
+            // Wait for media
+            PTRACE(2, "mod_opal\tAwaiting media start on connection " << *this);
+            m_rxAudioOpened.Wait();
+            m_txAudioOpened.Wait();
+            
+            if (GetPhase() >= ReleasingPhase) {
+                // Call got aborted
+                switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(m_fsSession), SWITCH_LOG_ERROR, "Call abandoned!\n");
+                return SWITCH_STATUS_FALSE;
+            }
+
+            PTRACE(4, "mod_opal\tMedia started on connection " << *this);
+
+            if (msg->message_id == SWITCH_MESSAGE_INDICATE_PROGRESS) {
+                if (!switch_channel_test_flag(m_fsChannel, CF_EARLY_MEDIA)) {
+                    switch_channel_mark_pre_answered(m_fsChannel);
+                }
+            } else {
+                if (!switch_channel_test_flag(m_fsChannel, CF_EARLY_MEDIA)) {
+                    switch_channel_mark_answered(m_fsChannel);
+                }
+            }
+
+        }
+        break;
+
+    default:
+        PTRACE(3, "mod_opal\tReceived message " << msg->message_id << " on connection " << *this);
+    }
+
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::receive_event(switch_event_t *event)
+{
+    PTRACE(3, "mod_opal\tReceived event " << event->event_id << " on connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::state_change()
+{
+    PTRACE(3, "mod_opal\tState changed on connection " << *this);
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSConnection::read_audio_frame(switch_frame_t **frame, switch_io_flag_t flags, int stream_id)
+{
+    return read_frame(OpalMediaType::Audio(), frame, flags);
+}
+
+
+switch_status_t FSConnection::write_audio_frame(switch_frame_t *frame, switch_io_flag_t flags, int stream_id)
+{
+    return write_frame(OpalMediaType::Audio(), frame, flags);
+}
+
+
+switch_status_t FSConnection::read_video_frame(switch_frame_t **frame, switch_io_flag_t flag, int stream_id)
+{
+    return read_frame(OpalMediaType::Video(), frame, flag);
+}
+
+
+switch_status_t FSConnection::write_video_frame(switch_frame_t *frame, switch_io_flag_t flag, int stream_id)
+{
+    return write_frame(OpalMediaType::Video(), frame, flag);
+}
+
+
+switch_status_t FSConnection::read_frame(const OpalMediaType & mediaType, switch_frame_t **frame, switch_io_flag_t flags)
+{
+    PSafePtr < FSMediaStream > stream = PSafePtrCast < OpalMediaStream, FSMediaStream > (GetMediaStream(mediaType, false));
+    return stream != NULL ? stream->read_frame(frame, flags) : SWITCH_STATUS_FALSE;
+}
+
+
+switch_status_t FSConnection::write_frame(const OpalMediaType & mediaType, const switch_frame_t *frame, switch_io_flag_t flags)
+{
+    PSafePtr < FSMediaStream > stream = PSafePtrCast < OpalMediaStream, FSMediaStream > (GetMediaStream(mediaType, true));
+    return stream != NULL ? stream->write_frame(frame, flags) : SWITCH_STATUS_FALSE;
+}
+
+
+///////////////////////////////////////////////////////////////////////
+
+FSMediaStream::FSMediaStream(FSConnection & conn, const OpalMediaFormat & mediaFormat, unsigned sessionID, bool isSource)
+    : OpalMediaStream(conn, mediaFormat, sessionID, isSource)
+    , m_fsSession(conn.GetSession())
+    , m_readRTP(0, 512)
+    , m_callOnStart(true)
+{
+    memset(&m_readFrame, 0, sizeof(m_readFrame));
+    m_readFrame.codec = m_switchCodec;
+    m_readFrame.flags = SFF_RAW_RTP;
+}
+
+
+PBoolean FSMediaStream::Open()
+{
+    opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(m_fsSession);
+
+    if (IsOpen()) {
+        return true;
+    }
+
+    bool isAudio;
+    if (mediaFormat.GetMediaType() == OpalMediaType::Audio()) {
+        isAudio = true;
+    } else if (mediaFormat.GetMediaType() == OpalMediaType::Video()) {
+        isAudio = false;
+    } else {
+        return OpalMediaStream::Open();
+    }
+
+    m_fsChannel = switch_core_session_get_channel(m_fsSession);
+    
+    int ptime = mediaFormat.GetOptionInteger(OpalAudioFormat::TxFramesPerPacketOption()) * mediaFormat.GetFrameTime() / mediaFormat.GetTimeUnits();
+
+
+    if (IsSink()) {
+        m_switchCodec = isAudio ? &tech_pvt->read_codec : &tech_pvt->vid_read_codec;
+        m_switchTimer = isAudio ? &tech_pvt->read_timer : &tech_pvt->vid_read_timer;
+    } else {
+        m_switchCodec = isAudio ? &tech_pvt->write_codec : &tech_pvt->vid_write_codec;
+    }
+
+    // The following is performed on two different instances of this object.
+    if (switch_core_codec_init(m_switchCodec, mediaFormat.GetEncodingName(), NULL, // FMTP
+                               mediaFormat.GetClockRate(), ptime, 1,  // Channels
+                               SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,   // Settings
+                               switch_core_session_get_pool(m_fsSession)) != SWITCH_STATUS_SUCCESS) {
+        // Could not select a codecs using negotiated frames/packet, so try using default.
+        if (switch_core_codec_init(m_switchCodec, mediaFormat.GetEncodingName(), NULL, // FMTP
+                                   mediaFormat.GetClockRate(), 0, 1,  // Channels
+                                   SWITCH_CODEC_FLAG_ENCODE | SWITCH_CODEC_FLAG_DECODE, NULL,   // Settings
+                                   switch_core_session_get_pool(m_fsSession)) != SWITCH_STATUS_SUCCESS) {
+            PTRACE(1, "mod_opal  " << switch_channel_get_name(m_fsChannel)<< " Cannot initialise " << (IsSink()? "read" : "write") << ' '
+                   << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
+            switch_channel_hangup(m_fsChannel, SWITCH_CAUSE_INCOMPATIBLE_DESTINATION);
+            return false;
+        }
+        PTRACE(2, "mod_opal " << switch_channel_get_name(m_fsChannel)<< " Unsupported ptime of " << ptime << " on " << (IsSink()? "read" : "write") << ' '
+               << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
+    }
+
+    PTRACE(1, "mod_opal " << switch_channel_get_name(m_fsChannel)<< " initialise " << 
+           switch_channel_get_name(m_fsChannel) << (IsSink()? "read" : "write") << ' '
+           << mediaFormat.GetMediaType() << " codec " << mediaFormat << " for connection " << *this);
+
+    if (IsSink()) {
+        m_readFrame.rate = mediaFormat.GetClockRate();
+
+        if (isAudio) {
+            switch_core_session_set_read_codec(m_fsSession, m_switchCodec);
+            if (switch_core_timer_init(m_switchTimer,
+                                       "soft",
+                                       m_switchCodec->implementation->microseconds_per_packet / 1000,
+                                       m_switchCodec->implementation->samples_per_packet,
+                                       switch_core_session_get_pool(m_fsSession)) != SWITCH_STATUS_SUCCESS) {
+                switch_core_codec_destroy(m_switchCodec);
+                m_switchCodec = NULL;
+                return false;
+            }
+        } else {
+            switch_core_session_set_video_read_codec(m_fsSession, m_switchCodec);
+            switch_channel_set_flag(m_fsChannel, CF_VIDEO);
+        }
+    } else {
+        if (isAudio) {
+            switch_core_session_set_write_codec(m_fsSession, m_switchCodec);
+        } else {
+            switch_core_session_set_video_write_codec(m_fsSession, m_switchCodec);
+            switch_channel_set_flag(m_fsChannel, CF_VIDEO);
+        }
+    }
+
+    PTRACE(3, "mod_opal\tSet " << (IsSink()? "read" : "write") << ' '
+           << mediaFormat.GetMediaType() << " codec to << " << mediaFormat << " for connection " << *this);
+
+    return OpalMediaStream::Open();
+}
+
+
+PBoolean FSMediaStream::Close()
+{
+    if (!IsOpen())
+        return false;
+
+    /* forget these FS will properly destroy them for us */
+
+    m_switchTimer = NULL;
+    m_switchCodec = NULL;
+
+    return OpalMediaStream::Close();
+}
+
+
+PBoolean FSMediaStream::IsSynchronous() const
+{
+    return true;
+}
+
+
+PBoolean FSMediaStream::RequiresPatchThread(OpalMediaStream *) const
+{
+    return false;
+}
+
+bool FSMediaStream::CheckPatchAndLock()
+{
+    if (GetConnection().GetPhase() >= GetConnection().ReleasingPhase || !IsOpen())
+        return false;
+
+    if (LockReadWrite()) {
+        if (!GetPatch() || !IsOpen()) {
+            UnlockReadWrite();
+            return false;
+        }
+        return true;
+    } else {
+        return false;
+    }
+}
+
+switch_status_t FSMediaStream::read_frame(switch_frame_t **frame, switch_io_flag_t flags)
+{
+
+    if (!m_switchCodec) {
+        return SWITCH_STATUS_FALSE;
+    }
+
+    if (m_callOnStart) {
+        /*
+          There is a race here... sometimes we make it here and GetPatch() is NULL
+          if we wait it shows up in 1ms, maybe there is a better way to wait.
+          
+        */
+        while(!GetPatch()) {
+            if (!m_fsChannel || !switch_channel_up(m_fsChannel)) {
+                return SWITCH_STATUS_FALSE;
+            }
+            switch_cond_next();
+        }
+        if (CheckPatchAndLock()) {
+            GetPatch()->OnStartMediaPatch();
+            m_callOnStart = false;
+            UnlockReadWrite();
+        } else {
+            return SWITCH_STATUS_FALSE; 
+        }
+    }
+
+    m_readFrame.flags = 0;
+
+    /*
+    while (switch_channel_ready(m_fsChannel)) {
+        if (CheckPatchAndLock()) {
+            if (!GetPatch()->GetSource().ReadPacket(m_readRTP)) {
+                UnlockReadWrite();
+                return SWITCH_STATUS_FALSE;
+            }            
+            UnlockReadWrite();
+        } else {
+            return SWITCH_STATUS_FALSE; 
+        }
+        
+        if ((m_readFrame.datalen = m_readRTP.GetPayloadSize()) || switch_core_timer_check(&m_switchTimer, SWITCH_FALSE) == SWITCH_STATUS_SUCCESS) {
+            if (m_readFrame.datalen) {
+            } else {
+                m_readFrame.flags = SFF_CNG;
+            }
+            break;
+        }
+
+        switch_yield(1000);
+    }
+    */
+
+    if (switch_channel_test_private_flag(m_fsChannel, CF_NEED_FLUSH)) {
+        switch_channel_clear_private_flag(m_fsChannel, CF_NEED_FLUSH);
+        for(;;) {
+            if (CheckPatchAndLock()) {
+                if (!GetPatch()->GetSource().ReadPacket(m_readRTP)) {
+                    UnlockReadWrite();
+                    return SWITCH_STATUS_FALSE;
+                }            
+                UnlockReadWrite();
+            } else {
+                return SWITCH_STATUS_FALSE; 
+            }
+
+            if (!m_readRTP.GetPayloadSize()) {
+                m_readFrame.flags = SFF_CNG;
+                break;
+            }
+        }
+    } else {
+
+        if (CheckPatchAndLock()) {
+            if (!m_switchTimer || !GetPatch()->GetSource().ReadPacket(m_readRTP)) {
+                UnlockReadWrite();
+                return SWITCH_STATUS_FALSE;
+            }            
+            UnlockReadWrite();
+        } else {
+            return SWITCH_STATUS_FALSE; 
+        }
+    
+        switch_core_timer_next(m_switchTimer);
+    
+        if (!(m_readFrame.datalen = m_readRTP.GetPayloadSize())) {
+            m_readFrame.flags = SFF_CNG;
+        }
+    }
+
+    if (!switch_channel_ready(m_fsChannel)) {
+        return SWITCH_STATUS_FALSE;
+    }
+
+    if (!switch_core_codec_ready(m_switchCodec)) {
+        return SWITCH_STATUS_FALSE;
+    }
+
+    //switch_core_timer_step(&m_switchTimer);
+
+    if (m_readFrame.payload == RTP_DataFrame::CN || m_readFrame.payload == RTP_DataFrame::Cisco_CN) {
+        m_readFrame.flags = SFF_CNG;
+    }
+
+    if (m_readFrame.flags & SFF_CNG) {
+        m_readFrame.buflen = sizeof(m_buf);
+        m_readFrame.data = m_buf;
+        m_readFrame.packet = NULL;
+        m_readFrame.packetlen = 0;
+        m_readFrame.timestamp = 0;
+        m_readFrame.m = SWITCH_FALSE;
+        m_readFrame.seq = 0;
+        m_readFrame.ssrc = 0;
+        m_readFrame.codec = m_switchCodec;
+    } else {
+        m_readFrame.buflen = m_readRTP.GetSize();
+        m_readFrame.data = m_readRTP.GetPayloadPtr();
+        m_readFrame.packet = m_readRTP.GetPointer();
+        m_readFrame.packetlen = m_readRTP.GetHeaderSize() + m_readFrame.datalen;
+        m_readFrame.payload = (switch_payload_t) m_readRTP.GetPayloadType();
+        m_readFrame.timestamp = m_readRTP.GetTimestamp();
+        m_readFrame.m = (switch_bool_t) m_readRTP.GetMarker();
+        m_readFrame.seq = m_readRTP.GetSequenceNumber();
+        m_readFrame.ssrc = m_readRTP.GetSyncSource();
+        m_readFrame.codec = m_switchCodec;
+    }
+
+    *frame = &m_readFrame;
+
+    return SWITCH_STATUS_SUCCESS;
+}
+
+
+switch_status_t FSMediaStream::write_frame(const switch_frame_t *frame, switch_io_flag_t flags)
+{
+    if (!switch_channel_ready(m_fsChannel)) {
+        return SWITCH_STATUS_FALSE;
+    }
+
+    if (m_callOnStart) {
+        if (CheckPatchAndLock()) {
+            GetPatch()->OnStartMediaPatch();
+            m_callOnStart = false;
+            UnlockReadWrite();
+        } else {
+            return SWITCH_STATUS_FALSE; 
+        }
+    }
+
+    if ((frame->flags & SFF_CNG)) {
+        return SWITCH_STATUS_SUCCESS;
+    }
+
+    if ((frame->flags & SFF_RAW_RTP) != 0) {
+        RTP_DataFrame rtp((const BYTE *) frame->packet, frame->packetlen, false);
+
+        if (CheckPatchAndLock()) {
+            if (GetPatch()->PushFrame(rtp)) {
+                UnlockReadWrite();
+                return SWITCH_STATUS_SUCCESS;
+            }
+            UnlockReadWrite();
+        } else {
+            return SWITCH_STATUS_FALSE; 
+        }
+    } 
+    
+    /* If we reach this code it means a call to an ivr or something else that does not generate timestamps
+       Its possible that frame->timestamp is set but not guarenteed and is best ignored for the time being.
+       We are probably relying on the rtp stack to generate the timestamp and ssrc for us at this point.
+       As a quick hack I am going to keep a sample counter and increment it by frame->samples but it would be 
+       better if we could engage whatever it is in opal that makes it generate the timestamp.
+     */
+
+    RTP_DataFrame rtp(frame->datalen);
+    rtp.SetPayloadType(mediaFormat.GetPayloadType());
+
+    m_timeStamp += frame->samples;
+    rtp.SetTimestamp(m_timeStamp);
+    
+    //rtp.SetTimestamp(frame->timestamp);
+    //rtp.SetSyncSource(frame->ssrc);
+    //rtp.SetMarker(frame->m);
+
+    memcpy(rtp.GetPayloadPtr(), frame->data, frame->datalen);
+
+    if (CheckPatchAndLock()) {
+        if (GetPatch()->PushFrame(rtp)) {
+            UnlockReadWrite();
+            return SWITCH_STATUS_SUCCESS;
+        }
+        UnlockReadWrite();
+    } else {
+        return SWITCH_STATUS_FALSE; 
+    }
+
+
+    return SWITCH_STATUS_FALSE;
+}
+
+
+/* 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:s:
+ */
diff --git a/src/mod/endpoints/mod_opal/mod_opal.h b/src/mod/endpoints/mod_opal/mod_opal.h
index 310ceecb57..1915d54b90 100644
--- a/src/mod/endpoints/mod_opal/mod_opal.h
+++ b/src/mod/endpoints/mod_opal/mod_opal.h
@@ -1,330 +1,270 @@
-/* Opal endpoint interface for Freeswitch Modular Media Switching Software Library /
- * Soft-Switch Application
- *
- * Version: MPL 1.1
- *
- * Copyright (c) 2007 Tuyan Ozipek (tuyanozipek@gmail.com)
- * Copyright (c) 2008-2012 Vox Lucida Pty. Ltd. (robertj@voxlucida.com.au)
- *
- * 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.
- *
- * Contributor(s):
- * Tuyan Ozipek   (tuyanozipek@gmail.com)
- * Lukasz Zwierko (lzwierko@gmail.com)
- * Robert Jongbloed (robertj@voxlucida.com.au)
- *
- */
-
-
-#ifndef __FREESWITCH_MOD_OPAL__
-#define __FREESWITCH_MOD_OPAL__
-
-#if defined(__GNUC__) && defined(HAVE_VISIBILITY)
-#pragma GCC visibility push(default)
-#endif
-
-#include <ptlib.h>
-#include <opal/manager.h>
-#include <opal/localep.h>
-#include <h323/h323ep.h>
-#include <iax2/iax2ep.h>
-
-#if defined(__GNUC__) && defined(HAVE_VISIBILITY)
-#pragma GCC visibility pop
-#endif
-
-#undef strcasecmp
-#undef strncasecmp
-
-
-#if _MSC_VER < 1600
-/*The following insanity is because libteletone_generate.h defines int8_t in
-  a slightly different manner to most other cases (SDL, PCAP, Java V8, stdint.h
-  etc) and does not provide a mechanism to prevent it's inclusion. Then, to
-  cap it off, VS2008 barfs on the difference. VS2010 seems OK with it.
-
-  Sigh.
- */
-#pragma include_alias(<libteletone.h>,          <../../libs/libteletone/src/libteletone.h>)
-#pragma include_alias(<libteletone_generate.h>, <../../libs/libteletone/src/libteletone_generate.h>)
-#pragma include_alias(<libteletone_detect.h>,   <../../libs/libteletone/src/libteletone_detect.h>)
-#define int8_t signed int8_t
-#include <libteletone_generate.h>
-#undef int8_t
-#endif // End of insanity
-
-
-#define HAVE_APR
-#define uint32_t uint32_t // Avoid conflict in stdint definitions
-#include <switch.h>
-#undef uint32_t
-
-#include <switch_version.h>
-
-
-#define MODNAME "mod_opal"
-
-
-class FSEndPoint;
-class FSManager;
-
-
-class FSProcess : public PLibraryProcess
-{
-    PCLASSINFO(FSProcess, PLibraryProcess);
-  public:
-    FSProcess();
-    ~FSProcess();
-
-    bool Initialise(switch_loadable_module_interface_t *iface);
-
-    FSManager & GetManager() const
-    {
-        return *m_manager;
-    }
-
-  protected:
-    FSManager * m_manager;
-};
-
-
-struct FSListener
-{
-    FSListener() : m_port(H323EndPoint::DefaultTcpSignalPort) { }
-
-    PString            m_name;
-    PIPSocket::Address m_address;
-    uint16_t           m_port;
-};
-
-
-class FSManager : public OpalManager
-{
-    PCLASSINFO(FSManager, OpalManager);
-
-  public:
-    FSManager();
-
-    bool Initialise(switch_loadable_module_interface_t *iface);
-
-    switch_status_t ReadConfig(int reload);
-
-    switch_endpoint_interface_t *GetSwitchInterface() const { return m_FreeSwitch; }
-    const PString & GetContext() const { return m_context; }
-    const PString & GetDialPlan() const { return m_dialplan; }
-    const PString & GetCodecPrefs() const { return m_codecPrefs; }
-    bool GetDisableTranscoding() const { return m_disableTranscoding; }
-
-  private:
-    switch_endpoint_interface_t *m_FreeSwitch;
-
-    H323EndPoint *m_h323ep;
-    IAX2EndPoint *m_iaxep;
-    FSEndPoint   *m_fsep;
-
-    PString m_context;
-    PString m_dialplan;
-    PString m_codecPrefs;
-    bool    m_disableTranscoding;
-    PString m_gkAddress;
-    PString m_gkIdentifer;
-    PString m_gkInterface;
-
-    list <FSListener> m_listeners;
-};
-
-
-class FSEndPoint : public OpalLocalEndPoint
-{
-    PCLASSINFO(FSEndPoint, OpalLocalEndPoint);
-  public:
-    FSEndPoint(FSManager & manager);
-
-    virtual OpalLocalConnection *CreateConnection(OpalCall & call, void *userData, unsigned options, OpalConnection::StringOptions * stringOptions);
-
-    FSManager & GetManager() const { return m_manager; }
-
-  protected:
-    FSManager & m_manager;
-};
-
-
-class FSConnection;
-
-
-class FSMediaStream : public OpalMediaStream
-{
-    PCLASSINFO(FSMediaStream, OpalMediaStream);
-  public:
-    FSMediaStream(
-      FSConnection & conn,
-      const OpalMediaFormat & mediaFormat,    ///<  Media format for stream
-      unsigned sessionID,    ///<  Session number for stream
-      bool isSource    ///<  Is a source stream
-    );
-
-    virtual PBoolean Open();
-    virtual PBoolean IsSynchronous() const;
-    virtual PBoolean RequiresPatchThread(OpalMediaStream *) const;
-
-    switch_status_t read_frame(switch_frame_t **frame, switch_io_flag_t flags);
-    switch_status_t write_frame(const switch_frame_t *frame, switch_io_flag_t flags);
-
-  protected:
-    virtual void InternalClose();
-    int StartReadWrite(PatchPtr & mediaPatch) const;
-
-  private:
-    bool CheckPatchAndLock();
-
-    FSConnection          &m_connection;
-    switch_timer_t        *m_switchTimer;
-    switch_codec_t        *m_switchCodec;
-    switch_frame_t         m_readFrame;
-    RTP_DataFrame          m_readRTP;
-};
-
-
-#define DECLARE_CALLBACK0(name)                           \
-    static switch_status_t name(switch_core_session_t *session) {       \
-        FSConnection *tech_pvt = (FSConnection *) switch_core_session_get_private(session); \
-        return tech_pvt != NULL ? tech_pvt->name() : SWITCH_STATUS_FALSE; } \
-    switch_status_t name()
-
-#define DECLARE_CALLBACK1(name, type1, name1)                           \
-    static switch_status_t name(switch_core_session_t *session, type1 name1) { \
-        FSConnection *tech_pvt = (FSConnection *) switch_core_session_get_private(session); \
-        return tech_pvt != NULL ? tech_pvt->name(name1) : SWITCH_STATUS_FALSE; } \
-    switch_status_t name(type1 name1)
-
-#define DECLARE_CALLBACK3(name, type1, name1, type2, name2, type3, name3) \
-    static switch_status_t name(switch_core_session_t *session, type1 name1, type2 name2, type3 name3) { \
-        FSConnection *tech_pvt = (FSConnection *) switch_core_session_get_private(session); \
-        return tech_pvt != NULL ? tech_pvt->name(name1, name2, name3) : SWITCH_STATUS_FALSE; } \
-    switch_status_t name(type1 name1, type2 name2, type3 name3)
-
-
-
-
-class FSConnection : public OpalLocalConnection
-{
-    PCLASSINFO(FSConnection, OpalLocalConnection)
-
-  public:
-    struct outgoing_params {
-      switch_event_t          *var_event;
-      switch_caller_profile_t *outbound_profile;
-      switch_core_session_t  **new_session;
-      switch_memory_pool_t   **pool;
-      switch_originate_flag_t  flags;
-      switch_call_cause_t     *cancel_cause;
-      switch_call_cause_t      fail_cause;
-    };
-
-    FSConnection(OpalCall & call,
-                 FSEndPoint & endpoint,
-                 unsigned options,
-                 OpalConnection::StringOptions * stringOptions,
-                 outgoing_params * params);
-
-    virtual bool OnOutgoingSetUp();
-    virtual bool OnIncoming();
-    virtual void OnReleased();
-    virtual PBoolean SetAlerting(const PString & calleeName, PBoolean withMedia);
-    virtual OpalMediaStream *CreateMediaStream(const OpalMediaFormat &, unsigned, PBoolean);
-    virtual void OnPatchMediaStream(PBoolean isSource, OpalMediaPatch & patch);
-    virtual OpalMediaFormatList GetMediaFormats() const;
-    virtual PBoolean SendUserInputTone(char tone, unsigned duration);
-
-    DECLARE_CALLBACK0(on_init);
-    DECLARE_CALLBACK0(on_destroy);
-    DECLARE_CALLBACK0(on_routing);
-    DECLARE_CALLBACK0(on_execute);
-    DECLARE_CALLBACK0(on_hangup);
-
-    DECLARE_CALLBACK0(on_exchange_media);
-    DECLARE_CALLBACK0(on_soft_execute);
-
-    DECLARE_CALLBACK1(kill_channel, int, sig);
-    DECLARE_CALLBACK1(send_dtmf, const switch_dtmf_t *, dtmf);
-    DECLARE_CALLBACK1(receive_message, switch_core_session_message_t *, msg);
-    DECLARE_CALLBACK1(receive_event, switch_event_t *, event);
-    DECLARE_CALLBACK0(state_change);
-    DECLARE_CALLBACK3(read_audio_frame, switch_frame_t **, frame, switch_io_flag_t, flags, int, stream_id);
-    DECLARE_CALLBACK3(write_audio_frame, switch_frame_t *, frame, switch_io_flag_t, flags, int, stream_id);
-    DECLARE_CALLBACK3(read_video_frame, switch_frame_t **, frame, switch_io_flag_t, flag, int, stream_id);
-    DECLARE_CALLBACK3(write_video_frame, switch_frame_t *, frame, switch_io_flag_t, flag, int, stream_id);
-
-    __inline switch_core_session_t *GetSession() const
-    {
-        return m_fsSession;
-    }
-
-    __inline switch_channel_t *GetChannel() const
-    {
-        return m_fsChannel;
-    }
-
-    bool IsChannelReady() const
-    {
-        return m_fsChannel != NULL && switch_channel_ready(m_fsChannel);
-    }
-
-    bool NeedFlushAudio()
-    {
-        if (!m_flushAudio)
-          return false;
-        m_flushAudio = false;
-        return true;
-    }
-
-  protected:
-    void SetCodecs();
-    bool WaitForMedia();
-
-    switch_status_t read_frame(const OpalMediaType & mediaType, switch_frame_t **frame, switch_io_flag_t flags);
-    switch_status_t write_frame(const OpalMediaType & mediaType, const switch_frame_t *frame, switch_io_flag_t flags);
-
-  private:
-    FSEndPoint            &m_endpoint;
-    switch_core_session_t *m_fsSession;
-    switch_channel_t      *m_fsChannel;
-    PSyncPoint             m_rxAudioOpened;
-    PSyncPoint             m_txAudioOpened;
-    OpalMediaFormatList    m_switchMediaFormats;
-
-    // If FS ever supports more than one audio and one video, this needs to change
-    switch_timer_t m_read_timer;
-    switch_codec_t m_read_codec;
-    switch_codec_t m_write_codec;
-
-    switch_timer_t m_vid_read_timer;
-    switch_codec_t m_vid_read_codec;
-    switch_codec_t m_vid_write_codec;
-
-    bool m_flushAudio;
-
-    friend PBoolean FSMediaStream::Open();
-};
-
-
-#endif /* __FREESWITCH_MOD_OPAL__ */
-
-/* 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:s:
- */
+/* Opal endpoint interface for Freeswitch Modular Media Switching Software Library /
+ * Soft-Switch Application
+ *
+ * Version: MPL 1.1
+ *
+ * Copyright (c) 2007 Tuyan Ozipek (tuyanozipek@gmail.com)
+ *
+ * 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.
+ *
+ * Contributor(s):
+ * Tuyan Ozipek   (tuyanozipek@gmail.com)
+ * Lukasz Zwierko (lzwierko@gmail.com)
+ * Robert Jongbloed (robertj@voxlucida.com.au)
+ *
+ */
+
+
+#ifndef __FREESWITCH_MOD_OPAL__
+#define __FREESWITCH_MOD_OPAL__
+
+#if defined(__GNUC__) && defined(HAVE_VISIBILITY)
+#pragma GCC visibility push(default)
+#endif
+
+#include <ptlib.h>
+#include <opal/manager.h>
+#include <opal/localep.h>
+#include <h323/h323ep.h>
+#include <iax2/iax2ep.h>
+
+#if defined(__GNUC__) && defined(HAVE_VISIBILITY)
+#pragma GCC visibility pop
+#endif
+
+#undef strcasecmp
+#undef strncasecmp
+
+#define HAVE_APR
+#include <switch.h>
+#include <switch_version.h>
+#define MODNAME "mod_opal"
+
+
+class FSEndPoint;
+class FSManager;
+
+
+struct mod_opal_globals {
+	int trace_level;
+	char *codec_string;
+	char *context;
+	char *dialplan;
+};
+
+extern struct mod_opal_globals mod_opal_globals;
+
+
+class FSProcess:public PLibraryProcess {
+	PCLASSINFO(FSProcess, PLibraryProcess);
+
+  public:
+	FSProcess();
+	~FSProcess();
+
+	bool Initialise(switch_loadable_module_interface_t *iface);
+
+	     FSManager & GetManager() const {
+		return *m_manager;
+  } protected:
+	      FSManager * m_manager;
+};
+
+
+struct FSListener {
+	FSListener() {
+	} PString name;
+	OpalTransportAddress listenAddress;
+	PString localUserName;
+	PString gatekeeper;
+};
+
+
+class FSCall:public OpalCall {
+	PCLASSINFO(FSCall, OpalCall);
+  public:
+	FSCall(OpalManager & manager);
+	virtual PBoolean OnSetUp(OpalConnection & connection);
+};
+
+
+class FSManager:public OpalManager {
+	PCLASSINFO(FSManager, OpalManager);
+
+  public:
+	FSManager();
+
+	bool Initialise(switch_loadable_module_interface_t *iface);
+
+	switch_status_t ReadConfig(int reload);
+
+	switch_endpoint_interface_t *GetSwitchInterface() const {
+		return m_FreeSwitch;
+	} virtual OpalCall *CreateCall(void *userData);
+
+  private:
+	switch_endpoint_interface_t *m_FreeSwitch;
+
+	H323EndPoint *m_h323ep;
+	IAX2EndPoint *m_iaxep;
+	FSEndPoint *m_fsep;
+
+	PString m_gkAddress;
+	PString m_gkIdentifer;
+	PString m_gkInterface;
+
+	        list < FSListener > m_listeners;
+};
+
+
+class FSConnection;
+typedef struct {
+	switch_timer_t read_timer;
+	switch_codec_t read_codec;
+	switch_codec_t write_codec;
+
+	switch_timer_t vid_read_timer;
+	switch_codec_t vid_read_codec;
+	switch_codec_t vid_write_codec;
+	FSConnection *me;
+} opal_private_t;
+
+
+class FSEndPoint:public OpalLocalEndPoint {
+	PCLASSINFO(FSEndPoint, OpalLocalEndPoint);
+  public:
+	FSEndPoint(FSManager & manager);
+
+	virtual bool OnIncomingCall(OpalLocalConnection &);
+	virtual OpalLocalConnection *CreateConnection(OpalCall & call, void *userData, unsigned options, OpalConnection::StringOptions * stringOptions);
+};
+
+
+#define DECLARE_CALLBACK0(name)                           \
+    static switch_status_t name(switch_core_session_t *session) {       \
+        opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(session); \
+        return tech_pvt && tech_pvt->me != NULL ? tech_pvt->me->name() : SWITCH_STATUS_FALSE; } \
+switch_status_t name()
+
+#define DECLARE_CALLBACK1(name, type1, name1)                           \
+    static switch_status_t name(switch_core_session_t *session, type1 name1) { \
+        opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(session); \
+        return tech_pvt && tech_pvt->me != NULL ? tech_pvt->me->name(name1) : SWITCH_STATUS_FALSE; } \
+switch_status_t name(type1 name1)
+
+#define DECLARE_CALLBACK3(name, type1, name1, type2, name2, type3, name3) \
+    static switch_status_t name(switch_core_session_t *session, type1 name1, type2 name2, type3 name3) { \
+        opal_private_t *tech_pvt = (opal_private_t *) switch_core_session_get_private(session); \
+        return tech_pvt && tech_pvt->me != NULL ? tech_pvt->me->name(name1, name2, name3) : SWITCH_STATUS_FALSE; } \
+switch_status_t name(type1 name1, type2 name2, type3 name3)
+
+
+
+
+class FSConnection:public OpalLocalConnection {
+	PCLASSINFO(FSConnection, OpalLocalConnection)
+
+  public:
+	FSConnection(OpalCall & call,
+				 FSEndPoint & endpoint,
+				 void *userData,
+				 unsigned options,
+				 OpalConnection::StringOptions * stringOptions,
+				 switch_caller_profile_t *outbound_profile, switch_core_session_t *fsSession, switch_channel_t *fsChannel);
+
+	virtual bool OnIncoming();
+	virtual void OnReleased();
+	virtual PBoolean SetAlerting(const PString & calleeName, PBoolean withMedia);
+	virtual void OnAlerting();
+	virtual void OnEstablished();
+	virtual OpalMediaStream *CreateMediaStream(const OpalMediaFormat &, unsigned, PBoolean);
+	virtual PBoolean OnOpenMediaStream(OpalMediaStream & stream);
+	virtual OpalMediaFormatList GetMediaFormats() const;
+	virtual PBoolean SendUserInputTone(char tone, unsigned duration);
+	virtual PBoolean SendUserInputString(const PString & value);
+
+	void SetCodecs();
+
+	     DECLARE_CALLBACK0(on_init);
+	     DECLARE_CALLBACK0(on_routing);
+	     DECLARE_CALLBACK0(on_execute);
+
+	     DECLARE_CALLBACK0(on_exchange_media);
+	     DECLARE_CALLBACK0(on_soft_execute);
+
+	     DECLARE_CALLBACK1(kill_channel, int, sig);
+	    DECLARE_CALLBACK1(send_dtmf, const switch_dtmf_t *, dtmf);
+	              DECLARE_CALLBACK1(receive_message, switch_core_session_message_t *, msg);
+	                              DECLARE_CALLBACK1(receive_event, switch_event_t *, event);
+	               DECLARE_CALLBACK0(state_change);
+	               DECLARE_CALLBACK3(read_audio_frame, switch_frame_t **, frame, switch_io_flag_t, flags, int, stream_id);
+	    DECLARE_CALLBACK3(write_audio_frame, switch_frame_t *, frame, switch_io_flag_t, flags, int, stream_id);
+	    DECLARE_CALLBACK3(read_video_frame, switch_frame_t **, frame, switch_io_flag_t, flag, int, stream_id);
+	    DECLARE_CALLBACK3(write_video_frame, switch_frame_t *, frame, switch_io_flag_t, flag, int, stream_id);
+
+	switch_status_t read_frame(const OpalMediaType & mediaType, switch_frame_t **frame, switch_io_flag_t flags);
+	switch_status_t write_frame(const OpalMediaType & mediaType, const switch_frame_t *frame, switch_io_flag_t flags);
+
+	switch_core_session_t *GetSession() const {
+		return m_fsSession;
+  } private:
+	      FSEndPoint & m_endpoint;
+	switch_core_session_t *m_fsSession;
+	switch_channel_t *m_fsChannel;
+	PSyncPoint m_rxAudioOpened;
+	PSyncPoint m_txAudioOpened;
+	OpalMediaFormatList m_switchMediaFormats;
+};
+
+
+class FSMediaStream:public OpalMediaStream {
+	PCLASSINFO(FSMediaStream, OpalMediaStream);
+  public:
+	FSMediaStream(FSConnection & conn, const OpalMediaFormat & mediaFormat,	///<  Media format for stream
+				  unsigned sessionID,	///<  Session number for stream
+				  bool isSource	///<  Is a source stream
+		);
+
+	virtual PBoolean Open();
+	virtual PBoolean Close();
+	virtual PBoolean IsSynchronous() const;
+	virtual PBoolean RequiresPatchThread(OpalMediaStream *) const;
+
+	switch_status_t read_frame(switch_frame_t **frame, switch_io_flag_t flags);
+	switch_status_t write_frame(const switch_frame_t *frame, switch_io_flag_t flags);
+
+  private:
+	switch_core_session_t *m_fsSession;
+	switch_channel_t *m_fsChannel;
+	switch_timer_t *m_switchTimer;
+	switch_codec_t *m_switchCodec;
+	switch_frame_t m_readFrame;
+	unsigned char m_buf[SWITCH_RECOMMENDED_BUFFER_SIZE];
+	RTP_DataFrame m_readRTP;
+	bool m_callOnStart;
+	uint32_t m_timeStamp;
+
+	bool CheckPatchAndLock();
+};
+
+
+#endif /* __FREESWITCH_MOD_OPAL__ */
+
+/* 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:s:
+ */
diff --git a/src/mod/endpoints/mod_sofia/mod_sofia.c b/src/mod/endpoints/mod_sofia/mod_sofia.c
index 5cb9108597..650b898399 100644
--- a/src/mod/endpoints/mod_sofia/mod_sofia.c
+++ b/src/mod/endpoints/mod_sofia/mod_sofia.c
@@ -429,10 +429,6 @@ switch_status_t sofia_on_hangup(switch_core_session_t *session)
 		gateway_ptr = sofia_reg_find_gateway(gateway_name);
 	}
 
-	if (!tech_pvt) {
-		return SWITCH_STATUS_SUCCESS;
-	}
-
 	switch_mutex_lock(tech_pvt->sofia_mutex);
 
 	rec = sofia_test_flag(tech_pvt, TFLAG_RECOVERING);
diff --git a/src/mod/endpoints/mod_sofia/mod_sofia.h b/src/mod/endpoints/mod_sofia/mod_sofia.h
index 472b327ea8..6d01de8a38 100644
--- a/src/mod/endpoints/mod_sofia/mod_sofia.h
+++ b/src/mod/endpoints/mod_sofia/mod_sofia.h
@@ -154,7 +154,6 @@ typedef struct sofia_dispatch_event_s {
 	int save;
 	switch_core_session_t *session;
 	switch_memory_pool_t *pool;
-	struct sofia_dispatch_event_s *next;
 } sofia_dispatch_event_t;
 
 struct sofia_private {
@@ -167,7 +166,6 @@ struct sofia_private {
 	int is_call;
 	int is_static;
 	sofia_dispatch_event_t *de;
-	sofia_dispatch_event_t *deq;
 };
 
 #define set_param(ptr,val) if (ptr) {free(ptr) ; ptr = NULL;} if (val) {ptr = strdup(val);}
diff --git a/src/mod/endpoints/mod_sofia/sofia.c b/src/mod/endpoints/mod_sofia/sofia.c
index bd1c0a88a8..58a658e9ea 100644
--- a/src/mod/endpoints/mod_sofia/sofia.c
+++ b/src/mod/endpoints/mod_sofia/sofia.c
@@ -969,25 +969,18 @@ static void our_sofia_event_callback(nua_event_t event,
 	int locked = 0;
 	int check_destroy = 1;
 
-	if (sofia_private && sofia_private->is_call) {
-		sofia_dispatch_event_t *qde = NULL;
+	if (sofia_private && sofia_private->is_call && sofia_private->de) {
+		sofia_dispatch_event_t *qde = sofia_private->de;
+		sofia_private->de = NULL;
 
-		switch_mutex_lock(profile->flag_mutex);
-		if (sofia_private->de) {
-			qde = sofia_private->de;
-			sofia_private->de = NULL;
-		}
-		switch_mutex_unlock(profile->flag_mutex);
-
-		if (qde) {
+		if (event == nua_i_cancel) {
+			nua_destroy_event(qde->event);
+			su_free(nh->nh_home, qde);	
+		} else {
 			sofia_process_dispatch_event(&qde);
 		}
 	}
 
-	if (sofia_private && (sofia_private->destroy_me == 12)) {
-		return;
-	}
-
 	profile->last_sip_event = switch_time_now();
 
 	/* sofia_private will be == &mod_sofia_globals.keep_private whenever a request is done with a new handle that has to be 
@@ -1532,51 +1525,22 @@ void sofia_process_dispatch_event_in_thread(sofia_dispatch_event_t **dep)
 
 void sofia_process_dispatch_event(sofia_dispatch_event_t **dep)
 {
-	sofia_dispatch_event_t *de = *dep, *deq = NULL;
+	sofia_dispatch_event_t *de = *dep;
 	nua_handle_t *nh = de->nh;
 	nua_t *nua = de->nua;
 	sofia_profile_t *profile = de->profile;
-	sofia_private_t *sofia_private = nua_handle_magic(de->nh);
+
 	*dep = NULL;
 
 	our_sofia_event_callback(de->data->e_event, de->data->e_status, de->data->e_phrase, de->nua, de->profile, 
-							 de->nh, sofia_private, de->sip, de, (tagi_t *) de->data->e_tags);
+							 de->nh, nua_handle_magic(de->nh), de->sip, de, (tagi_t *) de->data->e_tags);
 
 	nua_destroy_event(de->event);	
 	su_free(nh->nh_home, de);
 
 	switch_mutex_lock(profile->flag_mutex);
 	profile->queued_events--;
-	if (sofia_private && sofia_private->is_call && sofia_private->deq) {
-		deq = sofia_private->deq;
-		sofia_private->deq = NULL;
-	}
 	switch_mutex_unlock(profile->flag_mutex);
-
-	if (deq) {
-		for (;;) {
-			switch_mutex_lock(profile->flag_mutex);
-			if ((de = deq)) {
-				deq = deq->next;
-				de->next = NULL;
-			}
-			switch_mutex_unlock(profile->flag_mutex);
-
-			if (!de) {
-				break;
-			}
-
-			our_sofia_event_callback(de->data->e_event, de->data->e_status, de->data->e_phrase, de->nua, de->profile, 
-									 de->nh, sofia_private, de->sip, de, (tagi_t *) de->data->e_tags);
-			
-			nua_destroy_event(de->event);	
-			su_free(nh->nh_home, de);
-			nua_handle_unref(nh);
-			nua_stack_unref(nua);
-			
-		}
-	}
-
 	
 	nua_handle_unref(nh);
 	nua_stack_unref(nua);
@@ -1720,6 +1684,8 @@ void sofia_event_callback(nua_event_t event,
 		return;
 	}
 
+	
+
 	switch_mutex_lock(profile->flag_mutex);
 	profile->queued_events++;
 	switch_mutex_unlock(profile->flag_mutex);
@@ -1741,9 +1707,7 @@ void sofia_event_callback(nua_event_t event,
 		memset(sofia_private, 0, sizeof(*sofia_private));
 		sofia_private->is_call++;
 		sofia_private->is_static++;
-		switch_mutex_lock(profile->flag_mutex);
 		sofia_private->de = de;
-		switch_mutex_unlock(profile->flag_mutex);
 		nua_handle_bind(nh, sofia_private);
 		return;
 	}
@@ -1751,23 +1715,7 @@ void sofia_event_callback(nua_event_t event,
 	if (sofia_private && sofia_private != &mod_sofia_globals.destroy_private && sofia_private != &mod_sofia_globals.keep_private) {
 		switch_core_session_t *session;
 
-		if (zstr(sofia_private->uuid)) {
-			if (sofia_private->is_call && !sofia_private->de) {
-				sofia_dispatch_event_t *dep;
-
-				switch_mutex_lock(profile->flag_mutex);
-
-				if (!sofia_private->deq) {
-					sofia_private->deq = de;
-				} else {
-					for (dep = sofia_private->deq; dep && dep->next; dep = dep->next);
-					dep->next = de;
-				}
-
-				switch_mutex_unlock(profile->flag_mutex);
-				return;
-			}
-		} else {
+		if (!zstr(sofia_private->uuid)) {
 			if ((session = switch_core_session_locate(sofia_private->uuid))) {
 				if (switch_core_session_running(session)) {
 					switch_core_session_queue_signal_data(session, de);
@@ -1784,7 +1732,7 @@ void sofia_event_callback(nua_event_t event,
 			}
 		}
 	}
-	
+
 	sofia_queue_message(de);
 	switch_os_yield();
 }
@@ -6092,9 +6040,9 @@ static void sofia_handle_sip_i_state(switch_core_session_t *session, int status,
 			}
 		}
 
-		//		if (sofia_private) {
-			//sofia_private->destroy_me = 1;
-		//}
+		if (sofia_private) {
+			sofia_private->destroy_me = 1;
+		}
 	}
 
 	if (session) {
@@ -8065,7 +8013,6 @@ void sofia_handle_sip_i_invite(nua_t *nua, sofia_profile_t *profile, nua_handle_
 
 	profile->ib_calls++;
 
-
 	if (sess_count >= sess_max || !sofia_test_pflag(profile, PFLAG_RUNNING)) {
 		nua_respond(nh, 503, "Maximum Calls In Progress", SIPTAG_RETRY_AFTER_STR("300"), TAG_END());
 		goto fail;
@@ -8270,8 +8217,14 @@ void sofia_handle_sip_i_invite(nua_t *nua, sofia_profile_t *profile, nua_handle_
 		nua_respond(nh, 503, "Maximum Calls In Progress", SIPTAG_RETRY_AFTER_STR("300"), TAG_END());
 		goto fail;
 	}
-	
-	tech_pvt = (private_object_t *) switch_core_session_alloc(session, sizeof(private_object_t));
+
+	if (!(tech_pvt = (private_object_t *) switch_core_session_alloc(session, sizeof(private_object_t)))) {
+		switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_CRIT, "Hey where is my memory pool?\n");
+		nua_respond(nh, SIP_503_SERVICE_UNAVAILABLE, TAG_END());
+		switch_core_session_destroy(&session);
+		goto fail;
+	}
+
 
 	switch_mutex_init(&tech_pvt->flag_mutex, SWITCH_MUTEX_NESTED, switch_core_session_get_pool(session));
 	switch_mutex_init(&tech_pvt->sofia_mutex, SWITCH_MUTEX_NESTED, switch_core_session_get_pool(session));
@@ -9078,10 +9031,6 @@ void sofia_handle_sip_i_invite(nua_t *nua, sofia_profile_t *profile, nua_handle_
 	}
 	switch_copy_string(tech_pvt->sofia_private->uuid, switch_core_session_get_uuid(session), sizeof(tech_pvt->sofia_private->uuid));
 
-	if (switch_core_session_running(session) || switch_core_session_started(session)) {
-		return;
-	}
-
 	if (sip && switch_core_session_thread_launch(session) == SWITCH_STATUS_SUCCESS) {
 		const char *dialog_from_user = "", *dialog_from_host = "", *to_user = "", *to_host = "", *contact_user = "", *contact_host = "";
 		const char *user_agent = "", *call_id = "";
@@ -9170,7 +9119,6 @@ void sofia_handle_sip_i_invite(nua_t *nua, sofia_profile_t *profile, nua_handle_
 			switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Setting NAT mode based on %s\n", is_nat);
 			switch_channel_set_variable(channel, "sip_nat_detected", "true");
 		}
-
 		return;
 	}
 
@@ -9192,12 +9140,10 @@ void sofia_handle_sip_i_invite(nua_t *nua, sofia_profile_t *profile, nua_handle_
 		switch_mutex_unlock(tech_pvt->profile->flag_mutex);
 	}
 
-	if (!switch_core_session_running(session)) {
-		nua_handle_bind(nh, NULL);
-		sofia_private_free(sofia_private);
-		switch_core_session_destroy(&session);
-		nua_respond(nh, 503, "Maximum Calls In Progress", SIPTAG_RETRY_AFTER_STR("300"), TAG_END());
-	}
+	nua_handle_bind(nh, NULL);
+	sofia_private_free(sofia_private);
+	switch_core_session_destroy(&session);
+	nua_respond(nh, 503, "Maximum Calls In Progress", SIPTAG_RETRY_AFTER_STR("300"), TAG_END());
 	return;
 
   fail:
diff --git a/src/mod/xml_int/mod_xml_radius/00_dialplan_auth.xml b/src/mod/xml_int/mod_xml_radius/00_dialplan_auth.xml
index 8b8ceae9cd..4085a68de0 100644
--- a/src/mod/xml_int/mod_xml_radius/00_dialplan_auth.xml
+++ b/src/mod/xml_int/mod_xml_radius/00_dialplan_auth.xml
@@ -1,7 +1,7 @@
 <include>
 
   <extension name="auth" continue="true">
-    <condition field="${radius_auth_result}" expression="^$">
+    <condition>
       <action application="radius_auth" inline="true"/>
     </condition>
   </extension>
@@ -18,10 +18,5 @@
     </condition>
   </extension>
 
-  <extension name="originate_leg" continue="true">
-    <condition>
-      <action application="export" data="nolocal:h323-call-origin=originate"/>
-    </condition>
-  </extension>
 </include>
 
diff --git a/src/mod/xml_int/mod_xml_radius/mod_xml_radius.c b/src/mod/xml_int/mod_xml_radius/mod_xml_radius.c
index 2a74f9cff9..9a5176bcee 100644
--- a/src/mod/xml_int/mod_xml_radius/mod_xml_radius.c
+++ b/src/mod/xml_int/mod_xml_radius/mod_xml_radius.c
@@ -34,7 +34,6 @@
 static struct {
 	switch_memory_pool_t *pool;
 	switch_xml_t auth_invite_configs;
-	switch_xml_t auth_reg_configs;
 	switch_xml_t auth_app_configs;
 	switch_xml_t acct_start_configs;
 	switch_xml_t acct_end_configs;
@@ -150,42 +149,7 @@ switch_status_t do_config()
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Could not find 'auth_invite' section in config file.\n");		
 	}
 	
-	serv = timeout = deadtime = retries = dict = seq = 0;
-	if ((tmp = switch_xml_dup(switch_xml_child(cfg, "auth_reg"))) != NULL ) {
-		if ( (server = switch_xml_child(tmp, "connection")) != NULL) {
-				for (param = switch_xml_child(server, "param"); param; param = param->next) {
-					char *var = (char *) switch_xml_attr_soft(param, "name");
-					if ( strncmp(var, "authserver", 10) == 0 ) {
-						serv = 1;
-					} else if ( strncmp(var, "radius_timeout", 14) == 0 ) {
-						timeout = 1;
-					} else if ( strncmp(var, "radius_deadtime", 15) == 0 ) {
-						deadtime = 1;
-					} else if ( strncmp(var, "radius_retries", 14) == 0 ) {
-						retries = 1;
-					} else if ( strncmp(var, "dictionary", 10) == 0 ) {
-						dict = 1;
-					} else if ( strncmp(var, "seqfile", 7) == 0 ) {
-						seq = 1;
-					}
-				}
-				
-				if ( serv && timeout && deadtime && retries && dict && seq ) {
-					globals.auth_reg_configs = tmp;
-				} else {
-					switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Missing a require section for radius connections\n");
-					goto err;
-				}
-		} else {
-			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not find 'connection' section for auth_invite\n");
-			goto err;
-		}		
-	} else {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Could not find 'auth_invite' section in config file.\n");		
-	}
-	
-	serv = timeout = deadtime = retries = dict = seq = 0;
-	if ((tmp = switch_xml_dup(switch_xml_child(cfg, "auth_app"))) != NULL ) {
+	if ((tmp = switch_xml_dup(switch_xml_child(cfg, "auth_app"))) == NULL ) {
 		if ( (server = switch_xml_child(tmp, "connection")) != NULL) {
 				for (param = switch_xml_child(server, "param"); param; param = param->next) {
 					char *var = (char *) switch_xml_attr_soft(param, "name");
@@ -218,8 +182,7 @@ switch_status_t do_config()
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Could not find 'auth_app' section in config file.\n");		
 	}
 	
-	serv = timeout = deadtime = retries = dict = seq = 0;
-	if (( tmp = switch_xml_dup(switch_xml_child(cfg, "acct_start"))) != NULL ) {
+	if (( tmp = switch_xml_dup(switch_xml_child(cfg, "acct_start"))) == NULL ) {
 		if ( (server = switch_xml_child(tmp, "connection")) != NULL) {
 				for (param = switch_xml_child(server, "param"); param; param = param->next) {
 					char *var = (char *) switch_xml_attr_soft(param, "name");
@@ -252,8 +215,7 @@ switch_status_t do_config()
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Could not find 'acct_start' section in config file.\n");		
 	}
 	
-	serv = timeout = deadtime = retries = dict = seq = 0;
-	if (( tmp = switch_xml_dup(switch_xml_child(cfg, "acct_end"))) != NULL ) {
+	if (( tmp = switch_xml_dup(switch_xml_child(cfg, "acct_end"))) == NULL ) {
 		if ( (server = switch_xml_child(tmp, "connection")) != NULL) {
 				for (param = switch_xml_child(server, "param"); param; param = param->next) {
 					char *var = (char *) switch_xml_attr_soft(param, "name");
@@ -319,11 +281,8 @@ switch_status_t mod_xml_radius_add_params(switch_core_session_t *session, switch
 		char *var = (char *) switch_xml_attr(param, "name");
 		char *vend = (char *) switch_xml_attr(param, "vendor");
 		char *variable = (char *) switch_xml_attr(param, "variable");
-		char *variable_secondary = (char *) switch_xml_attr(param, "variable_secondary");
-		char *val_default = (char *) switch_xml_attr(param, "default");
 		char *format = (char *) switch_xml_attr(param, "format");
-		char *other_leg = (char *) switch_xml_attr(param, "other_leg");
-
+		
 		attribute = rc_dict_findattr(handle, var);
 		
 		if ( attribute == NULL ) {
@@ -416,36 +375,8 @@ switch_status_t mod_xml_radius_add_params(switch_core_session_t *session, switch
 					}			
 					
 				} else {
-					if ( format == NULL ) {
-						switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Missing format attribute for %s variable\n", variable);
-						goto err;
-					}
-
 					if ( attribute->type == 0 ) {
-						const char *val = NULL;
-						
-						if ( other_leg ) {
-							val = switch_channel_get_variable_partner(channel, variable);
-							if ( val == NULL && variable_secondary != NULL) {
-								val = switch_channel_get_variable_partner(channel, variable_secondary);
-							}
-						} else {
-							val = switch_channel_get_variable(channel, variable);
-							if ( val == NULL && variable_secondary != NULL) {
-								val = switch_channel_get_variable(channel, variable_secondary);
-							}
-						}
-						
-						if ( val == NULL && val_default != NULL) {
-							av_value = switch_mprintf(format, val_default);							
-						} else {
-							av_value = switch_mprintf(format, val);
-						}
-						
-						if ( GLOBAL_DEBUG ) {
-							switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: value: %s\n", (char *) av_value);
-						}
-				
+						av_value = switch_mprintf(format, switch_channel_get_variable(channel, variable));
 						if (rc_avpair_add(handle, send, attr_num, av_value, -1, vend_num) == NULL) {
 							switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: failed to add option with val '%s' to handle\n", (char *) av_value);
 							goto err;
@@ -556,10 +487,7 @@ switch_xml_t mod_xml_radius_auth_invite(switch_event_t *params) {
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: starting invite authentication\n");
 	}
 	
-	if ( mod_xml_radius_new_handle(&new_handle, globals.auth_invite_configs) != SWITCH_STATUS_SUCCESS ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to load radius handle\n");
-		goto err;		
-	}
+	mod_xml_radius_new_handle(&new_handle, globals.auth_invite_configs);
 
 	if ( new_handle == NULL ) {
 		goto err;
@@ -637,100 +565,6 @@ switch_xml_t mod_xml_radius_auth_invite(switch_event_t *params) {
 	return NULL;
 }
 
-switch_xml_t mod_xml_radius_auth_reg(switch_event_t *params) {
-	int result = 0, param_idx = 0;
-	VALUE_PAIR *send = NULL, *recv = NULL, *service_vp = NULL;
-	char msg[512 * 10 + 1] = {0};
-	uint32_t service = PW_AUTHENTICATE_ONLY;
-	rc_handle *new_handle = NULL;
-	switch_xml_t fields, xml, dir, dom, usr, vars, var;
-	char name[512], value[512], *strtmp;
-
-	if (GLOBAL_DEBUG ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: starting registration authentication\n");
-	}
-	
-	if ( mod_xml_radius_new_handle(&new_handle, globals.auth_invite_configs) != SWITCH_STATUS_SUCCESS ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to load radius handle\n");
-		goto err;		
-	}
-
-	if ( new_handle == NULL ) {
-		goto err;
-	}
-	
-	if ((fields = switch_xml_child(globals.auth_reg_configs, "fields")) == NULL ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not find 'fields' section in config file.\n");		
-		goto err;
-	}
-	
-	if ( mod_xml_radius_add_params(NULL, params, new_handle, &send, fields) != SWITCH_STATUS_SUCCESS ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to add params to rc_handle\n");		
-		goto err;
-	}
-	
-	if (rc_avpair_add(new_handle, &send, PW_SERVICE_TYPE, &service, -1, 0) == NULL) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: failed to add option to handle\n");
-		goto err;
-	}
-	
-	result = rc_auth(new_handle, 0, send, &recv, msg);
-	
-	if ( GLOBAL_DEBUG ){
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: result(RC=%d) %s \n", result, msg);
-	}
-	
-	if ( result != 0 ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: Failed to authenticate\n");
-		goto err;
-	}
-
-	xml = switch_xml_new("document");
-	switch_xml_set_attr_d(xml, "type", "freeswitch/xml");
-	dir = switch_xml_add_child_d(xml, "section", 0);
-	switch_xml_set_attr_d(dir, "name", "directory");
-	dom = switch_xml_add_child_d(dir, "domain", 0);
-	switch_xml_set_attr_d(dom, "name", switch_event_get_header(params, "domain"));
-	usr = switch_xml_add_child_d(dom, "user", 0);
-	vars = switch_xml_add_child_d(usr, "variables", 0);
-	
-	switch_xml_set_attr_d(usr, "id", switch_event_get_header(params, "user"));
-		
-	service_vp = recv;
-	while (service_vp != NULL) {
-		rc_avpair_tostr(new_handle, service_vp, name, 512, value, 512);
-		if ( GLOBAL_DEBUG )
-			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "\tattribute (%s)[%s] found in radius packet\n", name, value);
-		var = switch_xml_add_child_d(vars, "variable", param_idx++);
-		strtmp = strdup(name);
-		switch_xml_set_attr_d(var, "name", strtmp);
-		free(strtmp);
-		strtmp = strdup(value);
-		switch_xml_set_attr_d(var, "value", strtmp);
-		free(strtmp);
-		service_vp = service_vp->next;
-	}
-
-	if ( GLOBAL_DEBUG ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "XML: %s \n", switch_xml_toxml(xml, 1));
-	}
-	
-	rc_avpair_free(recv);
-	rc_destroy(new_handle);
-	return xml;
- err:
-	if ( recv ) {
-		rc_avpair_free(recv);
-		recv = NULL;
-	}
-	if ( new_handle ) {
-		rc_destroy(new_handle);
-		new_handle = NULL;
-	}
-	
-	return NULL;
-}
-
 static switch_xml_t mod_xml_radius_directory_search(const char *section, const char *tag_name, const char *key_name, const char *key_value, 
 													switch_event_t *params,	void *user_data)
 {
@@ -750,11 +584,9 @@ static switch_xml_t mod_xml_radius_directory_search(const char *section, const c
 	if ( auth_method == NULL) {
 		return NULL;
 	}
-	
+
 	if ( strncmp( "INVITE", auth_method, 6) == 0) {
 		xml = mod_xml_radius_auth_invite(params);
-	} else if ( strncmp( "REGISTER", auth_method, 8) == 0) {
-		xml = mod_xml_radius_auth_reg(params);
 	} else {
 		xml = NULL;
 	}
@@ -790,7 +622,6 @@ switch_status_t mod_xml_radius_check_conditions(switch_channel_t *channel, switc
 			}
 			
 			if ( switch_regex_match( switch_channel_get_variable(channel, channel_var), regex) != SWITCH_STATUS_SUCCESS) {
-				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Didn't match: %s == %s \n", switch_channel_get_variable(channel, channel_var), regex);
 				all_matched = 0;
 			}
 		}
@@ -812,7 +643,6 @@ switch_status_t mod_xml_radius_accounting_start(switch_core_session_t *session){
 
 	if (GLOBAL_DEBUG ) {
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "mod_xml_radius: starting accounting start\n");
-		switch_core_session_execute_application(session, "info", NULL);
 	}
 
 	/* If there are conditions defined, and none of them pass, then skip this accounting */
@@ -821,10 +651,7 @@ switch_status_t mod_xml_radius_accounting_start(switch_core_session_t *session){
 		goto end;
 	}
 	
-	if ( mod_xml_radius_new_handle(&new_handle, globals.acct_start_configs) != SWITCH_STATUS_SUCCESS ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to load radius handle\n");
-		goto end;		
-	}
+	mod_xml_radius_new_handle(&new_handle, globals.acct_start_configs);
 
 	if ((fields = switch_xml_child(globals.acct_start_configs, "fields")) == NULL ) {
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not find 'fields' section in config file.\n");		
@@ -873,10 +700,7 @@ switch_status_t mod_xml_radius_accounting_end(switch_core_session_t *session){
 		goto end;
 	}
 	
-	if ( mod_xml_radius_new_handle(&new_handle, globals.acct_end_configs) != SWITCH_STATUS_SUCCESS ) {
-		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to load radius handle\n");
-		goto end;		
-	}
+	mod_xml_radius_new_handle(&new_handle, globals.acct_end_configs);
 
 	if ((fields = switch_xml_child(globals.acct_end_configs, "fields")) == NULL ) {
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not find 'fields' section in config file.\n");		
@@ -900,10 +724,8 @@ switch_status_t mod_xml_radius_accounting_end(switch_core_session_t *session){
 	}
 
  end:
-	if ( new_handle) {
-		rc_destroy(new_handle);
-	}
-	
+	rc_destroy(new_handle);
+
 	return SWITCH_STATUS_SUCCESS;
 }
 
diff --git a/src/mod/xml_int/mod_xml_radius/xml_radius.conf.xml b/src/mod/xml_int/mod_xml_radius/xml_radius.conf.xml
index eb3070c929..cb0ec3a01a 100644
--- a/src/mod/xml_int/mod_xml_radius/xml_radius.conf.xml
+++ b/src/mod/xml_int/mod_xml_radius/xml_radius.conf.xml
@@ -22,48 +22,10 @@
       <param vendor="Cisco" name="Cisco-AVPair" variable="ip" format="src-gw-ip=%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-gw-name=%s"/>
       <param vendor="Cisco" name="h323-conf-id" variable="Core-UUID" format="%s"/>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="ip" format="number"/>
       <param name="Called-Station-Id" variable="sip_to_user" format="%s"/>
       <param name="Calling-Station-Id" variable="sip_from_user" format="%s"/>
-      <param name="User-Name" variable="sip_from_user" format="%s"/>
-      <param name="Digest-Response" variable="sip_auth_response" format="%s"/>
-      <param name="Digest-Realm" variable="sip_auth_realm" format="%s"/>
-      <param name="Digest-Nonce" variable="sip_auth_nonce" format="%s"/>
-      <param name="Digest-Username" variable="sip_auth_username" format="%s"/> 
-      <param name="Digest-URI" variable="sip_auth_uri" format="%s"/>
-      <param name="Digest-Method" variable="sip_auth_method" format="%s"/>
-      <param name="Digest-Algorithm" variable="sip_auth_method" format="MD5"/>
-      <param name="Digest-Qop" variable="sip_auth_qop" format="%s"/>
-      <param name="Digest-CNonce" variable="sip_auth_cnonce" format="%s"/>
-      <param name="Digest-Nonce-Count" variable="sip_auth_nc" format="%s"/> 
     </fields>
   </auth_invite>
-  <auth_reg>
-    <connection name="testing">
-      <param name="authserver" value="127.0.0.1:1812:testing123"/>
-      <param name="radius_timeout" value="10"/>
-      <param name="radius_retries" value="2"/>
-      <param name="radius_deadtime" value="0"/>
-      <param name="dictionary" value="/usr/local/src/freeswitch/src/mod/xml_int/mod_xml_radius/dictionaries/dictionary"/>
-      <param name="seqfile" value="/var/run/radius.seq"/>
-    </connection>
-    <fields>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="ip" format="user"/>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="ip" format="src-gw-ip=%s"/>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-gw-name=%s"/>
-      <param name="User-Name" variable="sip_from_user" format="%s"/>
-      <param name="Digest-Response" variable="sip_auth_response" format="%s"/>
-      <param name="Digest-Realm" variable="sip_auth_realm" format="%s"/>
-      <param name="Digest-Nonce" variable="sip_auth_nonce" format="%s"/>
-      <param name="Digest-Username" variable="sip_auth_username" format="%s"/>
-      <param name="Digest-URI" variable="sip_auth_uri" format="%s"/>
-      <param name="Digest-Method" variable="sip_auth_method" format="%s"/>
-      <param name="Digest-Algorithm" variable="sip_auth_method" format="MD5"/>
-      <param name="Digest-Qop" variable="sip_auth_qop" format="%s"/>
-      <param name="Digest-CNonce" variable="sip_auth_cnonce" format="%s"/>
-      <param name="Digest-Nonce-Count" variable="sip_auth_nc" format="%s"/>
-    </fields>
-  </auth_reg>
   <auth_app>
     <connection name="testing">
       <param name="authserver" value="127.0.0.1:1812:testing123"/>
@@ -74,7 +36,7 @@
       <param name="seqfile" value="/var/run/radius.seq"/>
     </connection>
     <fields>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_host" format="src-gw-ip=%s"/>
+      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_network_ip" format="src-gw-ip=%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-gw-name=%s"/>
       <param vendor="Cisco" name="h323-conf-id" variable="Core-UUID" format="%s"/>
       <param name="Called-Station-Id" variable="sip_to_user" format="%s"/>
@@ -105,19 +67,18 @@
     <fields>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_host" format="src-gw-ip=%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-gw-name=%s"/>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_to_host" format="dst-gw-ip=%s"/>  
-      <param vendor="Cisco" name="h323-conf-id" variable_secondary="uuid" variable="originating_leg_uuid" format="%s"/>
+      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_to_host" format="dst-gw-ip=%s"/>
+      <param vendor="Cisco" name="h323-conf-id" variable="uuid" format="%s"/>
       <param vendor="Cisco" name="h323-setup-time"/>
       <param vendor="Cisco" name="h323-connect-time"/>
-      <param vendor="Cisco" name="h323-call-origin" variable="h323-call-origin" default="answer" format="%s"/>
       <param name="Called-Station-Id" variable="sip_to_user" format="%s"/>
       <param name="Calling-Station-Id" variable="sip_from_user" format="%s"/>
     </fields>
-<!--    <conditions>
+    <conditions>
       <condition>
-	<param var="direction" regex="^outbound$"/>
-      </condition> 
-    </conditions> -->
+	<param var="direction" regex="inbound"/>
+      </condition>
+    </conditions>
   </acct_start>
   <acct_end>
     <connection name="testing">
@@ -131,23 +92,22 @@
     <fields>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_host" format="src-gw-ip=%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-gw-name=%s"/>
-      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_to_host" format="dst-gw-ip=%s"/> 
-      <param vendor="Cisco" name="h323-conf-id" variable_secondary="uuid" variable="originating_leg_uuid" format="%s"/>
+      <param vendor="Cisco" name="Cisco-AVPair" variable="sip_to_host" format="dst-gw-ip=%s"/>
+      <param vendor="Cisco" name="h323-conf-id" variable="uuid" format="%s"/>
       <param vendor="Cisco" name="h323-setup-time"/>
       <param vendor="Cisco" name="h323-connect-time"/>
       <param vendor="Cisco" name="h323-disconnect-time"/>
       <param vendor="Cisco" name="h323-disconnect-cause"/>
-      <param vendor="Cisco" name="h323-call-origin" variable="h323-call-origin" format="%s" default="answer"/>
       <param name="Called-Station-Id" variable="sip_to_user" format="%s"/>
       <param name="Acct-Session-Time" variable="billsec" format="%s"/>
       <param name="Calling-Station-Id" variable="sip_from_user" format="%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_from_user" format="src-number-out=%s"/>
       <param vendor="Cisco" name="Cisco-AVPair" variable="sip_to_user" format="dst-number-out=%s"/>
     </fields>
-<!--    <conditions>
+    <conditions>
       <condition>
-	<param var="direction" regex="^outbound$"/>
-      </condition> 
-    </conditions> -->
+	<param var="direction" regex="inbound"/>
+      </condition>
+    </conditions>
   </acct_end>
 </configuration>
diff --git a/src/switch_channel.c b/src/switch_channel.c
index 2a3a7ad04f..a8f05f1928 100644
--- a/src/switch_channel.c
+++ b/src/switch_channel.c
@@ -576,15 +576,10 @@ SWITCH_DECLARE(void) switch_channel_uninit(switch_channel_t *channel)
 	while (switch_queue_trypop(channel->dtmf_log_queue, &pop) == SWITCH_STATUS_SUCCESS) {
 		switch_safe_free(pop);
 	}
-
-	if (channel->private_hash) {
-		switch_core_hash_destroy(&channel->private_hash);
-	}
-
+	switch_core_hash_destroy(&channel->private_hash);
 	if (channel->app_flag_hash) {
 		switch_core_hash_destroy(&channel->app_flag_hash);
 	}
-
 	switch_mutex_lock(channel->profile_mutex);
 	switch_event_destroy(&channel->variables);
 	switch_event_destroy(&channel->api_list);
diff --git a/src/switch_core_memory.c b/src/switch_core_memory.c
index aedceaf435..38a066b020 100644
--- a/src/switch_core_memory.c
+++ b/src/switch_core_memory.c
@@ -80,8 +80,8 @@ SWITCH_DECLARE(void *) switch_core_perform_session_alloc(switch_core_session_t *
 
 #ifdef DEBUG_ALLOC
 	if (memory > 500)
-		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p %p Session Allocate %s %d\n", 
-						  (void *) session->pool, (void *) session, apr_pool_tag(session->pool, NULL), (int) memory);
+		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Session Allocate %s %d\n", 
+						  apr_pool_tag(session->pool, NULL), (int) memory);
 #endif
 
 	ptr = apr_palloc(session->pool, memory);
@@ -113,8 +113,8 @@ SWITCH_DECLARE(void *) switch_core_perform_permanent_alloc(switch_size_t memory,
 #endif
 
 #ifdef DEBUG_ALLOC
-	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Perm Allocate %s %d\n", 
-					  (void *)memory_manager.memory_pool, apr_pool_tag(memory_manager.memory_pool, NULL), (int) memory);
+	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Perm Allocate %s %d\n", 
+					  apr_pool_tag(memory_manager.memory_pool, NULL), (int) memory);
 #endif
 
 	ptr = apr_palloc(memory_manager.memory_pool, memory);
@@ -155,8 +155,8 @@ SWITCH_DECLARE(char *) switch_core_perform_permanent_strdup(const char *todup, c
 	switch_assert(duped != NULL);
 
 #ifdef DEBUG_ALLOC
-	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Perm Allocate %s %d\n", 
-					  (void *) memory_manager.memory_pool, apr_pool_tag(memory_manager.memory_pool, NULL), (int) len);
+	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Perm Allocate %s %d\n", 
+					  apr_pool_tag(memory_manager.memory_pool, NULL), (int) len);
 #endif
 
 #ifdef LOCK_MORE
@@ -248,8 +248,8 @@ SWITCH_DECLARE(char *) switch_core_perform_session_strdup(switch_core_session_t
 #ifdef DEBUG_ALLOC
 	len = strlen(todup);
 	if (len > 500)
-		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p %p Sess Strdup Allocate %s %ld\n", 
-						  (void *) session->pool, (void *)session, apr_pool_tag(session->pool, NULL), strlen(todup));
+		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Sess Strdup Allocate %s %ld\n", 
+						  apr_pool_tag(session->pool, NULL), strlen(todup));
 #endif
 
 	duped = apr_pstrdup(session->pool, todup);
@@ -287,8 +287,8 @@ SWITCH_DECLARE(char *) switch_core_perform_strdup(switch_memory_pool_t *pool, co
 
 #ifdef DEBUG_ALLOC
 	if (len > 500)
-		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Core Strdup Allocate %s %d\n", 
-						  (void *) pool, apr_pool_tag(pool, NULL), (int)len);
+		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Core Strdup Allocate %s %d\n", 
+						  apr_pool_tag(pool, NULL), (int)len);
 #endif
 
 	duped = apr_pstrmemdup(pool, todup, len);
@@ -400,7 +400,7 @@ SWITCH_DECLARE(switch_status_t) switch_core_perform_new_memory_pool(switch_memor
 	apr_pool_tag(*pool, tmp);
 
 #ifdef DEBUG_ALLOC2
-	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p New Pool %s\n", (void *) *pool, apr_pool_tag(*pool, NULL));
+	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "New Pool %s\n", apr_pool_tag(*pool, NULL));
 #endif
 
 
@@ -416,7 +416,7 @@ SWITCH_DECLARE(switch_status_t) switch_core_perform_destroy_memory_pool(switch_m
 	switch_assert(pool != NULL);
 
 #ifdef DEBUG_ALLOC2
-	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Free Pool %s\n", (void *) *pool, apr_pool_tag(*pool, NULL));
+	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Free Pool %s\n", apr_pool_tag(*pool, NULL));
 #endif
 
 #ifdef INSTANTLY_DESTROY_POOLS
@@ -458,8 +458,8 @@ SWITCH_DECLARE(void *) switch_core_perform_alloc(switch_memory_pool_t *pool, swi
 
 #ifdef DEBUG_ALLOC
 	if (memory > 500)
-		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Core Allocate %s %d\n", 
-						  (void *) pool, apr_pool_tag(pool, NULL), (int) memory);
+		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "Core Allocate %s %d\n", 
+						  apr_pool_tag(pool, NULL), (int) memory);
 	/*switch_assert(memory < 20000); */
 #endif
 
@@ -525,26 +525,16 @@ static void *SWITCH_THREAD_FUNC pool_thread(switch_thread_t *thread, void *obj)
 #ifdef USE_MEM_LOCK
 				switch_mutex_lock(memory_manager.mem_lock);
 #endif
-
-#ifdef DEBUG_ALLOC
-				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "%p DESTROY POOL\n", (void *) pop);	
-#endif
 				apr_pool_destroy(pop);
 #ifdef USE_MEM_LOCK
 				switch_mutex_unlock(memory_manager.mem_lock);
 #endif
 #else
 				apr_pool_mutex_set(pop, NULL);
-#ifdef DEBUG_ALLOC
-				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "%p DESTROY POOL\n", (void *) pop);	
-#endif
 				apr_pool_clear(pop);
 				if (switch_queue_trypush(memory_manager.pool_recycle_queue, pop) != SWITCH_STATUS_SUCCESS) {
 #ifdef USE_MEM_LOCK
 					switch_mutex_lock(memory_manager.mem_lock);
-#endif
-#ifdef DEBUG_ALLOC
-				switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_CONSOLE, "%p DESTROY POOL\n", (void *) pop);	
 #endif
 					apr_pool_destroy(pop);
 #ifdef USE_MEM_LOCK
diff --git a/src/switch_core_session.c b/src/switch_core_session.c
index 4113afd1e0..e3262899a6 100644
--- a/src/switch_core_session.c
+++ b/src/switch_core_session.c
@@ -1260,11 +1260,6 @@ SWITCH_DECLARE(void) switch_core_session_perform_destroy(switch_core_session_t *
 	switch_endpoint_interface_t *endpoint_interface = (*session)->endpoint_interface;
 	int i;
 
-	if (switch_core_session_running(*session) && !switch_test_flag((*session), SSF_DESTROYABLE)) {
-		switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, switch_core_session_get_uuid(*session), SWITCH_LOG_ERROR,
-						  "Cowardly ignoring an attempt to call destroy on a running session.\n");
-	}
-
 	switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, switch_core_session_get_uuid(*session), SWITCH_LOG_NOTICE, "Close Channel %s [%s]\n",
 					  switch_channel_get_name((*session)->channel), switch_channel_state_name(switch_channel_get_state((*session)->channel)));
 
@@ -1445,8 +1440,6 @@ static void *SWITCH_THREAD_FUNC switch_core_session_thread(switch_thread_t *thre
 
 	switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_NOTICE, "Session %" SWITCH_SIZE_T_FMT " (%s) Ended\n",
 					  session->id, switch_channel_get_name(session->channel));
-
-	switch_set_flag(session, SSF_DESTROYABLE);
 	switch_core_session_destroy(&session);
 	return NULL;
 }
@@ -1461,7 +1454,6 @@ SWITCH_DECLARE(switch_status_t) switch_core_session_thread_launch(switch_core_se
 	switch_threadattr_detach_set(thd_attr, 1);
 
 	if (switch_test_flag(session, SSF_THREAD_RUNNING) || switch_test_flag(session, SSF_THREAD_STARTED)) {
-		status = SWITCH_STATUS_INUSE;
 		goto end;
 	}
 
diff --git a/src/switch_core_state_machine.c b/src/switch_core_state_machine.c
index 46d49e6883..e567daa9fb 100644
--- a/src/switch_core_state_machine.c
+++ b/src/switch_core_state_machine.c
@@ -336,7 +336,7 @@ SWITCH_DECLARE(void) switch_core_session_run(switch_core_session_t *session)
 	const switch_state_handler_table_t *driver_state_handler = NULL;
 	const switch_state_handler_table_t *application_state_handler = NULL;
 	int silly = 0;
-	uint32_t new_loops = 5000;
+	uint32_t new_loops = 60000;
 
 	/*
 	   Life of the channel. you have channel and pool in your session
diff --git a/src/switch_ivr_bridge.c b/src/switch_ivr_bridge.c
index 3ca4dd2715..f2aec42fdd 100644
--- a/src/switch_ivr_bridge.c
+++ b/src/switch_ivr_bridge.c
@@ -761,7 +761,7 @@ static switch_status_t uuid_bridge_on_hibernate(switch_core_session_t *session)
 static switch_status_t uuid_bridge_on_soft_execute(switch_core_session_t *session)
 {
 	switch_channel_t *channel = switch_core_session_get_channel(session);
-	switch_core_session_t *other_session;
+	switch_core_session_t *other_session = NULL;
 	const char *other_uuid = NULL;
 
 	switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "%s CUSTOM SOFT_EXECUTE\n", switch_channel_get_name(channel));
@@ -818,7 +818,6 @@ static switch_status_t uuid_bridge_on_soft_execute(switch_core_session_t *sessio
 		switch_core_session_reset(session, SWITCH_TRUE, SWITCH_TRUE);
 
 		if (switch_ivr_wait_for_answer(session, other_session) != SWITCH_STATUS_SUCCESS) {
-			switch_core_session_rwunlock(other_session);
 			if (switch_true(switch_channel_get_variable(channel, "uuid_bridge_continue_on_cancel"))) {
 				switch_channel_set_state(channel, CS_EXECUTE);
 			} else if (!switch_channel_test_flag(channel, CF_TRANSFER)) {
@@ -843,7 +842,6 @@ static switch_status_t uuid_bridge_on_soft_execute(switch_core_session_t *sessio
 					switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
 				}
 			}
-			switch_core_session_rwunlock(other_session);
 			goto done;
 		}
 
@@ -869,13 +867,17 @@ static switch_status_t uuid_bridge_on_soft_execute(switch_core_session_t *sessio
 			!switch_channel_test_flag(channel, CF_REDIRECT) && state < CS_HANGUP && state != CS_ROUTING && state != CS_PARK) {
 			switch_channel_set_state(channel, CS_EXECUTE);
 		}
-		switch_core_session_rwunlock(other_session);
 	} else {
 		switch_channel_hangup(channel, SWITCH_CAUSE_DESTINATION_OUT_OF_ORDER);
 	}
 
  done:
 
+	if (other_session) {
+		switch_core_session_rwunlock(other_session);
+		other_session = NULL;
+	}
+
 	switch_channel_clear_flag_recursive(channel, CF_BRIDGE_ORIGINATOR);
 
 	return SWITCH_STATUS_FALSE;