Mon Mar 20 08:20:11 2006

Asterisk developer's documentation


Main Page | Modules | Alphabetical List | Data Structures | Directories | File List | Data Fields | Globals | Related Pages

channel.c

Go to the documentation of this file.
00001 /*
00002  * Asterisk -- An open source telephony toolkit.
00003  *
00004  * Copyright (C) 1999 - 2005, Digium, Inc.
00005  *
00006  * Mark Spencer <markster@digium.com>
00007  *
00008  * See http://www.asterisk.org for more information about
00009  * the Asterisk project. Please do not directly contact
00010  * any of the maintainers of this project for assistance;
00011  * the project provides a web site, mailing lists and IRC
00012  * channels for your use.
00013  *
00014  * This program is free software, distributed under the terms of
00015  * the GNU General Public License Version 2. See the LICENSE file
00016  * at the top of the source tree.
00017  */
00018 
00019 /*! \file
00020  *
00021  * \brief Channel Management
00022  * 
00023  */
00024 
00025 #include <stdio.h>
00026 #include <stdlib.h>
00027 #include <string.h>
00028 #include <sys/time.h>
00029 #include <signal.h>
00030 #include <errno.h>
00031 #include <unistd.h>
00032 #include <math.h>       /* For PI */
00033 
00034 #ifdef ZAPTEL_OPTIMIZATIONS
00035 #include <sys/ioctl.h>
00036 #ifdef __linux__
00037 #include <linux/zaptel.h>
00038 #else
00039 #include <zaptel.h>
00040 #endif /* __linux__ */
00041 #ifndef ZT_TIMERPING
00042 #error "You need newer zaptel!  Please cvs update zaptel"
00043 #endif
00044 #endif
00045 
00046 #include "asterisk.h"
00047 
00048 ASTERISK_FILE_VERSION(__FILE__, "$Revision: 11250 $")
00049 
00050 #include "asterisk/pbx.h"
00051 #include "asterisk/frame.h"
00052 #include "asterisk/sched.h"
00053 #include "asterisk/options.h"
00054 #include "asterisk/channel.h"
00055 #include "asterisk/chanspy.h"
00056 #include "asterisk/musiconhold.h"
00057 #include "asterisk/logger.h"
00058 #include "asterisk/say.h"
00059 #include "asterisk/file.h"
00060 #include "asterisk/cli.h"
00061 #include "asterisk/translate.h"
00062 #include "asterisk/manager.h"
00063 #include "asterisk/chanvars.h"
00064 #include "asterisk/linkedlists.h"
00065 #include "asterisk/indications.h"
00066 #include "asterisk/monitor.h"
00067 #include "asterisk/causes.h"
00068 #include "asterisk/callerid.h"
00069 #include "asterisk/utils.h"
00070 #include "asterisk/lock.h"
00071 #include "asterisk/app.h"
00072 #include "asterisk/transcap.h"
00073 #include "asterisk/devicestate.h"
00074 
00075 struct channel_spy_trans {
00076    int last_format;
00077    struct ast_trans_pvt *path;
00078 };
00079 
00080 struct ast_channel_spy_list {
00081    struct channel_spy_trans read_translator;
00082    struct channel_spy_trans write_translator;
00083    AST_LIST_HEAD_NOLOCK(, ast_channel_spy) list;
00084 };
00085 
00086 /* uncomment if you have problems with 'monitoring' synchronized files */
00087 #if 0
00088 #define MONITOR_CONSTANT_DELAY
00089 #define MONITOR_DELAY   150 * 8     /* 150 ms of MONITORING DELAY */
00090 #endif
00091 
00092 /*
00093  * Prevent new channel allocation if shutting down.
00094  */
00095 static int shutting_down = 0;
00096 
00097 AST_MUTEX_DEFINE_STATIC(uniquelock);
00098 static int uniqueint = 0;
00099 
00100 unsigned long global_fin = 0, global_fout = 0;
00101 
00102 /* XXX Lock appropriately in more functions XXX */
00103 
00104 struct chanlist {
00105    const struct ast_channel_tech *tech;
00106    struct chanlist *next;
00107 };
00108 
00109 static struct chanlist *backends = NULL;
00110 
00111 /*
00112  * the list of channels we have
00113  */
00114 static struct ast_channel *channels = NULL;
00115 
00116 /* Protect the channel list, both backends and channels.
00117  */
00118 AST_MUTEX_DEFINE_STATIC(chlock);
00119 
00120 const struct ast_cause {
00121    int cause;
00122    const char *desc;
00123 } causes[] = {
00124    { AST_CAUSE_UNALLOCATED, "Unallocated (unassigned) number" },
00125    { AST_CAUSE_NO_ROUTE_TRANSIT_NET, "No route to specified transmit network" },
00126    { AST_CAUSE_NO_ROUTE_DESTINATION, "No route to destination" },
00127    { AST_CAUSE_CHANNEL_UNACCEPTABLE, "Channel unacceptable" },
00128    { AST_CAUSE_CALL_AWARDED_DELIVERED, "Call awarded and being delivered in an established channel" },
00129    { AST_CAUSE_NORMAL_CLEARING, "Normal Clearing" },
00130    { AST_CAUSE_USER_BUSY, "User busy" },
00131    { AST_CAUSE_NO_USER_RESPONSE, "No user responding" },
00132    { AST_CAUSE_NO_ANSWER, "User alerting, no answer" },
00133    { AST_CAUSE_CALL_REJECTED, "Call Rejected" },
00134    { AST_CAUSE_NUMBER_CHANGED, "Number changed" },
00135    { AST_CAUSE_DESTINATION_OUT_OF_ORDER, "Destination out of order" },
00136    { AST_CAUSE_INVALID_NUMBER_FORMAT, "Invalid number format" },
00137    { AST_CAUSE_FACILITY_REJECTED, "Facility rejected" },
00138    { AST_CAUSE_RESPONSE_TO_STATUS_ENQUIRY, "Response to STATus ENQuiry" },
00139    { AST_CAUSE_NORMAL_UNSPECIFIED, "Normal, unspecified" },
00140    { AST_CAUSE_NORMAL_CIRCUIT_CONGESTION, "Circuit/channel congestion" },
00141    { AST_CAUSE_NETWORK_OUT_OF_ORDER, "Network out of order" },
00142    { AST_CAUSE_NORMAL_TEMPORARY_FAILURE, "Temporary failure" },
00143    { AST_CAUSE_SWITCH_CONGESTION, "Switching equipment congestion" },
00144    { AST_CAUSE_ACCESS_INFO_DISCARDED, "Access information discarded" },
00145    { AST_CAUSE_REQUESTED_CHAN_UNAVAIL, "Requested channel not available" },
00146    { AST_CAUSE_PRE_EMPTED, "Pre-empted" },
00147    { AST_CAUSE_FACILITY_NOT_SUBSCRIBED, "Facility not subscribed" },
00148    { AST_CAUSE_OUTGOING_CALL_BARRED, "Outgoing call barred" },
00149    { AST_CAUSE_INCOMING_CALL_BARRED, "Incoming call barred" },
00150    { AST_CAUSE_BEARERCAPABILITY_NOTAUTH, "Bearer capability not authorized" },
00151    { AST_CAUSE_BEARERCAPABILITY_NOTAVAIL, "Bearer capability not available" },
00152    { AST_CAUSE_BEARERCAPABILITY_NOTIMPL, "Bearer capability not implemented" },
00153    { AST_CAUSE_CHAN_NOT_IMPLEMENTED, "Channel not implemented" },
00154    { AST_CAUSE_FACILITY_NOT_IMPLEMENTED, "Facility not implemented" },
00155    { AST_CAUSE_INVALID_CALL_REFERENCE, "Invalid call reference value" },
00156    { AST_CAUSE_INCOMPATIBLE_DESTINATION, "Incompatible destination" },
00157    { AST_CAUSE_INVALID_MSG_UNSPECIFIED, "Invalid message unspecified" },
00158    { AST_CAUSE_MANDATORY_IE_MISSING, "Mandatory information element is missing" },
00159    { AST_CAUSE_MESSAGE_TYPE_NONEXIST, "Message type nonexist." },
00160    { AST_CAUSE_WRONG_MESSAGE, "Wrong message" },
00161    { AST_CAUSE_IE_NONEXIST, "Info. element nonexist or not implemented" },
00162    { AST_CAUSE_INVALID_IE_CONTENTS, "Invalid information element contents" },
00163    { AST_CAUSE_WRONG_CALL_STATE, "Message not compatible with call state" },
00164    { AST_CAUSE_RECOVERY_ON_TIMER_EXPIRE, "Recover on timer expiry" },
00165    { AST_CAUSE_MANDATORY_IE_LENGTH_ERROR, "Mandatory IE length error" },
00166    { AST_CAUSE_PROTOCOL_ERROR, "Protocol error, unspecified" },
00167    { AST_CAUSE_INTERWORKING, "Interworking, unspecified" },
00168 };
00169 
00170 
00171 static int show_channeltypes(int fd, int argc, char *argv[])
00172 {
00173 #define FORMAT  "%-10.10s  %-30.30s %-12.12s %-12.12s %-12.12s\n"
00174    struct chanlist *cl = backends;
00175    ast_cli(fd, FORMAT, "Type", "Description",       "Devicestate", "Indications", "Transfer");
00176    ast_cli(fd, FORMAT, "----------", "-----------", "-----------", "-----------", "--------");
00177    if (ast_mutex_lock(&chlock)) {
00178       ast_log(LOG_WARNING, "Unable to lock channel list\n");
00179       return -1;
00180    }
00181    while (cl) {
00182       ast_cli(fd, FORMAT, cl->tech->type, cl->tech->description, 
00183          (cl->tech->devicestate) ? "yes" : "no", 
00184          (cl->tech->indicate) ? "yes" : "no",
00185          (cl->tech->transfer) ? "yes" : "no");
00186       cl = cl->next;
00187    }
00188    ast_mutex_unlock(&chlock);
00189    return RESULT_SUCCESS;
00190 
00191 #undef FORMAT
00192 
00193 }
00194 
00195 static char show_channeltypes_usage[] = 
00196 "Usage: show channeltypes\n"
00197 "       Shows available channel types registered in your Asterisk server.\n";
00198 
00199 static struct ast_cli_entry cli_show_channeltypes = 
00200    { { "show", "channeltypes", NULL }, show_channeltypes, "Show available channel types", show_channeltypes_usage };
00201 
00202 /*--- ast_check_hangup: Checks to see if a channel is needing hang up */
00203 int ast_check_hangup(struct ast_channel *chan)
00204 {
00205    time_t   myt;
00206 
00207    /* if soft hangup flag, return true */
00208    if (chan->_softhangup) 
00209       return 1;
00210    /* if no technology private data, return true */
00211    if (!chan->tech_pvt) 
00212       return 1;
00213    /* if no hangup scheduled, just return here */
00214    if (!chan->whentohangup) 
00215       return 0;
00216    time(&myt); /* get current time */
00217    /* return, if not yet */
00218    if (chan->whentohangup > myt) 
00219       return 0;
00220    chan->_softhangup |= AST_SOFTHANGUP_TIMEOUT;
00221    return 1;
00222 }
00223 
00224 static int ast_check_hangup_locked(struct ast_channel *chan)
00225 {
00226    int res;
00227    ast_mutex_lock(&chan->lock);
00228    res = ast_check_hangup(chan);
00229    ast_mutex_unlock(&chan->lock);
00230    return res;
00231 }
00232 
00233 /*--- ast_begin_shutdown: Initiate system shutdown */
00234 void ast_begin_shutdown(int hangup)
00235 {
00236    struct ast_channel *c;
00237    shutting_down = 1;
00238    if (hangup) {
00239       ast_mutex_lock(&chlock);
00240       c = channels;
00241       while(c) {
00242          ast_softhangup(c, AST_SOFTHANGUP_SHUTDOWN);
00243          c = c->next;
00244       }
00245       ast_mutex_unlock(&chlock);
00246    }
00247 }
00248 
00249 /*--- ast_active_channels: returns number of active/allocated channels */
00250 int ast_active_channels(void)
00251 {
00252    struct ast_channel *c;
00253    int cnt = 0;
00254    ast_mutex_lock(&chlock);
00255    c = channels;
00256    while(c) {
00257       cnt++;
00258       c = c->next;
00259    }
00260    ast_mutex_unlock(&chlock);
00261    return cnt;
00262 }
00263 
00264 /*--- ast_cancel_shutdown: Cancel a shutdown in progress */
00265 void ast_cancel_shutdown(void)
00266 {
00267    shutting_down = 0;
00268 }
00269 
00270 /*--- ast_shutting_down: Returns non-zero if Asterisk is being shut down */
00271 int ast_shutting_down(void)
00272 {
00273    return shutting_down;
00274 }
00275 
00276 /*--- ast_channel_setwhentohangup: Set when to hangup channel */
00277 void ast_channel_setwhentohangup(struct ast_channel *chan, time_t offset)
00278 {
00279    time_t   myt;
00280    struct ast_frame fr = { AST_FRAME_NULL, };
00281 
00282    time(&myt);
00283    if (offset)
00284       chan->whentohangup = myt + offset;
00285    else
00286       chan->whentohangup = 0;
00287    ast_queue_frame(chan, &fr);
00288    return;
00289 }
00290 
00291 /*--- ast_channel_cmpwhentohangup: Compare a offset with when to hangup channel */
00292 int ast_channel_cmpwhentohangup(struct ast_channel *chan, time_t offset)
00293 {
00294    time_t whentohangup;
00295 
00296    if (chan->whentohangup == 0) {
00297       if (offset == 0)
00298          return (0);
00299       else
00300          return (-1);
00301    } else { 
00302       if (offset == 0)
00303          return (1);
00304       else {
00305          whentohangup = offset + time (NULL);
00306          if (chan->whentohangup < whentohangup)
00307             return (1);
00308          else if (chan->whentohangup == whentohangup)
00309             return (0);
00310          else
00311             return (-1);
00312       }
00313    }
00314 }
00315 
00316 /*--- ast_channel_register: Register a new telephony channel in Asterisk */
00317 int ast_channel_register(const struct ast_channel_tech *tech)
00318 {
00319    struct chanlist *chan;
00320 
00321    ast_mutex_lock(&chlock);
00322 
00323    chan = backends;
00324    while (chan) {
00325       if (!strcasecmp(tech->type, chan->tech->type)) {
00326          ast_log(LOG_WARNING, "Already have a handler for type '%s'\n", tech->type);
00327          ast_mutex_unlock(&chlock);
00328          return -1;
00329       }
00330       chan = chan->next;
00331    }
00332 
00333    chan = malloc(sizeof(*chan));
00334    if (!chan) {
00335       ast_log(LOG_WARNING, "Out of memory\n");
00336       ast_mutex_unlock(&chlock);
00337       return -1;
00338    }
00339    chan->tech = tech;
00340    chan->next = backends;
00341    backends = chan;
00342 
00343    if (option_debug)
00344       ast_log(LOG_DEBUG, "Registered handler for '%s' (%s)\n", chan->tech->type, chan->tech->description);
00345 
00346    if (option_verbose > 1)
00347       ast_verbose(VERBOSE_PREFIX_2 "Registered channel type '%s' (%s)\n", chan->tech->type,
00348              chan->tech->description);
00349 
00350    ast_mutex_unlock(&chlock);
00351    return 0;
00352 }
00353 
00354 void ast_channel_unregister(const struct ast_channel_tech *tech)
00355 {
00356    struct chanlist *chan, *last=NULL;
00357 
00358    if (option_debug)
00359       ast_log(LOG_DEBUG, "Unregistering channel type '%s'\n", tech->type);
00360 
00361    ast_mutex_lock(&chlock);
00362 
00363    chan = backends;
00364    while (chan) {
00365       if (chan->tech == tech) {
00366          if (last)
00367             last->next = chan->next;
00368          else
00369             backends = backends->next;
00370          free(chan);
00371          ast_mutex_unlock(&chlock);
00372 
00373          if (option_verbose > 1)
00374             ast_verbose( VERBOSE_PREFIX_2 "Unregistered channel type '%s'\n", tech->type);
00375 
00376          return;
00377       }
00378       last = chan;
00379       chan = chan->next;
00380    }
00381 
00382    ast_mutex_unlock(&chlock);
00383 }
00384 
00385 const struct ast_channel_tech *ast_get_channel_tech(const char *name)
00386 {
00387    struct chanlist *chanls;
00388 
00389    if (ast_mutex_lock(&chlock)) {
00390       ast_log(LOG_WARNING, "Unable to lock channel tech list\n");
00391       return NULL;
00392    }
00393 
00394    for (chanls = backends; chanls; chanls = chanls->next) {
00395       if (strcasecmp(name, chanls->tech->type))
00396          continue;
00397 
00398       ast_mutex_unlock(&chlock);
00399       return chanls->tech;
00400    }
00401 
00402    ast_mutex_unlock(&chlock);
00403    return NULL;
00404 }
00405 
00406 /*--- ast_cause2str: Gives the string form of a given hangup cause */
00407 const char *ast_cause2str(int cause)
00408 {
00409    int x;
00410 
00411    for (x=0; x < sizeof(causes) / sizeof(causes[0]); x++) 
00412       if (causes[x].cause == cause)
00413          return causes[x].desc;
00414 
00415    return "Unknown";
00416 }
00417 
00418 /*--- ast_state2str: Gives the string form of a given channel state */
00419 char *ast_state2str(int state)
00420 {
00421    /* XXX Not reentrant XXX */
00422    static char localtmp[256];
00423    switch(state) {
00424    case AST_STATE_DOWN:
00425       return "Down";
00426    case AST_STATE_RESERVED:
00427       return "Rsrvd";
00428    case AST_STATE_OFFHOOK:
00429       return "OffHook";
00430    case AST_STATE_DIALING:
00431       return "Dialing";
00432    case AST_STATE_RING:
00433       return "Ring";
00434    case AST_STATE_RINGING:
00435       return "Ringing";
00436    case AST_STATE_UP:
00437       return "Up";
00438    case AST_STATE_BUSY:
00439       return "Busy";
00440    default:
00441       snprintf(localtmp, sizeof(localtmp), "Unknown (%d)\n", state);
00442       return localtmp;
00443    }
00444 }
00445 
00446 /*--- ast_transfercapability2str: Gives the string form of a given transfer capability */
00447 char *ast_transfercapability2str(int transfercapability)
00448 {
00449    switch(transfercapability) {
00450    case AST_TRANS_CAP_SPEECH:
00451       return "SPEECH";
00452    case AST_TRANS_CAP_DIGITAL:
00453       return "DIGITAL";
00454    case AST_TRANS_CAP_RESTRICTED_DIGITAL:
00455       return "RESTRICTED_DIGITAL";
00456    case AST_TRANS_CAP_3_1K_AUDIO:
00457       return "3K1AUDIO";
00458    case AST_TRANS_CAP_DIGITAL_W_TONES:
00459       return "DIGITAL_W_TONES";
00460    case AST_TRANS_CAP_VIDEO:
00461       return "VIDEO";
00462    default:
00463       return "UNKNOWN";
00464    }
00465 }
00466 
00467 /*--- ast_best_codec: Pick the best codec */
00468 int ast_best_codec(int fmts)
00469 {
00470    /* This just our opinion, expressed in code.  We are asked to choose
00471       the best codec to use, given no information */
00472    int x;
00473    static int prefs[] = 
00474    {
00475       /* Okay, ulaw is used by all telephony equipment, so start with it */
00476       AST_FORMAT_ULAW,
00477       /* Unless of course, you're a silly European, so then prefer ALAW */
00478       AST_FORMAT_ALAW,
00479       /* Okay, well, signed linear is easy to translate into other stuff */
00480       AST_FORMAT_SLINEAR,
00481       /* G.726 is standard ADPCM */
00482       AST_FORMAT_G726,
00483       /* ADPCM has great sound quality and is still pretty easy to translate */
00484       AST_FORMAT_ADPCM,
00485       /* Okay, we're down to vocoders now, so pick GSM because it's small and easier to
00486          translate and sounds pretty good */
00487       AST_FORMAT_GSM,
00488       /* iLBC is not too bad */
00489       AST_FORMAT_ILBC,
00490       /* Speex is free, but computationally more expensive than GSM */
00491       AST_FORMAT_SPEEX,
00492       /* Ick, LPC10 sounds terrible, but at least we have code for it, if you're tacky enough
00493          to use it */
00494       AST_FORMAT_LPC10,
00495       /* G.729a is faster than 723 and slightly less expensive */
00496       AST_FORMAT_G729A,
00497       /* Down to G.723.1 which is proprietary but at least designed for voice */
00498       AST_FORMAT_G723_1,
00499    };
00500    
00501    
00502    /* Find the first prefered codec in the format given */
00503    for (x=0; x < (sizeof(prefs) / sizeof(prefs[0]) ); x++)
00504       if (fmts & prefs[x])
00505          return prefs[x];
00506    ast_log(LOG_WARNING, "Don't know any of 0x%x formats\n", fmts);
00507    return 0;
00508 }
00509 
00510 static const struct ast_channel_tech null_tech = {
00511    .type = "NULL",
00512    .description = "Null channel (should not see this)",
00513 };
00514 
00515 /*--- ast_channel_alloc: Create a new channel structure */
00516 struct ast_channel *ast_channel_alloc(int needqueue)
00517 {
00518    struct ast_channel *tmp;
00519    int x;
00520    int flags;
00521    struct varshead *headp;        
00522            
00523 
00524    /* If shutting down, don't allocate any new channels */
00525    if (shutting_down) {
00526       ast_log(LOG_WARNING, "Channel allocation failed: Refusing due to active shutdown\n");
00527       return NULL;
00528    }
00529 
00530    tmp = malloc(sizeof(struct ast_channel));
00531    if (!tmp) {
00532       ast_log(LOG_WARNING, "Channel allocation failed: Out of memory\n");
00533       return NULL;
00534    }
00535 
00536    memset(tmp, 0, sizeof(struct ast_channel));
00537    tmp->sched = sched_context_create();
00538    if (!tmp->sched) {
00539       ast_log(LOG_WARNING, "Channel allocation failed: Unable to create schedule context\n");
00540       free(tmp);
00541       return NULL;
00542    }
00543    
00544    for (x=0; x<AST_MAX_FDS - 1; x++)
00545       tmp->fds[x] = -1;
00546 
00547 #ifdef ZAPTEL_OPTIMIZATIONS
00548    tmp->timingfd = open("/dev/zap/timer", O_RDWR);
00549    if (tmp->timingfd > -1) {
00550       /* Check if timing interface supports new
00551          ping/pong scheme */
00552       flags = 1;
00553       if (!ioctl(tmp->timingfd, ZT_TIMERPONG, &flags))
00554          needqueue = 0;
00555    }
00556 #else
00557    tmp->timingfd = -1;              
00558 #endif               
00559 
00560    if (needqueue) {
00561       if (pipe(tmp->alertpipe)) {
00562          ast_log(LOG_WARNING, "Channel allocation failed: Can't create alert pipe!\n");
00563          free(tmp);
00564          return NULL;
00565       } else {
00566          flags = fcntl(tmp->alertpipe[0], F_GETFL);
00567          fcntl(tmp->alertpipe[0], F_SETFL, flags | O_NONBLOCK);
00568          flags = fcntl(tmp->alertpipe[1], F_GETFL);
00569          fcntl(tmp->alertpipe[1], F_SETFL, flags | O_NONBLOCK);
00570       }
00571    } else 
00572       /* Make sure we've got it done right if they don't */
00573       tmp->alertpipe[0] = tmp->alertpipe[1] = -1;
00574 
00575    /* Always watch the alertpipe */
00576    tmp->fds[AST_MAX_FDS-1] = tmp->alertpipe[0];
00577    /* And timing pipe */
00578    tmp->fds[AST_MAX_FDS-2] = tmp->timingfd;
00579    strcpy(tmp->name, "**Unknown**");
00580    /* Initial state */
00581    tmp->_state = AST_STATE_DOWN;
00582    tmp->streamid = -1;
00583    tmp->appl = NULL;
00584    tmp->data = NULL;
00585    tmp->fin = global_fin;
00586    tmp->fout = global_fout;
00587    ast_mutex_lock(&uniquelock);
00588    snprintf(tmp->uniqueid, sizeof(tmp->uniqueid), "%li.%d", (long) time(NULL), uniqueint++);
00589    ast_mutex_unlock(&uniquelock);
00590    headp = &tmp->varshead;
00591    ast_mutex_init(&tmp->lock);
00592    AST_LIST_HEAD_INIT_NOLOCK(headp);
00593    strcpy(tmp->context, "default");
00594    ast_copy_string(tmp->language, defaultlanguage, sizeof(tmp->language));
00595    strcpy(tmp->exten, "s");
00596    tmp->priority = 1;
00597    tmp->amaflags = ast_default_amaflags;
00598    ast_copy_string(tmp->accountcode, ast_default_accountcode, sizeof(tmp->accountcode));
00599 
00600    tmp->tech = &null_tech;
00601 
00602    ast_mutex_lock(&chlock);
00603    tmp->next = channels;
00604    channels = tmp;
00605 
00606    ast_mutex_unlock(&chlock);
00607    return tmp;
00608 }
00609 
00610 /*--- ast_queue_frame: Queue an outgoing media frame */
00611 int ast_queue_frame(struct ast_channel *chan, struct ast_frame *fin)
00612 {
00613    struct ast_frame *f;
00614    struct ast_frame *prev, *cur;
00615    int blah = 1;
00616    int qlen = 0;
00617 
00618    /* Build us a copy and free the original one */
00619    f = ast_frdup(fin);
00620    if (!f) {
00621       ast_log(LOG_WARNING, "Unable to duplicate frame\n");
00622       return -1;
00623    }
00624    ast_mutex_lock(&chan->lock);
00625    prev = NULL;
00626    cur = chan->readq;
00627    while(cur) {
00628       if ((cur->frametype == AST_FRAME_CONTROL) && (cur->subclass == AST_CONTROL_HANGUP)) {
00629          /* Don't bother actually queueing anything after a hangup */
00630          ast_frfree(f);
00631          ast_mutex_unlock(&chan->lock);
00632          return 0;
00633       }
00634       prev = cur;
00635       cur = cur->next;
00636       qlen++;
00637    }
00638    /* Allow up to 96 voice frames outstanding, and up to 128 total frames */
00639    if (((fin->frametype == AST_FRAME_VOICE) && (qlen > 96)) || (qlen  > 128)) {
00640       if (fin->frametype != AST_FRAME_VOICE) {
00641          ast_log(LOG_WARNING, "Exceptionally long queue length queuing to %s\n", chan->name);
00642          CRASH;
00643       } else {
00644          ast_log(LOG_DEBUG, "Dropping voice to exceptionally long queue on %s\n", chan->name);
00645          ast_frfree(f);
00646          ast_mutex_unlock(&chan->lock);
00647          return 0;
00648       }
00649    }
00650    if (prev)
00651       prev->next = f;
00652    else
00653       chan->readq = f;
00654    if (chan->alertpipe[1] > -1) {
00655       if (write(chan->alertpipe[1], &blah, sizeof(blah)) != sizeof(blah))
00656          ast_log(LOG_WARNING, "Unable to write to alert pipe on %s, frametype/subclass %d/%d (qlen = %d): %s!\n",
00657             chan->name, f->frametype, f->subclass, qlen, strerror(errno));
00658 #ifdef ZAPTEL_OPTIMIZATIONS
00659    } else if (chan->timingfd > -1) {
00660       ioctl(chan->timingfd, ZT_TIMERPING, &blah);
00661 #endif            
00662    } else if (ast_test_flag(chan, AST_FLAG_BLOCKING)) {
00663       pthread_kill(chan->blocker, SIGURG);
00664    }
00665    ast_mutex_unlock(&chan->lock);
00666    return 0;
00667 }
00668 
00669 /*--- ast_queue_hangup: Queue a hangup frame for channel */
00670 int ast_queue_hangup(struct ast_channel *chan)
00671 {
00672    struct ast_frame f = { AST_FRAME_CONTROL, AST_CONTROL_HANGUP };
00673    /* Yeah, let's not change a lock-critical value without locking */
00674    if (!ast_mutex_trylock(&chan->lock)) {
00675       chan->_softhangup |= AST_SOFTHANGUP_DEV;
00676       ast_mutex_unlock(&chan->lock);
00677    }
00678    return ast_queue_frame(chan, &f);
00679 }
00680 
00681 /*--- ast_queue_control: Queue a control frame */
00682 int ast_queue_control(struct ast_channel *chan, int control)
00683 {
00684    struct ast_frame f = { AST_FRAME_CONTROL, };
00685    f.subclass = control;
00686    return ast_queue_frame(chan, &f);
00687 }
00688 
00689 /*--- ast_channel_defer_dtmf: Set defer DTMF flag on channel */
00690 int ast_channel_defer_dtmf(struct ast_channel *chan)
00691 {
00692    int pre = 0;
00693 
00694    if (chan) {
00695       pre = ast_test_flag(chan, AST_FLAG_DEFER_DTMF);
00696       ast_set_flag(chan, AST_FLAG_DEFER_DTMF);
00697    }
00698    return pre;
00699 }
00700 
00701 /*--- ast_channel_undefer_dtmf: Unset defer DTMF flag on channel */
00702 void ast_channel_undefer_dtmf(struct ast_channel *chan)
00703 {
00704    if (chan)
00705       ast_clear_flag(chan, AST_FLAG_DEFER_DTMF);
00706 }
00707 
00708 /*
00709  * Helper function to find channels. It supports these modes:
00710  *
00711  * prev != NULL : get channel next in list after prev
00712  * name != NULL : get channel with matching name
00713  * name != NULL && namelen != 0 : get channel whose name starts with prefix
00714  * exten != NULL : get channel whose exten or macroexten matches
00715  * context != NULL && exten != NULL : get channel whose context or macrocontext
00716  *                                    
00717  * It returns with the channel's lock held. If getting the individual lock fails,
00718  * unlock and retry quickly up to 10 times, then give up.
00719  * 
00720  * XXX Note that this code has cost O(N) because of the need to verify
00721  * that the object is still on the global list.
00722  *
00723  * XXX also note that accessing fields (e.g. c->name in ast_log())
00724  * can only be done with the lock held or someone could delete the
00725  * object while we work on it. This causes some ugliness in the code.
00726  * Note that removing the first ast_log() may be harmful, as it would
00727  * shorten the retry period and possibly cause failures.
00728  * We should definitely go for a better scheme that is deadlock-free.
00729  */
00730 static struct ast_channel *channel_find_locked(const struct ast_channel *prev,
00731                       const char *name, const int namelen,
00732                       const char *context, const char *exten)
00733 {
00734    const char *msg = prev ? "deadlock" : "initial deadlock";
00735    int retries, done;
00736    struct ast_channel *c;
00737 
00738    for (retries = 0; retries < 10; retries++) {
00739       ast_mutex_lock(&chlock);
00740       for (c = channels; c; c = c->next) {
00741          if (!prev) {
00742             /* want head of list */
00743             if (!name && !exten)
00744                break;
00745             if (name) {
00746                /* want match by full name */
00747                if (!namelen) {
00748                   if (!strcasecmp(c->name, name))
00749                      break;
00750                   else
00751                      continue;
00752                }
00753                /* want match by name prefix */
00754                if (!strncasecmp(c->name, name, namelen))
00755                   break;
00756             } else if (exten) {
00757                /* want match by context and exten */
00758                if (context && (strcasecmp(c->context, context) &&
00759                      strcasecmp(c->macrocontext, context)))
00760                   continue;
00761                /* match by exten */
00762                if (strcasecmp(c->exten, exten) &&
00763                    strcasecmp(c->macroexten, exten))
00764                   continue;
00765                else
00766                   break;
00767             }
00768          } else if (c == prev) { /* found, return c->next */
00769             c = c->next;
00770             break;
00771          }
00772       }
00773       /* exit if chan not found or mutex acquired successfully */
00774       done = (c == NULL) || (ast_mutex_trylock(&c->lock) == 0);
00775       /* this is slightly unsafe, as we _should_ hold the lock to access c->name */
00776       if (!done && c)
00777          ast_log(LOG_DEBUG, "Avoiding %s for '%s'\n", msg, c->name);
00778       ast_mutex_unlock(&chlock);
00779       if (done)
00780          return c;
00781       usleep(1);
00782    }
00783    /*
00784     * c is surely not null, but we don't have the lock so cannot
00785     * access c->name
00786     */
00787    ast_log(LOG_WARNING, "Avoided %s for '%p', %d retries!\n",
00788       msg, c, retries);
00789 
00790    return NULL;
00791 }
00792 
00793 /*--- ast_channel_walk_locked: Browse channels in use */
00794 struct ast_channel *ast_channel_walk_locked(const struct ast_channel *prev)
00795 {
00796    return channel_find_locked(prev, NULL, 0, NULL, NULL);
00797 }
00798 
00799 /*--- ast_get_channel_by_name_locked: Get channel by name and lock it */
00800 struct ast_channel *ast_get_channel_by_name_locked(const char *name)
00801 {
00802    return channel_find_locked(NULL, name, 0, NULL, NULL);
00803 }
00804 
00805 /*--- ast_get_channel_by_name_prefix_locked: Get channel by name prefix and lock it */
00806 struct ast_channel *ast_get_channel_by_name_prefix_locked(const char *name, const int namelen)
00807 {
00808    return channel_find_locked(NULL, name, namelen, NULL, NULL);
00809 }
00810 
00811 /*--- ast_walk_channel_by_name_prefix_locked: Get next channel by name prefix and lock it */
00812 struct ast_channel *ast_walk_channel_by_name_prefix_locked(struct ast_channel *chan, const char *name, const int namelen)
00813 {
00814    return channel_find_locked(chan, name, namelen, NULL, NULL);
00815 }
00816 
00817 /*--- ast_get_channel_by_exten_locked: Get channel by exten (and optionally context) and lock it */
00818 struct ast_channel *ast_get_channel_by_exten_locked(const char *exten, const char *context)
00819 {
00820    return channel_find_locked(NULL, NULL, 0, context, exten);
00821 }
00822 
00823 /*--- ast_safe_sleep_conditional: Wait, look for hangups and condition arg */
00824 int ast_safe_sleep_conditional(  struct ast_channel *chan, int ms,
00825    int (*cond)(void*), void *data )
00826 {
00827    struct ast_frame *f;
00828 
00829    while(ms > 0) {
00830       if( cond && ((*cond)(data) == 0 ) )
00831          return 0;
00832       ms = ast_waitfor(chan, ms);
00833       if (ms <0)
00834          return -1;
00835       if (ms > 0) {
00836          f = ast_read(chan);
00837          if (!f)
00838             return -1;
00839          ast_frfree(f);
00840       }
00841    }
00842    return 0;
00843 }
00844 
00845 /*--- ast_safe_sleep: Wait, look for hangups */
00846 int ast_safe_sleep(struct ast_channel *chan, int ms)
00847 {
00848    struct ast_frame *f;
00849    while(ms > 0) {
00850       ms = ast_waitfor(chan, ms);
00851       if (ms <0)
00852          return -1;
00853       if (ms > 0) {
00854          f = ast_read(chan);
00855          if (!f)
00856             return -1;
00857          ast_frfree(f);
00858       }
00859    }
00860    return 0;
00861 }
00862 
00863 static void free_cid(struct ast_callerid *cid)
00864 {
00865    if (cid->cid_dnid)
00866       free(cid->cid_dnid);
00867    if (cid->cid_num)
00868       free(cid->cid_num);  
00869    if (cid->cid_name)
00870       free(cid->cid_name); 
00871    if (cid->cid_ani)
00872       free(cid->cid_ani);
00873    if (cid->cid_rdnis)
00874       free(cid->cid_rdnis);
00875 }
00876 
00877 /*--- ast_channel_free: Free a channel structure */
00878 void ast_channel_free(struct ast_channel *chan)
00879 {
00880    struct ast_channel *last=NULL, *cur;
00881    int fd;
00882    struct ast_var_t *vardata;
00883    struct ast_frame *f, *fp;
00884    struct varshead *headp;
00885    char name[AST_CHANNEL_NAME];
00886    
00887    headp=&chan->varshead;
00888    
00889    ast_mutex_lock(&chlock);
00890    cur = channels;
00891    while(cur) {
00892       if (cur == chan) {
00893          if (last)
00894             last->next = cur->next;
00895          else
00896             channels = cur->next;
00897          break;
00898       }
00899       last = cur;
00900       cur = cur->next;
00901    }
00902    if (!cur)
00903       ast_log(LOG_WARNING, "Unable to find channel in list\n");
00904    else {
00905       /* Lock and unlock the channel just to be sure nobody
00906          has it locked still */
00907       ast_mutex_lock(&cur->lock);
00908       ast_mutex_unlock(&cur->lock);
00909    }
00910    if (chan->tech_pvt) {
00911       ast_log(LOG_WARNING, "Channel '%s' may not have been hung up properly\n", chan->name);
00912       free(chan->tech_pvt);
00913    }
00914 
00915    if (chan->sched)
00916       sched_context_destroy(chan->sched);
00917 
00918    ast_copy_string(name, chan->name, sizeof(name));
00919 
00920    /* Stop monitoring */
00921    if (chan->monitor) {
00922       chan->monitor->stop( chan, 0 );
00923    }
00924 
00925    /* If there is native format music-on-hold state, free it */
00926    if(chan->music_state)
00927       ast_moh_cleanup(chan);
00928 
00929    /* Free translatosr */
00930    if (chan->readtrans)
00931       ast_translator_free_path(chan->readtrans);
00932    if (chan->writetrans)
00933       ast_translator_free_path(chan->writetrans);
00934    if (chan->pbx) 
00935       ast_log(LOG_WARNING, "PBX may not have been terminated properly on '%s'\n", chan->name);
00936    free_cid(&chan->cid);
00937    ast_mutex_destroy(&chan->lock);
00938    /* Close pipes if appropriate */
00939    if ((fd = chan->alertpipe[0]) > -1)
00940       close(fd);
00941    if ((fd = chan->alertpipe[1]) > -1)
00942       close(fd);
00943    if ((fd = chan->timingfd) > -1)
00944       close(fd);
00945    f = chan->readq;
00946    chan->readq = NULL;
00947    while(f) {
00948       fp = f;
00949       f = f->next;
00950       ast_frfree(fp);
00951    }
00952    
00953    /* loop over the variables list, freeing all data and deleting list items */
00954    /* no need to lock the list, as the channel is already locked */
00955    
00956    while ((vardata = AST_LIST_REMOVE_HEAD(headp, entries)))
00957       ast_var_delete(vardata);
00958 
00959    free(chan);
00960    ast_mutex_unlock(&chlock);
00961 
00962    ast_device_state_changed_literal(name);
00963 }
00964 
00965 int ast_channel_spy_add(struct ast_channel *chan, struct ast_channel_spy *spy)
00966 {
00967    if (!ast_test_flag(spy, CHANSPY_FORMAT_AUDIO)) {
00968       ast_log(LOG_WARNING, "Could not add channel spy '%s' to channel '%s', only audio format spies are supported.\n",
00969          spy->type, chan->name);
00970       return -1;
00971    }
00972 
00973    if (ast_test_flag(spy, CHANSPY_READ_VOLADJUST) && (spy->read_queue.format != AST_FORMAT_SLINEAR)) {
00974       ast_log(LOG_WARNING, "Cannot provide volume adjustment on '%s' format spies\n",
00975          ast_getformatname(spy->read_queue.format));
00976       return -1;
00977    }
00978 
00979    if (ast_test_flag(spy, CHANSPY_WRITE_VOLADJUST) && (spy->write_queue.format != AST_FORMAT_SLINEAR)) {
00980       ast_log(LOG_WARNING, "Cannot provide volume adjustment on '%s' format spies\n",
00981          ast_getformatname(spy->write_queue.format));
00982       return -1;
00983    }
00984 
00985    if (ast_test_flag(spy, CHANSPY_MIXAUDIO) &&
00986        ((spy->read_queue.format != AST_FORMAT_SLINEAR) ||
00987         (spy->write_queue.format != AST_FORMAT_SLINEAR))) {
00988       ast_log(LOG_WARNING, "Cannot provide audio mixing on '%s'-'%s' format spies\n",
00989          ast_getformatname(spy->read_queue.format), ast_getformatname(spy->write_queue.format));
00990       return -1;
00991    }
00992 
00993    if (!chan->spies) {
00994       if (!(chan->spies = calloc(1, sizeof(*chan->spies)))) {
00995          ast_log(LOG_WARNING, "Memory allocation failure\n");
00996          return -1;
00997       }
00998 
00999       AST_LIST_HEAD_INIT_NOLOCK(&chan->spies->list);
01000       AST_LIST_INSERT_HEAD(&chan->spies->list, spy, list);
01001    } else {
01002       AST_LIST_INSERT_TAIL(&chan->spies->list, spy, list);
01003    }
01004 
01005    if (ast_test_flag(spy, CHANSPY_TRIGGER_MODE) != CHANSPY_TRIGGER_NONE) {
01006       ast_cond_init(&spy->trigger, NULL);
01007       ast_set_flag(spy, CHANSPY_TRIGGER_READ);
01008       ast_clear_flag(spy, CHANSPY_TRIGGER_WRITE);
01009    }
01010 
01011    ast_log(LOG_DEBUG, "Spy %s added to channel %s\n",
01012       spy->type, chan->name);
01013 
01014    return 0;
01015 }
01016 
01017 void ast_channel_spy_stop_by_type(struct ast_channel *chan, const char *type)
01018 {
01019    struct ast_channel_spy *spy;
01020    
01021    if (!chan->spies)
01022       return;
01023 
01024    AST_LIST_TRAVERSE(&chan->spies->list, spy, list) {
01025       ast_mutex_lock(&spy->lock);
01026       if ((spy->type == type) && (spy->status == CHANSPY_RUNNING)) {
01027          spy->status = CHANSPY_STOP;
01028          if (ast_test_flag(spy, CHANSPY_TRIGGER_MODE) != CHANSPY_TRIGGER_NONE)
01029             ast_cond_signal(&spy->trigger);
01030       }
01031       ast_mutex_unlock(&spy->lock);
01032    }
01033 }
01034 
01035 void ast_channel_spy_trigger_wait(struct ast_channel_spy *spy)
01036 {
01037    ast_cond_wait(&spy->trigger, &spy->lock);
01038 }
01039 
01040 void ast_channel_spy_remove(struct ast_channel *chan, struct ast_channel_spy *spy)
01041 {
01042    struct ast_frame *f;
01043 
01044    if (!chan->spies)
01045       return;
01046 
01047    AST_LIST_REMOVE(&chan->spies->list, spy, list);
01048 
01049    ast_mutex_lock(&spy->lock);
01050 
01051    for (f = spy->read_queue.head; f; f = spy->read_queue.head) {
01052       spy->read_queue.head = f->next;
01053       ast_frfree(f);
01054    }
01055    for (f = spy->write_queue.head; f; f = spy->write_queue.head) {
01056       spy->write_queue.head = f->next;
01057       ast_frfree(f);
01058    }
01059 
01060    if (ast_test_flag(spy, CHANSPY_TRIGGER_MODE) != CHANSPY_TRIGGER_NONE)
01061       ast_cond_destroy(&spy->trigger);
01062 
01063    ast_mutex_unlock(&spy->lock);
01064 
01065    ast_log(LOG_DEBUG, "Spy %s removed from channel %s\n",
01066       spy->type, chan->name);
01067 
01068    if (AST_LIST_EMPTY(&chan->spies->list)) {
01069       if (chan->spies->read_translator.path)
01070          ast_translator_free_path(chan->spies->read_translator.path);
01071       if (chan->spies->write_translator.path)
01072          ast_translator_free_path(chan->spies->write_translator.path);
01073       free(chan->spies);
01074       chan->spies = NULL;
01075    }
01076 }
01077 
01078 static void detach_spies(struct ast_channel *chan) 
01079 {
01080    struct ast_channel_spy *spy;
01081 
01082    if (!chan->spies)
01083       return;
01084 
01085    /* Marking the spies as done is sufficient.  Chanspy or spy users will get the picture. */
01086    AST_LIST_TRAVERSE(&chan->spies->list, spy, list) {
01087       ast_mutex_lock(&spy->lock);
01088       if (spy->status == CHANSPY_RUNNING)
01089          spy->status = CHANSPY_DONE;
01090       if (ast_test_flag(spy, CHANSPY_TRIGGER_MODE) != CHANSPY_TRIGGER_NONE)
01091          ast_cond_signal(&spy->trigger);
01092       ast_mutex_unlock(&spy->lock);
01093    }
01094 
01095    AST_LIST_TRAVERSE_SAFE_BEGIN(&chan->spies->list, spy, list)
01096       ast_channel_spy_remove(chan, spy);
01097    AST_LIST_TRAVERSE_SAFE_END;
01098 }
01099 
01100 /*--- ast_softhangup_nolock: Softly hangup a channel, don't lock */
01101 int ast_softhangup_nolock(struct ast_channel *chan, int cause)
01102 {
01103    int res = 0;
01104    struct ast_frame f = { AST_FRAME_NULL };
01105    if (option_debug)
01106       ast_log(LOG_DEBUG, "Soft-Hanging up channel '%s'\n", chan->name);
01107    /* Inform channel driver that we need to be hung up, if it cares */
01108    chan->_softhangup |= cause;
01109    ast_queue_frame(chan, &f);
01110    /* Interrupt any poll call or such */
01111    if (ast_test_flag(chan, AST_FLAG_BLOCKING))
01112       pthread_kill(chan->blocker, SIGURG);
01113    return res;
01114 }
01115 
01116 /*--- ast_softhangup_nolock: Softly hangup a channel, lock */
01117 int ast_softhangup(struct ast_channel *chan, int cause)
01118 {
01119    int res;
01120    ast_mutex_lock(&chan->lock);
01121    res = ast_softhangup_nolock(chan, cause);
01122    ast_mutex_unlock(&chan->lock);
01123    return res;
01124 }
01125 
01126 enum spy_direction {
01127    SPY_READ,
01128    SPY_WRITE,
01129 };
01130 
01131 #define SPY_QUEUE_SAMPLE_LIMIT 4000       /* half of one second */
01132 
01133 static void queue_frame_to_spies(struct ast_channel *chan, struct ast_frame *f, enum spy_direction dir)
01134 {
01135    struct ast_frame *translated_frame = NULL;
01136    struct ast_channel_spy *spy;
01137    struct ast_channel_spy_queue *queue;
01138    struct ast_channel_spy_queue *other_queue;
01139    struct channel_spy_trans *trans;
01140    struct ast_frame *last;
01141 
01142    trans = (dir == SPY_READ) ? &chan->spies->read_translator : &chan->spies->write_translator;
01143 
01144    AST_LIST_TRAVERSE(&chan->spies->list, spy, list) {
01145       ast_mutex_lock(&spy->lock);
01146 
01147       queue = (dir == SPY_READ) ? &spy->read_queue : &spy->write_queue;
01148 
01149       if ((queue->format == AST_FORMAT_SLINEAR) && (f->subclass != AST_FORMAT_SLINEAR)) {
01150          if (!translated_frame) {
01151             if (trans->path && (trans->last_format != f->subclass)) {
01152                ast_translator_free_path(trans->path);
01153                trans->path = NULL;
01154             }
01155             if (!trans->path) {
01156                ast_log(LOG_DEBUG, "Building translator from %s to SLINEAR for spies on channel %s\n",
01157                   ast_getformatname(f->subclass), chan->name);
01158                if ((trans->path = ast_translator_build_path(AST_FORMAT_SLINEAR, f->subclass)) == NULL) {
01159                   ast_log(LOG_WARNING, "Cannot build a path from %s to %s\n",
01160                      ast_getformatname(f->subclass), ast_getformatname(AST_FORMAT_SLINEAR));
01161                   ast_mutex_unlock(&spy->lock);
01162                   continue;
01163                } else {
01164                   trans->last_format = f->subclass;
01165                }
01166             }
01167             if (!(translated_frame = ast_translate(trans->path, f, 0))) {
01168                ast_log(LOG_ERROR, "Translation to %s failed, dropping frame for spies\n",
01169                   ast_getformatname(AST_FORMAT_SLINEAR));
01170                ast_mutex_unlock(&spy->lock);
01171                break;
01172             }
01173          }
01174 
01175          for (last = queue->head; last && last->next; last = last->next);
01176          if (last)
01177             last->next = ast_frdup(translated_frame);
01178          else
01179             queue->head = ast_frdup(translated_frame);
01180       } else {
01181          if (f->subclass != queue->format) {
01182             ast_log(LOG_WARNING, "Spy '%s' on channel '%s' wants format '%s', but frame is '%s', dropping\n",
01183                spy->type, chan->name,
01184                ast_getformatname(queue->format), ast_getformatname(f->subclass));
01185             ast_mutex_unlock(&spy->lock);
01186             continue;
01187          }
01188 
01189          for (last = queue->head; last && last->next; last = last->next);
01190          if (last)
01191             last->next = ast_frdup(f);
01192          else
01193             queue->head = ast_frdup(f);
01194       }
01195 
01196       queue->samples += f->samples;
01197 
01198       if (queue->samples > SPY_QUEUE_SAMPLE_LIMIT) {
01199          if (ast_test_flag(spy, CHANSPY_TRIGGER_MODE) != CHANSPY_TRIGGER_NONE) {
01200             other_queue = (dir == SPY_WRITE) ? &spy->read_queue : &spy->write_queue;
01201 
01202             if (other_queue->samples == 0) {
01203                switch (ast_test_flag(spy, CHANSPY_TRIGGER_MODE)) {
01204                case CHANSPY_TRIGGER_READ:
01205                   if (dir == SPY_WRITE) {
01206                      ast_set_flag(spy, CHANSPY_TRIGGER_WRITE);
01207                      ast_clear_flag(spy, CHANSPY_TRIGGER_READ);
01208                      if (option_debug)
01209                         ast_log(LOG_DEBUG, "Switching spy '%s' on '%s' to write-trigger mode\n",
01210                            spy->type, chan->name);
01211                   }
01212                   break;
01213                case CHANSPY_TRIGGER_WRITE:
01214                   if (dir == SPY_READ) {
01215                      ast_set_flag(spy, CHANSPY_TRIGGER_READ);
01216                      ast_clear_flag(spy, CHANSPY_TRIGGER_WRITE);
01217                      if (option_debug)
01218                         ast_log(LOG_DEBUG, "Switching spy '%s' on '%s' to read-trigger mode\n",
01219                            spy->type, chan->name);
01220                   }
01221                   break;
01222                }
01223                if (option_debug)
01224                   ast_log(LOG_DEBUG, "Triggering queue flush for spy '%s' on '%s'\n",
01225                      spy->type, chan->name);
01226                ast_set_flag(spy, CHANSPY_TRIGGER_FLUSH);
01227                ast_cond_signal(&spy->trigger);
01228                ast_mutex_unlock(&spy->lock);
01229                continue;
01230             }
01231          }
01232 
01233          if (option_debug)
01234             ast_log(LOG_DEBUG, "Spy '%s' on channel '%s' %s queue too long, dropping frames\n",
01235                spy->type, chan->name, (dir == SPY_READ) ? "read" : "write");
01236          while (queue->samples > SPY_QUEUE_SAMPLE_LIMIT) {
01237             struct ast_frame *drop = queue->head;
01238 
01239             queue->samples -= drop->samples;
01240             queue->head = drop->next;
01241             ast_frfree(drop);
01242          }
01243       } else {
01244          switch (ast_test_flag(spy, CHANSPY_TRIGGER_MODE)) {
01245          case CHANSPY_TRIGGER_READ:
01246             if (dir == SPY_READ)
01247                ast_cond_signal(&spy->trigger);
01248             break;
01249          case CHANSPY_TRIGGER_WRITE:
01250             if (dir == SPY_WRITE)
01251                ast_cond_signal(&spy->trigger);
01252             break;
01253          }
01254       }
01255 
01256       ast_mutex_unlock(&spy->lock);
01257    }
01258 
01259    if (translated_frame)
01260       ast_frfree(translated_frame);
01261 }
01262 
01263 static void free_translation(struct ast_channel *clone)
01264 {
01265    if (clone->writetrans)
01266       ast_translator_free_path(clone->writetrans);
01267    if (clone->readtrans)
01268       ast_translator_free_path(clone->readtrans);
01269    clone->writetrans = NULL;
01270    clone->readtrans = NULL;
01271    clone->rawwriteformat = clone->nativeformats;
01272    clone->rawreadformat = clone->nativeformats;
01273 }
01274 
01275 /*--- ast_hangup: Hangup a channel */
01276 int ast_hangup(struct ast_channel *chan)
01277 {
01278    int res = 0;
01279 
01280    /* Don't actually hang up a channel that will masquerade as someone else, or
01281       if someone is going to masquerade as us */
01282    ast_mutex_lock(&chan->lock);
01283 
01284    detach_spies(chan);     /* get rid of spies */
01285 
01286    if (chan->masq) {
01287       if (ast_do_masquerade(chan)) 
01288          ast_log(LOG_WARNING, "Failed to perform masquerade\n");
01289    }
01290 
01291    if (chan->masq) {
01292       ast_log(LOG_WARNING, "%s getting hung up, but someone is trying to masq into us?!?\n", chan->name);
01293       ast_mutex_unlock(&chan->lock);
01294       return 0;
01295    }
01296    /* If this channel is one which will be masqueraded into something, 
01297       mark it as a zombie already, so we know to free it later */
01298    if (chan->masqr) {
01299       ast_set_flag(chan, AST_FLAG_ZOMBIE);
01300       ast_mutex_unlock(&chan->lock);
01301       return 0;
01302    }
01303    free_translation(chan);
01304    if (chan->stream)       /* Close audio stream */
01305       ast_closestream(chan->stream);
01306    if (chan->vstream)      /* Close video stream */
01307       ast_closestream(chan->vstream);
01308    if (chan->sched) {
01309       sched_context_destroy(chan->sched);
01310       chan->sched = NULL;
01311    }
01312    
01313    if (chan->generatordata)   /* Clear any tone stuff remaining */ 
01314       chan->generator->release(chan, chan->generatordata);
01315    chan->generatordata = NULL;
01316    chan->generator = NULL;
01317    if (chan->cdr) {     /* End the CDR if it hasn't already */ 
01318       ast_cdr_end(chan->cdr);
01319       ast_cdr_detach(chan->cdr); /* Post and Free the CDR */ 
01320       chan->cdr = NULL;
01321    }
01322    if (ast_test_flag(chan, AST_FLAG_BLOCKING)) {
01323       ast_log(LOG_WARNING, "Hard hangup called by thread %ld on %s, while fd "
01324                "is blocked by thread %ld in procedure %s!  Expect a failure\n",
01325                (long)pthread_self(), chan->name, (long)chan->blocker, chan->blockproc);
01326       CRASH;
01327    }
01328    if (!ast_test_flag(chan, AST_FLAG_ZOMBIE)) {
01329       if (option_debug)
01330          ast_log(LOG_DEBUG, "Hanging up channel '%s'\n", chan->name);
01331       if (chan->tech->hangup)
01332          res = chan->tech->hangup(chan);
01333    } else {
01334       if (option_debug)
01335          ast_log(LOG_DEBUG, "Hanging up zombie '%s'\n", chan->name);
01336    }
01337          
01338    ast_mutex_unlock(&chan->lock);
01339    manager_event(EVENT_FLAG_CALL, "Hangup", 
01340          "Channel: %s\r\n"
01341          "Uniqueid: %s\r\n"
01342          "Cause: %d\r\n"
01343          "Cause-txt: %s\r\n",
01344          chan->name, 
01345          chan->uniqueid, 
01346          chan->hangupcause,
01347          ast_cause2str(chan->hangupcause)
01348          );
01349    ast_channel_free(chan);
01350    return res;
01351 }
01352 
01353 int ast_answer(struct ast_channel *chan)
01354 {
01355    int res = 0;
01356    ast_mutex_lock(&chan->lock);
01357    /* Stop if we're a zombie or need a soft hangup */
01358    if (ast_test_flag(chan, AST_FLAG_ZOMBIE) || ast_check_hangup(chan)) {
01359       ast_mutex_unlock(&chan->lock);
01360       return -1;
01361    }
01362    switch(chan->_state) {
01363    case AST_STATE_RINGING:
01364    case AST_STATE_RING:
01365       if (chan->tech->answer)
01366          res = chan->tech->answer(chan);
01367       ast_setstate(chan, AST_STATE_UP);
01368       if (chan->cdr)
01369          ast_cdr_answer(chan->cdr);
01370       ast_mutex_unlock(&chan->lock);
01371       return res;
01372       break;
01373    case AST_STATE_UP:
01374       if (chan->cdr)
01375          ast_cdr_answer(chan->cdr);
01376       break;
01377    }
01378    ast_mutex_unlock(&chan->lock);
01379    return 0;
01380 }
01381 
01382 
01383 
01384 void ast_deactivate_generator(struct ast_channel *chan)
01385 {
01386    ast_mutex_lock(&chan->lock);
01387    if (chan->generatordata) {
01388       if (chan->generator && chan->generator->release) 
01389          chan->generator->release(chan, chan->generatordata);
01390       chan->generatordata = NULL;
01391       chan->generator = NULL;
01392       ast_clear_flag(chan, AST_FLAG_WRITE_INT);
01393       ast_settimeout(chan, 0, NULL, NULL);
01394    }
01395    ast_mutex_unlock(&chan->lock);
01396 }
01397 
01398 static int generator_force(void *data)
01399 {
01400    /* Called if generator doesn't have data */
01401    void *tmp;
01402    int res;
01403    int (*generate)(struct ast_channel *chan, void *tmp, int datalen, int samples);
01404    struct ast_channel *chan = data;
01405    tmp = chan->generatordata;
01406    chan->generatordata = NULL;
01407    generate = chan->generator->generate;
01408    res = generate(chan, tmp, 0, 160);
01409    chan->generatordata = tmp;
01410    if (res) {
01411       ast_log(LOG_DEBUG, "Auto-deactivating generator\n");
01412       ast_deactivate_generator(chan);
01413    }
01414    return 0;
01415 }
01416 
01417 int ast_activate_generator(struct ast_channel *chan, struct ast_generator *gen, void *params)
01418 {
01419    int res = 0;
01420 
01421    ast_mutex_lock(&chan->lock);
01422 
01423    if (chan->generatordata) {
01424       if (chan->generator && chan->generator->release)
01425          chan->generator->release(chan, chan->generatordata);
01426       chan->generatordata = NULL;
01427    }
01428 
01429    ast_prod(chan);
01430    if (gen->alloc) {
01431       if (!(chan->generatordata = gen->alloc(chan, params)))
01432          res = -1;
01433    }
01434    
01435    if (!res) {
01436       ast_settimeout(chan, 160, generator_force, chan);
01437       chan->generator = gen;
01438    }
01439 
01440    ast_mutex_unlock(&chan->lock);
01441 
01442    return res;
01443 }
01444 
01445 /*--- ast_waitfor_n_fd: Wait for x amount of time on a file descriptor to have input.  */
01446 int ast_waitfor_n_fd(int *fds, int n, int *ms, int *exception)
01447 {
01448    struct timeval start = { 0 , 0 };
01449    int res;
01450    int x, y;
01451    int winner = -1;
01452    int spoint;
01453    struct pollfd *pfds;
01454    
01455    pfds = alloca(sizeof(struct pollfd) * n);
01456    if (!pfds) {
01457       ast_log(LOG_ERROR, "Out of memory\n");
01458       return -1;
01459    }
01460    if (*ms > 0)
01461       start = ast_tvnow();
01462    y = 0;
01463    for (x=0; x < n; x++) {
01464       if (fds[x] > -1) {
01465          pfds[y].fd = fds[x];
01466          pfds[y].events = POLLIN | POLLPRI;
01467          y++;
01468       }
01469    }
01470    res = poll(pfds, y, *ms);
01471    if (res < 0) {
01472       /* Simulate a timeout if we were interrupted */
01473       if (errno != EINTR)
01474          *ms = -1;
01475       else
01476          *ms = 0;
01477       return -1;
01478    }
01479    spoint = 0;
01480    for (x=0; x < n; x++) {
01481       if (fds[x] > -1) {
01482          if ((res = ast_fdisset(pfds, fds[x], y, &spoint))) {
01483             winner = fds[x];
01484             if (exception) {
01485                if (res & POLLPRI)
01486                   *exception = -1;
01487                else
01488                   *exception = 0;
01489             }
01490          }
01491       }
01492    }
01493    if (*ms > 0) {
01494       *ms -= ast_tvdiff_ms(ast_tvnow(), start);
01495       if (*ms < 0)
01496          *ms = 0;
01497    }
01498    return winner;
01499 }
01500 
01501 /*--- ast_waitfor_nanfds: Wait for x amount of time on a file descriptor to have input.  */
01502 struct ast_channel *ast_waitfor_nandfds(struct ast_channel **c, int n, int *fds, int nfds, 
01503    int *exception, int *outfd, int *ms)
01504 {
01505    struct timeval start = { 0 , 0 };
01506    struct pollfd *pfds;
01507    int res;
01508    long rms;
01509    int x, y, max;
01510    int spoint;
01511    time_t now = 0;
01512    long whentohangup = 0, havewhen = 0, diff;
01513    struct ast_channel *winner = NULL;
01514 
01515    pfds = alloca(sizeof(struct pollfd) * (n * AST_MAX_FDS + nfds));
01516    if (!pfds) {
01517       ast_log(LOG_ERROR, "Out of memory\n");
01518       *outfd = -1;
01519       return NULL;
01520    }
01521 
01522    if (outfd)
01523       *outfd = -99999;
01524    if (exception)
01525       *exception = 0;
01526    
01527    /* Perform any pending masquerades */
01528    for (x=0; x < n; x++) {
01529       ast_mutex_lock(&c[x]->lock);
01530       if (c[x]->whentohangup) {
01531          if (!havewhen)
01532             time(&now);
01533          diff = c[x]->whentohangup - now;
01534          if (!havewhen || (diff < whentohangup)) {
01535             havewhen++;
01536             whentohangup = diff;
01537          }
01538       }
01539       if (c[x]->masq) {
01540          if (ast_do_masquerade(c[x])) {
01541             ast_log(LOG_WARNING, "Masquerade failed\n");
01542             *ms = -1;
01543             ast_mutex_unlock(&c[x]->lock);
01544             return NULL;
01545          }
01546       }
01547       ast_mutex_unlock(&c[x]->lock);
01548    }
01549 
01550    rms = *ms;
01551    
01552    if (havewhen) {
01553       if ((*ms < 0) || (whentohangup * 1000 < *ms)) {
01554          rms =  whentohangup * 1000;
01555       }
01556    }
01557    max = 0;
01558    for (x=0; x < n; x++) {
01559       for (y=0; y< AST_MAX_FDS; y++) {
01560          if (c[x]->fds[y] > -1) {
01561             pfds[max].fd = c[x]->fds[y];
01562             pfds[max].events = POLLIN | POLLPRI;
01563             pfds[max].revents = 0;
01564             max++;
01565          }
01566       }
01567       CHECK_BLOCKING(c[x]);
01568    }
01569    for (x=0; x < nfds; x++) {
01570       if (fds[x] > -1) {
01571          pfds[max].fd = fds[x];
01572          pfds[max].events = POLLIN | POLLPRI;
01573          pfds[max].revents = 0;
01574          max++;
01575       }
01576    }
01577    if (*ms > 0) 
01578       start = ast_tvnow();
01579    
01580    if (sizeof(int) == 4) {
01581       do {
01582          int kbrms = rms;
01583          if (kbrms > 600000)
01584             kbrms = 600000;
01585          res = poll(pfds, max, kbrms);
01586          if (!res)
01587             rms -= kbrms;
01588       } while (!res && (rms > 0));
01589    } else {
01590       res = poll(pfds, max, rms);
01591    }
01592    
01593    if (res < 0) {
01594       for (x=0; x < n; x++) 
01595          ast_clear_flag(c[x], AST_FLAG_BLOCKING);
01596       /* Simulate a timeout if we were interrupted */
01597       if (errno != EINTR)
01598          *ms = -1;
01599       else {
01600          /* Just an interrupt */
01601 #if 0
01602          *ms = 0;
01603 #endif         
01604       }
01605       return NULL;
01606         } else {
01607          /* If no fds signalled, then timeout. So set ms = 0
01608          since we may not have an exact timeout.
01609       */
01610       if (res == 0)
01611          *ms = 0;
01612    }
01613 
01614    if (havewhen)
01615       time(&now);
01616    spoint = 0;
01617    for (x=0; x < n; x++) {
01618       ast_clear_flag(c[x], AST_FLAG_BLOCKING);
01619       if (havewhen && c[x]->whentohangup && (now > c[x]->whentohangup)) {
01620          c[x]->_softhangup |= AST_SOFTHANGUP_TIMEOUT;
01621          if (!winner)
01622             winner = c[x];
01623       }
01624       for (y=0; y < AST_MAX_FDS; y++) {
01625          if (c[x]->fds[y] > -1) {
01626             if ((res = ast_fdisset(pfds, c[x]->fds[y], max, &spoint))) {
01627                if (res & POLLPRI)
01628                   ast_set_flag(c[x], AST_FLAG_EXCEPTION);
01629                else
01630                   ast_clear_flag(c[x], AST_FLAG_EXCEPTION);
01631                c[x]->fdno = y;
01632                winner = c[x];
01633             }
01634          }
01635       }
01636    }
01637    for (x=0; x < nfds; x++) {
01638       if (fds[x] > -1) {
01639          if ((res = ast_fdisset(pfds, fds[x], max, &spoint))) {
01640             if (outfd)
01641                *outfd = fds[x];
01642             if (exception) {  
01643                if (res & POLLPRI) 
01644                   *exception = -1;
01645                else
01646                   *exception = 0;
01647             }
01648             winner = NULL;
01649          }
01650       }  
01651    }
01652    if (*ms > 0) {
01653       *ms -= ast_tvdiff_ms(ast_tvnow(), start);
01654       if (*ms < 0)
01655          *ms = 0;
01656    }
01657    return winner;
01658 }
01659 
01660 struct ast_channel *ast_waitfor_n(struct ast_channel **c, int n, int *ms)
01661 {
01662    return ast_waitfor_nandfds(c, n, NULL, 0, NULL, NULL, ms);
01663 }
01664 
01665 int ast_waitfor(struct ast_channel *c, int ms)
01666 {
01667    struct ast_channel *chan;
01668    int oldms = ms;
01669 
01670    chan = ast_waitfor_n(&c, 1, &ms);
01671    if (ms < 0) {
01672       if (oldms < 0)
01673          return 0;
01674       else
01675          return -1;
01676    }
01677    return ms;
01678 }
01679 
01680 int ast_waitfordigit(struct ast_channel *c, int ms)
01681 {
01682    /* XXX Should I be merged with waitfordigit_full XXX */
01683    struct ast_frame *f;
01684    int result = 0;
01685 
01686    /* Stop if we're a zombie or need a soft hangup */
01687    if (ast_test_flag(c, AST_FLAG_ZOMBIE) || ast_check_hangup(c)) 
01688       return -1;
01689 
01690    /* Wait for a digit, no more than ms milliseconds total. */
01691    while(ms && !result) {
01692       ms = ast_waitfor(c, ms);
01693       if (ms < 0) /* Error */
01694          result = -1; 
01695       else if (ms > 0) {
01696          /* Read something */
01697          f = ast_read(c);
01698          if (f) {
01699             if (f->frametype == AST_FRAME_DTMF) 
01700                result = f->subclass;
01701             ast_frfree(f);
01702          } else
01703             result = -1;
01704       }
01705    }
01706    return result;
01707 }
01708 
01709 int ast_settimeout(struct ast_channel *c, int samples, int (*func)(void *data), void *data)
01710 {
01711    int res = -1;
01712 #ifdef ZAPTEL_OPTIMIZATIONS
01713    if (c->timingfd > -1) {
01714       if (!func) {
01715          samples = 0;
01716          data = 0;
01717       }
01718       ast_log(LOG_DEBUG, "Scheduling timer at %d sample intervals\n", samples);
01719       res = ioctl(c->timingfd, ZT_TIMERCONFIG, &samples);
01720       c->timingfunc = func;
01721       c->timingdata = data;
01722    }
01723 #endif   
01724    return res;
01725 }
01726 
01727 int ast_waitfordigit_full(struct ast_channel *c, int ms, int audiofd, int cmdfd)
01728 {
01729    struct ast_frame *f;
01730    struct ast_channel *rchan;
01731    int outfd;
01732    int res;
01733 
01734    /* Stop if we're a zombie or need a soft hangup */
01735    if (ast_test_flag(c, AST_FLAG_ZOMBIE) || ast_check_hangup(c)) 
01736       return -1;
01737    /* Wait for a digit, no more than ms milliseconds total. */
01738    while(ms) {
01739       errno = 0;
01740       rchan = ast_waitfor_nandfds(&c, 1, &cmdfd, (cmdfd > -1) ? 1 : 0, NULL, &outfd, &ms);
01741       if ((!rchan) && (outfd < 0) && (ms)) { 
01742          if (errno == 0 || errno == EINTR)
01743             continue;
01744          ast_log(LOG_WARNING, "Wait failed (%s)\n", strerror(errno));
01745          return -1;
01746       } else if (outfd > -1) {
01747          /* The FD we were watching has something waiting */
01748          return 1;
01749       } else if (rchan) {
01750          f = ast_read(c);
01751          if(!f) {
01752             return -1;
01753          }
01754 
01755          switch(f->frametype) {
01756          case AST_FRAME_DTMF:
01757             res = f->subclass;
01758             ast_frfree(f);
01759             return res;
01760          case AST_FRAME_CONTROL:
01761             switch(f->subclass) {
01762             case AST_CONTROL_HANGUP:
01763                ast_frfree(f);
01764                return -1;
01765             case AST_CONTROL_RINGING:
01766             case AST_CONTROL_ANSWER:
01767                /* Unimportant */
01768                break;
01769             default:
01770                ast_log(LOG_WARNING, "Unexpected control subclass '%d'\n", f->subclass);
01771             }
01772          case AST_FRAME_VOICE:
01773             /* Write audio if appropriate */
01774             if (audiofd > -1)
01775                write(audiofd, f->data, f->datalen);
01776          }
01777          /* Ignore */
01778          ast_frfree(f);
01779       }
01780    }
01781    return 0; /* Time is up */
01782 }
01783 
01784 struct ast_frame *ast_read(struct ast_channel *chan)
01785 {
01786    struct ast_frame *f = NULL;
01787    int blah;
01788    int prestate;
01789 #ifdef ZAPTEL_OPTIMIZATIONS
01790    int (*func)(void *);
01791    void *data;
01792    int res;
01793 #endif
01794    static struct ast_frame null_frame = {
01795       AST_FRAME_NULL,
01796    };
01797    
01798    ast_mutex_lock(&chan->lock);
01799    if (chan->masq) {
01800       if (ast_do_masquerade(chan)) {
01801          ast_log(LOG_WARNING, "Failed to perform masquerade\n");
01802          f = NULL;
01803       } else
01804          f =  &null_frame;
01805       ast_mutex_unlock(&chan->lock);
01806       return f;
01807    }
01808 
01809    /* Stop if we're a zombie or need a soft hangup */
01810    if (ast_test_flag(chan, AST_FLAG_ZOMBIE) || ast_check_hangup(chan)) {
01811       if (chan->generator)
01812          ast_deactivate_generator(chan);
01813       ast_mutex_unlock(&chan->lock);
01814       return NULL;
01815    }
01816    prestate = chan->_state;
01817 
01818    if (!ast_test_flag(chan, AST_FLAG_DEFER_DTMF) && !ast_strlen_zero(chan->dtmfq)) {
01819       /* We have DTMF that has been deferred.  Return it now */
01820       chan->dtmff.frametype = AST_FRAME_DTMF;
01821       chan->dtmff.subclass = chan->dtmfq[0];
01822       /* Drop first digit */
01823       memmove(chan->dtmfq, chan->dtmfq + 1, sizeof(chan->dtmfq) - 1);
01824       ast_mutex_unlock(&chan->lock);
01825       return &chan->dtmff;
01826    }
01827    
01828    /* Read and ignore anything on the alertpipe, but read only
01829       one sizeof(blah) per frame that we send from it */
01830    if (chan->alertpipe[0] > -1) {
01831       read(chan->alertpipe[0], &blah, sizeof(blah));
01832    }
01833 #ifdef ZAPTEL_OPTIMIZATIONS
01834    if ((chan->timingfd > -1) && (chan->fdno == AST_MAX_FDS - 2) && ast_test_flag(chan, AST_FLAG_EXCEPTION)) {
01835       ast_clear_flag(chan, AST_FLAG_EXCEPTION);
01836       blah = -1;
01837       /* IF we can't get event, assume it's an expired as-per the old interface */
01838       res = ioctl(chan->timingfd, ZT_GETEVENT, &blah);
01839       if (res) 
01840          blah = ZT_EVENT_TIMER_EXPIRED;
01841 
01842       if (blah == ZT_EVENT_TIMER_PING) {
01843 #if 0
01844          ast_log(LOG_NOTICE, "Oooh, there's a PING!\n");
01845 #endif         
01846          if (!chan->readq || !chan->readq->next) {
01847             /* Acknowledge PONG unless we need it again */
01848 #if 0
01849             ast_log(LOG_NOTICE, "Sending a PONG!\n");
01850 #endif            
01851             if (ioctl(chan->timingfd, ZT_TIMERPONG, &blah)) {
01852                ast_log(LOG_WARNING, "Failed to pong timer on '%s': %s\n", chan->name, strerror(errno));
01853             }
01854          }
01855       } else if (blah == ZT_EVENT_TIMER_EXPIRED) {
01856          ioctl(chan->timingfd, ZT_TIMERACK, &blah);
01857          func = chan->timingfunc;
01858          data = chan->timingdata;
01859          ast_mutex_unlock(&chan->lock);
01860          if (func) {
01861 #if 0
01862             ast_log(LOG_DEBUG, "Calling private function\n");
01863 #endif         
01864             func(data);
01865          } else {
01866             blah = 0;
01867             ast_mutex_lock(&chan->lock);
01868             ioctl(chan->timingfd, ZT_TIMERCONFIG, &blah);
01869             chan->timingdata = NULL;
01870             ast_mutex_unlock(&chan->lock);
01871          }
01872          f =  &null_frame;
01873          return f;
01874       } else
01875          ast_log(LOG_NOTICE, "No/unknown event '%d' on timer for '%s'?\n", blah, chan->name);
01876    }
01877 #endif
01878    /* Check for pending read queue */
01879    if (chan->readq) {
01880       f = chan->readq;
01881       chan->readq = f->next;
01882       /* Interpret hangup and return NULL */
01883       if ((f->frametype == AST_FRAME_CONTROL) && (f->subclass == AST_CONTROL_HANGUP)) {
01884          ast_frfree(f);
01885          f = NULL;
01886       }
01887    } else {
01888       chan->blocker = pthread_self();
01889       if (ast_test_flag(chan, AST_FLAG_EXCEPTION)) {
01890          if (chan->tech->exception) 
01891             f = chan->tech->exception(chan);
01892          else {
01893             ast_log(LOG_WARNING, "Exception flag set on '%s', but no exception handler\n", chan->name);
01894             f = &null_frame;
01895          }
01896          /* Clear the exception flag */
01897          ast_clear_flag(chan, AST_FLAG_EXCEPTION);
01898       } else {
01899          if (chan->tech->read)
01900             f = chan->tech->read(chan);
01901          else
01902             ast_log(LOG_WARNING, "No read routine on channel %s\n", chan->name);
01903       }
01904    }
01905 
01906 
01907    if (f && (f->frametype == AST_FRAME_VOICE)) {
01908       if (!(f->subclass & chan->nativeformats)) {
01909          /* This frame can't be from the current native formats -- drop it on the
01910             floor */
01911          ast_log(LOG_NOTICE, "Dropping incompatible voice frame on %s of format %s since our native format has changed to %s\n", chan->name, ast_getformatname(f->subclass), ast_getformatname(chan->nativeformats));
01912          ast_frfree(f);
01913          f = &null_frame;
01914       } else {
01915          if (chan->spies)
01916             queue_frame_to_spies(chan, f, SPY_READ);
01917 
01918          if (chan->monitor && chan->monitor->read_stream ) {
01919 #ifndef MONITOR_CONSTANT_DELAY
01920             int jump = chan->outsmpl - chan->insmpl - 4 * f->samples;
01921             if (jump >= 0) {
01922                if (ast_seekstream(chan->monitor->read_stream, jump + f->samples, SEEK_FORCECUR) == -1)
01923                   ast_log(LOG_WARNING, "Failed to perform seek in monitoring read stream, synchronization between the files may be broken\n");
01924                chan->insmpl += jump + 4 * f->samples;
01925             } else
01926                chan->insmpl+= f->samples;
01927 #else
01928             int jump = chan->outsmpl - chan->insmpl;
01929             if (jump - MONITOR_DELAY >= 0) {
01930                if (ast_seekstream(chan->monitor->read_stream, jump - f->samples, SEEK_FORCECUR) == -1)
01931                   ast_log(LOG_WARNING, "Failed to perform seek in monitoring read stream, synchronization between the files may be broken\n");
01932                chan->insmpl += jump;
01933             } else
01934                chan->insmpl += f->samples;
01935 #endif
01936             if (ast_writestream(chan->monitor->read_stream, f) < 0)
01937                ast_log(LOG_WARNING, "Failed to write data to channel monitor read stream\n");
01938          }
01939          if (chan->readtrans) {
01940             f = ast_translate(chan->readtrans, f, 1);
01941             if (!f)
01942                f = &null_frame;
01943          }
01944       }
01945    }
01946 
01947    /* Make sure we always return NULL in the future */
01948    if (!f) {
01949       chan->_softhangup |= AST_SOFTHANGUP_DEV;
01950       if (chan->generator)
01951          ast_deactivate_generator(chan);
01952       /* End the CDR if appropriate */
01953       if (chan->cdr)
01954          ast_cdr_end(chan->cdr);
01955    } else if (ast_test_flag(chan, AST_FLAG_DEFER_DTMF) && f->frametype == AST_FRAME_DTMF) {
01956       if (strlen(chan->dtmfq) < sizeof(chan->dtmfq) - 2)
01957          chan->dtmfq[strlen(chan->dtmfq)] = f->subclass;
01958       else
01959          ast_log(LOG_WARNING, "Dropping deferred DTMF digits on %s\n", chan->name);
01960       f = &null_frame;
01961    } else if ((f->frametype == AST_FRAME_CONTROL) && (f->subclass == AST_CONTROL_ANSWER)) {
01962       if (prestate == AST_STATE_UP) {
01963          ast_log(LOG_DEBUG, "Dropping duplicate answer!\n");
01964          f = &null_frame;
01965       }
01966       /* Answer the CDR */
01967       ast_setstate(chan, AST_STATE_UP);
01968       ast_cdr_answer(chan->cdr);
01969    } 
01970 
01971    /* Run any generator sitting on the line */
01972    if (f && (f->frametype == AST_FRAME_VOICE) && chan->generatordata) {
01973       /* Mask generator data temporarily and apply.  If there is a timing function, it
01974          will be calling the generator instead */
01975       void *tmp;
01976       int res;
01977       int (*generate)(struct ast_channel *chan, void *tmp, int datalen, int samples);
01978 
01979       if (chan->timingfunc) {
01980          ast_log(LOG_DEBUG, "Generator got voice, switching to phase locked mode\n");
01981          ast_settimeout(chan, 0, NULL, NULL);
01982       }
01983       tmp = chan->generatordata;
01984       chan->generatordata = NULL;
01985       generate = chan->generator->generate;
01986       res = generate(chan, tmp, f->datalen, f->samples);
01987       chan->generatordata = tmp;
01988       if (res) {
01989          ast_log(LOG_DEBUG, "Auto-deactivating generator\n");
01990          ast_deactivate_generator(chan);
01991       }
01992    } else if (f && (f->frametype == AST_FRAME_CNG)) {
01993       if (chan->generator && !chan->timingfunc && (chan->timingfd > -1)) {
01994          ast_log(LOG_DEBUG, "Generator got CNG, switching to zap timed mode\n");
01995          ast_settimeout(chan, 160, generator_force, chan);
01996       }
01997    }
01998    /* High bit prints debugging */
01999    if (chan->fin & 0x80000000)
02000       ast_frame_dump(chan->name, f, "<<");
02001    if ((chan->fin & 0x7fffffff) == 0x7fffffff)
02002       chan->fin &= 0x80000000;
02003    else
02004       chan->fin++;
02005    ast_mutex_unlock(&chan->lock);
02006    return f;
02007 }
02008 
02009 int ast_indicate(struct ast_channel *chan, int condition)
02010 {
02011    int res = -1;
02012 
02013    ast_mutex_lock(&chan->lock);
02014    /* Stop if we're a zombie or need a soft hangup */
02015    if (ast_test_flag(chan, AST_FLAG_ZOMBIE) || ast_check_hangup(chan)) {
02016       ast_mutex_unlock(&chan->lock);
02017       return -1;
02018    }
02019    if (chan->tech->indicate)
02020       res = chan->tech->indicate(chan, condition);
02021    ast_mutex_unlock(&chan->lock);
02022    if (!chan->tech->indicate || res) {
02023       /*
02024        * Device does not support (that) indication, lets fake
02025        * it by doing our own tone generation. (PM2002)
02026        */
02027       if (condition >= 0) {
02028          const struct tone_zone_sound *ts = NULL;
02029          switch (condition) {
02030          case AST_CONTROL_RINGING:
02031             ts = ast_get_indication_tone(chan->zone, "ring");
02032             break;
02033          case AST_CONTROL_BUSY:
02034             ts = ast_get_indication_tone(chan->zone, "busy");
02035             break;
02036          case AST_CONTROL_CONGESTION:
02037             ts = ast_get_indication_tone(chan->zone, "congestion");
02038             break;
02039          }
02040          if (ts && ts->data[0]) {
02041             ast_log(LOG_DEBUG, "Driver for channel '%s' does not support indication %d, emulating it\n", chan->name, condition);
02042             ast_playtones_start(chan,0,ts->data, 1);
02043             res = 0;
02044          } else if (condition == AST_CONTROL_PROGRESS) {
02045             /* ast_playtones_stop(chan); */
02046          } else if (condition == AST_CONTROL_PROCEEDING) {
02047             /* Do nothing, really */
02048          } else if (condition == AST_CONTROL_HOLD) {
02049             /* Do nothing.... */
02050          } else if (condition == AST_CONTROL_UNHOLD) {
02051             /* Do nothing.... */
02052          } else if (condition == AST_CONTROL_VIDUPDATE) {
02053             /* Do nothing.... */
02054          } else {
02055             /* not handled */
02056             ast_log(LOG_WARNING, "Unable to handle indication %d for '%s'\n", condition, chan->name);
02057             res = -1;
02058          }
02059       }
02060       else ast_playtones_stop(chan);
02061    }
02062    return res;
02063 }
02064 
02065 int ast_recvchar(struct ast_channel *chan, int timeout)
02066 {
02067    int c;
02068    char *buf = ast_recvtext(chan, timeout);
02069    if (buf == NULL)
02070       return -1;  /* error or timeout */
02071    c = *(unsigned char *)buf;
02072    free(buf);
02073    return c;
02074 }
02075 
02076 char *ast_recvtext(struct ast_channel *chan, int timeout)
02077 {
02078    int res, done = 0;
02079    char *buf = NULL;
02080    
02081    while (!done) {
02082       struct ast_frame *f;
02083       if (ast_check_hangup(chan))
02084          break;
02085       res = ast_waitfor(chan, timeout);
02086       if (res <= 0) /* timeout or error */
02087          break;
02088       timeout = res; /* update timeout */
02089       f = ast_read(chan);
02090       if (f == NULL)
02091          break; /* no frame */
02092       if (f->frametype == AST_FRAME_CONTROL && f->subclass == AST_CONTROL_HANGUP)
02093          done = 1;   /* force a break */
02094       else if (f->frametype == AST_FRAME_TEXT) {      /* what we want */
02095          buf = strndup((char *) f->data, f->datalen); /* dup and break */
02096          done = 1;
02097       }
02098       ast_frfree(f);
02099    }
02100    return buf;
02101 }
02102 
02103 int ast_sendtext(struct ast_channel *chan, const char *text)
02104 {
02105    int res = 0;
02106    /* Stop if we're a zombie or need a soft hangup */
02107    if (ast_test_flag(chan, AST_FLAG_ZOMBIE) || ast_check_hangup(chan)) 
02108       return -1;
02109    CHECK_BLOCKING(chan);
02110    if (chan->tech->send_text)
02111       res = chan->tech->send_text(chan, text);
02112    ast_clear_flag(chan, AST_FLAG_BLOCKING);
02113    return res;
02114 }
02115 
02116 static int do_senddigit(struct ast_channel *chan, char digit)
02117 {
02118    int res = -1;
02119 
02120    if (chan->tech->send_digit)
02121       res = chan->tech->send_digit(chan, digit);
02122    if (!chan->tech->send_digit || res) {
02123       /*
02124        * Device does not support DTMF tones, lets fake
02125        * it by doing our own generation. (PM2002)
02126        */
02127       static const char* dtmf_tones[] = {
02128          "!941+1336/100,!0/100", /* 0 */
02129          "!697+1209/100,!0/100", /* 1 */
02130          "!697+1336/100,!0/100", /* 2 */
02131          "!697+1477/100,!0/100", /* 3 */
02132          "!770+1209/100,!0/100", /* 4 */
02133          "!770+1336/100,!0/100", /* 5 */
02134          "!770+1477/100,!0/100", /* 6 */
02135          "!852+1209/100,!0/100", /* 7 */
02136          "!852+1336/100,!0/100", /* 8 */
02137          "!852+1477/100,!0/100", /* 9 */
02138          "!697+1633/100,!0/100", /* A */
02139          "!770+1633/100,!0/100", /* B */
02140          "!852+1633/100,!0/100", /* C */
02141          "!941+1633/100,!0/100", /* D */
02142          "!941+1209/100,!0/100", /* * */
02143          "!941+1477/100,!0/100" };  /* # */
02144       if (digit >= '0' && digit <='9')
02145          ast_playtones_start(chan, 0, dtmf_tones[digit-'0'], 0);
02146       else if (digit >= 'A' && digit <= 'D')
02147          ast_playtones_start(chan, 0, dtmf_tones[digit-'A'+10], 0);
02148       else if (digit == '*')
02149          ast_playtones_start(chan, 0, dtmf_tones[14], 0);
02150       else if (digit == '#')
02151          ast_playtones_start(chan, 0, dtmf_tones[15], 0);
02152       else {
02153          /* not handled */
02154          ast_log(LOG_DEBUG, "Unable to generate DTMF tone '%c' for '%s'\n", digit, chan->name);
02155       }
02156    }
02157    return 0;
02158 }
02159 
02160 int ast_senddigit(struct ast_channel *chan, char digit)
02161 {
02162    return do_senddigit(chan, digit);
02163 }
02164 
02165 int ast_prod(struct ast_channel *chan)
02166 {
02167    struct ast_frame a = { AST_FRAME_VOICE };
02168    char nothing[128];
02169 
02170    /* Send an empty audio frame to get things moving */
02171    if (chan->_state != AST_STATE_UP) {
02172       ast_log(LOG_DEBUG, "Prodding channel '%s'\n", chan->name);
02173       a.subclass = chan->rawwriteformat;
02174       a.data = nothing + AST_FRIENDLY_OFFSET;
02175       a.src = "ast_prod";
02176       if (ast_write(chan, &a))
02177          ast_log(LOG_WARNING, "Prodding channel '%s' failed\n", chan->name);
02178    }
02179    return 0;
02180 }
02181 
02182 int ast_write_video(struct ast_channel *chan, struct ast_frame *fr)
02183 {
02184    int res;
02185    if (!chan->tech->write_video)
02186       return 0;
02187    res = ast_write(chan, fr);
02188    if (!res)
02189       res = 1;
02190    return res;
02191 }
02192 
02193 int ast_write(struct ast_channel *chan, struct ast_frame *fr)
02194 {
02195    int res = -1;
02196    struct ast_frame *f = NULL;
02197    /* Stop if we're a zombie or need a soft hangup */
02198    ast_mutex_lock(&chan->lock);
02199    if (ast_test_flag(chan, AST_FLAG_ZOMBIE) || ast_check_hangup(chan))  {
02200       ast_mutex_unlock(&chan->lock);
02201       return -1;
02202    }
02203    /* Handle any pending masquerades */
02204    if (chan->masq) {
02205       if (ast_do_masquerade(chan)) {
02206          ast_log(LOG_WARNING, "Failed to perform masquerade\n");
02207          ast_mutex_unlock(&chan->lock);
02208          return -1;
02209       }
02210    }
02211    if (chan->masqr) {
02212       ast_mutex_unlock(&chan->lock);
02213       return 0;
02214    }
02215    if (chan->generatordata) {
02216       if (ast_test_flag(chan, AST_FLAG_WRITE_INT))
02217          ast_deactivate_generator(chan);
02218       else {
02219          ast_mutex_unlock(&chan->lock);
02220          return 0;
02221       }
02222    }
02223    /* High bit prints debugging */
02224    if (chan->fout & 0x80000000)
02225       ast_frame_dump(chan->name, fr, ">>");
02226    CHECK_BLOCKING(chan);
02227    switch(fr->frametype) {
02228    case AST_FRAME_CONTROL:
02229       /* XXX Interpret control frames XXX */
02230       ast_log(LOG_WARNING, "Don't know how to handle control frames yet\n");
02231       break;
02232    case AST_FRAME_DTMF:
02233       ast_clear_flag(chan, AST_FLAG_BLOCKING);
02234       ast_mutex_unlock(&chan->lock);
02235       res = do_senddigit(chan,fr->subclass);
02236       ast_mutex_lock(&chan->lock);
02237       CHECK_BLOCKING(chan);
02238       break;
02239    case AST_FRAME_TEXT:
02240       if (chan->tech->send_text)
02241          res = chan->tech->send_text(chan, (char *) fr->data);
02242       else
02243          res = 0;
02244       break;
02245    case AST_FRAME_HTML:
02246       if (chan->tech->send_html)
02247          res = chan->tech->send_html(chan, fr->subclass, (char *) fr->data, fr->datalen);
02248       else
02249          res = 0;
02250       break;
02251    case AST_FRAME_VIDEO:
02252       /* XXX Handle translation of video codecs one day XXX */
02253       if (chan->tech->write_video)
02254          res = chan->tech->write_video(chan, fr);
02255       else
02256          res = 0;
02257       break;
02258    default:
02259       if (chan->tech->write) {
02260          f = (chan->writetrans) ? ast_translate(chan->writetrans, fr, 0) : fr;
02261          if (f) {
02262             if (f->frametype == AST_FRAME_VOICE && chan->spies)
02263                queue_frame_to_spies(chan, f, SPY_WRITE);
02264 
02265             if( chan->monitor && chan->monitor->write_stream &&
02266                   f && ( f->frametype == AST_FRAME_VOICE ) ) {
02267 #ifndef MONITOR_CONSTANT_DELAY
02268                int jump = chan->insmpl - chan->outsmpl - 4 * f->samples;
02269                if (jump >= 0) {
02270                   if (ast_seekstream(chan->monitor->write_stream, jump + f->samples, SEEK_FORCECUR) == -1)
02271                      ast_log(LOG_WARNING, "Failed to perform seek in monitoring write stream, synchronization between the files may be broken\n");
02272                   chan->outsmpl += jump + 4 * f->samples;
02273                } else
02274                   chan->outsmpl += f->samples;
02275 #else
02276                int jump = chan->insmpl - chan->outsmpl;
02277                if (jump - MONITOR_DELAY >= 0) {
02278                   if (ast_seekstream(chan->monitor->write_stream, jump - f->samples, SEEK_FORCECUR) == -1)
02279                      ast_log(LOG_WARNING, "Failed to perform seek in monitoring write stream, synchronization between the files may be broken\n");
02280                   chan->outsmpl += jump;
02281                } else
02282                   chan->outsmpl += f->samples;
02283 #endif
02284                if (ast_writestream(chan->monitor->write_stream, f) < 0)
02285                   ast_log(LOG_WARNING, "Failed to write data to channel monitor write stream\n");
02286             }
02287 
02288             res = chan->tech->write(chan, f);
02289          } else
02290             res = 0;
02291       }
02292    }
02293 
02294    /* It's possible this is a translated frame */
02295    if (f && f->frametype == AST_FRAME_DTMF) {
02296       ast_log(LOG_DTMF, "%s : %c\n", chan->name, f->subclass);
02297    } else if (fr->frametype == AST_FRAME_DTMF) {
02298       ast_log(LOG_DTMF, "%s : %c\n", chan->name, fr->subclass);
02299    }
02300 
02301    if (f && (f != fr))
02302       ast_frfree(f);
02303    ast_clear_flag(chan, AST_FLAG_BLOCKING);
02304    /* Consider a write failure to force a soft hangup */
02305    if (res < 0)
02306       chan->_softhangup |= AST_SOFTHANGUP_DEV;
02307    else {
02308       if ((chan->fout & 0x7fffffff) == 0x7fffffff)
02309          chan->fout &= 0x80000000;
02310       else
02311          chan->fout++;
02312    }
02313    ast_mutex_unlock(&chan->lock);
02314    return res;
02315 }
02316 
02317 static int set_format(struct ast_channel *chan, int fmt, int *rawformat, int *format,
02318             struct ast_trans_pvt **trans, const int direction)
02319 {
02320    int native;
02321    int res;
02322    
02323    native = chan->nativeformats;
02324    /* Find a translation path from the native format to one of the desired formats */
02325    if (!direction)
02326       /* reading */
02327       res = ast_translator_best_choice(&fmt, &native);
02328    else
02329       /* writing */
02330       res = ast_translator_best_choice(&native, &fmt);
02331 
02332    if (res < 0) {
02333       ast_log(LOG_WARNING, "Unable to find a codec translation path from %s to %s\n",
02334          ast_getformatname(native), ast_getformatname(fmt));
02335       return -1;
02336    }
02337    
02338    /* Now we have a good choice for both. */
02339    ast_mutex_lock(&chan->lock);
02340    *rawformat = native;
02341    /* User perspective is fmt */
02342    *format = fmt;
02343    /* Free any read translation we have right now */
02344    if (*trans)
02345       ast_translator_free_path(*trans);
02346    /* Build a translation path from the raw format to the desired format */
02347    if (!direction)
02348       /* reading */
02349       *trans = ast_translator_build_path(*format, *rawformat);
02350    else
02351       /* writing */
02352       *trans = ast_translator_build_path(*rawformat, *format);
02353    ast_mutex_unlock(&chan->lock);
02354    if (option_debug)
02355       ast_log(LOG_DEBUG, "Set channel %s to %s format %s\n", chan->name,
02356          direction ? "write" : "read", ast_getformatname(fmt));
02357    return 0;
02358 }
02359 
02360 int ast_set_read_format(struct ast_channel *chan, int fmt)
02361 {
02362    return set_format(chan, fmt, &chan->rawreadformat, &chan->readformat,
02363            &chan->readtrans, 0);
02364 }
02365 
02366 int ast_set_write_format(struct ast_channel *chan, int fmt)
02367 {
02368    return set_format(chan, fmt, &chan->rawwriteformat, &chan->writeformat,
02369            &chan->writetrans, 1);
02370 }
02371 
02372 struct ast_channel *__ast_request_and_dial(const char *type, int format, void *data, int timeout, int *outstate, const char *cid_num, const char *cid_name, struct outgoing_helper *oh)
02373 {
02374    int state = 0;
02375    int cause = 0;
02376    struct ast_channel *chan;
02377    struct ast_frame *f;
02378    int res = 0;
02379    
02380    chan = ast_request(type, format, data, &cause);
02381    if (chan) {
02382       if (oh) {
02383          if (oh->vars)  
02384             ast_set_variables(chan, oh->vars);
02385          if (oh->cid_num && *oh->cid_num && oh->cid_name && *oh->cid_name)
02386             ast_set_callerid(chan, oh->cid_num, oh->cid_name, oh->cid_num);
02387          if (oh->parent_channel)
02388             ast_channel_inherit_variables(oh->parent_channel, chan);
02389          if (oh->account)
02390             ast_cdr_setaccount(chan, oh->account); 
02391       }
02392       ast_set_callerid(chan, cid_num, cid_name, cid_num);
02393 
02394       if (!ast_call(chan, data, 0)) {
02395          res = 1; /* in case chan->_state is already AST_STATE_UP */
02396          while (timeout && (chan->_state != AST_STATE_UP)) {
02397             res = ast_waitfor(chan, timeout);
02398             if (res < 0) {
02399                /* Something not cool, or timed out */
02400                break;
02401             }
02402             /* If done, break out */
02403             if (!res)
02404                break;
02405             if (timeout > -1)
02406                timeout = res;
02407             f = ast_read(chan);
02408             if (!f) {
02409                state = AST_CONTROL_HANGUP;
02410                res = 0;
02411                break;
02412             }
02413             if (f->frametype == AST_FRAME_CONTROL) {
02414                if (f->subclass == AST_CONTROL_RINGING)
02415                   state = AST_CONTROL_RINGING;
02416                else if ((f->subclass == AST_CONTROL_BUSY) || (f->subclass == AST_CONTROL_CONGESTION)) {
02417                   state = f->subclass;
02418                   ast_frfree(f);
02419                   break;
02420                } else if (f->subclass == AST_CONTROL_ANSWER) {
02421                   state = f->subclass;
02422                   ast_frfree(f);
02423                   break;
02424                } else if (f->subclass == AST_CONTROL_PROGRESS) {
02425                   /* Ignore */
02426                } else if (f->subclass == -1) {
02427                   /* Ignore -- just stopping indications */
02428                } else {
02429                   ast_log(LOG_NOTICE, "Don't know what to do with control frame %d\n", f->subclass);
02430                }
02431             }
02432             ast_frfree(f);
02433          }
02434       } else
02435          ast_log(LOG_NOTICE, "Unable to call channel %s/%s\n", type, (char *)data);
02436    } else {
02437       ast_log(LOG_NOTICE, "Unable to request channel %s/%s\n", type, (char *)data);
02438       switch(cause) {
02439       case AST_CAUSE_BUSY:
02440          state = AST_CONTROL_BUSY;
02441          break;
02442       case AST_CAUSE_CONGESTION:
02443          state = AST_CONTROL_CONGESTION;
02444          break;
02445       }
02446    }
02447    if (chan) {
02448       /* Final fixups */
02449       if (oh) {
02450          if (oh->context && *oh->context)
02451             ast_copy_string(chan->context, oh->context, sizeof(chan->context));
02452          if (oh->exten && *oh->exten)
02453             ast_copy_string(chan->exten, oh->exten, sizeof(chan->exten));
02454          if (oh->priority) 
02455             chan->priority = oh->priority;
02456       }
02457       if (chan->_state == AST_STATE_UP) 
02458          state = AST_CONTROL_ANSWER;
02459    }
02460    if (outstate)
02461       *outstate = state;
02462    if (chan && res <= 0) {
02463       if (!chan->cdr) {
02464          chan->cdr = ast_cdr_alloc();
02465          if (chan->cdr)
02466             ast_cdr_init(chan->cdr, chan);
02467       }
02468       if (chan->cdr) {
02469          char tmp[256];
02470          snprintf(tmp, 256, "%s/%s", type, (char *)data);
02471          ast_cdr_setapp(chan->cdr,"Dial",tmp);
02472          ast_cdr_update(chan);
02473          ast_cdr_start(chan->cdr);
02474          ast_cdr_end(chan->cdr);
02475          /* If the cause wasn't handled properly */
02476          if (ast_cdr_disposition(chan->cdr,chan->hangupcause))
02477             ast_cdr_failed(chan->cdr);
02478       } else 
02479          ast_log(LOG_WARNING, "Unable to create Call Detail Record\n");
02480       ast_hangup(chan);
02481       chan = NULL;
02482    }
02483    return chan;
02484 }
02485 
02486 struct ast_channel *ast_request_and_dial(const char *type, int format, void *data, int timeout, int *outstate, const char *cidnum, const char *cidname)
02487 {
02488    return __ast_request_and_dial(type, format, data, timeout, outstate, cidnum, cidname, NULL);
02489 }
02490 
02491 struct ast_channel *ast_request(const char *type, int format, void *data, int *cause)
02492 {
02493    struct chanlist *chan;
02494    struct ast_channel *c;
02495    int capabilities;
02496    int fmt;
02497    int res;
02498    int foo;
02499 
02500    if (!cause)
02501       cause = &foo;
02502    *cause = AST_CAUSE_NOTDEFINED;
02503 
02504    if (ast_mutex_lock(&chlock)) {
02505       ast_log(LOG_WARNING, "Unable to lock channel list\n");
02506       return NULL;
02507    }
02508 
02509    for (chan = backends; chan; chan = chan->next) {
02510       if (strcasecmp(type, chan->tech->type))
02511          continue;
02512 
02513       capabilities = chan->tech->capabilities;
02514       fmt = format;
02515       res = ast_translator_best_choice(&fmt, &capabilities);
02516       if (res < 0) {
02517          ast_log(LOG_WARNING, "No translator path exists for channel type %s (native %d) to %d\n", type, chan->tech->capabilities, format);
02518          ast_mutex_unlock(&chlock);
02519          return NULL;
02520       }
02521       ast_mutex_unlock(&chlock);
02522       if (!chan->tech->requester)
02523          return NULL;
02524       
02525       if (!(c = chan->tech->requester(type, capabilities, data, cause)))
02526          return NULL;
02527 
02528       if (c->_state == AST_STATE_DOWN) {
02529          manager_event(EVENT_FLAG_CALL, "Newchannel",
02530                   "Channel: %s\r\n"
02531                   "State: %s\r\n"
02532                   "CallerID: %s\r\n"
02533                   "CallerIDName: %s\r\n"
02534                   "Uniqueid: %s\r\n",
02535                   c->name, ast_state2str(c->_state),
02536                   c->cid.cid_num ? c->cid.cid_num : "<unknown>",
02537                   c->cid.cid_name ? c->cid.cid_name : "<unknown>",
02538                   c->uniqueid);
02539       }
02540       return c;
02541    }
02542 
02543    ast_log(LOG_WARNING, "No channel type registered for '%s'\n", type);
02544    *cause = AST_CAUSE_NOSUCHDRIVER;
02545    ast_mutex_unlock(&chlock);
02546 
02547    return NULL;
02548 }
02549 
02550 int ast_call(struct ast_channel *chan, char *addr, int timeout) 
02551 {
02552    /* Place an outgoing call, but don't wait any longer than timeout ms before returning. 
02553       If the remote end does not answer within the timeout, then do NOT hang up, but 
02554       return anyway.  */
02555    int res = -1;
02556    /* Stop if we're a zombie or need a soft hangup */
02557    ast_mutex_lock(&chan->lock);
02558    if (!ast_test_flag(chan, AST_FLAG_ZOMBIE) && !ast_check_hangup(chan)) 
02559       if (chan->tech->call)
02560          res = chan->tech->call(chan, addr, timeout);
02561    ast_mutex_unlock(&chan->lock);
02562    return res;
02563 }
02564 
02565 /*--- ast_transfer: Transfer a call to dest, if the channel supports transfer */
02566 /* called by app_transfer or the manager interface */
02567 int ast_transfer(struct ast_channel *chan, char *dest) 
02568 {
02569    int res = -1;
02570 
02571    /* Stop if we're a zombie or need a soft hangup */
02572    ast_mutex_lock(&chan->lock);
02573    if (!ast_test_flag(chan, AST_FLAG_ZOMBIE) && !ast_check_hangup(chan)) {
02574       if (chan->tech->transfer) {
02575          res = chan->tech->transfer(chan, dest);
02576          if (!res)
02577             res = 1;
02578       } else
02579          res = 0;
02580    }
02581    ast_mutex_unlock(&chan->lock);
02582    return res;
02583 }
02584 
02585 int ast_readstring(struct ast_channel *c, char *s, int len, int timeout, int ftimeout, char *enders)
02586 {
02587    int pos=0;
02588    int to = ftimeout;
02589    int d;
02590 
02591    /* XXX Merge with full version? XXX */
02592    /* Stop if we're a zombie or need a soft hangup */
02593    if (ast_test_flag(c, AST_FLAG_ZOMBIE) || ast_check_hangup(c)) 
02594       return -1;
02595    if (!len)
02596       return -1;
02597    do {
02598       if (c->stream) {
02599          d = ast_waitstream(c, AST_DIGIT_ANY);
02600          ast_stopstream(c);
02601          usleep(1000);
02602          if (!d)
02603             d = ast_waitfordigit(c, to);
02604       } else {
02605          d = ast_waitfordigit(c, to);
02606       }
02607       if (d < 0)
02608          return -1;
02609       if (d == 0) {
02610          s[pos]='\0';
02611          return 1;
02612       }
02613       if (!strchr(enders, d))
02614          s[pos++] = d;
02615       if (strchr(enders, d) || (pos >= len)) {
02616          s[pos]='\0';
02617          return 0;
02618       }
02619       to = timeout;
02620    } while(1);
02621    /* Never reached */
02622    return 0;
02623 }
02624 
02625 int ast_readstring_full(struct ast_channel *c, char *s, int len, int timeout, int ftimeout, char *enders, int audiofd, int ctrlfd)
02626 {
02627    int pos=0;
02628    int to = ftimeout;
02629    int d;
02630 
02631    /* Stop if we're a zombie or need a soft hangup */
02632    if (ast_test_flag(c, AST_FLAG_ZOMBIE) || ast_check_hangup(c)) 
02633       return -1;
02634    if (!len)
02635       return -1;
02636    do {
02637       if (c->stream) {
02638          d = ast_waitstream_full(c, AST_DIGIT_ANY, audiofd, ctrlfd);
02639          ast_stopstream(c);
02640          usleep(1000);
02641          if (!d)
02642             d = ast_waitfordigit_full(c, to, audiofd, ctrlfd);
02643       } else {
02644          d = ast_waitfordigit_full(c, to, audiofd, ctrlfd);
02645       }
02646       if (d < 0)
02647          return -1;
02648       if (d == 0) {
02649          s[pos]='\0';
02650          return 1;
02651       }
02652       if (d == 1) {
02653          s[pos]='\0';
02654          return 2;
02655       }
02656       if (!strchr(enders, d))
02657          s[pos++] = d;
02658       if (strchr(enders, d) || (pos >= len)) {
02659          s[pos]='\0';
02660          return 0;
02661       }
02662       to = timeout;
02663    } while(1);
02664    /* Never reached */
02665    return 0;
02666 }
02667 
02668 int ast_channel_supports_html(struct ast_channel *chan)
02669 {
02670    if (chan->tech->send_html)
02671       return 1;
02672    return 0;
02673 }
02674 
02675 int ast_channel_sendhtml(struct ast_channel *chan, int subclass, const char *data, int datalen)
02676 {
02677    if (chan->tech->send_html)
02678       return chan->tech->send_html(chan, subclass, data, datalen);
02679    return -1;
02680 }
02681 
02682 int ast_channel_sendurl(struct ast_channel *chan, const char *url)
02683 {
02684    if (chan->tech->send_html)
02685       return chan->tech->send_html(chan, AST_HTML_URL, url, strlen(url) + 1);
02686    return -1;
02687 }
02688 
02689 int ast_channel_make_compatible(struct ast_channel *chan, struct ast_channel *peer)
02690 {
02691    int src;
02692    int dst;
02693 
02694    /* Set up translation from the chan to the peer */
02695    src = chan->nativeformats;
02696    dst = peer->nativeformats;
02697    if (ast_translator_best_choice(&dst, &src) < 0) {
02698       ast_log(LOG_WARNING, "No path to translate from %s(%d) to %s(%d)\n", chan->name, src, peer->name, dst);
02699       return -1;
02700    }
02701 
02702    /* if the best path is not 'pass through', then
02703       transcoding is needed; if desired, force transcode path
02704       to use SLINEAR between channels */
02705    if ((src != dst) && option_transcode_slin)
02706       dst = AST_FORMAT_SLINEAR;
02707    if (ast_set_read_format(chan, dst) < 0) {
02708       ast_log(LOG_WARNING, "Unable to set read format on channel %s to %d\n", chan->name, dst);
02709       return -1;
02710    }
02711    if (ast_set_write_format(peer, dst) < 0) {
02712       ast_log(LOG_WARNING, "Unable to set write format on channel %s to %d\n", peer->name, dst);
02713       return -1;
02714    }
02715 
02716    /* Set up translation from the peer to the chan */
02717    src = peer->nativeformats;
02718    dst = chan->nativeformats;
02719    if (ast_translator_best_choice(&dst, &src) < 0) {
02720       ast_log(LOG_WARNING, "No path to translate from %s(%d) to %s(%d)\n", peer->name, src, chan->name, dst);
02721       return -1;
02722    }
02723    /* if the best path is not 'pass through', then
02724       transcoding is needed; if desired, force transcode path
02725       to use SLINEAR between channels */
02726    if ((src != dst) && option_transcode_slin)
02727       dst = AST_FORMAT_SLINEAR;
02728    if (ast_set_read_format(peer, dst) < 0) {
02729       ast_log(LOG_WARNING, "Unable to set read format on channel %s to %d\n", peer->name, dst);
02730       return -1;
02731    }
02732    if (ast_set_write_format(chan, dst) < 0) {
02733       ast_log(LOG_WARNING, "Unable to set write format on channel %s to %d\n", chan->name, dst);
02734       return -1;
02735    }
02736    return 0;
02737 }
02738 
02739 int ast_channel_masquerade(struct ast_channel *original, struct ast_channel *clone)
02740 {
02741    struct ast_frame null = { AST_FRAME_NULL, };
02742    int res = -1;
02743 
02744    if (original == clone) {
02745       ast_log(LOG_WARNING, "Can't masquerade channel '%s' into itself!\n", original->name);
02746       return -1;
02747    }
02748    ast_mutex_lock(&original->lock);
02749    while(ast_mutex_trylock(&clone->lock)) {
02750       ast_mutex_unlock(&original->lock);
02751       usleep(1);
02752       ast_mutex_lock(&original->lock);
02753    }
02754    ast_log(LOG_DEBUG, "Planning to masquerade channel %s into the structure of %s\n",
02755       clone->name, original->name);
02756    if (original->masq) {
02757       ast_log(LOG_WARNING, "%s is already going to masquerade as %s\n", 
02758          original->masq->name, original->name);
02759    } else if (clone->masqr) {
02760       ast_log(LOG_WARNING, "%s is already going to masquerade as %s\n", 
02761          clone->name, clone->masqr->name);
02762    } else {
02763       original->masq = clone;
02764       clone->masqr = original;
02765       ast_queue_frame(original, &null);
02766       ast_queue_frame(clone, &null);
02767       ast_log(LOG_DEBUG, "Done planning to masquerade channel %s into the structure of %s\n", clone->name, original->name);
02768       res = 0;
02769    }
02770    ast_mutex_unlock(&clone->lock);
02771    ast_mutex_unlock(&original->lock);
02772    return res;
02773 }
02774 
02775 void ast_change_name(struct ast_channel *chan, char *newname)
02776 {
02777    char tmp[256];
02778    ast_copy_string(tmp, chan->name, sizeof(tmp));
02779    ast_copy_string(chan->name, newname, sizeof(chan->name));
02780    manager_event(EVENT_FLAG_CALL, "Rename", "Oldname: %s\r\nNewname: %s\r\nUniqueid: %s\r\n", tmp, chan->name, chan->uniqueid);
02781 }
02782 
02783 void ast_channel_inherit_variables(const struct ast_channel *parent, struct ast_channel *child)
02784 {
02785    struct ast_var_t *current, *newvar;
02786    char *varname;
02787 
02788    AST_LIST_TRAVERSE(&parent->varshead, current, entries) {
02789       int vartype = 0;
02790 
02791       varname = ast_var_full_name(current);
02792       if (!varname)
02793          continue;
02794 
02795       if (varname[0] == '_') {
02796          vartype = 1;
02797          if (varname[1] == '_')
02798             vartype = 2;
02799       }
02800 
02801       switch (vartype) {
02802       case 1:
02803          newvar = ast_var_assign(&varname[1], ast_var_value(current));
02804          if (newvar) {
02805             AST_LIST_INSERT_TAIL(&child->varshead, newvar, entries);
02806             if (option_debug)
02807                ast_log(LOG_DEBUG, "Copying soft-transferable variable %s.\n", ast_var_name(newvar));
02808          }
02809          break;
02810       case 2:
02811          newvar = ast_var_assign(ast_var_full_name(current), ast_var_value(current));
02812          if (newvar) {
02813             AST_LIST_INSERT_TAIL(&child->varshead, newvar, entries);
02814             if (option_debug)
02815                ast_log(LOG_DEBUG, "Copying hard-transferable variable %s.\n", ast_var_name(newvar));
02816          }
02817          break;
02818       default:
02819          if (option_debug)
02820             ast_log(LOG_DEBUG, "Not copying variable %s.\n", ast_var_name(current));
02821          break;
02822       }
02823    }
02824 }
02825 
02826 /* Clone channel variables from 'clone' channel into 'original' channel
02827    All variables except those related to app_groupcount are cloned
02828    Variables are actually _removed_ from 'clone' channel, presumably
02829    because it will subsequently be destroyed.
02830    Assumes locks will be in place on both channels when called.
02831 */
02832    
02833 static void clone_variables(struct ast_channel *original, struct ast_channel *clone)
02834 {
02835    struct ast_var_t *varptr;
02836 
02837    /* we need to remove all app_groupcount related variables from the original
02838       channel before merging in the clone's variables; any groups assigned to the
02839       original channel should be released, only those assigned to the clone
02840       should remain
02841    */
02842 
02843    AST_LIST_TRAVERSE_SAFE_BEGIN(&original->varshead, varptr, entries) {
02844       if (!strncmp(ast_var_name(varptr), GROUP_CATEGORY_PREFIX, strlen(GROUP_CATEGORY_PREFIX))) {
02845          AST_LIST_REMOVE(&original->varshead, varptr, entries);
02846          ast_var_delete(varptr);
02847       }
02848    }
02849    AST_LIST_TRAVERSE_SAFE_END;
02850 
02851    /* Append variables from clone channel into original channel */
02852    /* XXX Is this always correct?  We have to in order to keep MACROS working XXX */
02853    if (AST_LIST_FIRST(&clone->varshead))
02854       AST_LIST_INSERT_TAIL(&original->varshead, AST_LIST_FIRST(&clone->varshead), entries);
02855 }
02856 
02857 /*--- ast_do_masquerade: Masquerade a channel */
02858 /* Assumes channel will be locked when called */
02859 int ast_do_masquerade(struct ast_channel *original)
02860 {
02861    int x,i;
02862    int res=0;
02863    int origstate;
02864    struct ast_frame *cur, *prev;
02865    const struct ast_channel_tech *t;
02866    void *t_pvt;
02867    struct ast_callerid tmpcid;
02868    struct ast_channel *clone = original->masq;
02869    int rformat = original->readformat;
02870    int wformat = original->writeformat;
02871    char newn[100];
02872    char orig[100];
02873    char masqn[100];
02874    char zombn[100];
02875 
02876    if (option_debug > 3)
02877       ast_log(LOG_DEBUG, "Actually Masquerading %s(%d) into the structure of %s(%d)\n",
02878          clone->name, clone->_state, original->name, original->_state);
02879 
02880    /* XXX This is a seriously wacked out operation.  We're essentially putting the guts of
02881       the clone channel into the original channel.  Start by killing off the original
02882       channel's backend.   I'm not sure we're going to keep this function, because 
02883       while the features are nice, the cost is very high in terms of pure nastiness. XXX */
02884 
02885    /* We need the clone's lock, too */
02886    ast_mutex_lock(&clone->lock);
02887 
02888    ast_log(LOG_DEBUG, "Got clone lock for masquerade on '%s' at %p\n", clone->name, &clone->lock);
02889 
02890    /* Having remembered the original read/write formats, we turn off any translation on either
02891       one */
02892    free_translation(clone);
02893    free_translation(original);
02894 
02895 
02896    /* Unlink the masquerade */
02897    original->masq = NULL;
02898    clone->masqr = NULL;
02899    
02900    /* Save the original name */
02901    ast_copy_string(orig, original->name, sizeof(orig));
02902    /* Save the new name */
02903    ast_copy_string(newn, clone->name, sizeof(newn));
02904    /* Create the masq name */
02905    snprintf(masqn, sizeof(masqn), "%s<MASQ>", newn);
02906       
02907    /* Copy the name from the clone channel */
02908    ast_copy_string(original->name, newn, sizeof(original->name));
02909 
02910    /* Mangle the name of the clone channel */
02911    ast_copy_string(clone->name, masqn, sizeof(clone->name));
02912    
02913    /* Notify any managers of the change, first the masq then the other */
02914    manager_event(EVENT_FLAG_CALL, "Rename", "Oldname: %s\r\nNewname: %s\r\nUniqueid: %s\r\n", newn, masqn, clone->uniqueid);
02915    manager_event(EVENT_FLAG_CALL, "Rename", "Oldname: %s\r\nNewname: %s\r\nUniqueid: %s\r\n", orig, newn, original->uniqueid);
02916 
02917    /* Swap the technlogies */ 
02918    t = original->tech;
02919    original->tech = clone->tech;
02920    clone->tech = t;
02921 
02922    t_pvt = original->tech_pvt;
02923    original->tech_pvt = clone->tech_pvt;
02924    clone->tech_pvt = t_pvt;
02925 
02926    /* Swap the readq's */
02927    cur = original->readq;
02928    original->readq = clone->readq;
02929    clone->readq = cur;
02930 
02931    /* Swap the alertpipes */
02932    for (i = 0; i < 2; i++) {
02933       x = original->alertpipe[i];
02934       original->alertpipe[i] = clone->alertpipe[i];
02935       clone->alertpipe[i] = x;
02936    }
02937 
02938    /* Swap the raw formats */
02939    x = original->rawreadformat;
02940    original->rawreadformat = clone->rawreadformat;
02941    clone->rawreadformat = x;
02942    x = original->rawwriteformat;
02943    original->rawwriteformat = clone->rawwriteformat;
02944    clone->rawwriteformat = x;
02945 
02946    /* Save any pending frames on both sides.  Start by counting
02947     * how many we're going to need... */
02948    prev = NULL;
02949    cur = clone->readq;
02950    x = 0;
02951    while(cur) {
02952       x++;
02953       prev = cur;
02954       cur = cur->next;
02955    }
02956    /* If we had any, prepend them to the ones already in the queue, and 
02957     * load up the alertpipe */
02958    if (prev) {
02959       prev->next = original->readq;
02960       original->readq = clone->readq;
02961       clone->readq = NULL;
02962       if (original->alertpipe[1] > -1) {
02963          for (i = 0; i < x; i++)
02964             write(original->alertpipe[1], &x, sizeof(x));
02965       }
02966    }
02967    clone->_softhangup = AST_SOFTHANGUP_DEV;
02968 
02969 
02970    /* And of course, so does our current state.  Note we need not
02971       call ast_setstate since the event manager doesn't really consider
02972       these separate.  We do this early so that the clone has the proper
02973       state of the original channel. */
02974    origstate = original->_state;
02975    original->_state = clone->_state;
02976    clone->_state = origstate;
02977 
02978    if (clone->tech->fixup){
02979       res = clone->tech->fixup(original, clone);
02980       if (res) 
02981          ast_log(LOG_WARNING, "Fixup failed on channel %s, strange things may happen.\n", clone->name);
02982    }
02983 
02984    /* Start by disconnecting the original's physical side */
02985    if (clone->tech->hangup)
02986       res = clone->tech->hangup(clone);
02987    if (res) {
02988       ast_log(LOG_WARNING, "Hangup failed!  Strange things may happen!\n");
02989       ast_mutex_unlock(&clone->lock);
02990       return -1;
02991    }
02992    
02993    snprintf(zombn, sizeof(zombn), "%s<ZOMBIE>", orig);
02994    /* Mangle the name of the clone channel */
02995    ast_copy_string(clone->name, zombn, sizeof(clone->name));
02996    manager_event(EVENT_FLAG_CALL, "Rename", "Oldname: %s\r\nNewname: %s\r\nUniqueid: %s\r\n", masqn, zombn, clone->uniqueid);
02997 
02998    /* Update the type. */
02999    original->type = clone->type;
03000    t_pvt = original->monitor;
03001    original->monitor = clone->monitor;
03002    clone->monitor = t_pvt;
03003    
03004    /* Keep the same language.  */
03005    ast_copy_string(original->language, clone->language, sizeof(original->language));
03006    /* Copy the FD's */
03007    for (x = 0; x < AST_MAX_FDS; x++) {
03008       original->fds[x] = clone->fds[x];
03009    }
03010    clone_variables(original, clone);
03011    AST_LIST_HEAD_INIT_NOLOCK(&clone->varshead);
03012    /* Presense of ADSI capable CPE follows clone */
03013    original->adsicpe = clone->adsicpe;
03014    /* Bridge remains the same */
03015    /* CDR fields remain the same */
03016    /* XXX What about blocking, softhangup, blocker, and lock and blockproc? XXX */
03017    /* Application and data remain the same */
03018    /* Clone exception  becomes real one, as with fdno */
03019    ast_copy_flags(original, clone, AST_FLAG_EXCEPTION);
03020    original->fdno = clone->fdno;
03021    /* Schedule context remains the same */
03022    /* Stream stuff stays the same */
03023    /* Keep the original state.  The fixup code will need to work with it most likely */
03024 
03025    /* Just swap the whole structures, nevermind the allocations, they'll work themselves
03026       out. */
03027    tmpcid = original->cid;
03028    original->cid = clone->cid;
03029    clone->cid = tmpcid;
03030    
03031    /* Restore original timing file descriptor */
03032    original->fds[AST_MAX_FDS - 2] = original->timingfd;
03033    
03034    /* Our native formats are different now */
03035    original->nativeformats = clone->nativeformats;
03036    
03037    /* Context, extension, priority, app data, jump table,  remain the same */
03038    /* pvt switches.  pbx stays the same, as does next */
03039    
03040    /* Set the write format */
03041    ast_set_write_format(original, wformat);
03042 
03043    /* Set the read format */
03044    ast_set_read_format(original, rformat);
03045 
03046    /* Copy the music class */
03047    ast_copy_string(original->musicclass, clone->musicclass, sizeof(original->musicclass));
03048 
03049    ast_log(LOG_DEBUG, "Putting channel %s in %d/%d formats\n", original->name, wformat, rformat);
03050 
03051    /* Okay.  Last thing is to let the channel driver know about all this mess, so he
03052       can fix up everything as best as possible */
03053    if (original->tech->fixup) {
03054       res = original->tech->fixup(clone, original);
03055       if (res) {
03056          ast_log(LOG_WARNING, "Channel for type '%s' could not fixup channel %s\n",
03057             original->type, original->name);
03058          ast_mutex_unlock(&clone->lock);
03059          return -1;
03060       }
03061    } else
03062       ast_log(LOG_WARNING, "Channel type '%s' does not have a fixup routine (for %s)!  Bad things may happen.\n",
03063          original->type, original->name);
03064    
03065    /* Now, at this point, the "clone" channel is totally F'd up.  We mark it as
03066       a zombie so nothing tries to touch it.  If it's already been marked as a
03067       zombie, then free it now (since it already is considered invalid). */
03068    if (ast_test_flag(clone, AST_FLAG_ZOMBIE)) {
03069       ast_log(LOG_DEBUG, "Destroying channel clone '%s'\n", clone->name);
03070       ast_mutex_unlock(&clone->lock);
03071       manager_event(EVENT_FLAG_CALL, "Hangup", 
03072          "Channel: %s\r\n"
03073          "Uniqueid: %s\r\n"
03074          "Cause: %d\r\n"
03075          "Cause-txt: %s\r\n",
03076          clone->name, 
03077          clone->uniqueid, 
03078          clone->hangupcause,
03079          ast_cause2str(clone->hangupcause)
03080          );
03081       ast_channel_free(clone);
03082    } else {
03083       struct ast_frame null_frame = { AST_FRAME_NULL, };
03084       ast_log(LOG_DEBUG, "Released clone lock on '%s'\n", clone->name);
03085       ast_set_flag(clone, AST_FLAG_ZOMBIE);
03086       ast_queue_frame(clone, &null_frame);
03087       ast_mutex_unlock(&clone->lock);
03088    }
03089    
03090    /* Signal any blocker */
03091    if (ast_test_flag(original, AST_FLAG_BLOCKING))
03092       pthread_kill(original->blocker, SIGURG);
03093    ast_log(LOG_DEBUG, "Done Masquerading %s (%d)\n", original->name, original->_state);
03094    return 0;
03095 }
03096 
03097 void ast_set_callerid(struct ast_channel *chan, const char *callerid, const char *calleridname, const char *ani)
03098 {
03099    if (callerid) {
03100       if (chan->cid.cid_num)
03101          free(chan->cid.cid_num);
03102       if (ast_strlen_zero(callerid))
03103          chan->cid.cid_num = NULL;
03104       else
03105          chan->cid.cid_num = strdup(callerid);
03106    }
03107    if (calleridname) {
03108       if (chan->cid.cid_name)
03109          free(chan->cid.cid_name);
03110       if (ast_strlen_zero(calleridname))
03111          chan->cid.cid_name = NULL;
03112       else
03113          chan->cid.cid_name = strdup(calleridname);
03114    }
03115    if (ani) {
03116       if (chan->cid.cid_ani)
03117          free(chan->cid.cid_ani);
03118       if (ast_strlen_zero(ani))
03119          chan->cid.cid_ani = NULL;
03120       else
03121          chan->cid.cid_ani = strdup(ani);
03122    }
03123    if (chan->cdr)
03124       ast_cdr_setcid(chan->cdr, chan);
03125    manager_event(EVENT_FLAG_CALL, "Newcallerid", 
03126             "Channel: %s\r\n"
03127             "CallerID: %s\r\n"
03128             "CallerIDName: %s\r\n"
03129             "Uniqueid: %s\r\n"
03130             "CID-CallingPres: %d (%s)\r\n",
03131             chan->name, chan->cid.cid_num ? 
03132             chan->cid.cid_num : "<Unknown>",
03133             chan->cid.cid_name ? 
03134             chan->cid.cid_name : "<Unknown>",
03135             chan->uniqueid,
03136             chan->cid.cid_pres,
03137             ast_describe_caller_presentation(chan->cid.cid_pres)
03138             );
03139 }
03140 
03141 int ast_setstate(struct ast_channel *chan, int state)
03142 {
03143    int oldstate = chan->_state;
03144 
03145    if (oldstate == state)
03146       return 0;
03147 
03148    chan->_state = state;
03149    ast_device_state_changed_literal(chan->name);
03150    manager_event(EVENT_FLAG_CALL,
03151             (oldstate == AST_STATE_DOWN) ? "Newchannel" : "Newstate",
03152             "Channel: %s\r\n"
03153             "State: %s\r\n"
03154             "CallerID: %s\r\n"
03155             "CallerIDName: %s\r\n"
03156             "Uniqueid: %s\r\n",
03157             chan->name, ast_state2str(chan->_state), 
03158             chan->cid.cid_num ? chan->cid.cid_num : "<unknown>", 
03159             chan->cid.cid_name ? chan->cid.cid_name : "<unknown>", 
03160             chan->uniqueid);
03161 
03162    return 0;
03163 }
03164 
03165 /*--- Find bridged channel */
03166 struct ast_channel *ast_bridged_channel(struct ast_channel *chan)
03167 {
03168    struct ast_channel *bridged;
03169    bridged = chan->_bridge;
03170    if (bridged && bridged->tech->bridged_channel) 
03171       bridged = bridged->tech->bridged_channel(chan, bridged);
03172    return bridged;
03173 }
03174 
03175 static void bridge_playfile(struct ast_channel *chan, struct ast_channel *peer, char *sound, int remain) 
03176 {
03177    int res=0, min=0, sec=0,check=0;
03178 
03179    check = ast_autoservice_start(peer);
03180    if(check) 
03181       return;
03182 
03183    if (remain > 0) {
03184       if (remain / 60 > 1) {
03185          min = remain / 60;
03186          sec = remain % 60;
03187       } else {
03188          sec = remain;
03189       }
03190    }
03191    
03192    if (!strcmp(sound,"timeleft")) { /* Queue support */
03193       res = ast_streamfile(chan, "vm-youhave", chan->language);
03194       res = ast_waitstream(chan, "");
03195       if (min) {
03196          res = ast_say_number(chan, min, AST_DIGIT_ANY, chan->language, (char *) NULL);
03197          res = ast_streamfile(chan, "queue-minutes", chan->language);
03198          res = ast_waitstream(chan, "");
03199       }
03200       if (sec) {
03201          res = ast_say_number(chan, sec, AST_DIGIT_ANY, chan->language, (char *) NULL);
03202          res = ast_streamfile(chan, "queue-seconds", chan->language);
03203          res = ast_waitstream(chan, "");
03204       }
03205    } else {
03206       res = ast_streamfile(chan, sound, chan->language);
03207       res = ast_waitstream(chan, "");
03208    }
03209 
03210    check = ast_autoservice_stop(peer);
03211 }
03212 
03213 static enum ast_bridge_result ast_generic_bridge(struct ast_channel *c0, struct ast_channel *c1,
03214                    struct ast_bridge_config *config, struct ast_frame **fo,
03215                    struct ast_channel **rc, struct timeval bridge_end)
03216 {
03217    /* Copy voice back and forth between the two channels. */
03218    struct ast_channel *cs[3];
03219    struct ast_frame *f;
03220    struct ast_channel *who = NULL;
03221    enum ast_bridge_result res = AST_BRIDGE_COMPLETE;
03222    int o0nativeformats;
03223    int o1nativeformats;
03224    int watch_c0_dtmf;
03225    int watch_c1_dtmf;
03226    void *pvt0, *pvt1;
03227    int to;
03228    
03229    cs[0] = c0;
03230    cs[1] = c1;
03231    pvt0 = c0->tech_pvt;
03232    pvt1 = c1->tech_pvt;
03233    o0nativeformats = c0->nativeformats;
03234    o1nativeformats = c1->nativeformats;
03235    watch_c0_dtmf = config->flags & AST_BRIDGE_DTMF_CHANNEL_0;
03236    watch_c1_dtmf = config->flags & AST_BRIDGE_DTMF_CHANNEL_1;
03237 
03238    for (;;) {
03239       if ((c0->tech_pvt != pvt0) || (c1->tech_pvt != pvt1) ||
03240           (o0nativeformats != c0->nativeformats) ||
03241           (o1nativeformats != c1->nativeformats)) {
03242          /* Check for Masquerade, codec changes, etc */
03243          res = AST_BRIDGE_RETRY;
03244          break;
03245       }
03246       if (bridge_end.tv_sec) {
03247          to = ast_tvdiff_ms(bridge_end, ast_tvnow());
03248          if (to <= 0) {
03249             res = AST_BRIDGE_RETRY;
03250             break;
03251          }
03252       } else
03253          to = -1;
03254       who = ast_waitfor_n(cs, 2, &to);
03255       if (!who) {
03256          ast_log(LOG_DEBUG, "Nobody there, continuing...\n"); 
03257          if (c0->_softhangup == AST_SOFTHANGUP_UNBRIDGE || c1->_softhangup == AST_SOFTHANGUP_UNBRIDGE) {
03258             if (c0->_softhangup == AST_SOFTHANGUP_UNBRIDGE)
03259                c0->_softhangup = 0;
03260             if (c1->_softhangup == AST_SOFTHANGUP_UNBRIDGE)
03261                c1->_softhangup = 0;
03262             c0->_bridge = c1;
03263             c1->_bridge = c0;
03264          }
03265          continue;
03266       }
03267       f = ast_read(who);
03268       if (!f) {
03269          *fo = NULL;
03270          *rc = who;
03271          res = AST_BRIDGE_COMPLETE;
03272          ast_log(LOG_DEBUG, "Didn't get a frame from channel: %s\n",who->name);
03273          break;
03274       }
03275 
03276       if ((f->frametype == AST_FRAME_CONTROL) && !(config->flags & AST_BRIDGE_IGNORE_SIGS)) {
03277          if ((f->subclass == AST_CONTROL_HOLD) || (f->subclass == AST_CONTROL_UNHOLD) ||
03278              (f->subclass == AST_CONTROL_VIDUPDATE)) {
03279             ast_indicate(who == c0 ? c1 : c0, f->subclass);
03280          } else {
03281             *fo = f;
03282             *rc = who;
03283             res =  AST_BRIDGE_COMPLETE;
03284             ast_log(LOG_DEBUG, "Got a FRAME_CONTROL (%d) frame on channel %s\n", f->subclass, who->name);
03285             break;
03286          }
03287       }
03288       if ((f->frametype == AST_FRAME_VOICE) ||
03289           (f->frametype == AST_FRAME_DTMF) ||
03290           (f->frametype == AST_FRAME_VIDEO) || 
03291           (f->frametype == AST_FRAME_IMAGE) ||
03292           (f->frametype == AST_FRAME_HTML) ||
03293           (f->frametype == AST_FRAME_TEXT)) {
03294          if (f->frametype == AST_FRAME_DTMF) {
03295             if (((who == c0) && watch_c0_dtmf) ||
03296                 ((who == c1) && watch_c1_dtmf)) {
03297                *rc = who;
03298                *fo = f;
03299                res = AST_BRIDGE_COMPLETE;
03300                ast_log(LOG_DEBUG, "Got DTMF on channel (%s)\n", who->name);
03301                break;
03302             } else {
03303                goto tackygoto;
03304             }
03305          } else {
03306 #if 0
03307             ast_log(LOG_DEBUG, "Read from %s\n", who->name);
03308             if (who == last) 
03309                ast_log(LOG_DEBUG, "Servicing channel %s twice in a row?\n", last->name);
03310             last = who;
03311 #endif
03312 tackygoto:
03313             ast_write((who == c0) ? c1 : c0, f);
03314          }
03315       }
03316       ast_frfree(f);
03317 
03318       /* Swap who gets priority */
03319       cs[2] = cs[0];
03320       cs[0] = cs[1];
03321       cs[1] = cs[2];
03322    }
03323    return res;
03324 }
03325 
03326 /*--- ast_channel_bridge: Bridge two channels together */
03327 enum ast_bridge_result ast_channel_bridge(struct ast_channel *c0, struct ast_channel *c1,
03328                  struct ast_bridge_config *config, struct ast_frame **fo, struct ast_channel **rc) 
03329 {
03330    struct ast_channel *who = NULL;
03331    enum ast_bridge_result res = AST_BRIDGE_COMPLETE;
03332    int nativefailed=0;
03333    int firstpass;
03334    int o0nativeformats;
03335    int o1nativeformats;
03336    long time_left_ms=0;
03337    struct timeval nexteventts = { 0, };
03338    char caller_warning = 0;
03339    char callee_warning = 0;
03340    int to;
03341 
03342    if (c0->_bridge) {
03343       ast_log(LOG_WARNING, "%s is already in a bridge with %s\n", 
03344          c0->name, c0->_bridge->name);
03345       return -1;
03346    }
03347    if (c1->_bridge) {
03348       ast_log(LOG_WARNING, "%s is already in a bridge with %s\n", 
03349          c1->name, c1->_bridge->name);
03350       return -1;
03351    }
03352    
03353    /* Stop if we're a zombie or need a soft hangup */
03354    if (ast_test_flag(c0, AST_FLAG_ZOMBIE) || ast_check_hangup_locked(c0) ||
03355        ast_test_flag(c1, AST_FLAG_ZOMBIE) || ast_check_hangup_locked(c1)) 
03356       return -1;
03357 
03358    *fo = NULL;
03359    firstpass = config->firstpass;
03360    config->firstpass = 0;
03361 
03362    if (ast_tvzero(config->start_time))
03363       config->start_time = ast_tvnow();
03364    time_left_ms = config->timelimit;
03365 
03366    caller_warning = ast_test_flag(&config->features_caller, AST_FEATURE_PLAY_WARNING);
03367    callee_warning = ast_test_flag(&config->features_callee, AST_FEATURE_PLAY_WARNING);
03368 
03369    if (config->start_sound && firstpass) {
03370       if (caller_warning)
03371          bridge_playfile(c0, c1, config->start_sound, time_left_ms / 1000);
03372       if (callee_warning)
03373          bridge_playfile(c1, c0, config->start_sound, time_left_ms / 1000);
03374    }
03375 
03376    /* Keep track of bridge */
03377    c0->_bridge = c1;
03378    c1->_bridge = c0;
03379    
03380    manager_event(EVENT_FLAG_CALL, "Link", 
03381             "Channel1: %s\r\n"
03382             "Channel2: %s\r\n"
03383             "Uniqueid1: %s\r\n"
03384             "Uniqueid2: %s\r\n"
03385             "CallerID1: %s\r\n"
03386             "CallerID2: %s\r\n",
03387             c0->name, c1->name, c0->uniqueid, c1->uniqueid, c0->cid.cid_num, c1->cid.cid_num);
03388                                                                         
03389    o0nativeformats = c0->nativeformats;
03390    o1nativeformats = c1->nativeformats;
03391 
03392    if (config->timelimit) {
03393       nexteventts = ast_tvadd(config->start_time, ast_samp2tv(config->timelimit, 1000));
03394       if (caller_warning || callee_warning)
03395          nexteventts = ast_tvsub(nexteventts, ast_samp2tv(config->play_warning, 1000));
03396    }
03397 
03398    for (/* ever */;;) {
03399       to = -1;
03400       if (config->timelimit) {
03401          struct timeval now;
03402          now = ast_tvnow();
03403          to = ast_tvdiff_ms(nexteventts, now);
03404          if (to < 0)
03405             to = 0;
03406          time_left_ms = config->timelimit - ast_tvdiff_ms(now, config->start_time);
03407          if (time_left_ms < to)
03408             to = time_left_ms;
03409 
03410          if (time_left_ms <= 0) {
03411             if (caller_warning && config->end_sound)
03412                bridge_playfile(c0, c1, config->end_sound, 0);
03413             if (callee_warning && config->end_sound)
03414                bridge_playfile(c1, c0, config->end_sound, 0);
03415             *fo = NULL;
03416             if (who) 
03417                *rc = who;
03418             res = 0;
03419             break;
03420          }
03421          
03422          if (!to) {
03423             if (time_left_ms >= 5000) {
03424                /* force the time left to round up if appropriate */
03425                if (caller_warning && config->warning_sound && config->play_warning)
03426                   bridge_playfile(c0, c1, config->warning_sound,
03427                         (time_left_ms + 500) / 1000);
03428                if (callee_warning && config->warning_sound && config->play_warning)
03429                   bridge_playfile(c1, c0, config->warning_sound,
03430                         (time_left_ms + 500) / 1000);
03431             }
03432             if (config->warning_freq) {
03433                nexteventts = ast_tvadd(nexteventts, ast_samp2tv(config->warning_freq, 1000));
03434             } else
03435                nexteventts = ast_tvadd(config->start_time, ast_samp2tv(config->timelimit, 1000));
03436          }
03437       }
03438 
03439       if (c0->_softhangup == AST_SOFTHANGUP_UNBRIDGE || c1->_softhangup == AST_SOFTHANGUP_UNBRIDGE) {
03440          if (c0->_softhangup == AST_SOFTHANGUP_UNBRIDGE)
03441             c0->_softhangup = 0;
03442          if (c1->_softhangup == AST_SOFTHANGUP_UNBRIDGE)
03443             c1->_softhangup = 0;
03444          c0->_bridge = c1;
03445          c1->_bridge = c0;
03446          ast_log(LOG_DEBUG, "Unbridge signal received. Ending native bridge.\n");
03447          continue;
03448       }
03449       
03450       /* Stop if we're a zombie or need a soft hangup */
03451       if (ast_test_flag(c0, AST_FLAG_ZOMBIE) || ast_check_hangup_locked(c0) ||
03452           ast_test_flag(c1, AST_FLAG_ZOMBIE) || ast_check_hangup_locked(c1)) {
03453          *fo = NULL;
03454          if (who)
03455             *rc = who;
03456          res = 0;
03457          ast_log(LOG_DEBUG, "Bridge stops because we're zombie or need a soft hangup: c0=%s, c1=%s, flags: %s,%s,%s,%s\n",
03458             c0->name, c1->name,
03459             ast_test_flag(c0, AST_FLAG_ZOMBIE) ? "Yes" : "No",
03460             ast_check_hangup(c0) ? "Yes" : "No",
03461             ast_test_flag(c1, AST_FLAG_ZOMBIE) ? "Yes" : "No",
03462             ast_check_hangup(c1) ? "Yes" : "No");
03463          break;
03464       }
03465 
03466       if (c0->tech->bridge &&
03467           (config->timelimit == 0) &&
03468           (c0->tech->bridge == c1->tech->bridge) &&
03469           !nativefailed && !c0->monitor && !c1->monitor &&
03470           !c0->spies && !c1->spies) {
03471          /* Looks like they share a bridge method and nothing else is in the way */
03472          if (option_verbose > 2) 
03473             ast_verbose(VERBOSE_PREFIX_3 "Attempting native bridge of %s and %s\n", c0->name, c1->name);
03474          ast_set_flag(c0, AST_FLAG_NBRIDGE);
03475          ast_set_flag(c1, AST_FLAG_NBRIDGE);
03476          if ((res = c0->tech->bridge(c0, c1, config->flags, fo, rc, to)) == AST_BRIDGE_COMPLETE) {
03477             manager_event(EVENT_FLAG_CALL, "Unlink", 
03478                      "Channel1: %s\r\n"
03479                      "Channel2: %s\r\n"
03480                      "Uniqueid1: %s\r\n"
03481                      "Uniqueid2: %s\r\n"
03482                      "CallerID1: %s\r\n"
03483                      "CallerID2: %s\r\n",
03484                      c0->name, c1->name, c0->uniqueid, c1->uniqueid, c0->cid.cid_num, c1->cid.cid_num);
03485             ast_log(LOG_DEBUG, "Returning from native bridge, channels: %s, %s\n", c0->name, c1->name);
03486 
03487             ast_clear_flag(c0, AST_FLAG_NBRIDGE);
03488             ast_clear_flag(c1, AST_FLAG_NBRIDGE);
03489 
03490             if (c0->_softhangup == AST_SOFTHANGUP_UNBRIDGE || c1->_softhangup == AST_SOFTHANGUP_UNBRIDGE)
03491                continue;
03492 
03493             c0->_bridge = NULL;
03494             c1->_bridge = NULL;
03495 
03496             return res;
03497          } else {
03498             ast_clear_flag(c0, AST_FLAG_NBRIDGE);
03499             ast_clear_flag(c1, AST_FLAG_NBRIDGE);
03500          }
03501          switch (res) {
03502          case AST_BRIDGE_RETRY:
03503             continue;
03504          default:
03505             ast_log(LOG_WARNING, "Private bridge between %s and %s failed\n", c0->name, c1->name);
03506             /* fallthrough */
03507          case AST_BRIDGE_FAILED_NOWARN:
03508             nativefailed++;
03509             break;
03510          }
03511       }
03512    
03513       if (((c0->writeformat != c1->readformat) || (c0->readformat != c1->writeformat) ||
03514           (c0->nativeformats != o0nativeformats) || (c1->nativeformats != o1nativeformats)) &&
03515           !(c0->generator || c1->generator)) {
03516          if (ast_channel_make_compatible(c0, c1)) {
03517             ast_log(LOG_WARNING, "Can't make %s and %s compatible\n", c0->name, c1->name);
03518                                 manager_event(EVENT_FLAG_CALL, "Unlink",
03519                      "Channel1: %s\r\n"
03520                      "Channel2: %s\r\n"
03521                      "Uniqueid1: %s\r\n"
03522                      "Uniqueid2: %s\r\n"
03523                      "CallerID1: %s\r\n"
03524                      "CallerID2: %s\r\n",
03525                      c0->name, c1->name, c0->uniqueid, c1->uniqueid, c0->cid.cid_num, c1->cid.cid_num);
03526             return AST_BRIDGE_FAILED;
03527          }
03528          o0nativeformats = c0->nativeformats;
03529          o1nativeformats = c1->nativeformats;
03530       }
03531       res = ast_generic_bridge(c0, c1, config, fo, rc, nexteventts);
03532       if (res != AST_BRIDGE_RETRY)
03533          break;
03534    }
03535 
03536    c0->_bridge = NULL;
03537    c1->_bridge = NULL;
03538 
03539    manager_event(EVENT_FLAG_CALL, "Unlink",
03540             "Channel1: %s\r\n"
03541             "Channel2: %s\r\n"
03542             "Uniqueid1: %s\r\n"
03543             "Uniqueid2: %s\r\n"
03544             "CallerID1: %s\r\n"
03545             "CallerID2: %s\r\n",
03546             c0->name, c1->name, c0->uniqueid, c1->uniqueid, c0->cid.cid_num, c1->cid.cid_num);
03547    ast_log(LOG_DEBUG, "Bridge stops bridging channels %s and %s\n", c0->name, c1->name);
03548 
03549    return res;
03550 }
03551 
03552 /*--- ast_channel_setoption: Sets an option on a channel */
03553 int ast_channel_setoption(struct ast_channel *chan, int option, void *data, int datalen, int block)
03554 {
03555    int res;
03556 
03557    if (chan->tech->setoption) {
03558       res = chan->tech->setoption(chan, option, data, datalen);
03559       if (res < 0)
03560          return res;
03561    } else {
03562       errno = ENOSYS;
03563       return -1;
03564    }
03565    if (block) {
03566       /* XXX Implement blocking -- just wait for our option frame reply, discarding
03567          intermediate packets. XXX */
03568       ast_log(LOG_ERROR, "XXX Blocking not implemented yet XXX\n");
03569       return -1;
03570    }
03571    return 0;
03572 }
03573 
03574 struct tonepair_def {
03575    int freq1;
03576    int freq2;
03577    int duration;
03578    int vol;
03579 };
03580 
03581 struct tonepair_state {
03582    float freq1;
03583    float freq2;
03584    float vol;
03585    int duration;
03586    int pos;
03587    int origwfmt;
03588    struct ast_frame f;
03589    unsigned char offset[AST_FRIENDLY_OFFSET];
03590    short data[4000];
03591 };
03592 
03593 static void tonepair_release(struct ast_channel *chan, void *params)
03594 {
03595    struct tonepair_state *ts = params;
03596 
03597    if (chan) {
03598       ast_set_write_format(chan, ts->origwfmt);
03599    }
03600    free(ts);
03601 }
03602 
03603 static void *tonepair_alloc(struct ast_channel *chan, void *params)
03604 {
03605    struct tonepair_state *ts;
03606    struct tonepair_def *td = params;
03607 
03608    ts = malloc(sizeof(struct tonepair_state));
03609    if (!ts)
03610       return NULL;
03611    memset(ts, 0, sizeof(struct tonepair_state));
03612    ts->origwfmt = chan->writeformat;
03613    if (ast_set_write_format(chan, AST_FORMAT_SLINEAR)) {
03614       ast_log(LOG_WARNING, "Unable to set '%s' to signed linear format (write)\n", chan->name);
03615       tonepair_release(NULL, ts);
03616       ts = NULL;
03617    } else {
03618       ts->freq1 = td->freq1;
03619       ts->freq2 = td->freq2;
03620       ts->duration = td->duration;
03621       ts->vol = td->vol;
03622    }
03623    /* Let interrupts interrupt :) */
03624    ast_set_flag(chan, AST_FLAG_WRITE_INT);
03625    return ts;
03626 }
03627 
03628 static int tonepair_generator(struct ast_channel *chan, void *data, int len, int samples)
03629 {
03630    struct tonepair_state *ts = data;
03631    int x;
03632 
03633    /* we need to prepare a frame with 16 * timelen samples as we're 
03634     * generating SLIN audio
03635     */
03636    len = samples * 2;
03637 
03638    if (len > sizeof(ts->data) / 2 - 1) {
03639       ast_log(LOG_WARNING, "Can't generate that much data!\n");
03640       return -1;
03641    }
03642    memset(&ts->f, 0, sizeof(ts->f));
03643    for (x = 0; x < (len / 2); x++) {
03644       ts->data[x] = ts->vol * (
03645             sin((ts->freq1 * 2.0 * M_PI / 8000.0) * (ts->pos + x)) +
03646             sin((ts->freq2 * 2.0 * M_PI / 8000.0) * (ts->pos + x))
03647          );
03648    }
03649    ts->f.frametype = AST_FRAME_VOICE;
03650    ts->f.subclass = AST_FORMAT_SLINEAR;
03651    ts->f.datalen = len;
03652    ts->f.samples = samples;
03653    ts->f.offset = AST_FRIENDLY_OFFSET;
03654    ts->f.data = ts->data;
03655    ast_write(chan, &ts->f);
03656    ts->pos += x;
03657    if (ts->duration > 0) {
03658       if (ts->pos >= ts->duration * 8)
03659          return -1;
03660    }
03661    return 0;
03662 }
03663 
03664 static struct ast_generator tonepair = {
03665    alloc: tonepair_alloc,
03666    release: tonepair_release,
03667    generate: tonepair_generator,
03668 };
03669 
03670 int ast_tonepair_start(struct ast_channel *chan, int freq1, int freq2, int duration, int vol)
03671 {
03672    struct tonepair_def d = { 0, };
03673 
03674    d.freq1 = freq1;
03675    d.freq2 = freq2;
03676    d.duration = duration;
03677    if (vol < 1)
03678       d.vol = 8192;
03679    else
03680       d.vol = vol;
03681    if (ast_activate_generator(chan, &tonepair, &d))
03682       return -1;
03683    return 0;
03684 }
03685 
03686 void ast_tonepair_stop(struct ast_channel *chan)
03687 {
03688    ast_deactivate_generator(chan);
03689 }
03690 
03691 int ast_tonepair(struct ast_channel *chan, int freq1, int freq2, int duration, int vol)
03692 {
03693    struct ast_frame *f;
03694    int res;
03695 
03696    if ((res = ast_tonepair_start(chan, freq1, freq2, duration, vol)))
03697       return res;
03698 
03699    /* Give us some wiggle room */
03700    while(chan->generatordata && (ast_waitfor(chan, 100) >= 0)) {
03701       f = ast_read(chan);
03702       if (f)
03703          ast_frfree(f);
03704       else
03705          return -1;
03706    }
03707    return 0;
03708 }
03709 
03710 ast_group_t ast_get_group(char *s)
03711 {
03712    char *copy;
03713    char *piece;
03714    char *c=NULL;
03715    int start=0, finish=0, x;
03716    ast_group_t group = 0;
03717 
03718    copy = ast_strdupa(s);
03719    if (!copy) {
03720       ast_log(LOG_ERROR, "Out of memory\n");
03721       return 0;
03722    }
03723    c = copy;
03724    
03725    while((piece = strsep(&c, ","))) {
03726       if (sscanf(piece, "%d-%d", &start, &finish) == 2) {
03727          /* Range */
03728       } else if (sscanf(piece, "%d", &start)) {
03729          /* Just one */
03730          finish = start;
03731       } else {
03732          ast_log(LOG_ERROR, "Syntax error parsing group configuration '%s' at '%s'. Ignoring.\n", s, piece);
03733          continue;
03734       }
03735       for (x = start; x <= finish; x++) {
03736          if ((x > 63) || (x < 0)) {
03737             ast_log(LOG_WARNING, "Ignoring invalid group %d (maximum group is 63)\n", x);
03738          } else
03739             group |= ((ast_group_t) 1 << x);
03740       }
03741    }
03742    return group;
03743 }
03744 
03745 static int (*ast_moh_start_ptr)(struct ast_channel *, char *) = NULL;
03746 static void (*ast_moh_stop_ptr)(struct ast_channel *) = NULL;
03747 static void (*ast_moh_cleanup_ptr)(struct ast_channel *) = NULL;
03748 
03749 
03750 void ast_install_music_functions(int (*start_ptr)(struct ast_channel *, char *),
03751                          void (*stop_ptr)(struct ast_channel *),
03752                          void (*cleanup_ptr)(struct ast_channel *)
03753                          ) 
03754 {
03755    ast_moh_start_ptr = start_ptr;
03756    ast_moh_stop_ptr = stop_ptr;
03757    ast_moh_cleanup_ptr = cleanup_ptr;
03758 }
03759 
03760 void ast_uninstall_music_functions(void) 
03761 {
03762    ast_moh_start_ptr = NULL;
03763    ast_moh_stop_ptr = NULL;
03764    ast_moh_cleanup_ptr = NULL;
03765 }
03766 
03767 /*! Turn on music on hold on a given channel */
03768 int ast_moh_start(struct ast_channel *chan, char *mclass) 
03769 {
03770    if (ast_moh_start_ptr)
03771       return ast_moh_start_ptr(chan, mclass);
03772 
03773    if (option_verbose > 2)
03774       ast_verbose(VERBOSE_PREFIX_3 "Music class %s requested but no musiconhold loaded.\n", mclass ? mclass : "default");
03775    
03776    return 0;
03777 }
03778 
03779 /*! Turn off music on hold on a given channel */
03780 void ast_moh_stop(struct ast_channel *chan) 
03781 {
03782    if(ast_moh_stop_ptr)
03783       ast_moh_stop_ptr(chan);
03784 }
03785 
03786 void ast_moh_cleanup(struct ast_channel *chan) 
03787 {
03788    if(ast_moh_cleanup_ptr)
03789         ast_moh_cleanup_ptr(chan);
03790 }
03791 
03792 void ast_channels_init(void)
03793 {
03794    ast_cli_register(&cli_show_channeltypes);
03795 }
03796 
03797 /*--- ast_print_group: Print call group and pickup group ---*/
03798 char *ast_print_group(char *buf, int buflen, ast_group_t group) 
03799 {
03800    unsigned int i;
03801    int first=1;
03802    char num[3];
03803 
03804    buf[0] = '\0';
03805    
03806    if (!group) /* Return empty string if no group */
03807       return(buf);
03808 
03809    for (i=0; i<=63; i++) { /* Max group is 63 */
03810       if (group & ((ast_group_t) 1 << i)) {
03811             if (!first) {
03812             strncat(buf, ", ", buflen);
03813          } else {
03814             first=0;
03815          }
03816          snprintf(num, sizeof(num), "%u", i);
03817          strncat(buf, num, buflen);
03818       }
03819    }
03820    return(buf);
03821 }
03822 
03823 void ast_set_variables(struct ast_channel *chan, struct ast_variable *vars)
03824 {
03825    struct ast_variable *cur;
03826 
03827    for (cur = vars; cur; cur = cur->next)
03828       pbx_builtin_setvar_helper(chan, cur->name, cur->value);  
03829 }
03830 
03831 static void copy_data_from_queue(struct ast_channel_spy_queue *queue, short *buf, unsigned int samples)
03832 {
03833    struct ast_frame *f;
03834    int tocopy;
03835    int bytestocopy;
03836 
03837    while (samples) {
03838       f = queue->head;
03839 
03840       if (!f) {
03841          ast_log(LOG_ERROR, "Ran out of frames before buffer filled!\n");
03842          break;
03843       }
03844 
03845       tocopy = (f->samples > samples) ? samples : f->samples;
03846       bytestocopy = ast_codec_get_len(queue->format, tocopy);
03847       memcpy(buf, f->data, bytestocopy);
03848       samples -= tocopy;
03849       buf += tocopy;
03850       f->samples -= tocopy;
03851       f->data += bytestocopy;
03852       f->datalen -= bytestocopy;
03853       f->offset += bytestocopy;
03854       queue->samples -= tocopy;
03855       if (!f->samples) {
03856          queue->head = f->next;
03857          ast_frfree(f);
03858       }
03859    }
03860 }
03861 
03862 struct ast_frame *ast_channel_spy_read_frame(struct ast_channel_spy *spy, unsigned int samples)
03863 {
03864    struct ast_frame *result;
03865    /* buffers are allocated to hold SLINEAR, which is the largest format */
03866         short read_buf[samples];
03867         short write_buf[samples];
03868    struct ast_frame *read_frame;
03869    struct ast_frame *write_frame;
03870    int need_dup;
03871    struct ast_frame stack_read_frame = { .frametype = AST_FRAME_VOICE,
03872                      .subclass = spy->read_queue.format,
03873                      .data = read_buf,
03874                      .samples = samples,
03875                      .datalen = ast_codec_get_len(spy->read_queue.format, samples),
03876    };
03877    struct ast_frame stack_write_frame = { .frametype = AST_FRAME_VOICE,
03878                       .subclass = spy->write_queue.format,
03879                       .data = write_buf,
03880                       .samples = samples,
03881                       .datalen = ast_codec_get_len(spy->write_queue.format, samples),
03882    };
03883 
03884    /* if a flush has been requested, dump everything in whichever queue is larger */
03885    if (ast_test_flag(spy, CHANSPY_TRIGGER_FLUSH)) {
03886       if (spy->read_queue.samples > spy->write_queue.samples) {
03887          if (ast_test_flag(spy, CHANSPY_READ_VOLADJUST)) {
03888             for (result = spy->read_queue.head; result; result = result->next)
03889                ast_frame_adjust_volume(result, spy->read_vol_adjustment);
03890          }
03891          result = spy->read_queue.head;
03892          spy->read_queue.head = NULL;
03893          spy->read_queue.samples = 0;
03894          ast_clear_flag(spy, CHANSPY_TRIGGER_FLUSH);
03895          return result;
03896       } else {
03897          if (ast_test_flag(spy, CHANSPY_WRITE_VOLADJUST)) {
03898             for (result = spy->write_queue.head; result; result = result->next)
03899                ast_frame_adjust_volume(result, spy->write_vol_adjustment);
03900          }
03901          result = spy->write_queue.head;
03902          spy->write_queue.head = NULL;
03903          spy->write_queue.samples = 0;
03904          ast_clear_flag(spy, CHANSPY_TRIGGER_FLUSH);
03905          return result;
03906       }
03907    }
03908 
03909    if ((spy->read_queue.samples < samples) || (spy->write_queue.samples < samples))
03910       return NULL;
03911 
03912    /* short-circuit if both head frames have exactly what we want */
03913    if ((spy->read_queue.head->samples == samples) &&
03914        (spy->write_queue.head->samples == samples)) {
03915       read_frame = spy->read_queue.head;
03916       spy->read_queue.head = read_frame->next;
03917       read_frame->next = NULL;
03918 
03919       write_frame = spy->write_queue.head;
03920       spy->write_queue.head = write_frame->next;
03921       write_frame->next = NULL;
03922 
03923       spy->read_queue.samples -= samples;
03924       spy->write_queue.samples -= samples;
03925 
03926       need_dup = 0;
03927    } else {
03928       copy_data_from_queue(&spy->read_queue, read_buf, samples);
03929       copy_data_from_queue(&spy->write_queue, write_buf, samples);
03930 
03931       read_frame = &stack_read_frame;
03932       write_frame = &stack_write_frame;
03933       need_dup = 1;
03934    }
03935    
03936    if (ast_test_flag(spy, CHANSPY_READ_VOLADJUST))
03937       ast_frame_adjust_volume(read_frame, spy->read_vol_adjustment);
03938 
03939    if (ast_test_flag(spy, CHANSPY_WRITE_VOLADJUST))
03940       ast_frame_adjust_volume(write_frame, spy->write_vol_adjustment);
03941 
03942    if (ast_test_flag(spy, CHANSPY_MIXAUDIO)) {
03943       ast_frame_slinear_sum(read_frame, write_frame);
03944 
03945       if (need_dup)
03946          result = ast_frdup(read_frame);
03947       else {
03948          result = read_frame;
03949          ast_frfree(write_frame);
03950       }
03951    } else {
03952       if (need_dup) {
03953          result = ast_frdup(read_frame);
03954          result->next = ast_frdup(write_frame);
03955       } else {
03956          result = read_frame;
03957          result->next = write_frame;
03958       }
03959    }
03960 
03961    return result;
03962 }
03963 
03964 static void *silence_generator_alloc(struct ast_channel *chan, void *data)
03965 {
03966    /* just store the data pointer in the channel structure */
03967    return data;
03968 }
03969 
03970 static void silence_generator_release(struct ast_channel *chan, void *data)
03971 {
03972    /* nothing to do */
03973 }
03974 
03975 static int silence_generator_generate(struct ast_channel *chan, void *data, int len, int samples) 
03976 {
03977    if (samples == 160) {
03978       short buf[160] = { 0, };
03979       struct ast_frame frame = {
03980          .frametype = AST_FRAME_VOICE,
03981          .subclass = AST_FORMAT_SLINEAR,
03982          .data = buf,
03983          .samples = 160,
03984          .datalen = sizeof(buf),
03985       };
03986 
03987       if (ast_write(chan, &frame))
03988          return -1;
03989    } else {
03990       short buf[samples];
03991       int x;
03992       struct ast_frame frame = {
03993          .frametype = AST_FRAME_VOICE,
03994          .subclass = AST_FORMAT_SLINEAR,
03995          .data = buf,
03996          .samples = samples,
03997          .datalen = sizeof(buf),
03998       };
03999 
04000       for (x = 0; x < samples; x++)
04001          buf[x] = 0;
04002 
04003       if (ast_write(chan, &frame))
04004          return -1;
04005    }
04006 
04007    return 0;
04008 }
04009 
04010 static struct ast_generator silence_generator = {
04011    .alloc = silence_generator_alloc,
04012    .release = silence_generator_release,
04013    .generate = silence_generator_generate, 
04014 };
04015 
04016 struct ast_silence_generator {
04017    int old_write_format;
04018 };
04019 
04020 struct ast_silence_generator *ast_channel_start_silence_generator(struct ast_channel *chan)
04021 {
04022    struct ast_silence_generator *state;
04023 
04024    if (!(state = calloc(1, sizeof(*state)))) {
04025       ast_log(LOG_WARNING, "Could not allocate state structure\n");
04026       return NULL;
04027    }
04028 
04029    state->old_write_format = chan->writeformat;
04030 
04031    if (ast_set_write_format(chan, AST_FORMAT_SLINEAR) < 0) {
04032       ast_log(LOG_ERROR, "Could not set write format to SLINEAR\n");
04033       free(state);
04034       return NULL;
04035    }
04036 
04037    ast_activate_generator(chan, &silence_generator, state);
04038 
04039    if (option_debug)
04040       ast_log(LOG_DEBUG, "Started silence generator on '%s'\n", chan->name);
04041 
04042    return state;
04043 }
04044 
04045 void ast_channel_stop_silence_generator(struct ast_channel *chan, struct ast_silence_generator *state)
04046 {
04047    if (!state)
04048       return;
04049 
04050    ast_deactivate_generator(chan);
04051 
04052    if (option_debug)
04053       ast_log(LOG_DEBUG, "Stopped silence generator on '%s'\n", chan->name);
04054 
04055    if (ast_set_write_format(chan, state->old_write_format) < 0)
04056       ast_log(LOG_ERROR, "Could not return write format to its original state\n");
04057 
04058    free(state);
04059 }

Generated on Mon Mar 20 08:20:11 2006 for Asterisk - the Open Source PBX by  doxygen 1.3.9.1