Remove some dead parking call

[asterisk/asterisk.git] / main / features.c

/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 1999 - 2012, Digium, Inc.
 * Copyright (C) 2012, Russell Bryant
 *
 * Mark Spencer <markster@digium.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */

/*! \file
 *
 * \brief Routines implementing call features as call pickup, parking and transfer
 *
 * \author Mark Spencer <markster@digium.com>
 */

/*! \li \ref features.c uses the configuration file \ref features.conf
 * \addtogroup configuration_file Configuration Files
 */

/*!
 * \page features.conf features.conf
 * \verbinclude features.conf.sample
 */

/*** MODULEINFO
        <support_level>core</support_level>
 ***/

#include "asterisk.h"

ASTERISK_FILE_VERSION(__FILE__, "$Revision$")

#include "asterisk/_private.h"

#include <pthread.h>
#include <signal.h>
#include <sys/time.h>
#include <sys/signal.h>
#include <netinet/in.h>

#include "asterisk/lock.h"
#include "asterisk/file.h"
#include "asterisk/channel.h"
#include "asterisk/pbx.h"
#include "asterisk/causes.h"
#include "asterisk/module.h"
#include "asterisk/translate.h"
#include "asterisk/app.h"
#include "asterisk/say.h"
#include "asterisk/features.h"
#include "asterisk/musiconhold.h"
#include "asterisk/config.h"
#include "asterisk/cli.h"
#include "asterisk/manager.h"
#include "asterisk/utils.h"
#include "asterisk/adsi.h"
#include "asterisk/devicestate.h"
#include "asterisk/monitor.h"
#include "asterisk/audiohook.h"
#include "asterisk/global_datastores.h"
#include "asterisk/astobj2.h"
#include "asterisk/test.h"
#include "asterisk/bridge.h"
#include "asterisk/bridge_basic.h"
#include "asterisk/bridge_after.h"
#include "asterisk/stasis.h"
#include "asterisk/stasis_channels.h"
#include "asterisk/features_config.h"

/* BUGBUG TEST_FRAMEWORK is disabled because parking tests no longer work. */
#undef TEST_FRAMEWORK

/*
 * Party A - transferee
 * Party B - transferer
 * Party C - target of transfer
 *
 * DTMF attended transfer works within the channel bridge.
 * Unfortunately, when either party A or B in the channel bridge
 * hangs up, that channel is not completely hung up until the
 * transfer completes.  This is a real problem depending upon
 * the channel technology involved.
 *
 * For chan_dahdi, the channel is crippled until the hangup is
 * complete.  Either the channel is not useable (analog) or the
 * protocol disconnect messages are held up (PRI/BRI/SS7) and
 * the media is not released.
 *
 * For chan_sip, a call limit of one is going to block that
 * endpoint from any further calls until the hangup is complete.
 *
 * For party A this is a minor problem.  The party A channel
 * will only be in this condition while party B is dialing and
 * when party B and C are conferring.  The conversation between
 * party B and C is expected to be a short one.  Party B is
 * either asking a question of party C or announcing party A.
 * Also party A does not have much incentive to hangup at this
 * point.
 *
 * For party B this can be a major problem during a blonde
 * transfer.  (A blonde transfer is our term for an attended
 * transfer that is converted into a blind transfer. :))  Party
 * B could be the operator.  When party B hangs up, he assumes
 * that he is out of the original call entirely.  The party B
 * channel will be in this condition while party C is ringing,
 * while attempting to recall party B, and while waiting between
 * call attempts.
 *
 * WARNING:
 * The ATXFER_NULL_TECH conditional is a hack to fix the
 * problem.  It will replace the party B channel technology with
 * a NULL channel driver.  The consequences of this code is that
 * the 'h' extension will not be able to access any channel
 * technology specific information like SIP statistics for the
 * call.
 *
 * Uncomment the ATXFER_NULL_TECH define below to replace the
 * party B channel technology in the channel bridge to complete
 * hanging up the channel technology.
 */
//#define ATXFER_NULL_TECH      1

/*** DOCUMENTATION
        <application name="Bridge" language="en_US">
                <synopsis>
                        Bridge two channels.
                </synopsis>
                <syntax>
                        <parameter name="channel" required="true">
                                <para>The current channel is bridged to the specified <replaceable>channel</replaceable>.</para>
                        </parameter>
                        <parameter name="options">
                                <optionlist>
                                        <option name="p">
                                                <para>Play a courtesy tone to <replaceable>channel</replaceable>.</para>
                                        </option>
                                        <option name="F" argsep="^">
                                                <argument name="context" required="false" />
                                                <argument name="exten" required="false" />
                                                <argument name="priority" required="true" />
                                                <para>When the bridger hangs up, transfer the <emphasis>bridged</emphasis> party
                                                to the specified destination and <emphasis>start</emphasis> execution at that location.</para>
                                                <note>
                                                        <para>Any channel variables you want the called channel to inherit from the caller channel must be
                                                        prefixed with one or two underbars ('_').</para>
                                                </note>
                                                <note>
                                                        <para>This option will override the 'x' option</para>
                                                </note>
                                        </option>
                                        <option name="F">
                                                <para>When the bridger hangs up, transfer the <emphasis>bridged</emphasis> party
                                                to the next priority of the current extension and <emphasis>start</emphasis> execution
                                                at that location.</para>
                                                <note>
                                                        <para>Any channel variables you want the called channel to inherit from the caller channel must be
                                                        prefixed with one or two underbars ('_').</para>
                                                </note>
                                                <note>
                                                        <para>Using this option from a Macro() or GoSub() might not make sense as there would be no return points.</para>
                                                </note>
                                                <note>
                                                        <para>This option will override the 'x' option</para>
                                                </note>
                                        </option>

                                        <option name="h">
                                                <para>Allow the called party to hang up by sending the
                                                <replaceable>*</replaceable> DTMF digit.</para>
                                        </option>
                                        <option name="H">
                                                <para>Allow the calling party to hang up by pressing the
                                                <replaceable>*</replaceable> DTMF digit.</para>
                                        </option>
                                        <option name="k">
                                                <para>Allow the called party to enable parking of the call by sending
                                                the DTMF sequence defined for call parking in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="K">
                                                <para>Allow the calling party to enable parking of the call by sending
                                                 the DTMF sequence defined for call parking in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="L(x[:y][:z])">
                                                <para>Limit the call to <replaceable>x</replaceable> ms. Play a warning
                                                when <replaceable>y</replaceable> ms are left. Repeat the warning every
                                                <replaceable>z</replaceable> ms. The following special variables can be
                                                used with this option:</para>
                                                <variablelist>
                                                        <variable name="LIMIT_PLAYAUDIO_CALLER">
                                                                <para>Play sounds to the caller. yes|no (default yes)</para>
                                                        </variable>
                                                        <variable name="LIMIT_PLAYAUDIO_CALLEE">
                                                                <para>Play sounds to the callee. yes|no</para>
                                                        </variable>
                                                        <variable name="LIMIT_TIMEOUT_FILE">
                                                                <para>File to play when time is up.</para>
                                                        </variable>
                                                        <variable name="LIMIT_CONNECT_FILE">
                                                                <para>File to play when call begins.</para>
                                                        </variable>
                                                        <variable name="LIMIT_WARNING_FILE">
                                                                <para>File to play as warning if <replaceable>y</replaceable> is
                                                                defined. The default is to say the time remaining.</para>
                                                        </variable>
                                                </variablelist>
                                        </option>
                                        <option name="S(x)">
                                                <para>Hang up the call after <replaceable>x</replaceable> seconds *after* the called party has answered the call.</para>
                                        </option>
                                        <option name="t">
                                                <para>Allow the called party to transfer the calling party by sending the
                                                DTMF sequence defined in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="T">
                                                <para>Allow the calling party to transfer the called party by sending the
                                                DTMF sequence defined in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="w">
                                                <para>Allow the called party to enable recording of the call by sending
                                                the DTMF sequence defined for one-touch recording in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="W">
                                                <para>Allow the calling party to enable recording of the call by sending
                                                the DTMF sequence defined for one-touch recording in <filename>features.conf</filename>.</para>
                                        </option>
                                        <option name="x">
                                                <para>Cause the called party to be hung up after the bridge, instead of being
                                                restarted in the dialplan.</para>
                                        </option>
                                </optionlist>
                        </parameter>
                </syntax>
                <description>
                        <para>Allows the ability to bridge two channels via the dialplan.</para>
                        <para>This application sets the following channel variable upon completion:</para>
                        <variablelist>
                                <variable name="BRIDGERESULT">
                                        <para>The result of the bridge attempt as a text string.</para>
                                        <value name="SUCCESS" />
                                        <value name="FAILURE" />
                                        <value name="LOOP" />
                                        <value name="NONEXISTENT" />
                                        <value name="INCOMPATIBLE" />
                                </variable>
                        </variablelist>
                </description>
        </application>
        <manager name="Bridge" language="en_US">
                <synopsis>
                        Bridge two channels already in the PBX.
                </synopsis>
                <syntax>
                        <xi:include xpointer="xpointer(/docs/manager[@name='Login']/syntax/parameter[@name='ActionID'])" />
                        <parameter name="Channel1" required="true">
                                <para>Channel to Bridge to Channel2.</para>
                        </parameter>
                        <parameter name="Channel2" required="true">
                                <para>Channel to Bridge to Channel1.</para>
                        </parameter>
                        <parameter name="Tone">
                                <para>Play courtesy tone to Channel 2.</para>
                                <enumlist>
                                        <enum name="no" />
                                        <enum name="Channel1" />
                                        <enum name="Channel2" />
                                        <enum name="Both" />
                                </enumlist>
                        </parameter>
                </syntax>
                <description>
                        <para>Bridge together two channels already in the PBX.</para>
                </description>
        </manager>
        <managerEvent language="en_US" name="Pickup">
                <managerEventInstance class="EVENT_FLAG_CALL">
                        <synopsis>Raised when a call pickup occurs.</synopsis>
                        <syntax>
                                <xi:include xpointer="xpointer(/docs/managerEvent[@name='Newchannel']/managerEventInstance/syntax/parameter)" />
                                <parameter name="TargetChannel"/>
                                <parameter name="TargetChannelState"><para>A numeric code for the channel's current state, related to TargetChannelStateDesc</para></parameter>
                                <parameter name="TargetChannelStateDesc">
                                        <enumlist>
                                                <enum name="Down"/>
                                                <enum name="Rsrvd"/>
                                                <enum name="OffHook"/>
                                                <enum name="Dialing"/>
                                                <enum name="Ring"/>
                                                <enum name="Ringing"/>
                                                <enum name="Up"/>
                                                <enum name="Busy"/>
                                                <enum name="Dialing Offhook"/>
                                                <enum name="Pre-ring"/>
                                                <enum name="Unknown"/>
                                        </enumlist>
                                </parameter>
                                <parameter name="TargetCallerIDNum"/>
                                <parameter name="TargetCallerIDName"/>
                                <parameter name="TargetConnectedLineNum"/>
                                <parameter name="TargetConnectedLineName"/>
                                <parameter name="TargetAccountCode"/>
                                <parameter name="TargetContext"/>
                                <parameter name="TargetExten"/>
                                <parameter name="TargetPriority"/>
                                <parameter name="TargetUniqueid"/>
                        </syntax>
                </managerEventInstance>
        </managerEvent>
 ***/

#define DEFAULT_PARK_TIME                                                       45000   /*!< ms */
#define DEFAULT_PARK_EXTENSION                                          "700"
#define DEFAULT_COMEBACK_CONTEXT                                        "parkedcallstimeout"
#define DEFAULT_COMEBACK_TO_ORIGIN                                      1
#define DEFAULT_COMEBACK_DIAL_TIME                                      30

#define AST_MAX_WATCHERS 256
#define MAX_DIAL_FEATURE_OPTIONS 30

/* TODO Scrape all of the parking stuff out of features.c */

typedef enum {
        FEATURE_INTERPRET_DETECT, /* Used by ast_feature_detect */
        FEATURE_INTERPRET_DO,     /* Used by feature_interpret */
        FEATURE_INTERPRET_CHECK,  /* Used by feature_check */
} feature_interpret_op;

/*! Parking lot access ramp dialplan usage entry. */
struct parking_dp_ramp {
        /*! Next node in the parking lot spaces dialplan list. */
        AST_LIST_ENTRY(parking_dp_ramp) node;
        /*! TRUE if the parking lot access extension is exclusive. */
        unsigned int exclusive:1;
        /*! Parking lot access extension */
        char exten[1];
};

/*! Parking lot dialplan access ramp map */
AST_LIST_HEAD_NOLOCK(parking_dp_ramp_map, parking_dp_ramp);

/*! Parking lot spaces dialplan usage entry. */
struct parking_dp_spaces {
        /*! Next node in the parking lot spaces dialplan list. */
        AST_LIST_ENTRY(parking_dp_spaces) node;
        /*! First parking space */
        int start;
        /*! Last parking space */
        int stop;
};

/*! Parking lot dialplan context space map */
AST_LIST_HEAD_NOLOCK(parking_dp_space_map, parking_dp_spaces);

/*! Parking lot context dialplan usage entry. */
struct parking_dp_context {
        /*! Next node in the parking lot contexts dialplan list. */
        AST_LIST_ENTRY(parking_dp_context) node;
        /*! Parking access extensions defined in this context. */
        struct parking_dp_ramp_map access_extens;
        /*! Parking spaces defined in this context. */
        struct parking_dp_space_map spaces;
        /*! Parking hints defined in this context. */
        struct parking_dp_space_map hints;
        /*! Parking lot context name */
        char context[1];
};

/*! Parking lot dialplan usage map. */
AST_LIST_HEAD_NOLOCK(parking_dp_map, parking_dp_context);

/*!
 * \brief Description of one parked call, added to a list while active, then removed.
 * The list belongs to a parkinglot.
 */
struct parkeduser {
        struct ast_channel *chan;                   /*!< Parked channel */
        struct timeval start;                       /*!< Time the park started */
        int parkingnum;                             /*!< Parking lot space used */
        char parkingexten[AST_MAX_EXTENSION];       /*!< If set beforehand, parking extension used for this call */
        char context[AST_MAX_CONTEXT];              /*!< Where to go if our parking time expires */
        char exten[AST_MAX_EXTENSION];
        int priority;
        unsigned int parkingtime;                   /*!< Maximum length in parking lot before return */
        /*! Method to entertain the caller when parked: AST_CONTROL_RINGING, AST_CONTROL_HOLD, or 0(none) */
        enum ast_control_frame_type hold_method;
        unsigned int notquiteyet:1;
        unsigned int options_specified:1;
        char peername[AST_CHANNEL_NAME];
        unsigned char moh_trys;
        /*! Parking lot this entry belongs to.  Holds a parking lot reference. */
        struct ast_parkinglot *parkinglot;
        AST_LIST_ENTRY(parkeduser) list;
};

/*! Parking lot configuration options. */
struct parkinglot_cfg {
        /*! Music class used for parking */
        char mohclass[MAX_MUSICCLASS];
        /*! Extension to park calls in this parking lot. */
        char parkext[AST_MAX_EXTENSION];
        /*! Context for which parking is made accessible */
        char parking_con[AST_MAX_CONTEXT];
        /*! Context that timed-out parked calls are called back on when comebacktoorigin=no */
        char comebackcontext[AST_MAX_CONTEXT];
        /*! First available extension for parking */
        int parking_start;
        /*! Last available extension for parking */
        int parking_stop;
        /*! Default parking time in ms. */
        unsigned int parkingtime;
        /*!
         * \brief Enable DTMF based transfers on bridge when picking up parked calls.
         *
         * \details
         * none(0)
         * AST_FEATURE_FLAG_BYCALLEE
         * AST_FEATURE_FLAG_BYCALLER
         * AST_FEATURE_FLAG_BYBOTH
         */
        int parkedcalltransfers;
        /*!
         * \brief Enable DTMF based parking on bridge when picking up parked calls.
         *
         * \details
         * none(0)
         * AST_FEATURE_FLAG_BYCALLEE
         * AST_FEATURE_FLAG_BYCALLER
         * AST_FEATURE_FLAG_BYBOTH
         */
        int parkedcallreparking;
        /*!
         * \brief Enable DTMF based hangup on a bridge when pickup up parked calls.
         *
         * \details
         * none(0)
         * AST_FEATURE_FLAG_BYCALLEE
         * AST_FEATURE_FLAG_BYCALLER
         * AST_FEATURE_FLAG_BYBOTH
         */
        int parkedcallhangup;
        /*!
         * \brief Enable DTMF based recording on a bridge when picking up parked calls.
         *
         * \details
         * none(0)
         * AST_FEATURE_FLAG_BYCALLEE
         * AST_FEATURE_FLAG_BYCALLER
         * AST_FEATURE_FLAG_BYBOTH
         */
        int parkedcallrecording;

        /*! Time in seconds to dial the device that parked a timedout parked call */
        unsigned int comebackdialtime;
        /*! TRUE if findslot is set to next */
        unsigned int parkfindnext:1;
        /*! TRUE if the parking lot is exclusively accessed by parkext */
        unsigned int parkext_exclusive:1;
        /*! Add parking hints automatically */
        unsigned int parkaddhints:1;
        /*! TRUE if configuration is invalid and the parking lot should not be used. */
        unsigned int is_invalid:1;
        /*! TRUE if a timed out parked call goes back to the parker */
        unsigned int comebacktoorigin:1;
};

/*! \brief Structure for parking lots which are put in a container. */
struct ast_parkinglot {
        /*! Name of the parking lot. */
        char name[AST_MAX_CONTEXT];
        /*! Parking lot user configuration. */
        struct parkinglot_cfg cfg;

        /*! Parking space to start next park search. */
        int next_parking_space;

        /*! That which bears the_mark shall be deleted if parking lot empty! (Used during reloads.) */
        unsigned int the_mark:1;
        /*! TRUE if the parking lot is disabled. */
        unsigned int disabled:1;

        /*! List of active parkings in this parkinglot */
        AST_LIST_HEAD(parkinglot_parklist, parkeduser) parkings;
};

/*! \brief The configured parking lots container. Always at least one  - the default parking lot */
static struct ao2_container *parkinglots;

/*!
 * \brief Default parking lot.
 * \note Holds a parkinglot reference.
 * \note Will not be NULL while running.
 */
static struct ast_parkinglot *default_parkinglot;

/*! Force a config reload to reload regardless of config file timestamp. */
#ifdef TEST_FRAMEWORK
static int force_reload_load;
#endif

static int parkeddynamic = 0;                              /*!< Enable creation of parkinglots dynamically */

/*!
 * \brief Context for parking dialback to parker.
 * \note The need for the context is a KLUDGE.
 *
 * \todo Might be able to eliminate the parking_con_dial context
 * kludge by running app_dial directly in its own thread to
 * simulate a PBX.
 */
static char parking_con_dial[] = "park-dial";

/*! Ensure that features.conf reloads on one thread at a time. */
AST_MUTEX_DEFINE_STATIC(features_reload_lock);

static int adsipark;

static char *registrar = "features";               /*!< Registrar for operations */

/*! PARK_APP_NAME application arguments */
AST_DEFINE_APP_ARGS_TYPE(park_app_args,
        AST_APP_ARG(timeout);           /*!< Time in ms to remain in the parking lot. */
        AST_APP_ARG(return_con);        /*!< Context to return parked call if timeout. */
        AST_APP_ARG(return_ext);        /*!< Exten to return parked call if timeout. */
        AST_APP_ARG(return_pri);        /*!< Priority to return parked call if timeout. */
        AST_APP_ARG(options);           /*!< Parking option flags. */
        AST_APP_ARG(pl_name);           /*!< Parking lot name to use if present. */
        AST_APP_ARG(dummy);                     /*!< Place to put any remaining args string. */
        );

/* module and CLI command definitions */
static const char *parkcall = "Park";

static pthread_t parking_thread;
struct ast_dial_features {
        /*! Channel's feature flags. */
        struct ast_flags my_features;
        /*! Bridge peer's feature flags. */
        struct ast_flags peer_features;
};

static struct ast_manager_event_blob *call_pickup_to_ami(struct stasis_message *message);

STASIS_MESSAGE_TYPE_DEFN(
        ast_call_pickup_type,
        .to_ami = call_pickup_to_ami);


#if defined(ATXFER_NULL_TECH)
/*!
 * \internal
 * \brief Set the channel technology to the kill technology.
 *
 * \param chan Channel to change technology.
 *
 * \return Nothing
 */
static void set_kill_chan_tech(struct ast_channel *chan)
{
        int idx;

        ast_channel_lock(chan);

        /* Hangup the channel's physical side */
        if (ast_channel_tech(chan)->hangup) {
                ast_channel_tech(chan)->hangup(chan);
        }
        if (ast_channel_tech_pvt(chan)) {
                ast_log(LOG_WARNING, "Channel '%s' may not have been hung up properly\n",
                        ast_channel_name(chan));
                ast_free(ast_channel_tech_pvt(chan));
                ast_channel_tech_pvt_set(chan, NULL);
        }

        /* Install the kill technology and wake up anyone waiting on it. */
        ast_channel_tech_set(chan, &ast_kill_tech);
        for (idx = 0; idx < AST_MAX_FDS; ++idx) {
                switch (idx) {
                case AST_ALERT_FD:
                case AST_TIMING_FD:
                case AST_GENERATOR_FD:
                        /* Don't clear these fd's. */
                        break;
                default:
                        ast_channel_set_fd(chan, idx, -1);
                        break;
                }
        }
        ast_queue_frame(chan, &ast_null_frame);

        ast_channel_unlock(chan);
}
#endif  /* defined(ATXFER_NULL_TECH) */

#if defined(ATXFER_NULL_TECH)
/*!
 * \internal
 * \brief Set the channel name to something unique.
 *
 * \param chan Channel to change name.
 *
 * \return Nothing
 */
static void set_new_chan_name(struct ast_channel *chan)
{
        static int seq_num_last;
        int seq_num;
        int len;
        char *chan_name;
        char dummy[1];

        /* Create the new channel name string. */
        ast_channel_lock(chan);
        seq_num = ast_atomic_fetchadd_int(&seq_num_last, +1);
        len = snprintf(dummy, sizeof(dummy), "%s<XFER_%x>", ast_channel_name(chan), seq_num) + 1;
        chan_name = ast_alloca(len);
        snprintf(chan_name, len, "%s<XFER_%x>", ast_channel_name(chan), seq_num);
        ast_channel_unlock(chan);

        ast_change_name(chan, chan_name);
}
#endif  /* defined(ATXFER_NULL_TECH) */

static void *dial_features_duplicate(void *data)
{
        struct ast_dial_features *df = data, *df_copy;

        if (!(df_copy = ast_calloc(1, sizeof(*df)))) {
                return NULL;
        }

        memcpy(df_copy, df, sizeof(*df));

        return df_copy;
}

static const struct ast_datastore_info dial_features_info = {
        .type = "dial-features",
        .destroy = ast_free_ptr,
        .duplicate = dial_features_duplicate,
};

/*!
 * \internal
 * \brief Set the features datastore if it doesn't exist.
 *
 * \param chan Channel to add features datastore
 * \param my_features The channel's feature flags
 * \param peer_features The channel's bridge peer feature flags
 *
 * \retval TRUE if features datastore already existed.
 */
static int add_features_datastore(struct ast_channel *chan, const struct ast_flags *my_features, const struct ast_flags *peer_features)
{
        struct ast_datastore *datastore;
        struct ast_dial_features *dialfeatures;

        ast_channel_lock(chan);
        datastore = ast_channel_datastore_find(chan, &dial_features_info, NULL);
        ast_channel_unlock(chan);
        if (datastore) {
                /* Already exists. */
                return 1;
        }

        /* Create a new datastore with specified feature flags. */
        datastore = ast_datastore_alloc(&dial_features_info, NULL);
        if (!datastore) {
                ast_log(LOG_WARNING, "Unable to create channel features datastore.\n");
                return 0;
        }
        dialfeatures = ast_calloc(1, sizeof(*dialfeatures));
        if (!dialfeatures) {
                ast_log(LOG_WARNING, "Unable to allocate memory for feature flags.\n");
                ast_datastore_free(datastore);
                return 0;
        }
        ast_copy_flags(&dialfeatures->my_features, my_features, AST_FLAGS_ALL);
        ast_copy_flags(&dialfeatures->peer_features, peer_features, AST_FLAGS_ALL);
        datastore->inheritance = DATASTORE_INHERIT_FOREVER;
        datastore->data = dialfeatures;
        ast_channel_lock(chan);
        ast_channel_datastore_add(chan, datastore);
        ast_channel_unlock(chan);
        return 0;
}

/* Forward declarations */
static struct ast_parkinglot *parkinglot_addref(struct ast_parkinglot *parkinglot);
static void parkinglot_unref(struct ast_parkinglot *parkinglot);
static struct ast_parkinglot *find_parkinglot(const char *name);
static struct ast_parkinglot *create_parkinglot(const char *name);
static struct ast_parkinglot *copy_parkinglot(const char *name, const struct ast_parkinglot *parkinglot);
static int parkinglot_activate(struct ast_parkinglot *parkinglot);
static int play_message_on_chan(struct ast_channel *play_to, struct ast_channel *other, const char *msg, const char *audiofile);

/*!
 * \internal
 * \brief Get the parking extension if it exists.
 *
 * \param exten_str Parking extension to see if exists.
 * \param chan Channel to autoservice while looking for exten.  (Could be NULL)
 * \param context Parking context to look in for exten.
 *
 * \retval exten on success.
 * \retval NULL on error or exten does not exist.
 */
static struct ast_exten *get_parking_exten(const char *exten_str, struct ast_channel *chan, const char *context)
{
        struct ast_exten *exten;
        struct pbx_find_info q = { .stacklen = 0 }; /* the rest is reset in pbx_find_extension */
        const char *app_at_exten;

        ast_debug(4, "Checking if %s@%s is a parking exten\n", exten_str, context);
        exten = pbx_find_extension(chan, NULL, &q, context, exten_str, 1, NULL, NULL,
                E_MATCH);
        if (!exten) {
                return NULL;
        }

        app_at_exten = ast_get_extension_app(exten);
        if (!app_at_exten || strcasecmp(parkcall, app_at_exten)) {
                return NULL;
        }

        return exten;
}

int ast_parking_ext_valid(const char *exten_str, struct ast_channel *chan, const char *context)
{
        return get_parking_exten(exten_str, chan, context) ? 1 : 0;
}

struct ast_bridge_thread_obj
{
        struct ast_bridge_config bconfig;
        struct ast_channel *chan;
        struct ast_channel *peer;
        struct ast_callid *callid;                             /*<! callid pointer (Only used to bind thread) */
        unsigned int return_to_pbx:1;
};

static int parkinglot_hash_cb(const void *obj, const int flags)
{
        const struct ast_parkinglot *parkinglot = obj;

        return ast_str_case_hash(parkinglot->name);
}

static int parkinglot_cmp_cb(void *obj, void *arg, int flags)
{
        struct ast_parkinglot *parkinglot = obj;
        struct ast_parkinglot *parkinglot2 = arg;

        return !strcasecmp(parkinglot->name, parkinglot2->name) ? CMP_MATCH | CMP_STOP : 0;
}

/*!
 * \brief store context, extension and priority
 * \param chan, context, ext, pri
 */
static void set_c_e_p(struct ast_channel *chan, const char *context, const char *ext, int pri)
{
        ast_channel_context_set(chan, context);
        ast_channel_exten_set(chan, ext);
        ast_channel_priority_set(chan, pri);
}

static const struct ast_datastore_info channel_app_data_datastore = {
        .type = "Channel appdata datastore",
        .destroy = ast_free_ptr,
};

/*!
 * \brief Announce call parking by ADSI
 * \param chan .
 * \param parkingexten .
 * Create message to show for ADSI, display message.
 * \retval 0 on success.
 * \retval -1 on failure.
 */
static int adsi_announce_park(struct ast_channel *chan, char *parkingexten)
{
        int res;
        int justify[5] = {ADSI_JUST_CENT, ADSI_JUST_CENT, ADSI_JUST_CENT, ADSI_JUST_CENT};
        char tmp[256];
        char *message[5] = {NULL, NULL, NULL, NULL, NULL};

        snprintf(tmp, sizeof(tmp), "Parked on %s", parkingexten);
        message[0] = tmp;
        res = ast_adsi_load_session(chan, NULL, 0, 1);
        if (res == -1)
                return res;
        return ast_adsi_print(chan, message, justify, 1);
}

/*!
 * \brief Find parking lot name from channel
 * \note Channel needs to be locked while the returned string is in use.
 */
static const char *findparkinglotname(struct ast_channel *chan)
{
        const char *name;

        /* The channel variable overrides everything */
        name = pbx_builtin_getvar_helper(chan, "PARKINGLOT");
        if (!name && !ast_strlen_zero(ast_channel_parkinglot(chan))) {
                /* Use the channel's parking lot. */
                name = ast_channel_parkinglot(chan);
        }
        return name;
}

/*! \brief Notify metermaids that we've changed an extension */
static void notify_metermaids(const char *exten, char *context, enum ast_device_state state)
{
        ast_debug(4, "Notification of state change to metermaids %s@%s\n to state '%s'",
                exten, context, ast_devstate2str(state));

        ast_devstate_changed(state, AST_DEVSTATE_CACHABLE, "park:%s@%s", exten, context);
}

/*! \brief metermaids callback from devicestate.c */
static enum ast_device_state metermaidstate(const char *data)
{
        char *context;
        char *exten;

        context = ast_strdupa(data);

        exten = strsep(&context, "@");
        if (!context)
                return AST_DEVICE_INVALID;

        ast_debug(4, "Checking state of exten %s in context %s\n", exten, context);

        if (!ast_exists_extension(NULL, context, exten, 1, NULL))
                return AST_DEVICE_NOT_INUSE;

        return AST_DEVICE_INUSE;
}

/*! Options to pass to park_call_full */
enum ast_park_call_options {
        /*! Provide ringing to the parked caller instead of music on hold */
        AST_PARK_OPT_RINGING =   (1 << 0),
        /*! Randomly choose a parking spot for the caller instead of choosing
         *  the first one that is available. */
        AST_PARK_OPT_RANDOMIZE = (1 << 1),
        /*! Do not announce the parking number */
        AST_PARK_OPT_SILENCE = (1 << 2),
};

/*! Optional additional parking options when parking a call. */
struct ast_park_call_args {
        /*! How long to wait in the parking lot before the call gets sent back
         *  to the specified return extension (or a best guess at where it came
         *  from if not explicitly specified). */
        int timeout;
        /*! An output parameter to store the parking space where the parked caller
         *  was placed. */
        int *extout;
        const char *orig_chan_name;
        const char *return_con;
        const char *return_ext;
        int return_pri;
        uint32_t flags;
        /*! Parked user that has already obtained a parking space */
        struct parkeduser *pu;
        /*! \brief Parkinglot to be parked in */
        struct ast_parkinglot *parkinglot;
};

/*!
 * \internal
 * \brief Create a dynamic parking lot.
 *
 * \param name Dynamic parking lot name to create.
 * \param chan Channel to get dynamic parking lot parameters.
 *
 * \retval parkinglot on success.
 * \retval NULL on error.
 */
static struct ast_parkinglot *create_dynamic_parkinglot(const char *name, struct ast_channel *chan)
{
        const char *dyn_context;
        const char *dyn_exten;
        const char *dyn_range;
        const char *template_name;
        struct ast_parkinglot *template_parkinglot = NULL;
        struct ast_parkinglot *parkinglot;
        int dyn_start;
        int dyn_end;

        ast_channel_lock(chan);
        template_name = ast_strdupa(S_OR(pbx_builtin_getvar_helper(chan, "PARKINGDYNAMIC"), ""));
        dyn_context = ast_strdupa(S_OR(pbx_builtin_getvar_helper(chan, "PARKINGDYNCONTEXT"), ""));
        dyn_exten = ast_strdupa(S_OR(pbx_builtin_getvar_helper(chan, "PARKINGDYNEXTEN"), ""));
        dyn_range = ast_strdupa(S_OR(pbx_builtin_getvar_helper(chan, "PARKINGDYNPOS"), ""));
        ast_channel_unlock(chan);

        if (!ast_strlen_zero(template_name)) {
                template_parkinglot = find_parkinglot(template_name);
                if (!template_parkinglot) {
                        ast_debug(1, "PARKINGDYNAMIC lot %s does not exist.\n",
                                template_name);
                } else if (template_parkinglot->cfg.is_invalid) {
                        ast_debug(1, "PARKINGDYNAMIC lot %s has invalid config.\n",
                                template_name);
                        parkinglot_unref(template_parkinglot);
                        template_parkinglot = NULL;
                }
        }
        if (!template_parkinglot) {
                template_parkinglot = parkinglot_addref(default_parkinglot);
                ast_debug(1, "Using default parking lot for template\n");
        }

        parkinglot = copy_parkinglot(name, template_parkinglot);
        if (!parkinglot) {
                ast_log(LOG_ERROR, "Could not build dynamic parking lot!\n");
        } else {
                /* Configure the dynamic parking lot. */
                if (!ast_strlen_zero(dyn_context)) {
                        ast_copy_string(parkinglot->cfg.parking_con, dyn_context,
                                sizeof(parkinglot->cfg.parking_con));
                }
                if (!ast_strlen_zero(dyn_exten)) {
                        ast_copy_string(parkinglot->cfg.parkext, dyn_exten,
                                sizeof(parkinglot->cfg.parkext));
                }
                if (!ast_strlen_zero(dyn_range)) {
                        if (sscanf(dyn_range, "%30d-%30d", &dyn_start, &dyn_end) != 2) {
                                ast_log(LOG_WARNING,
                                        "Format for parking positions is a-b, where a and b are numbers\n");
                        } else if (dyn_end < dyn_start || dyn_start <= 0 || dyn_end <= 0) {
                                ast_log(LOG_WARNING,
                                        "Format for parking positions is a-b, where a <= b\n");
                        } else {
                                parkinglot->cfg.parking_start = dyn_start;
                                parkinglot->cfg.parking_stop = dyn_end;
                        }
                }

                /*
                 * Sanity check for dynamic parking lot configuration.
                 *
                 * XXX It may be desirable to instead check if the dynamic
                 * parking lot overlaps any existing lots like what is done for
                 * a reload.
                 */
                if (!strcmp(parkinglot->cfg.parking_con, template_parkinglot->cfg.parking_con)) {
                        if (!strcmp(parkinglot->cfg.parkext, template_parkinglot->cfg.parkext)
                                && parkinglot->cfg.parkext_exclusive) {
                                ast_log(LOG_WARNING,
                                        "Parking lot '%s' conflicts with template parking lot '%s'!\n"
                                        "Change either PARKINGDYNCONTEXT or PARKINGDYNEXTEN.\n",
                                        parkinglot->name, template_parkinglot->name);
                        }
                        if ((template_parkinglot->cfg.parking_start <= parkinglot->cfg.parking_start
                                        && parkinglot->cfg.parking_start <= template_parkinglot->cfg.parking_stop)
                                || (template_parkinglot->cfg.parking_start <= parkinglot->cfg.parking_stop
                                        && parkinglot->cfg.parking_stop <= template_parkinglot->cfg.parking_stop)
                                || (parkinglot->cfg.parking_start < template_parkinglot->cfg.parking_start
                                        && template_parkinglot->cfg.parking_stop < parkinglot->cfg.parking_stop)) {
                                ast_log(LOG_WARNING,
                                        "Parking lot '%s' parking spaces overlap template parking lot '%s'!\n"
                                        "Change PARKINGDYNPOS.\n",
                                        parkinglot->name, template_parkinglot->name);
                        }
                }

                parkinglot_activate(parkinglot);
                ao2_link(parkinglots, parkinglot);
        }
        parkinglot_unref(template_parkinglot);

        return parkinglot;
}

/*!
 * \internal
 * \brief Abort parking a call that has not completed parking yet.
 *
 * \param pu Parked user item to clean up.
 *
 * \note The parking lot parkings list is locked on entry.
 *
 * \return Nothing
 */
static void park_space_abort(struct parkeduser *pu)
{
        struct ast_parkinglot *parkinglot;

        parkinglot = pu->parkinglot;

        /* Put back the parking space just allocated. */
        --parkinglot->next_parking_space;

        AST_LIST_REMOVE(&parkinglot->parkings, pu, list);

        AST_LIST_UNLOCK(&parkinglot->parkings);
        parkinglot_unref(parkinglot);
        ast_free(pu);
}

/*!
 * \internal
 * \brief Reserve a parking space in a parking lot for a call being parked.
 *
 * \param park_me Channel being parked.
 * \param parker Channel parking the call.
 * \param args Optional additional parking options when parking a call.
 *
 * \return Parked call descriptor or NULL if failed.
 * \note The parking lot list is locked if successful.
 */
static struct parkeduser *park_space_reserve(struct ast_channel *park_me, struct ast_channel *parker, struct ast_park_call_args *args)
{
        struct parkeduser *pu;
        int i;
        int parking_space = -1;
        const char *parkinglotname;
        const char *parkingexten;
        struct parkeduser *cur;
        struct ast_parkinglot *parkinglot = NULL;

        if (args->parkinglot) {
                parkinglot = parkinglot_addref(args->parkinglot);
                parkinglotname = parkinglot->name;
        } else {
                if (parker) {
                        parkinglotname = findparkinglotname(parker);
                } else { /* parker was NULL, check park_me (ParkAndAnnounce / res_agi) */
                        parkinglotname = findparkinglotname(park_me);
                }
                if (!ast_strlen_zero(parkinglotname)) {
                        parkinglot = find_parkinglot(parkinglotname);
                } else {
                        /* Parking lot is not specified, so use the default parking lot. */
                        ast_debug(4, "This could be an indication channel driver needs updating, using default lot.\n");
                        parkinglot = parkinglot_addref(default_parkinglot);
                }
        }

        /* Dynamically create parkinglot */
        if (!parkinglot && parkeddynamic && !ast_strlen_zero(parkinglotname)) {
                parkinglot = create_dynamic_parkinglot(parkinglotname, park_me);
        }

        if (!parkinglot) {
                ast_log(LOG_WARNING, "Parking lot not available to park %s.\n", ast_channel_name(park_me));
                return NULL;
        }

        ast_debug(1, "Parking lot: %s\n", parkinglot->name);
        if (parkinglot->disabled || parkinglot->cfg.is_invalid) {
                ast_log(LOG_WARNING, "Parking lot %s is not in a useable state.\n",
                        parkinglot->name);
                parkinglot_unref(parkinglot);
                return NULL;
        }

        /* Allocate memory for parking data */
        if (!(pu = ast_calloc(1, sizeof(*pu)))) {
                parkinglot_unref(parkinglot);
                return NULL;
        }

        /* Lock parking list */
        AST_LIST_LOCK(&parkinglot->parkings);

        /* Check for channel variable PARKINGEXTEN */
        parkingexten = ast_strdupa(S_OR(pbx_builtin_getvar_helper(park_me, "PARKINGEXTEN"), ""));
        if (!ast_strlen_zero(parkingexten)) {
                /*!
                 * \note The API forces us to specify a numeric parking slot, even
                 * though the architecture would tend to support non-numeric extensions
                 * (as are possible with SIP, for example).  Hence, we enforce that
                 * limitation here.  If extout was not numeric, we could permit
                 * arbitrary non-numeric extensions.
                 */
                if (sscanf(parkingexten, "%30d", &parking_space) != 1 || parking_space <= 0) {
                        ast_log(LOG_WARNING, "PARKINGEXTEN='%s' is not a valid parking space.\n",
                                parkingexten);
                        AST_LIST_UNLOCK(&parkinglot->parkings);
                        parkinglot_unref(parkinglot);
                        ast_free(pu);
                        return NULL;
                }

                if (parking_space < parkinglot->cfg.parking_start
                        || parkinglot->cfg.parking_stop < parking_space) {
                        /*
                         * Cannot allow park because parking lots are not setup for
                         * spaces outside of the lot.  (Things like dialplan hints don't
                         * exist for outside lot space.)
                         */
                        ast_log(LOG_WARNING, "PARKINGEXTEN=%d is not in %s (%d-%d).\n",
                                parking_space, parkinglot->name, parkinglot->cfg.parking_start,
                                parkinglot->cfg.parking_stop);
                        AST_LIST_UNLOCK(&parkinglot->parkings);
                        parkinglot_unref(parkinglot);
                        ast_free(pu);
                        return NULL;
                }

                /* Check if requested parking space is in use. */
                AST_LIST_TRAVERSE(&parkinglot->parkings, cur, list) {
                        if (cur->parkingnum == parking_space) {
                                ast_log(LOG_WARNING, "PARKINGEXTEN=%d is already in use in %s\n",
                                        parking_space, parkinglot->name);
                                AST_LIST_UNLOCK(&parkinglot->parkings);
                                parkinglot_unref(parkinglot);
                                ast_free(pu);
                                return NULL;
                        }
                }
        } else {
                /* PARKINGEXTEN is empty, so find a usable extension in the lot to park the call */
                int start; /* The first slot we look in the parkinglot. It can be randomized. */
                int start_checked = 0; /* flag raised once the first slot is checked */

                /* If using randomize mode, set start to random position on parking range */
                if (ast_test_flag(args, AST_PARK_OPT_RANDOMIZE)) {
                        start = ast_random() % (parkinglot->cfg.parking_stop - parkinglot->cfg.parking_start + 1);
                        start += parkinglot->cfg.parking_start;
                } else if (parkinglot->cfg.parkfindnext
                        && parkinglot->cfg.parking_start <= parkinglot->next_parking_space
                        && parkinglot->next_parking_space <= parkinglot->cfg.parking_stop) {
                        /* Start looking with the next parking space in the lot. */
                        start = parkinglot->next_parking_space;
                } else {
                        /* Otherwise, just set it to the start position. */
                        start = parkinglot->cfg.parking_start;
                }

                /* free parking extension linear search: O(n^2) */
                for (i = start; ; i++) {
                        /* If we are past the end, wrap around to the first parking slot*/
                        if (i == parkinglot->cfg.parking_stop + 1) {
                                i = parkinglot->cfg.parking_start;
                        }

                        if (i == start) {
                                /* At this point, if start_checked, we've exhausted all the possible slots. */
                                if (start_checked) {
                                        break;
                                } else {
                                        start_checked = 1;
                                }
                        }

                        /* Search the list of parked calls already in use for i. If we find it, it's in use. */
                        AST_LIST_TRAVERSE(&parkinglot->parkings, cur, list) {
                                if (cur->parkingnum == i) {
                                        break;
                                }
                        }
                        if (!cur) {
                                /* We found a parking space. */
                                parking_space = i;
                                break;
                        }
                }
                if (parking_space == -1) {
                        /* We did not find a parking space.  Lot is full. */
                        ast_log(LOG_WARNING, "No more parking spaces in %s\n", parkinglot->name);
                        AST_LIST_UNLOCK(&parkinglot->parkings);
                        parkinglot_unref(parkinglot);
                        ast_free(pu);
                        return NULL;
                }
        }

        /* Prepare for next parking space search. */
        parkinglot->next_parking_space = parking_space + 1;

        snprintf(pu->parkingexten, sizeof(pu->parkingexten), "%d", parking_space);
        pu->notquiteyet = 1;
        pu->parkingnum = parking_space;
        pu->parkinglot = parkinglot;
        AST_LIST_INSERT_TAIL(&parkinglot->parkings, pu, list);

        return pu;
}

/* Park a call */
static int park_call_full(struct ast_channel *chan, struct ast_channel *peer, struct ast_park_call_args *args)
{
        struct parkeduser *pu = args->pu;
        const char *event_from;         /*!< Channel name that is parking the call. */
        char app_data[AST_MAX_EXTENSION + AST_MAX_CONTEXT];

        if (pu == NULL) {
                args->pu = pu = park_space_reserve(chan, peer, args);
                if (pu == NULL) {
                        return -1;
                }
        }

        ast_channel_appl_set(chan, "Parked Call");
        ast_channel_data_set(chan, NULL);

        pu->chan = chan;

        /* Put the parked channel on hold if we have two different channels */
        if (chan != peer) {
                if (ast_test_flag(args, AST_PARK_OPT_RINGING)) {
                        pu->hold_method = AST_CONTROL_RINGING;
                        ast_indicate(chan, AST_CONTROL_RINGING);
                } else {
                        pu->hold_method = AST_CONTROL_HOLD;
                        ast_indicate_data(chan, AST_CONTROL_HOLD,
                                S_OR(pu->parkinglot->cfg.mohclass, NULL),
                                !ast_strlen_zero(pu->parkinglot->cfg.mohclass) ? strlen(pu->parkinglot->cfg.mohclass) + 1 : 0);
                }
        }

        pu->start = ast_tvnow();
        /* XXX This line was changed to not use get_parkingtime. This is just a placeholder message, because
         * likely this entire function is going away.
         */
        pu->parkingtime = args->timeout;
        if (args->extout)
                *(args->extout) = pu->parkingnum;

        if (peer) {
                event_from = S_OR(args->orig_chan_name, ast_channel_name(peer));

                /*
                 * This is so ugly that it hurts, but implementing
                 * get_base_channel() on local channels could have ugly side
                 * effects.  We could have
                 * transferer<->local;1<->local;2<->parking and we need the
                 * callback name to be that of transferer.  Since local;1/2 have
                 * the same name we can be tricky and just grab the bridged
                 * channel from the other side of the local.
                 */
                if (!strcasecmp(ast_channel_tech(peer)->type, "Local")) {
                        struct ast_channel *tmpchan, *base_peer;
                        char other_side[AST_CHANNEL_NAME];
                        char *c;

                        ast_copy_string(other_side, event_from, sizeof(other_side));
                        if ((c = strrchr(other_side, ';'))) {
                                *++c = '1';
                        }
                        if ((tmpchan = ast_channel_get_by_name(other_side))) {
                                ast_channel_lock(tmpchan);
                                if ((base_peer = ast_bridged_channel(tmpchan))) {
                                        ast_copy_string(pu->peername, ast_channel_name(base_peer), sizeof(pu->peername));
                                }
                                ast_channel_unlock(tmpchan);
                                tmpchan = ast_channel_unref(tmpchan);
                        }
                } else {
                        ast_copy_string(pu->peername, event_from, sizeof(pu->peername));
                }
        } else {
                event_from = S_OR(pbx_builtin_getvar_helper(chan, "BLINDTRANSFER"),
                        ast_channel_name(chan));
        }

        /*
         * Remember what had been dialed, so that if the parking
         * expires, we try to come back to the same place
         */
        pu->options_specified = (!ast_strlen_zero(args->return_con) || !ast_strlen_zero(args->return_ext) || args->return_pri);

        /*
         * If extension has options specified, they override all other
         * possibilities such as the returntoorigin flag and transferred
         * context.  Information on extension options is lost here, so
         * we set a flag
         */
        ast_copy_string(pu->context,
                S_OR(args->return_con, S_OR(ast_channel_macrocontext(chan), ast_channel_context(chan))),
                sizeof(pu->context));
        ast_copy_string(pu->exten,
                S_OR(args->return_ext, S_OR(ast_channel_macroexten(chan), ast_channel_exten(chan))),
                sizeof(pu->exten));
        pu->priority = args->return_pri ? args->return_pri :
                (ast_channel_macropriority(chan) ? ast_channel_macropriority(chan) : ast_channel_priority(chan));

        /*
         * If parking a channel directly, don't quite yet get parking
         * running on it.  All parking lot entries are put into the
         * parking lot with notquiteyet on.
         */
        if (peer != chan) {
                pu->notquiteyet = 0;
        }

        /* Wake up the (presumably select()ing) thread */
        pthread_kill(parking_thread, SIGURG);
        ast_verb(2, "Parked %s on %d (lot %s). Will timeout back to extension [%s] %s, %d in %u seconds\n",
                ast_channel_name(chan), pu->parkingnum, pu->parkinglot->name,
                pu->context, pu->exten, pu->priority, (pu->parkingtime / 1000));

        /*** DOCUMENTATION
                <managerEventInstance>
                        <synopsis>Raised when a call has been parked.</synopsis>
                        <syntax>
                                <parameter name="Exten">
                                        <para>The parking lot extension.</para>
                                </parameter>
                                <parameter name="Parkinglot">
                                        <para>The name of the parking lot.</para>
                                </parameter>
                                <parameter name="From">
                                        <para>The name of the channel that parked the call.</para>
                                </parameter>
                        </syntax>
                        <see-also>
                                <ref type="application">Park</ref>
                                <ref type="manager">Park</ref>
                                <ref type="managerEvent">ParkedCallTimeOut</ref>
                                <ref type="managerEvent">ParkedCallGiveUp</ref>
                        </see-also>
                </managerEventInstance>
        ***/
        ast_manager_event(chan, EVENT_FLAG_CALL, "ParkedCall",
                "Exten: %s\r\n"
                "Channel: %s\r\n"
                "Parkinglot: %s\r\n"
                "From: %s\r\n"
                "Timeout: %ld\r\n"
                "CallerIDNum: %s\r\n"
                "CallerIDName: %s\r\n"
                "ConnectedLineNum: %s\r\n"
                "ConnectedLineName: %s\r\n"
                "Uniqueid: %s\r\n",
                pu->parkingexten, ast_channel_name(chan), pu->parkinglot->name, event_from,
                (long)pu->start.tv_sec + (long)(pu->parkingtime/1000) - (long)time(NULL),
                S_COR(ast_channel_caller(chan)->id.number.valid, ast_channel_caller(chan)->id.number.str, "<unknown>"),
                S_COR(ast_channel_caller(chan)->id.name.valid, ast_channel_caller(chan)->id.name.str, "<unknown>"),
                S_COR(ast_channel_connected(chan)->id.number.valid, ast_channel_connected(chan)->id.number.str, "<unknown>"),
                S_COR(ast_channel_connected(chan)->id.name.valid, ast_channel_connected(chan)->id.name.str, "<unknown>"),
                ast_channel_uniqueid(chan)
                );
        ast_debug(4, "peer: %s\n", peer ? ast_channel_name(peer) : "-No peer-");
        ast_debug(4, "args->orig_chan_name: %s\n", args->orig_chan_name ? args->orig_chan_name : "-none-");
        ast_debug(4, "pu->peername: %s\n", pu->peername);
        ast_debug(4, "AMI ParkedCall Channel: %s\n", ast_channel_name(chan));
        ast_debug(4, "AMI ParkedCall From: %s\n", event_from);

        if (peer && adsipark && ast_adsi_available(peer)) {
                adsi_announce_park(peer, pu->parkingexten);     /* Only supports parking numbers */
                ast_adsi_unload_session(peer);
        }

        snprintf(app_data, sizeof(app_data), "%s,%s", pu->parkingexten,
                pu->parkinglot->name);

        AST_LIST_UNLOCK(&pu->parkinglot->parkings);

        /* Only say number if it's a number and the channel hasn't been masqueraded away */
        if (peer && !ast_test_flag(args, AST_PARK_OPT_SILENCE)
                && (ast_strlen_zero(args->orig_chan_name) || !strcasecmp(ast_channel_name(peer), args->orig_chan_name))) {
                /*
                 * If a channel is masqueraded into peer while playing back the
                 * parking space number do not continue playing it back.  This
                 * is the case if an attended transfer occurs.
                 */
                ast_set_flag(ast_channel_flags(peer), AST_FLAG_MASQ_NOSTREAM);
                /* Tell the peer channel the number of the parking space */
                ast_say_digits(peer, pu->parkingnum, "", ast_channel_language(peer));
                ast_clear_flag(ast_channel_flags(peer), AST_FLAG_MASQ_NOSTREAM);
        }
        if (peer == chan) { /* pu->notquiteyet = 1 */
                /* Wake up parking thread if we're really done */
                if (ast_test_flag(args, AST_PARK_OPT_RINGING)) {
                        pu->hold_method = AST_CONTROL_RINGING;
                        ast_indicate(chan, AST_CONTROL_RINGING);
                } else {
                        pu->hold_method = AST_CONTROL_HOLD;
                        ast_indicate_data(chan, AST_CONTROL_HOLD,
                                S_OR(pu->parkinglot->cfg.mohclass, NULL),
                                !ast_strlen_zero(pu->parkinglot->cfg.mohclass) ? strlen(pu->parkinglot->cfg.mohclass) + 1 : 0);
                }
                pu->notquiteyet = 0;
                pthread_kill(parking_thread, SIGURG);
        }
        return 0;
}

/*!
 * \brief Park call via masqueraded channel and announce parking spot on peer channel.
 *
 * \param rchan the real channel to be parked
 * \param peer the channel to have the parking read to.
 * \param args Additional parking options when parking a call.
 *
 * \retval 0 on success.
 * \retval -1 on failure.
 */
static int masq_park_call(struct ast_channel *rchan, struct ast_channel *peer, struct ast_park_call_args *args)
{
        struct ast_channel *chan;

        /* Make a new, channel that we'll use to masquerade in the real one */
        chan = ast_channel_alloc(0, AST_STATE_DOWN, 0, 0, ast_channel_accountcode(rchan), ast_channel_exten(rchan),
                ast_channel_context(rchan), ast_channel_linkedid(rchan), ast_channel_amaflags(rchan), "Parked/%s", ast_channel_name(rchan));
        if (!chan) {
                ast_log(LOG_WARNING, "Unable to create parked channel\n");
                if (!ast_test_flag(args, AST_PARK_OPT_SILENCE)) {
                        if (peer == rchan) {
                                /* Only have one channel to worry about. */
                                ast_stream_and_wait(peer, "pbx-parkingfailed", "");
                        } else if (peer) {
                                /* Have two different channels to worry about. */
                                play_message_on_chan(peer, rchan, "failure message", "pbx-parkingfailed");
                        }
                }
                return -1;
        }

        args->pu = park_space_reserve(rchan, peer, args);
        if (!args->pu) {
                ast_hangup(chan);
                if (!ast_test_flag(args, AST_PARK_OPT_SILENCE)) {
                        if (peer == rchan) {
                                /* Only have one channel to worry about. */
                                ast_stream_and_wait(peer, "pbx-parkingfailed", "");
                        } else if (peer) {
                                /* Have two different channels to worry about. */
                                play_message_on_chan(peer, rchan, "failure message", "pbx-parkingfailed");
                        }
                }
                return -1;
        }

        /* Make formats okay */
        ast_format_copy(ast_channel_readformat(chan), ast_channel_readformat(rchan));
        ast_format_copy(ast_channel_writeformat(chan), ast_channel_writeformat(rchan));

        if (ast_channel_masquerade(chan, rchan)) {
                park_space_abort(args->pu);
                args->pu = NULL;
                ast_hangup(chan);
                if (!ast_test_flag(args, AST_PARK_OPT_SILENCE)) {
                        if (peer == rchan) {
                                /* Only have one channel to worry about. */
                                ast_stream_and_wait(peer, "pbx-parkingfailed", "");
                        } else if (peer) {
                                /* Have two different channels to worry about. */
                                play_message_on_chan(peer, rchan, "failure message", "pbx-parkingfailed");
                        }
                }
                return -1;
        }

        /* Setup the extensions and such */
        set_c_e_p(chan, ast_channel_context(rchan), ast_channel_exten(rchan), ast_channel_priority(rchan));

        /* Setup the macro extension and such */
        ast_channel_macrocontext_set(chan, ast_channel_macrocontext(rchan));
        ast_channel_macroexten_set(chan, ast_channel_macroexten(rchan));
        ast_channel_macropriority_set(chan, ast_channel_macropriority(rchan));

        /* Manually do the masquerade to make sure it is complete. */
        ast_do_masquerade(chan);

        if (peer == rchan) {
                peer = chan;
        }

        /* parking space reserved, return code check unnecessary */
        park_call_full(chan, peer, args);

        return 0;
}

int ast_masq_park_call_exten(struct ast_channel *park_me, struct ast_channel *parker, const char *park_exten, const char *park_context, int timeout, int *extout)
{
        int res;
        char *parse;
        const char *app_data;
        struct ast_exten *exten;
        struct park_app_args app_args;
        struct ast_park_call_args args = {
                .timeout = timeout,
                .extout = extout,
        };

        if (parker) {
                args.orig_chan_name = ast_strdupa(ast_channel_name(parker));
        }
        if (!park_exten || !park_context) {
                return masq_park_call(park_me, parker, &args);
        }

        /*
         * Determiine if the specified park extension has an exclusive
         * parking lot to use.
         */
        if (parker && parker != park_me) {
                ast_autoservice_start(park_me);
        }
        exten = get_parking_exten(park_exten, parker, park_context);
        if (exten) {
                app_data = ast_get_extension_app_data(exten);
                if (!app_data) {
                        app_data = "";
                }
                parse = ast_strdupa(app_data);
                AST_STANDARD_APP_ARGS(app_args, parse);

                if (!ast_strlen_zero(app_args.pl_name)) {
                        /* Find the specified exclusive parking lot */
                        args.parkinglot = find_parkinglot(app_args.pl_name);
                        if (!args.parkinglot && parkeddynamic) {
                                args.parkinglot = create_dynamic_parkinglot(app_args.pl_name, park_me);
                        }
                }
        }
        if (parker && parker != park_me) {
                ast_autoservice_stop(park_me);
        }

        res = masq_park_call(park_me, parker, &args);
        if (args.parkinglot) {
                parkinglot_unref(args.parkinglot);
        }
        return res;
}

int ast_masq_park_call(struct ast_channel *rchan, struct ast_channel *peer, int timeout, int *extout)
{
        struct ast_park_call_args args = {
                .timeout = timeout,
                .extout = extout,
        };

        if (peer) {
                args.orig_chan_name = ast_strdupa(ast_channel_name(peer));
        }
        return masq_park_call(rchan, peer, &args);
}

/*!
 * \internal
 * \brief Play file to specified channel.
 *
 * \param play_to Channel to play audiofile to.
 * \param other Channel to put in autoservice while playing file.
 * \param msg Descriptive name of message type being played.
 * \param audiofile Audio file to play.
 *
 * \retval 0 on success.
 * \retval -1 on error. (Couldn't play file, a channel hung up,...)
 */
static int play_message_on_chan(struct ast_channel *play_to, struct ast_channel *other, const char *msg, const char *audiofile)
{
        /* Put other channel in autoservice. */
        if (ast_autoservice_start(other)) {
                return -1;
        }
        ast_autoservice_ignore(other, AST_FRAME_DTMF_BEGIN);
        ast_autoservice_ignore(other, AST_FRAME_DTMF_END);
        if (ast_stream_and_wait(play_to, audiofile, "")) {
                ast_log(LOG_WARNING, "Failed to play %s '%s'!\n", msg, audiofile);
                ast_autoservice_stop(other);
                return -1;
        }
        if (ast_autoservice_stop(other)) {
                return -1;
        }
        return 0;
}

/*!
 * \internal
 * \brief Get the extension for a given builtin feature
 *
 * \pre expects features_lock to be readlocked
 *
 * \retval 0 success
 * \retval non-zero failiure
 */
static int builtin_feature_get_exten(struct ast_channel *chan, const char *feature_name,
                char *buf, size_t len)
{
        SCOPED_CHANNELLOCK(lock, chan);

        return ast_get_builtin_feature(chan, feature_name, buf, len);
}

static void set_config_flags(struct ast_channel *chan, struct ast_bridge_config *config)
{
/* BUGBUG there is code that checks AST_BRIDGE_IGNORE_SIGS but no code to set it. */
/* BUGBUG there is code that checks AST_BRIDGE_REC_CHANNEL_0 but no code to set it. */
/* BUGBUG there is code that checks AST_BRIDGE_REC_CHANNEL_1 but no code to set it. */
        ast_clear_flag(config, AST_FLAGS_ALL);

        if (ast_test_flag(&config->features_caller, AST_FEATURE_DTMF_MASK)) {
                ast_set_flag(config, AST_BRIDGE_DTMF_CHANNEL_0);
        }
        if (ast_test_flag(&config->features_callee, AST_FEATURE_DTMF_MASK)) {
                ast_set_flag(config, AST_BRIDGE_DTMF_CHANNEL_1);
        }

        if (!(ast_test_flag(config, AST_BRIDGE_DTMF_CHANNEL_0) && ast_test_flag(config, AST_BRIDGE_DTMF_CHANNEL_1))) {
                RAII_VAR(struct ao2_container *, applicationmap, NULL, ao2_cleanup);

                ast_channel_lock(chan);
                applicationmap = ast_get_chan_applicationmap(chan);
                ast_channel_unlock(chan);

                if (!applicationmap) {
                        return;
                }

                /* If an applicationmap exists for this channel at all, then the channel needs the DTMF flag set */
                ast_set_flag(config, AST_BRIDGE_DTMF_CHANNEL_0);
        }
}

void ast_channel_log(char *title, struct ast_channel *chan);

void ast_channel_log(char *title, struct ast_channel *chan) /* for debug, this is handy enough to justify keeping it in the source */
{
        ast_log(LOG_NOTICE, "______ %s (%lx)______\n", title, (unsigned long) chan);
        ast_log(LOG_NOTICE, "CHAN: name: %s;  appl: %s; data: %s; contxt: %s;  exten: %s; pri: %d;\n",
                ast_channel_name(chan), ast_channel_appl(chan), ast_channel_data(chan),
                ast_channel_context(chan), ast_channel_exten(chan), ast_channel_priority(chan));
        ast_log(LOG_NOTICE, "CHAN: acctcode: %s;  dialcontext: %s; amaflags: %x; maccontxt: %s;  macexten: %s; macpri: %d;\n",
                ast_channel_accountcode(chan), ast_channel_dialcontext(chan), ast_channel_amaflags(chan),
                ast_channel_macrocontext(chan), ast_channel_macroexten(chan), ast_channel_macropriority(chan));
        ast_log(LOG_NOTICE, "CHAN: masq: %p;  masqr: %p; uniqueID: %s; linkedID:%s\n",
                ast_channel_masq(chan), ast_channel_masqr(chan),
                ast_channel_uniqueid(chan), ast_channel_linkedid(chan));
        if (ast_channel_masqr(chan)) {
                ast_log(LOG_NOTICE, "CHAN: masquerading as: %s;  cdr: %p;\n",
                        ast_channel_name(ast_channel_masqr(chan)), ast_channel_cdr(ast_channel_masqr(chan)));
        }

        ast_log(LOG_NOTICE, "===== done ====\n");
}

static void set_bridge_features_on_config(struct ast_bridge_config *config, const char *features)
{
        const char *feature;

        if (ast_strlen_zero(features)) {
                return;
        }

        for (feature = features; *feature; feature++) {
                struct ast_flags *party;

                if (isupper(*feature)) {
                        party = &config->features_caller;
                } else {
                        party = &config->features_callee;
                }

                switch (tolower(*feature)) {
                case 't' :
                        ast_set_flag(party, AST_FEATURE_REDIRECT);
                        break;
                case 'k' :
                        ast_set_flag(party, AST_FEATURE_PARKCALL);
                        break;
                case 'h' :
                        ast_set_flag(party, AST_FEATURE_DISCONNECT);
                        break;
                case 'w' :
                        ast_set_flag(party, AST_FEATURE_AUTOMON);
                        break;
                case 'x' :
                        ast_set_flag(party, AST_FEATURE_AUTOMIXMON);
                        break;
                default :
                        ast_log(LOG_WARNING, "Skipping unknown feature code '%c'\n", *feature);
                        break;
                }
        }
}

static void add_features_datastores(struct ast_channel *caller, struct ast_channel *callee, struct ast_bridge_config *config)
{
        if (add_features_datastore(caller, &config->features_caller, &config->features_callee)) {
                /*
                 * If we don't return here, then when we do a builtin_atxfer we
                 * will copy the disconnect flags over from the atxfer to the
                 * callee (Party C).
                 */
                return;
        }

        add_features_datastore(callee, &config->features_callee, &config->features_caller);
}

static void clear_dialed_interfaces(struct ast_channel *chan)
{
        struct ast_datastore *di_datastore;

        ast_channel_lock(chan);
        if ((di_datastore = ast_channel_datastore_find(chan, &dialed_interface_info, NULL))) {
                if (option_debug) {
                        ast_log(LOG_DEBUG, "Removing dialed interfaces datastore on %s since we're bridging\n", ast_channel_name(chan));
                }
                if (!ast_channel_datastore_remove(chan, di_datastore)) {
                        ast_datastore_free(di_datastore);
                }
        }
        ast_channel_unlock(chan);
}

/*!
 * \internal
 * \brief Helper to add a builtin DTMF feature hook to the features struct.
 * \since 12.0.0
 *
 * \param features Bridge features to setup.
 * \param chan Get features from this channel.
 * \param flags Feature flags on the channel.
 * \param feature_flag Feature flag to test.
 * \param feature_name features.conf name of feature.
 * \param feature_bridge Bridge feature enum to get hook callback.
 *
 * \retval 0 on success.
 * \retval -1 on error.
 */
static int builtin_features_helper(struct ast_bridge_features *features, struct ast_channel *chan,
        struct ast_flags *flags, unsigned int feature_flag, const char *feature_name, enum ast_bridge_builtin_feature feature_bridge)
{
        char dtmf[AST_FEATURE_MAX_LEN];
        int res;

        res = 0;
        if (ast_test_flag(flags, feature_flag)
                && !builtin_feature_get_exten(chan, feature_name, dtmf, sizeof(dtmf))
                && !ast_strlen_zero(dtmf)) {
                res = ast_bridge_features_enable(features, feature_bridge, dtmf, NULL, NULL,
                        AST_BRIDGE_HOOK_REMOVE_ON_PULL | AST_BRIDGE_HOOK_REMOVE_ON_PERSONALITY_CHANGE);
                if (res) {
                        ast_log(LOG_ERROR, "Channel %s: Requested DTMF feature %s not available.\n",
                                ast_channel_name(chan), feature_name);
                }
        }

        return res;
}

/*!
 * \internal
 * \brief Setup bridge builtin features.
 * \since 12.0.0
 *
 * \param features Bridge features to setup.
 * \param chan Get features from this channel.
 *
 * \retval 0 on success.
 * \retval -1 on error.
 */
static int setup_bridge_features_builtin(struct ast_bridge_features *features, struct ast_channel *chan)
{
        struct ast_flags *flags;
        int res;

        ast_channel_lock(chan);
        flags = ast_bridge_features_ds_get(chan);
        ast_channel_unlock(chan);
        if (!flags) {
                return 0;
        }

        res = 0;
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_REDIRECT, "blindxfer", AST_BRIDGE_BUILTIN_BLINDTRANSFER);
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_REDIRECT, "atxfer", AST_BRIDGE_BUILTIN_ATTENDEDTRANSFER);
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_DISCONNECT, "disconnect", AST_BRIDGE_BUILTIN_HANGUP);
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_PARKCALL, "parkcall", AST_BRIDGE_BUILTIN_PARKCALL);
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_AUTOMON, "automon", AST_BRIDGE_BUILTIN_AUTOMON);
        res |= builtin_features_helper(features, chan, flags, AST_FEATURE_AUTOMIXMON, "automixmon", AST_BRIDGE_BUILTIN_AUTOMIXMON);

        return res ? -1 : 0;
}

struct dynamic_dtmf_hook_run {
        /*! Offset into app_name[] where the channel name that activated the hook starts. */
        int activated_offset;
        /*! Offset into app_name[] where the dynamic feature name starts. */
        int feature_offset;
        /*! Offset into app_name[] where the MOH class name starts.  (zero if no MOH) */
        int moh_offset;
        /*! Offset into app_name[] where the application argument string starts. (zero if no arguments) */
        int app_args_offset;
        /*! Application name to run. */
        char app_name[0];
};

static void dynamic_dtmf_hook_callback(struct ast_bridge_channel *bridge_channel,
        const void *payload, size_t payload_size)
{
        struct ast_channel *chan = bridge_channel->chan;
        const struct dynamic_dtmf_hook_run *run_data = payload;

        pbx_builtin_setvar_helper(chan, "DYNAMIC_FEATURENAME",
                &run_data->app_name[run_data->feature_offset]);
        pbx_builtin_setvar_helper(chan, "DYNAMIC_WHO_ACTIVATED",
                &run_data->app_name[run_data->activated_offset]);

        ast_bridge_channel_run_app(bridge_channel, run_data->app_name,
                run_data->app_args_offset ? &run_data->app_name[run_data->app_args_offset] : NULL,
                run_data->moh_offset ? &run_data->app_name[run_data->moh_offset] : NULL);
}

static int dynamic_dtmf_hook_run_callback(struct ast_bridge_channel *bridge_channel,
        ast_bridge_custom_callback_fn callback, const void *payload, size_t payload_size)
{
        callback(bridge_channel, payload, payload_size);
        return 0;
}

struct dynamic_dtmf_hook_data {
        /*! Which side of bridge to run app (AST_FEATURE_FLAG_ONSELF/AST_FEATURE_FLAG_ONPEER) */
        unsigned int flags;
        /*! Offset into app_name[] where the dynamic feature name starts. */
        int feature_offset;
        /*! Offset into app_name[] where the MOH class name starts.  (zero if no MOH) */
        int moh_offset;
        /*! Offset into app_name[] where the application argument string starts. (zero if no arguments) */
        int app_args_offset;
        /*! Application name to run. */
        char app_name[0];
};

/*!
 * \internal
 * \brief Activated dynamic DTMF feature hook.
 * \since 12.0.0
 *
 * \param bridge The bridge that the channel is part of
 * \param bridge_channel Channel executing the feature
 * \param hook_pvt Private data passed in when the hook was created
 *
 * \retval 0 Keep the callback hook.
 * \retval -1 Remove the callback hook.
 */
static int dynamic_dtmf_hook_trip(struct ast_bridge *bridge, struct ast_bridge_channel *bridge_channel, void *hook_pvt)
{
        struct dynamic_dtmf_hook_data *pvt = hook_pvt;
        int (*run_it)(struct ast_bridge_channel *bridge_channel, ast_bridge_custom_callback_fn callback, const void *payload, size_t payload_size);
        struct dynamic_dtmf_hook_run *run_data;
        const char *activated_name;
        size_t len_name;
        size_t len_args;
        size_t len_moh;
        size_t len_feature;
        size_t len_activated;
        size_t len_data;

        /* Determine lengths of things. */
        len_name = strlen(pvt->app_name) + 1;
        len_args = pvt->app_args_offset ? strlen(&pvt->app_name[pvt->app_args_offset]) + 1 : 0;
        len_moh = pvt->moh_offset ? strlen(&pvt->app_name[pvt->moh_offset]) + 1 : 0;
        len_feature = strlen(&pvt->app_name[pvt->feature_offset]) + 1;
        ast_channel_lock(bridge_channel->chan);
        activated_name = ast_strdupa(ast_channel_name(bridge_channel->chan));
        ast_channel_unlock(bridge_channel->chan);
        len_activated = strlen(activated_name) + 1;
        len_data = sizeof(*run_data) + len_name + len_args + len_moh + len_feature + len_activated;

        /* Fill in dynamic feature run hook data. */
        run_data = ast_alloca(len_data);
        run_data->app_args_offset = len_args ? len_name : 0;
        run_data->moh_offset = len_moh ? len_name + len_args : 0;
        run_data->feature_offset = len_name + len_args + len_moh;
        run_data->activated_offset = len_name + len_args + len_moh + len_feature;
        strcpy(run_data->app_name, pvt->app_name);/* Safe */
        if (len_args) {
                strcpy(&run_data->app_name[run_data->app_args_offset],
                        &pvt->app_name[pvt->app_args_offset]);/* Safe */
        }
        if (len_moh) {
                strcpy(&run_data->app_name[run_data->moh_offset],
                        &pvt->app_name[pvt->moh_offset]);/* Safe */
        }
        strcpy(&run_data->app_name[run_data->feature_offset],
                &pvt->app_name[pvt->feature_offset]);/* Safe */
        strcpy(&run_data->app_name[run_data->activated_offset], activated_name);/* Safe */

        if (ast_test_flag(pvt, AST_FEATURE_FLAG_ONPEER)) {
                run_it = ast_bridge_channel_write_callback;
        } else {
                run_it = dynamic_dtmf_hook_run_callback;
        }
        run_it(bridge_channel, dynamic_dtmf_hook_callback, run_data, len_data);
        return 0;
}

/*!
 * \internal
 * \brief Add a dynamic DTMF feature hook to the bridge features.
 * \since 12.0.0
 *
 * \param features Bridge features to setup.
 * \param flags Which side of bridge to run app (AST_FEATURE_FLAG_ONSELF/AST_FEATURE_FLAG_ONPEER).
 * \param dtmf DTMF trigger sequence.
 * \param feature_name Name of the dynamic feature.
 * \param app_name Dialplan application name to run.
 * \param app_args Dialplan application arguments. (Empty or NULL if no arguments)
 * \param moh_class MOH class to play to peer. (Empty or NULL if no MOH played)
 *
 * \retval 0 on success.
 * \retval -1 on error.
 */
static int dynamic_dtmf_hook_add(struct ast_bridge_features *features, unsigned int flags, const char *dtmf, const char *feature_name, const char *app_name, const char *app_args, const char *moh_class)
{
        struct dynamic_dtmf_hook_data *hook_data;
        size_t len_name = strlen(app_name) + 1;
        size_t len_args = ast_strlen_zero(app_args) ? 0 : strlen(app_args) + 1;
        size_t len_moh = ast_strlen_zero(moh_class) ? 0 : strlen(moh_class) + 1;
        size_t len_feature = strlen(feature_name) + 1;
        size_t len_data = sizeof(*hook_data) + len_name + len_args + len_moh + len_feature;
        int res;

        /* Fill in application run hook data. */
        hook_data = ast_malloc(len_data);
        if (!hook_data) {
                return -1;
        }
        hook_data->flags = flags;
        hook_data->app_args_offset = len_args ? len_name : 0;
        hook_data->moh_offset = len_moh ? len_name + len_args : 0;
        hook_data->feature_offset = len_name + len_args + len_moh;
        strcpy(hook_data->app_name, app_name);/* Safe */
        if (len_args) {
                strcpy(&hook_data->app_name[hook_data->app_args_offset], app_args);/* Safe */
        }
        if (len_moh) {
                strcpy(&hook_data->app_name[hook_data->moh_offset], moh_class);/* Safe */
        }
        strcpy(&hook_data->app_name[hook_data->feature_offset], feature_name);/* Safe */

        res = ast_bridge_dtmf_hook(features, dtmf, dynamic_dtmf_hook_trip, hook_data,
                ast_free_ptr, AST_BRIDGE_HOOK_REMOVE_ON_PULL);
        if (res) {
                ast_free(hook_data);
        }
        return res;
}

static int setup_dynamic_feature(void *obj, void *arg, void *data, int flags)
{
        struct ast_applicationmap_item *item = obj;
        struct ast_bridge_features *features = arg;
        int *res = data;

        *res |= dynamic_dtmf_hook_add(features,
                item->activate_on_self ? AST_FEATURE_FLAG_ONSELF : AST_FEATURE_FLAG_ONPEER,
                item->dtmf, item->name, item->app, item->app_data, item->moh_class);

        return 0;
}

/*!
 * \internal
 * \brief Setup bridge dynamic features.
 * \since 12.0.0
 *
 * \param features Bridge features to setup.
 * \param chan Get features from this channel.
 *
 * \retval 0 on success.
 * \retval -1 on error.
 */
static int setup_bridge_features_dynamic(struct ast_bridge_features *features, struct ast_channel *chan)
{
        RAII_VAR(struct ao2_container *, applicationmap, NULL, ao2_cleanup);
        int res = 0;

        ast_channel_lock(chan);
        applicationmap = ast_get_chan_applicationmap(chan);
        ast_channel_unlock(chan);
        if (!applicationmap) {
                return 0;
        }

        ao2_callback_data(applicationmap, 0, setup_dynamic_feature, features, &res);

        return res;
}

/* BUGBUG this really should be made a private function of bridging_basic.c after struct ast_call_feature is made an ao2 object. */
int ast_bridge_channel_setup_features(struct ast_bridge_channel *bridge_channel)
{
        int res = 0;

        /* Always pass through any DTMF digits. */
        bridge_channel->features->dtmf_passthrough = 1;

        res |= setup_bridge_features_builtin(bridge_channel->features, bridge_channel->chan);
        res |= setup_bridge_features_dynamic(bridge_channel->features, bridge_channel->chan);

        return res;
}

static void bridge_config_set_limits_warning_values(struct ast_bridge_config *config, struct ast_bridge_features_limits *limits)
{
        if (config->end_sound) {
                ast_string_field_set(limits, duration_sound, config->end_sound);
        }

        if (config->warning_sound) {
                ast_string_field_set(limits, warning_sound, config->warning_sound);
        }

        if (config->start_sound) {
                ast_string_field_set(limits, connect_sound, config->start_sound);
        }

        limits->frequency = config->warning_freq;
        limits->warning = config->play_warning;
}

/*!
 * \internal brief Setup limit hook structures on calls that need limits
 *
 * \param config ast_bridge_config which provides the limit data
 * \param caller_limits pointer to an ast_bridge_features_limits struct which will store the caller side limits
 * \param callee_limits pointer to an ast_bridge_features_limits struct which will store the callee side limits
 */
static void bridge_config_set_limits(struct ast_bridge_config *config, struct ast_bridge_features_limits *caller_limits, struct ast_bridge_features_limits *callee_limits)
{
        if (ast_test_flag(&config->features_caller, AST_FEATURE_PLAY_WARNING)) {
                bridge_config_set_limits_warning_values(config, caller_limits);
        }

        if (ast_test_flag(&config->features_callee, AST_FEATURE_PLAY_WARNING)) {
                bridge_config_set_limits_warning_values(config, callee_limits);
        }

        caller_limits->duration = config->timelimit;
        callee_limits->duration = config->timelimit;
}

/*!
 * \internal
 * \brief Check if Monitor needs to be started on a channel.
 * \since 12.0.0
 *
 * \param chan The bridge considers this channel the caller.
 * \param peer The bridge considers this channel the callee.
 *
 * \return Nothing
 */
static void bridge_check_monitor(struct ast_channel *chan, struct ast_channel *peer)
{
        const char *value;
        const char *monitor_args = NULL;
        struct ast_channel *monitor_chan = NULL;

        ast_channel_lock(chan);
        value = pbx_builtin_getvar_helper(chan, "AUTO_MONITOR");
        if (!ast_strlen_zero(value)) {
                monitor_args = ast_strdupa(value);
                monitor_chan = chan;
        }
        ast_channel_unlock(chan);
        if (!monitor_chan) {
                ast_channel_lock(peer);
                value = pbx_builtin_getvar_helper(peer, "AUTO_MONITOR");
                if (!ast_strlen_zero(value)) {
                        monitor_args = ast_strdupa(value);
                        monitor_chan = peer;
                }
                ast_channel_unlock(peer);
        }
        if (monitor_chan) {
                struct ast_app *monitor_app;

                monitor_app = pbx_findapp("Monitor");
                if (monitor_app) {
                        pbx_exec(monitor_chan, monitor_app, monitor_args);
                }
        }
}

/*!
 * \internal
 * \brief Send the peer channel on its way on bridge start failure.
 * \since 12.0.0
 *
 * \param chan Chan to put into autoservice.
 * \param peer Chan to send to after bridge goto or run hangup handlers and hangup.
 *
 * \return Nothing
 */
static void bridge_failed_peer_goto(struct ast_channel *chan, struct ast_channel *peer)
{
        if (ast_bridge_setup_after_goto(peer)
                || ast_pbx_start(peer)) {
                ast_autoservice_chan_hangup_peer(chan, peer);
        }
}

static int pre_bridge_setup(struct ast_channel *chan, struct ast_channel *peer, struct ast_bridge_config *config,
                struct ast_bridge_features *chan_features, struct ast_bridge_features *peer_features)
{
        int res;

        set_bridge_features_on_config(config, pbx_builtin_getvar_helper(chan, "BRIDGE_FEATURES"));
        add_features_datastores(chan, peer, config);

        /*
         * This is an interesting case.  One example is if a ringing
         * channel gets redirected to an extension that picks up a
         * parked call.  This will make sure that the call taken out of
         * parking gets told that the channel it just got bridged to is
         * still ringing.
         */
        if (ast_channel_state(chan) == AST_STATE_RINGING
                && ast_channel_visible_indication(peer) != AST_CONTROL_RINGING) {
                ast_indicate(peer, AST_CONTROL_RINGING);
        }

        bridge_check_monitor(chan, peer);

        set_config_flags(chan, config);

        /* Answer if need be */
        if (ast_channel_state(chan) != AST_STATE_UP) {
                if (ast_raw_answer(chan)) {
                        return -1;
                }
        }

#ifdef FOR_DEBUG
        /* show the two channels and cdrs involved in the bridge for debug & devel purposes */
        ast_channel_log("Pre-bridge CHAN Channel info", chan);
        ast_channel_log("Pre-bridge PEER Channel info", peer);
#endif

        /*
         * If we are bridging a call, stop worrying about forwarding
         * loops.  We presume that if a call is being bridged, that the
         * humans in charge know what they're doing.  If they don't,
         * well, what can we do about that?
         */
        clear_dialed_interfaces(chan);
        clear_dialed_interfaces(peer);

        res = 0;
        ast_channel_lock(chan);
        res |= ast_bridge_features_ds_set(chan, &config->features_caller);
        ast_channel_unlock(chan);
        ast_channel_lock(peer);
        res |= ast_bridge_features_ds_set(peer, &config->features_callee);
        ast_channel_unlock(peer);

        if (res) {
                return -1;
        }

        if (config->timelimit) {
                struct ast_bridge_features_limits call_duration_limits_chan;
                struct ast_bridge_features_limits call_duration_limits_peer;
                int abandon_call = 0; /* TRUE if set limits fails so we can abandon the call. */

                if (ast_bridge_features_limits_construct(&call_duration_limits_chan)) {
                        ast_log(LOG_ERROR, "Could not construct caller duration limits. Bridge canceled.\n");

                        return -1;
                }

                if (ast_bridge_features_limits_construct(&call_duration_limits_peer)) {
                        ast_log(LOG_ERROR, "Could not construct callee duration limits. Bridge canceled.\n");
                        ast_bridge_features_limits_destroy(&call_duration_limits_chan);

                        return -1;
                }

                bridge_config_set_limits(config, &call_duration_limits_chan, &call_duration_limits_peer);

                if (ast_bridge_features_set_limits(chan_features, &call_duration_limits_chan, 0)) {
                        abandon_call = 1;
                }
                if (ast_bridge_features_set_limits(peer_features, &call_duration_limits_peer, 0)) {
                        abandon_call = 1;
                }

                /* At this point we are done with the limits structs since they have been copied to the individual feature sets. */
                ast_bridge_features_limits_destroy(&call_duration_limits_chan);
                ast_bridge_features_limits_destroy(&call_duration_limits_peer);

                if (abandon_call) {
                        ast_log(LOG_ERROR, "Could not set duration limits on one or more sides of the call. Bridge canceled.\n");
                        return -1;
                }
        }

        return 0;
}

/*!
 * \brief bridge the call and set CDR
 *
 * \param chan The bridge considers this channel the caller.
 * \param peer The bridge considers this channel the callee.
 * \param config Configuration for this bridge.
 *
 * Set start time, check for two channels,check if monitor on
 * check for feature activation, create new CDR
 * \retval res on success.
 * \retval -1 on failure to bridge.
 */
int ast_bridge_call(struct ast_channel *chan, struct ast_channel *peer, struct ast_bridge_config *config)
{
        int res;
        struct ast_bridge *bridge;
        struct ast_bridge_features chan_features;
        struct ast_bridge_features *peer_features;

        /* Setup features. */
        res = ast_bridge_features_init(&chan_features);
        peer_features = ast_bridge_features_new();
        if (res || !peer_features) {
                ast_bridge_features_destroy(peer_features);
                ast_bridge_features_cleanup(&chan_features);
                bridge_failed_peer_goto(chan, peer);
                return -1;
        }

        if (pre_bridge_setup(chan, peer, config, &chan_features, peer_features)) {
                ast_bridge_features_destroy(peer_features);
                ast_bridge_features_cleanup(&chan_features);
                bridge_failed_peer_goto(chan, peer);
                return -1;
        }

        /* Create bridge */
        bridge = ast_bridge_basic_new();
        if (!bridge) {
                ast_bridge_features_destroy(peer_features);
                ast_bridge_features_cleanup(&chan_features);
                bridge_failed_peer_goto(chan, peer);
                return -1;
        }

        /* Put peer into the bridge */
        if (ast_bridge_impart(bridge, peer, NULL, peer_features, 1)) {
                ast_bridge_destroy(bridge);
                ast_bridge_features_cleanup(&chan_features);
                bridge_failed_peer_goto(chan, peer);
                return -1;
        }

        /* Join bridge */
        ast_bridge_join(bridge, chan, NULL, &chan_features, NULL, 1);

        /*
         * If the bridge was broken for a hangup that isn't real, then
         * don't run the h extension, because the channel isn't really
         * hung up.  This should really only happen with
         * AST_SOFTHANGUP_ASYNCGOTO.
         */
        res = -1;
        ast_channel_lock(chan);
        if (ast_channel_softhangup_internal_flag(chan) & AST_SOFTHANGUP_ASYNCGOTO) {
                res = 0;
        }
        ast_channel_unlock(chan);

        ast_bridge_features_cleanup(&chan_features);

/* BUGBUG this is used by Dial and FollowMe for CDR information.  By Queue for Queue stats like CDRs. */
        if (res && config->end_bridge_callback) {
                config->end_bridge_callback(config->end_bridge_callback_data);
        }

        return res;
}

/*! \brief Output parking event to manager */
static void post_manager_event(const char *s, struct parkeduser *pu)
{
        manager_event(EVENT_FLAG_CALL, s,
                "Exten: %s\r\n"
                "Channel: %s\r\n"
                "Parkinglot: %s\r\n"
                "CallerIDNum: %s\r\n"
                "CallerIDName: %s\r\n"
                "ConnectedLineNum: %s\r\n"
                "ConnectedLineName: %s\r\n"
                "UniqueID: %s\r\n",
                pu->parkingexten,
                ast_channel_name(pu->chan),
                pu->parkinglot->name,
                S_COR(ast_channel_caller(pu->chan)->id.number.valid, ast_channel_caller(pu->chan)->id.number.str, "<unknown>"),
                S_COR(ast_channel_caller(pu->chan)->id.name.valid, ast_channel_caller(pu->chan)->id.name.str, "<unknown>"),
                S_COR(ast_channel_connected(pu->chan)->id.number.valid, ast_channel_connected(pu->chan)->id.number.str, "<unknown>"),
                S_COR(ast_channel_connected(pu->chan)->id.name.valid, ast_channel_connected(pu->chan)->id.name.str, "<unknown>"),
                ast_channel_uniqueid(pu->chan)
                );
}

static char *callback_dialoptions(struct ast_flags *features_callee, struct ast_flags *features_caller, char *options, size_t len)
{
        int i = 0;
        enum {
                OPT_CALLEE_REDIRECT   = 't',
                OPT_CALLER_REDIRECT   = 'T',
                OPT_CALLEE_AUTOMON    = 'w',
                OPT_CALLER_AUTOMON    = 'W',
                OPT_CALLEE_DISCONNECT = 'h',
                OPT_CALLER_DISCONNECT = 'H',
                OPT_CALLEE_PARKCALL   = 'k',
                OPT_CALLER_PARKCALL   = 'K',
        };

        memset(options, 0, len);
        if (ast_test_flag(features_caller, AST_FEATURE_REDIRECT) && i < len) {
                options[i++] = OPT_CALLER_REDIRECT;
        }
        if (ast_test_flag(features_caller, AST_FEATURE_AUTOMON) && i < len) {
                options[i++] = OPT_CALLER_AUTOMON;
        }
        if (ast_test_flag(features_caller, AST_FEATURE_DISCONNECT) && i < len) {
                options[i++] = OPT_CALLER_DISCONNECT;
        }
        if (ast_test_flag(features_caller, AST_FEATURE_PARKCALL) && i < len) {
                options[i++] = OPT_CALLER_PARKCALL;
        }

        if (ast_test_flag(features_callee, AST_FEATURE_REDIRECT) && i < len) {
                options[i++] = OPT_CALLEE_REDIRECT;
        }
        if (ast_test_flag(features_callee, AST_FEATURE_AUTOMON) && i < len) {
                options[i++] = OPT_CALLEE_AUTOMON;
        }
        if (ast_test_flag(features_callee, AST_FEATURE_DISCONNECT) && i < len) {
                options[i++] = OPT_CALLEE_DISCONNECT;
        }
        if (ast_test_flag(features_callee, AST_FEATURE_PARKCALL) && i < len) {
                options[i++] = OPT_CALLEE_PARKCALL;
        }

        return options;
}

/*!
 * \internal
 * \brief Run management on a parked call.
 *
 * \note The parkinglot parkings list is locked on entry.
 *
 * \retval TRUE if the parking completed.
 */
static int manage_parked_call(struct parkeduser *pu, const struct pollfd *pfds, int nfds, struct pollfd **new_pfds, int *new_nfds, int *ms)
{
        struct ast_channel *chan = pu->chan;    /* shorthand */
        int tms;        /* timeout for this item */
        int x;          /* fd index in channel */

        tms = ast_tvdiff_ms(ast_tvnow(), pu->start);
        if (tms > pu->parkingtime) {
                /*
                 * Call has been parked too long.
                 * Stop entertaining the caller.
                 */
                switch (pu->hold_method) {
                case AST_CONTROL_HOLD:
                        ast_indicate(pu->chan, AST_CONTROL_UNHOLD);
                        break;
                case AST_CONTROL_RINGING:
                        ast_indicate(pu->chan, -1);
                        break;
                default:
                        break;
                }
                pu->hold_method = 0;

                /* Get chan, exten from derived kludge */
                if (pu->peername[0]) {
                        char *peername;
                        char *dash;
                        char *peername_flat; /* using something like DAHDI/52 for an extension name is NOT a good idea */
                        char parkingslot[AST_MAX_EXTENSION]; /* buffer for parkinglot slot number */
                        int i;

                        peername = ast_strdupa(pu->peername);
                        dash = strrchr(peername, '-');
                        if (dash) {
                                *dash = '\0';
                        }

                        peername_flat = ast_strdupa(peername);
                        for (i = 0; peername_flat[i]; i++) {
                                if (peername_flat[i] == '/') {
                                        peername_flat[i] = '_';
                                }
                        }

                        if (!ast_context_find_or_create(NULL, NULL, parking_con_dial, registrar)) {
                                ast_log(LOG_ERROR,
                                        "Parking dial context '%s' does not exist and unable to create\n",
                                        parking_con_dial);
                        } else {
                                char returnexten[AST_MAX_EXTENSION];
                                char comebackdialtime[AST_MAX_EXTENSION];
                                struct ast_datastore *features_datastore;
                                struct ast_dial_features *dialfeatures;

                                if (!strncmp(peername, "Parked/", 7)) {
                                        peername += 7;
                                }

                                ast_channel_lock(chan);
                                features_datastore = ast_channel_datastore_find(chan, &dial_features_info,
                                        NULL);
                                if (features_datastore && (dialfeatures = features_datastore->data)) {
                                        char buf[MAX_DIAL_FEATURE_OPTIONS] = {0,};

                                        snprintf(returnexten, sizeof(returnexten), "%s,%u,%s", peername,
                                                pu->parkinglot->cfg.comebackdialtime,
                                                callback_dialoptions(&dialfeatures->peer_features,
                                                        &dialfeatures->my_features, buf, sizeof(buf)));
                                } else { /* Existing default */
                                        ast_log(LOG_NOTICE, "Dial features not found on %s, using default!\n",
                                                ast_channel_name(chan));
                                        snprintf(returnexten, sizeof(returnexten), "%s,%u,t", peername,
                                                pu->parkinglot->cfg.comebackdialtime);
                                }
                                ast_channel_unlock(chan);

                                snprintf(comebackdialtime, sizeof(comebackdialtime), "%u",
                                                pu->parkinglot->cfg.comebackdialtime);
                                pbx_builtin_setvar_helper(chan, "COMEBACKDIALTIME", comebackdialtime);

                                pbx_builtin_setvar_helper(chan, "PARKER", peername);

                        }

                        snprintf(parkingslot, sizeof(parkingslot), "%d", pu->parkingnum);
                        pbx_builtin_setvar_helper(chan, "PARKINGSLOT", parkingslot);
                        pbx_builtin_setvar_helper(chan, "PARKEDLOT", pu->parkinglot->name);

                        if (pu->options_specified) {
                                /*
                                 * Park() was called with overriding return arguments, respect
                                 * those arguments.
                                 */
                                set_c_e_p(chan, pu->context, pu->exten, pu->priority);
                        } else if (pu->parkinglot->cfg.comebacktoorigin) {
                                set_c_e_p(chan, parking_con_dial, peername_flat, 1);
                        } else {
                                /* Handle fallback when extensions don't exist here since that logic was removed from pbx */
                                if (ast_exists_extension(chan, pu->parkinglot->cfg.comebackcontext, peername_flat, 1, NULL)) {
                                        set_c_e_p(chan, pu->parkinglot->cfg.comebackcontext, peername_flat, 1);
                                } else if (ast_exists_extension(chan, pu->parkinglot->cfg.comebackcontext, "s", 1, NULL)) {
                                        ast_verb(2, "Can not start %s at %s,%s,1. Using 's@%s' instead.\n", ast_channel_name(chan),
                                                pu->parkinglot->cfg.comebackcontext, peername_flat, pu->parkinglot->cfg.comebackcontext);
                                        set_c_e_p(chan, pu->parkinglot->cfg.comebackcontext, "s", 1);
                                } else {
                                        ast_verb(2, "Can not start %s at %s,%s,1 and exten 's@%s' does not exist. Using 's@default'\n",
                                                ast_channel_name(chan),
                                                pu->parkinglot->cfg.comebackcontext, peername_flat,
                                                pu->parkinglot->cfg.comebackcontext);
                                        set_c_e_p(chan, "default", "s", 1);
                                }
                        }
                } else {
                        /*
                         * They've been waiting too long, send them back to where they
                         * came.  Theoretically they should have their original
                         * extensions and such, but we copy to be on the safe side.
                         */
                        set_c_e_p(chan, pu->context, pu->exten, pu->priority);
                }
                post_manager_event("ParkedCallTimeOut", pu);

                ast_verb(2, "Timeout for %s parked on %d (%s). Returning to %s,%s,%d\n",
                        ast_channel_name(pu->chan), pu->parkingnum, pu->parkinglot->name, ast_channel_context(pu->chan),
                        ast_channel_exten(pu->chan), ast_channel_priority(pu->chan));

                /* Start up the PBX, or hang them up */
                if (ast_pbx_start(chan))  {
                        ast_log(LOG_WARNING,
                                "Unable to restart the PBX for user on '%s', hanging them up...\n",
                                ast_channel_name(pu->chan));
                        ast_hangup(chan);
                }

                /* And take them out of the parking lot */
                return 1;
        }

        /* still within parking time, process descriptors */
        if (pfds) {
                for (x = 0; x < AST_MAX_FDS; x++) {
                        struct ast_frame *f;
                        int y;

                        if (!ast_channel_fd_isset(chan, x)) {
                                continue;       /* nothing on this descriptor */
                        }

                        for (y = 0; y < nfds; y++) {
                                if (pfds[y].fd == ast_channel_fd(chan, x)) {
                                        /* Found poll record! */
                                        break;
                                }
                        }
                        if (y == nfds) {
                                /* Not found */
                                continue;
                        }

                        if (!(pfds[y].revents & (POLLIN | POLLERR | POLLPRI))) {
                                /* Next x */
                                continue;
                        }

                        if (pfds[y].revents & POLLPRI) {
                                ast_set_flag(ast_channel_flags(chan), AST_FLAG_EXCEPTION);
                        } else {
                                ast_clear_flag(ast_channel_flags(chan), AST_FLAG_EXCEPTION);
                        }
                        ast_channel_fdno_set(chan, x);

                        /* See if they need servicing */
                        f = ast_read(pu->chan);
                        /* Hangup? */
                        if (!f || (f->frametype == AST_FRAME_CONTROL
                                && f->subclass.integer == AST_CONTROL_HANGUP)) {
                                if (f) {
                                        ast_frfree(f);
                                }
                                post_manager_event("ParkedCallGiveUp", pu);

                                /* There's a problem, hang them up */
                                ast_verb(2, "%s got tired of being parked\n", ast_channel_name(chan));
                                ast_hangup(chan);

                                /* And take them out of the parking lot */
                                return 1;
                        } else {
                                /* XXX Maybe we could do something with packets, like dial "0" for operator or something XXX */
                                ast_frfree(f);
                                if (pu->hold_method == AST_CONTROL_HOLD
                                        && pu->moh_trys < 3
                                        && !ast_channel_generatordata(chan)) {
                                        ast_debug(1,
                                                "MOH on parked call stopped by outside source.  Restarting on channel %s.\n",
                                                ast_channel_name(chan));
                                        ast_indicate_data(chan, AST_CONTROL_HOLD,
                                                S_OR(pu->parkinglot->cfg.mohclass, NULL),
                                                (!ast_strlen_zero(pu->parkinglot->cfg.mohclass)
                                                        ? strlen(pu->parkinglot->cfg.mohclass) + 1 : 0));
                                        pu->moh_trys++;
                                }
                                break;
                        }
                } /* End for */
        }

        /* mark fds for next round */
        for (x = 0; x < AST_MAX_FDS; x++) {
                if (ast_channel_fd_isset(chan, x)) {
                        void *tmp = ast_realloc(*new_pfds,
                                (*new_nfds + 1) * sizeof(struct pollfd));

                        if (!tmp) {
                                continue;
                        }
                        *new_pfds = tmp;
                        (*new_pfds)[*new_nfds].fd = ast_channel_fd(chan, x);
                        (*new_pfds)[*new_nfds].events = POLLIN | POLLERR | POLLPRI;
                        (*new_pfds)[*new_nfds].revents = 0;
                        (*new_nfds)++;
                }
        }
        /* Keep track of our shortest wait */
        if (tms < *ms || *ms < 0) {
                *ms = tms;
        }

        /* Stay in the parking lot. */
        return 0;
}

/*! \brief Run management on parkinglots, called once per parkinglot */
static void manage_parkinglot(struct ast_parkinglot *curlot, const struct pollfd *pfds, int nfds, struct pollfd **new_pfds, int *new_nfds, int *ms)
{
        struct parkeduser *pu;
        struct ast_context *con;

        /* Lock parkings list */
        AST_LIST_LOCK(&curlot->parkings);
        AST_LIST_TRAVERSE_SAFE_BEGIN(&curlot->parkings, pu, list) {
                if (pu->notquiteyet) { /* Pretend this one isn't here yet */
                        continue;
                }
                if (manage_parked_call(pu, pfds, nfds, new_pfds, new_nfds, ms)) {
                        /* Parking is complete for this call so remove it from the parking lot. */
                        con = ast_context_find(pu->parkinglot->cfg.parking_con);
                        if (con) {
                                if (ast_context_remove_extension2(con, pu->parkingexten, 1, NULL, 0)) {
                                        ast_log(LOG_WARNING,
                                                "Whoa, failed to remove the parking extension %s@%s!\n",
                                                pu->parkingexten, pu->parkinglot->cfg.parking_con);
                                }
                                notify_metermaids(pu->parkingexten, pu->parkinglot->cfg.parking_con,
                                        AST_DEVICE_NOT_INUSE);
                        } else {
                                ast_log(LOG_WARNING,
                                        "Whoa, parking lot '%s' context '%s' does not exist.\n",
                                        pu->parkinglot->name, pu->parkinglot->cfg.parking_con);
                        }
                        AST_LIST_REMOVE_CURRENT(list);
                        parkinglot_unref(pu->parkinglot);
                        ast_free(pu);
                }
        }
        AST_LIST_TRAVERSE_SAFE_END;
        AST_LIST_UNLOCK(&curlot->parkings);
}

/*!
 * \brief Take care of parked calls and unpark them if needed
 * \param ignore unused var.
 *
 * Start inf loop, lock parking lot, check if any parked channels have gone above timeout
 * if so, remove channel from parking lot and return it to the extension that parked it.
 * Check if parked channel decided to hangup, wait until next FD via select().
 */
static void *do_parking_thread(void *ignore)
{
        struct pollfd *pfds = NULL, *new_pfds = NULL;
        int nfds = 0, new_nfds = 0;

        for (;;) {
                struct ao2_iterator iter;
                struct ast_parkinglot *curlot;
                int ms = -1;    /* poll2 timeout, uninitialized */

                iter = ao2_iterator_init(parkinglots, 0);
                while ((curlot = ao2_iterator_next(&iter))) {
                        manage_parkinglot(curlot, pfds, nfds, &new_pfds, &new_nfds, &ms);
                        ao2_ref(curlot, -1);
                }
                ao2_iterator_destroy(&iter);

                /* Recycle */
                ast_free(pfds);
                pfds = new_pfds;
                nfds = new_nfds;
                new_pfds = NULL;
                new_nfds = 0;

                /* Wait for something to happen */
                ast_poll(pfds, nfds, ms);
                pthread_testcancel();
        }
        /* If this WERE reached, we'd need to free(pfds) */
        return NULL;    /* Never reached */
}

/*! \brief Find parkinglot by name */
static struct ast_parkinglot *find_parkinglot(const char *name)
{
        struct ast_parkinglot *parkinglot;

        if (ast_strlen_zero(name)) {
                return NULL;
        }

        parkinglot = ao2_find(parkinglots, (void *) name, 0);
        if (parkinglot) {
                ast_debug(1, "Found Parking lot: %s\n", parkinglot->name);
        }

        return parkinglot;
}

/*! \brief Copy parkinglot and store it with new name */
static struct ast_parkinglot *copy_parkinglot(const char *name, const struct ast_parkinglot *parkinglot)
{
        struct ast_parkinglot *copylot;

        if ((copylot = find_parkinglot(name))) { /* Parkinglot with that name already exists */
                ao2_ref(copylot, -1);
                return NULL;
        }

        copylot = create_parkinglot(name);
        if (!copylot) {
                return NULL;
        }

        ast_debug(1, "Building parking lot %s\n", name);

        /* Copy the source parking lot configuration. */
        copylot->cfg = parkinglot->cfg;

        return copylot;
}

AST_APP_OPTIONS(park_call_options, BEGIN_OPTIONS
        AST_APP_OPTION('r', AST_PARK_OPT_RINGING),
        AST_APP_OPTION('R', AST_PARK_OPT_RANDOMIZE),
        AST_APP_OPTION('s', AST_PARK_OPT_SILENCE),
END_OPTIONS );

/*!
 * \brief Unreference parkinglot object.
 */
static void parkinglot_unref(struct ast_parkinglot *parkinglot)
{
        ast_debug(3, "Multiparking: %s refcount now %d\n", parkinglot->name,
                ao2_ref(parkinglot, 0) - 1);
        ao2_ref(parkinglot, -1);
}

static struct ast_parkinglot *parkinglot_addref(struct ast_parkinglot *parkinglot)
{
        int refcount;

        refcount = ao2_ref(parkinglot, +1);
        ast_debug(3, "Multiparking: %s refcount now %d\n", parkinglot->name, refcount + 1);
        return parkinglot;
}

/*! \brief Destroy a parking lot */
static void parkinglot_destroy(void *obj)
{
        struct ast_parkinglot *doomed = obj;

        /*
         * No need to destroy parked calls here because any parked call
         * holds a parking lot reference.  Therefore the parkings list
         * must be empty.
         */
        ast_assert(AST_LIST_EMPTY(&doomed->parkings));
        AST_LIST_HEAD_DESTROY(&doomed->parkings);
}

/*! \brief Allocate parking lot structure */
static struct ast_parkinglot *create_parkinglot(const char *name)
{
        struct ast_parkinglot *newlot;

        if (ast_strlen_zero(name)) { /* No name specified */
                return NULL;
        }

        newlot = ao2_alloc(sizeof(*newlot), parkinglot_destroy);
        if (!newlot)
                return NULL;

        ast_copy_string(newlot->name, name, sizeof(newlot->name));
        newlot->cfg.is_invalid = 1;/* No config is set yet. */
        AST_LIST_HEAD_INIT(&newlot->parkings);

        return newlot;
}

/*! Default configuration for default parking lot. */
static const struct parkinglot_cfg parkinglot_cfg_default_default = {
        .mohclass = "default",
        .parkext = DEFAULT_PARK_EXTENSION,
        .parking_con = "parkedcalls",
        .parking_start = 701,
        .parking_stop = 750,
        .parkingtime = DEFAULT_PARK_TIME,
        .comebackdialtime = DEFAULT_COMEBACK_DIAL_TIME,
        .comebackcontext = DEFAULT_COMEBACK_CONTEXT,
        .comebacktoorigin = DEFAULT_COMEBACK_TO_ORIGIN,
};

/*! Default configuration for normal parking lots. */
static const struct parkinglot_cfg parkinglot_cfg_default = {
        .parkext = DEFAULT_PARK_EXTENSION,
        .parkingtime = DEFAULT_PARK_TIME,
        .comebackdialtime = DEFAULT_COMEBACK_DIAL_TIME,
        .comebackcontext = DEFAULT_COMEBACK_CONTEXT,
        .comebacktoorigin = DEFAULT_COMEBACK_TO_ORIGIN,
};

/*!
 * \internal
 * \brief Activate the given parkinglot.
 *
 * \param parkinglot Parking lot to activate.
 *
 * \details
 * Insert into the dialplan the context, parking lot access
 * extension, and optional dialplan hints.
 *
 * \retval 0 on success.
 * \retval -1 on error.
 */
static int parkinglot_activate(struct ast_parkinglot *parkinglot)
{
        /* XXX All parking stuff is being replaced by res_parking */
        parkinglot->disabled = 1;
        return -1;
}

int ast_features_reload(void)
{
        struct ast_context *con;
        int res;

        ast_mutex_lock(&features_reload_lock);/* Searialize reloading features.conf */

        /*
         * Always destroy the parking_con_dial context to remove buildup
         * of recalled extensions in the context.  At worst, the parked
         * call gets hungup attempting to run an invalid extension when
         * we are trying to callback the parker or the preset return
         * extension.  This is a small window of opportunity on an
         * execution chain that is not expected to happen very often.
         */
        con = ast_context_find(parking_con_dial);
        if (con) {
                ast_context_destroy(con, registrar);
        }

        res = ast_features_config_reload();
        ast_mutex_unlock(&features_reload_lock);

        return res;
}

static char *handle_features_reload(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
{
        switch (cmd) {
        case CLI_INIT:
                e->command = "features reload";
                e->usage =
                        "Usage: features reload\n"
                        "       Reloads configured call features from features.conf\n";
                return NULL;
        case CLI_GENERATE:
                return NULL;
        }
        ast_features_reload();

        return CLI_SUCCESS;
}

enum play_tone_action {
        PLAYTONE_NONE = 0,
        PLAYTONE_CHANNEL1 = (1 << 0),
        PLAYTONE_CHANNEL2 = (1 << 1),
        PLAYTONE_BOTH = PLAYTONE_CHANNEL1 | PLAYTONE_CHANNEL2,
};

static enum play_tone_action parse_playtone(const char *playtone_val)
{
        if (ast_strlen_zero(playtone_val) || ast_false(playtone_val)) {
                return PLAYTONE_NONE;
        } if (!strcasecmp(playtone_val, "channel1")) {
                return PLAYTONE_CHANNEL1;
        } else if (!strcasecmp(playtone_val, "channel2") || ast_true(playtone_val)) {
                return PLAYTONE_CHANNEL2;
        } else if (!strcasecmp(playtone_val, "both")) {
                return PLAYTONE_BOTH;
        } else {
                /* Invalid input. Assume none */
                return PLAYTONE_NONE;
        }
}

/*!
 * \brief Bridge channels together
 * \param s
 * \param m
 *
 * Make sure valid channels were specified,
 * send errors if any of the channels could not be found/locked, answer channels if needed,
 * create the placeholder channels and grab the other channels
 * make the channels compatible, send error if we fail doing so
 * setup the bridge thread object and start the bridge.
 *
 * \retval 0
 */
static int action_bridge(struct mansession *s, const struct message *m)
{
        const char *channela = astman_get_header(m, "Channel1");
        const char *channelb = astman_get_header(m, "Channel2");
        enum play_tone_action playtone = parse_playtone(astman_get_header(m, "Tone"));
        RAII_VAR(struct ast_channel *, chana, NULL, ao2_cleanup);
        RAII_VAR(struct ast_channel *, chanb, NULL, ao2_cleanup);
        const char *chana_name;
        const char *chana_exten;
        const char *chana_context;
        int chana_priority;
        const char *chanb_name;
        const char *chanb_exten;
        const char *chanb_context;
        int chanb_priority;
        struct ast_bridge *bridge;
        char buf[256];
        RAII_VAR(struct ast_features_xfer_config *, xfer_cfg_a, NULL, ao2_cleanup);
        RAII_VAR(struct ast_features_xfer_config *, xfer_cfg_b, NULL, ao2_cleanup);

        /* make sure valid channels were specified */
        if (ast_strlen_zero(channela) || ast_strlen_zero(channelb)) {
                astman_send_error(s, m, "Missing channel parameter in request");
                return 0;
        }

        /* Start with chana */
        chana = ast_channel_get_by_name_prefix(channela, strlen(channela));
        if (!chana) {
                snprintf(buf, sizeof(buf), "Channel1 does not exist: %s", channela);
                astman_send_error(s, m, buf);
                return 0;
        }
        xfer_cfg_a = ast_get_chan_features_xfer_config(chana);
        ast_channel_lock(chana);
        chana_name = ast_strdupa(ast_channel_name(chana));
        chana_exten = ast_strdupa(ast_channel_exten(chana));
        chana_context = ast_strdupa(ast_channel_context(chana));
        chana_priority = ast_channel_priority(chana);
        if (!ast_test_flag(ast_channel_flags(chana), AST_FLAG_IN_AUTOLOOP)) {
                chana_priority++;
        }
        ast_channel_unlock(chana);

        chanb = ast_channel_get_by_name_prefix(channelb, strlen(channelb));
        if (!chanb) {
                snprintf(buf, sizeof(buf), "Channel2 does not exist: %s", channelb);
                astman_send_error(s, m, buf);
                return 0;
        }
        xfer_cfg_b = ast_get_chan_features_xfer_config(chanb);
        ast_channel_lock(chanb);
        chanb_name = ast_strdupa(ast_channel_name(chanb));
        chanb_exten = ast_strdupa(ast_channel_exten(chanb));
        chanb_context = ast_strdupa(ast_channel_context(chanb));
        chanb_priority = ast_channel_priority(chanb);
        if (!ast_test_flag(ast_channel_flags(chanb), AST_FLAG_IN_AUTOLOOP)) {
                chanb_priority++;
        }
        ast_channel_unlock(chanb);

        bridge = ast_bridge_basic_new();
        if (!bridge) {
                astman_send_error(s, m, "Unable to create bridge\n");
                return 0;
        }

        ast_bridge_set_after_go_on(chana, chana_context, chana_exten, chana_priority, NULL);
        if (ast_bridge_add_channel(bridge, chana, NULL, playtone & PLAYTONE_CHANNEL1, xfer_cfg_a ? xfer_cfg_a->xfersound : NULL)) {
                snprintf(buf, sizeof(buf), "Unable to add Channel1 to bridge: %s", ast_channel_name(chana));
                astman_send_error(s, m, buf);
                ast_bridge_destroy(bridge);
                return 0;
        }

        ast_bridge_set_after_go_on(chanb, chanb_context, chanb_exten, chanb_priority, NULL);
        if (ast_bridge_add_channel(bridge, chanb, NULL, playtone & PLAYTONE_CHANNEL2, xfer_cfg_b ? xfer_cfg_b->xfersound : NULL)) {
                snprintf(buf, sizeof(buf), "Unable to add Channel2 to bridge: %s", ast_channel_name(chanb));
                astman_send_error(s, m, buf);
                ast_bridge_destroy(bridge);
                return 0;
        }

        /*** DOCUMENTATION
                <managerEventInstance>
                        <synopsis>Raised when a bridge is successfully created due to a manager action.</synopsis>
                        <syntax>
                                <parameter name="Response">
                                        <enumlist>
                                                <enum name="Success"/>
                                                <enum name="Failed"/>
                                        </enumlist>
                                </parameter>
                        </syntax>
                        <see-also>
                                <ref type="manager">Bridge</ref>
                        </see-also>
                </managerEventInstance>
        ***/
/* BUGBUG This event used to use ast_manager_event_multichan. Now channel variables are not included in the event */
        manager_event(EVENT_FLAG_CALL, "BridgeAction",
                                "Response: Success\r\n"
                                "Channel1: %s\r\n"
                                "Channel2: %s\r\n", chana_name, chanb_name);

        astman_send_ack(s, m, "Channels have been bridged");

        return 0;
}

static struct ast_cli_entry cli_features[] = {
        AST_CLI_DEFINE(handle_features_reload, "Reloads configured features"),
};

/*!
 * The presence of this datastore on the channel indicates that
 * someone is attemting to pickup or has picked up the channel.
 * The purpose is to prevent a race between two channels
 * attempting to pickup the same channel.
 */
static const struct ast_datastore_info pickup_active = {
        .type = "pickup-active",
};

int ast_can_pickup(struct ast_channel *chan)
{
        if (!ast_channel_pbx(chan) && !ast_channel_masq(chan) && !ast_test_flag(ast_channel_flags(chan), AST_FLAG_ZOMBIE)
                && (ast_channel_state(chan) == AST_STATE_RINGING
                        || ast_channel_state(chan) == AST_STATE_RING
                        /*
                         * Check the down state as well because some SIP devices do not
                         * give 180 ringing when they can just give 183 session progress
                         * instead.  Issue 14005.  (Some ISDN switches as well for that
                         * matter.)
                         */
                        || ast_channel_state(chan) == AST_STATE_DOWN)
                && !ast_channel_datastore_find(chan, &pickup_active, NULL)) {
                return 1;
        }
        return 0;
}

static int find_channel_by_group(void *obj, void *arg, void *data, int flags)
{
        struct ast_channel *target = obj;/*!< Potential pickup target */
        struct ast_channel *chan = arg;/*!< Channel wanting to pickup call */

        if (chan == target) {
                return 0;
        }

        ast_channel_lock(target);
        if (ast_can_pickup(target)) {
                /* Lock both channels. */
                while (ast_channel_trylock(chan)) {
                        ast_channel_unlock(target);
                        sched_yield();
                        ast_channel_lock(target);
                }

                /*
                 * Both callgroup and namedcallgroup pickup variants are
                 * matched independently.  Checking for named group match is
                 * done last since it's a more expensive operation.
                 */
                if ((ast_channel_pickupgroup(chan) & ast_channel_callgroup(target))
                        || (ast_namedgroups_intersect(ast_channel_named_pickupgroups(chan),
                                ast_channel_named_callgroups(target)))) {
                        struct ao2_container *candidates = data;/*!< Candidate channels found. */

                        /* This is a candidate to pickup */
                        ao2_link(candidates, target);
                }
                ast_channel_unlock(chan);
        }
        ast_channel_unlock(target);

        return 0;
}

struct ast_channel *ast_pickup_find_by_group(struct ast_channel *chan)
{
        struct ao2_container *candidates;/*!< Candidate channels found to pickup. */
        struct ast_channel *target;/*!< Potential pickup target */

        candidates = ao2_container_alloc_options(AO2_ALLOC_OPT_LOCK_NOLOCK, 1, NULL, NULL);
        if (!candidates) {
                return NULL;
        }

        /* Find all candidate targets by group. */
        ast_channel_callback(find_channel_by_group, chan, candidates, 0);

        /* Find the oldest pickup target candidate */
        target = NULL;
        for (;;) {
                struct ast_channel *candidate;/*!< Potential new older target */
                struct ao2_iterator iter;

                iter = ao2_iterator_init(candidates, 0);
                while ((candidate = ao2_iterator_next(&iter))) {
                        if (!target) {
                                /* First target. */
                                target = candidate;
                                continue;
                        }
                        if (ast_tvcmp(ast_channel_creationtime(candidate), ast_channel_creationtime(target)) < 0) {
                                /* We have a new target. */
                                ast_channel_unref(target);
                                target = candidate;
                                continue;
                        }
                        ast_channel_unref(candidate);
                }
                ao2_iterator_destroy(&iter);
                if (!target) {
                        /* No candidates found. */