98adfddee4d4ab6567a101872c60866c5719bb69
[asterisk/asterisk.git] / channels / chan_alsa.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2005, Digium, Inc.
5  *
6  * By Matthew Fredrickson <creslin@digium.com>
7  *
8  * See http://www.asterisk.org for more information about
9  * the Asterisk project. Please do not directly contact
10  * any of the maintainers of this project for assistance;
11  * the project provides a web site, mailing lists and IRC
12  * channels for your use.
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License Version 2. See the LICENSE file
16  * at the top of the source tree.
17  */
18
19 /*! \file 
20  * \brief ALSA sound card channel driver 
21  *
22  * \author Matthew Fredrickson <creslin@digium.com>
23  *
24  * \ingroup channel_drivers
25  */
26
27 /*! \li \ref chan_alsa.c uses the configuration file \ref alsa.conf
28  * \addtogroup configuration_file
29  */
30
31 /*! \page alsa.conf alsa.conf
32  * \verbinclude alsa.conf.sample
33  */
34
35 /*** MODULEINFO
36         <depend>alsa</depend>
37         <support_level>extended</support_level>
38  ***/
39
40 #include "asterisk.h"
41
42 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
43
44 #include <fcntl.h>
45 #include <sys/ioctl.h>
46 #include <sys/time.h>
47
48 #define ALSA_PCM_NEW_HW_PARAMS_API
49 #define ALSA_PCM_NEW_SW_PARAMS_API
50 #include <alsa/asoundlib.h>
51
52 #include "asterisk/frame.h"
53 #include "asterisk/channel.h"
54 #include "asterisk/module.h"
55 #include "asterisk/pbx.h"
56 #include "asterisk/config.h"
57 #include "asterisk/cli.h"
58 #include "asterisk/utils.h"
59 #include "asterisk/causes.h"
60 #include "asterisk/endian.h"
61 #include "asterisk/stringfields.h"
62 #include "asterisk/abstract_jb.h"
63 #include "asterisk/musiconhold.h"
64 #include "asterisk/poll-compat.h"
65 #include "asterisk/stasis_channels.h"
66
67 /*! Global jitterbuffer configuration - by default, jb is disabled
68  *  \note Values shown here match the defaults shown in alsa.conf.sample */
69 static struct ast_jb_conf default_jbconf = {
70         .flags = 0,
71         .max_size = 200,
72         .resync_threshold = 1000,
73         .impl = "fixed",
74         .target_extra = 40,
75 };
76 static struct ast_jb_conf global_jbconf;
77
78 #define DEBUG 0
79 /* Which device to use */
80 #define ALSA_INDEV "default"
81 #define ALSA_OUTDEV "default"
82 #define DESIRED_RATE 8000
83
84 /* Lets use 160 sample frames, just like GSM.  */
85 #define FRAME_SIZE 160
86 #define PERIOD_FRAMES 80                /* 80 Frames, at 2 bytes each */
87
88 /* When you set the frame size, you have to come up with
89    the right buffer format as well. */
90 /* 5 64-byte frames = one frame */
91 #define BUFFER_FMT ((buffersize * 10) << 16) | (0x0006);
92
93 /* Don't switch between read/write modes faster than every 300 ms */
94 #define MIN_SWITCH_TIME 600
95
96 #if __BYTE_ORDER == __LITTLE_ENDIAN
97 static snd_pcm_format_t format = SND_PCM_FORMAT_S16_LE;
98 #else
99 static snd_pcm_format_t format = SND_PCM_FORMAT_S16_BE;
100 #endif
101
102 static char indevname[50] = ALSA_INDEV;
103 static char outdevname[50] = ALSA_OUTDEV;
104
105 static int silencesuppression = 0;
106 static int silencethreshold = 1000;
107
108 AST_MUTEX_DEFINE_STATIC(alsalock);
109
110 static const char tdesc[] = "ALSA Console Channel Driver";
111 static const char config[] = "alsa.conf";
112
113 static char context[AST_MAX_CONTEXT] = "default";
114 static char language[MAX_LANGUAGE] = "";
115 static char exten[AST_MAX_EXTENSION] = "s";
116 static char mohinterpret[MAX_MUSICCLASS];
117
118 static int hookstate = 0;
119
120 static struct chan_alsa_pvt {
121         /* We only have one ALSA structure -- near sighted perhaps, but it
122            keeps this driver as simple as possible -- as it should be. */
123         struct ast_channel *owner;
124         char exten[AST_MAX_EXTENSION];
125         char context[AST_MAX_CONTEXT];
126         snd_pcm_t *icard, *ocard;
127
128 } alsa;
129
130 /* Number of buffers...  Each is FRAMESIZE/8 ms long.  For example
131    with 160 sample frames, and a buffer size of 3, we have a 60ms buffer, 
132    usually plenty. */
133
134 #define MAX_BUFFER_SIZE 100
135
136 /* File descriptors for sound device */
137 static int readdev = -1;
138 static int writedev = -1;
139
140 static int autoanswer = 1;
141 static int mute = 0;
142 static int noaudiocapture = 0;
143
144 static struct ast_channel *alsa_request(const char *type, struct ast_format_cap *cap, const struct ast_assigned_ids *assignedids, const struct ast_channel *requestor, const char *data, int *cause);
145 static int alsa_digit(struct ast_channel *c, char digit, unsigned int duration);
146 static int alsa_text(struct ast_channel *c, const char *text);
147 static int alsa_hangup(struct ast_channel *c);
148 static int alsa_answer(struct ast_channel *c);
149 static struct ast_frame *alsa_read(struct ast_channel *chan);
150 static int alsa_call(struct ast_channel *c, const char *dest, int timeout);
151 static int alsa_write(struct ast_channel *chan, struct ast_frame *f);
152 static int alsa_indicate(struct ast_channel *chan, int cond, const void *data, size_t datalen);
153 static int alsa_fixup(struct ast_channel *oldchan, struct ast_channel *newchan);
154
155 static struct ast_channel_tech alsa_tech = {
156         .type = "Console",
157         .description = tdesc,
158         .requester = alsa_request,
159         .send_digit_end = alsa_digit,
160         .send_text = alsa_text,
161         .hangup = alsa_hangup,
162         .answer = alsa_answer,
163         .read = alsa_read,
164         .call = alsa_call,
165         .write = alsa_write,
166         .indicate = alsa_indicate,
167         .fixup = alsa_fixup,
168 };
169
170 static snd_pcm_t *alsa_card_init(char *dev, snd_pcm_stream_t stream)
171 {
172         int err;
173         int direction;
174         snd_pcm_t *handle = NULL;
175         snd_pcm_hw_params_t *hwparams = NULL;
176         snd_pcm_sw_params_t *swparams = NULL;
177         struct pollfd pfd;
178         snd_pcm_uframes_t period_size = PERIOD_FRAMES * 4;
179         snd_pcm_uframes_t buffer_size = 0;
180         unsigned int rate = DESIRED_RATE;
181         snd_pcm_uframes_t start_threshold, stop_threshold;
182
183         err = snd_pcm_open(&handle, dev, stream, SND_PCM_NONBLOCK);
184         if (err < 0) {
185                 ast_log(LOG_ERROR, "snd_pcm_open failed: %s\n", snd_strerror(err));
186                 return NULL;
187         } else {
188                 ast_debug(1, "Opening device %s in %s mode\n", dev, (stream == SND_PCM_STREAM_CAPTURE) ? "read" : "write");
189         }
190
191         hwparams = ast_alloca(snd_pcm_hw_params_sizeof());
192         memset(hwparams, 0, snd_pcm_hw_params_sizeof());
193         snd_pcm_hw_params_any(handle, hwparams);
194
195         err = snd_pcm_hw_params_set_access(handle, hwparams, SND_PCM_ACCESS_RW_INTERLEAVED);
196         if (err < 0)
197                 ast_log(LOG_ERROR, "set_access failed: %s\n", snd_strerror(err));
198
199         err = snd_pcm_hw_params_set_format(handle, hwparams, format);
200         if (err < 0)
201                 ast_log(LOG_ERROR, "set_format failed: %s\n", snd_strerror(err));
202
203         err = snd_pcm_hw_params_set_channels(handle, hwparams, 1);
204         if (err < 0)
205                 ast_log(LOG_ERROR, "set_channels failed: %s\n", snd_strerror(err));
206
207         direction = 0;
208         err = snd_pcm_hw_params_set_rate_near(handle, hwparams, &rate, &direction);
209         if (rate != DESIRED_RATE)
210                 ast_log(LOG_WARNING, "Rate not correct, requested %d, got %d\n", DESIRED_RATE, rate);
211
212         direction = 0;
213         err = snd_pcm_hw_params_set_period_size_near(handle, hwparams, &period_size, &direction);
214         if (err < 0)
215                 ast_log(LOG_ERROR, "period_size(%ld frames) is bad: %s\n", period_size, snd_strerror(err));
216         else {
217                 ast_debug(1, "Period size is %d\n", err);
218         }
219
220         buffer_size = 4096 * 2;         /* period_size * 16; */
221         err = snd_pcm_hw_params_set_buffer_size_near(handle, hwparams, &buffer_size);
222         if (err < 0)
223                 ast_log(LOG_WARNING, "Problem setting buffer size of %ld: %s\n", buffer_size, snd_strerror(err));
224         else {
225                 ast_debug(1, "Buffer size is set to %d frames\n", err);
226         }
227
228         err = snd_pcm_hw_params(handle, hwparams);
229         if (err < 0)
230                 ast_log(LOG_ERROR, "Couldn't set the new hw params: %s\n", snd_strerror(err));
231
232         swparams = ast_alloca(snd_pcm_sw_params_sizeof());
233         memset(swparams, 0, snd_pcm_sw_params_sizeof());
234         snd_pcm_sw_params_current(handle, swparams);
235
236         if (stream == SND_PCM_STREAM_PLAYBACK)
237                 start_threshold = period_size;
238         else
239                 start_threshold = 1;
240
241         err = snd_pcm_sw_params_set_start_threshold(handle, swparams, start_threshold);
242         if (err < 0)
243                 ast_log(LOG_ERROR, "start threshold: %s\n", snd_strerror(err));
244
245         if (stream == SND_PCM_STREAM_PLAYBACK)
246                 stop_threshold = buffer_size;
247         else
248                 stop_threshold = buffer_size;
249
250         err = snd_pcm_sw_params_set_stop_threshold(handle, swparams, stop_threshold);
251         if (err < 0)
252                 ast_log(LOG_ERROR, "stop threshold: %s\n", snd_strerror(err));
253
254         err = snd_pcm_sw_params(handle, swparams);
255         if (err < 0)
256                 ast_log(LOG_ERROR, "sw_params: %s\n", snd_strerror(err));
257
258         err = snd_pcm_poll_descriptors_count(handle);
259         if (err <= 0)
260                 ast_log(LOG_ERROR, "Unable to get a poll descriptors count, error is %s\n", snd_strerror(err));
261         if (err != 1) {
262                 ast_debug(1, "Can't handle more than one device\n");
263         }
264
265         snd_pcm_poll_descriptors(handle, &pfd, err);
266         ast_debug(1, "Acquired fd %d from the poll descriptor\n", pfd.fd);
267
268         if (stream == SND_PCM_STREAM_CAPTURE)
269                 readdev = pfd.fd;
270         else
271                 writedev = pfd.fd;
272
273         return handle;
274 }
275
276 static int soundcard_init(void)
277 {
278         if (!noaudiocapture) {
279                 alsa.icard = alsa_card_init(indevname, SND_PCM_STREAM_CAPTURE);
280                 if (!alsa.icard) {
281                         ast_log(LOG_ERROR, "Problem opening alsa capture device\n");
282                         return -1;
283                 }
284         }
285
286         alsa.ocard = alsa_card_init(outdevname, SND_PCM_STREAM_PLAYBACK);
287
288         if (!alsa.ocard) {
289                 ast_log(LOG_ERROR, "Problem opening ALSA playback device\n");
290                 return -1;
291         }
292
293         return writedev;
294 }
295
296 static int alsa_digit(struct ast_channel *c, char digit, unsigned int duration)
297 {
298         ast_mutex_lock(&alsalock);
299         ast_verbose(" << Console Received digit %c of duration %u ms >> \n", 
300                 digit, duration);
301         ast_mutex_unlock(&alsalock);
302
303         return 0;
304 }
305
306 static int alsa_text(struct ast_channel *c, const char *text)
307 {
308         ast_mutex_lock(&alsalock);
309         ast_verbose(" << Console Received text %s >> \n", text);
310         ast_mutex_unlock(&alsalock);
311
312         return 0;
313 }
314
315 static void grab_owner(void)
316 {
317         while (alsa.owner && ast_channel_trylock(alsa.owner)) {
318                 DEADLOCK_AVOIDANCE(&alsalock);
319         }
320 }
321
322 static int alsa_call(struct ast_channel *c, const char *dest, int timeout)
323 {
324         struct ast_frame f = { AST_FRAME_CONTROL };
325
326         ast_mutex_lock(&alsalock);
327         ast_verbose(" << Call placed to '%s' on console >> \n", dest);
328         if (autoanswer) {
329                 ast_verbose(" << Auto-answered >> \n");
330                 if (mute) {
331                         ast_verbose( " << Muted >> \n" );
332                 }
333                 grab_owner();
334                 if (alsa.owner) {
335                         f.subclass.integer = AST_CONTROL_ANSWER;
336                         ast_queue_frame(alsa.owner, &f);
337                         ast_channel_unlock(alsa.owner);
338                 }
339         } else {
340                 ast_verbose(" << Type 'answer' to answer, or use 'autoanswer' for future calls >> \n");
341                 grab_owner();
342                 if (alsa.owner) {
343                         f.subclass.integer = AST_CONTROL_RINGING;
344                         ast_queue_frame(alsa.owner, &f);
345                         ast_channel_unlock(alsa.owner);
346                         ast_indicate(alsa.owner, AST_CONTROL_RINGING);
347                 }
348         }
349         if (!noaudiocapture) {
350                 snd_pcm_prepare(alsa.icard);
351                 snd_pcm_start(alsa.icard);
352         }
353         ast_mutex_unlock(&alsalock);
354
355         return 0;
356 }
357
358 static int alsa_answer(struct ast_channel *c)
359 {
360         ast_mutex_lock(&alsalock);
361         ast_verbose(" << Console call has been answered >> \n");
362         ast_setstate(c, AST_STATE_UP);
363         if (!noaudiocapture) {
364                 snd_pcm_prepare(alsa.icard);
365                 snd_pcm_start(alsa.icard);
366         }
367         ast_mutex_unlock(&alsalock);
368
369         return 0;
370 }
371
372 static int alsa_hangup(struct ast_channel *c)
373 {
374         ast_mutex_lock(&alsalock);
375         ast_channel_tech_pvt_set(c, NULL);
376         alsa.owner = NULL;
377         ast_verbose(" << Hangup on console >> \n");
378         ast_module_unref(ast_module_info->self);
379         hookstate = 0;
380         if (!noaudiocapture) {
381                 snd_pcm_drop(alsa.icard);
382         }
383         ast_mutex_unlock(&alsalock);
384
385         return 0;
386 }
387
388 static int alsa_write(struct ast_channel *chan, struct ast_frame *f)
389 {
390         static char sizbuf[8000];
391         static int sizpos = 0;
392         int len = sizpos;
393         int res = 0;
394         /* size_t frames = 0; */
395         snd_pcm_state_t state;
396
397         ast_mutex_lock(&alsalock);
398
399         /* We have to digest the frame in 160-byte portions */
400         if (f->datalen > sizeof(sizbuf) - sizpos) {
401                 ast_log(LOG_WARNING, "Frame too large\n");
402                 res = -1;
403         } else {
404                 memcpy(sizbuf + sizpos, f->data.ptr, f->datalen);
405                 len += f->datalen;
406                 state = snd_pcm_state(alsa.ocard);
407                 if (state == SND_PCM_STATE_XRUN)
408                         snd_pcm_prepare(alsa.ocard);
409                 while ((res = snd_pcm_writei(alsa.ocard, sizbuf, len / 2)) == -EAGAIN) {
410                         usleep(1);
411                 }
412                 if (res == -EPIPE) {
413 #if DEBUG
414                         ast_debug(1, "XRUN write\n");
415 #endif
416                         snd_pcm_prepare(alsa.ocard);
417                         while ((res = snd_pcm_writei(alsa.ocard, sizbuf, len / 2)) == -EAGAIN) {
418                                 usleep(1);
419                         }
420                         if (res != len / 2) {
421                                 ast_log(LOG_ERROR, "Write error: %s\n", snd_strerror(res));
422                                 res = -1;
423                         } else if (res < 0) {
424                                 ast_log(LOG_ERROR, "Write error %s\n", snd_strerror(res));
425                                 res = -1;
426                         }
427                 } else {
428                         if (res == -ESTRPIPE)
429                                 ast_log(LOG_ERROR, "You've got some big problems\n");
430                         else if (res < 0)
431                                 ast_log(LOG_NOTICE, "Error %d on write\n", res);
432                 }
433         }
434         ast_mutex_unlock(&alsalock);
435
436         return res >= 0 ? 0 : res;
437 }
438
439
440 static struct ast_frame *alsa_read(struct ast_channel *chan)
441 {
442         static struct ast_frame f;
443         static short __buf[FRAME_SIZE + AST_FRIENDLY_OFFSET / 2];
444         short *buf;
445         static int readpos = 0;
446         static int left = FRAME_SIZE;
447         snd_pcm_state_t state;
448         int r = 0;
449
450         ast_mutex_lock(&alsalock);
451         f.frametype = AST_FRAME_NULL;
452         f.subclass.integer = 0;
453         f.samples = 0;
454         f.datalen = 0;
455         f.data.ptr = NULL;
456         f.offset = 0;
457         f.src = "Console";
458         f.mallocd = 0;
459         f.delivery.tv_sec = 0;
460         f.delivery.tv_usec = 0;
461
462         if (noaudiocapture) {
463                 /* Return null frame to asterisk*/
464                 ast_mutex_unlock(&alsalock);
465                 return &f;
466         }
467
468         state = snd_pcm_state(alsa.icard);
469         if ((state != SND_PCM_STATE_PREPARED) && (state != SND_PCM_STATE_RUNNING)) {
470                 snd_pcm_prepare(alsa.icard);
471         }
472
473         buf = __buf + AST_FRIENDLY_OFFSET / 2;
474
475         r = snd_pcm_readi(alsa.icard, buf + readpos, left);
476         if (r == -EPIPE) {
477 #if DEBUG
478                 ast_log(LOG_ERROR, "XRUN read\n");
479 #endif
480                 snd_pcm_prepare(alsa.icard);
481         } else if (r == -ESTRPIPE) {
482                 ast_log(LOG_ERROR, "-ESTRPIPE\n");
483                 snd_pcm_prepare(alsa.icard);
484         } else if (r < 0) {
485                 ast_log(LOG_ERROR, "Read error: %s\n", snd_strerror(r));
486         }
487
488         /* Return NULL frame on error */
489         if (r < 0) {
490                 ast_mutex_unlock(&alsalock);
491                 return &f;
492         }
493
494         /* Update positions */
495         readpos += r;
496         left -= r;
497
498         if (readpos >= FRAME_SIZE) {
499                 /* A real frame */
500                 readpos = 0;
501                 left = FRAME_SIZE;
502                 if (ast_channel_state(chan) != AST_STATE_UP) {
503                         /* Don't transmit unless it's up */
504                         ast_mutex_unlock(&alsalock);
505                         return &f;
506                 }
507                 if (mute) {
508                         /* Don't transmit if muted */
509                         ast_mutex_unlock(&alsalock);
510                         return &f;
511                 }
512
513                 f.frametype = AST_FRAME_VOICE;
514                 ast_format_set(&f.subclass.format, AST_FORMAT_SLINEAR, 0);
515                 f.samples = FRAME_SIZE;
516                 f.datalen = FRAME_SIZE * 2;
517                 f.data.ptr = buf;
518                 f.offset = AST_FRIENDLY_OFFSET;
519                 f.src = "Console";
520                 f.mallocd = 0;
521
522         }
523         ast_mutex_unlock(&alsalock);
524
525         return &f;
526 }
527
528 static int alsa_fixup(struct ast_channel *oldchan, struct ast_channel *newchan)
529 {
530         struct chan_alsa_pvt *p = ast_channel_tech_pvt(newchan);
531
532         ast_mutex_lock(&alsalock);
533         p->owner = newchan;
534         ast_mutex_unlock(&alsalock);
535
536         return 0;
537 }
538
539 static int alsa_indicate(struct ast_channel *chan, int cond, const void *data, size_t datalen)
540 {
541         int res = 0;
542
543         ast_mutex_lock(&alsalock);
544
545         switch (cond) {
546         case AST_CONTROL_BUSY:
547         case AST_CONTROL_CONGESTION:
548         case AST_CONTROL_RINGING:
549         case AST_CONTROL_INCOMPLETE:
550         case AST_CONTROL_PVT_CAUSE_CODE:
551         case -1:
552                 res = -1;  /* Ask for inband indications */
553                 break;
554         case AST_CONTROL_PROGRESS:
555         case AST_CONTROL_PROCEEDING:
556         case AST_CONTROL_VIDUPDATE:
557         case AST_CONTROL_SRCUPDATE:
558                 break;
559         case AST_CONTROL_HOLD:
560                 ast_verbose(" << Console Has Been Placed on Hold >> \n");
561                 ast_moh_start(chan, data, mohinterpret);
562                 break;
563         case AST_CONTROL_UNHOLD:
564                 ast_verbose(" << Console Has Been Retrieved from Hold >> \n");
565                 ast_moh_stop(chan);
566                 break;
567         default:
568                 ast_log(LOG_WARNING, "Don't know how to display condition %d on %s\n", cond, ast_channel_name(chan));
569                 res = -1;
570         }
571
572         ast_mutex_unlock(&alsalock);
573
574         return res;
575 }
576
577 static struct ast_channel *alsa_new(struct chan_alsa_pvt *p, int state, const struct ast_assigned_ids *assignedids, const struct ast_channel *requestor)
578 {
579         struct ast_channel *tmp = NULL;
580
581         if (!(tmp = ast_channel_alloc(1, state, 0, 0, "", p->exten, p->context, assignedids, requestor, 0, "ALSA/%s", indevname)))
582                 return NULL;
583
584         ast_channel_stage_snapshot(tmp);
585
586         ast_channel_tech_set(tmp, &alsa_tech);
587         ast_channel_set_fd(tmp, 0, readdev);
588         ast_format_set(ast_channel_readformat(tmp), AST_FORMAT_SLINEAR, 0);
589         ast_format_set(ast_channel_writeformat(tmp), AST_FORMAT_SLINEAR, 0);
590         ast_format_cap_add(ast_channel_nativeformats(tmp), ast_channel_writeformat(tmp));
591
592         ast_channel_tech_pvt_set(tmp, p);
593         if (!ast_strlen_zero(p->context))
594                 ast_channel_context_set(tmp, p->context);
595         if (!ast_strlen_zero(p->exten))
596                 ast_channel_exten_set(tmp, p->exten);
597         if (!ast_strlen_zero(language))
598                 ast_channel_language_set(tmp, language);
599         p->owner = tmp;
600         ast_module_ref(ast_module_info->self);
601         ast_jb_configure(tmp, &global_jbconf);
602
603         ast_channel_stage_snapshot_done(tmp);
604         ast_channel_unlock(tmp);
605
606         if (state != AST_STATE_DOWN) {
607                 if (ast_pbx_start(tmp)) {
608                         ast_log(LOG_WARNING, "Unable to start PBX on %s\n", ast_channel_name(tmp));
609                         ast_hangup(tmp);
610                         tmp = NULL;
611                 }
612         }
613
614         return tmp;
615 }
616
617 static struct ast_channel *alsa_request(const char *type, struct ast_format_cap *cap, const struct ast_assigned_ids *assignedids, const struct ast_channel *requestor, const char *data, int *cause)
618 {
619         struct ast_format tmpfmt;
620         char buf[256];
621         struct ast_channel *tmp = NULL;
622
623         ast_format_set(&tmpfmt, AST_FORMAT_SLINEAR, 0);
624
625         if (!(ast_format_cap_iscompatible(cap, &tmpfmt))) {
626                 ast_log(LOG_NOTICE, "Asked to get a channel of format '%s'\n", ast_getformatname_multiple(buf, sizeof(buf), cap));
627                 return NULL;
628         }
629
630         ast_mutex_lock(&alsalock);
631
632         if (alsa.owner) {
633                 ast_log(LOG_NOTICE, "Already have a call on the ALSA channel\n");
634                 *cause = AST_CAUSE_BUSY;
635         } else if (!(tmp = alsa_new(&alsa, AST_STATE_DOWN, assignedids, requestor))) {
636                 ast_log(LOG_WARNING, "Unable to create new ALSA channel\n");
637         }
638
639         ast_mutex_unlock(&alsalock);
640
641         return tmp;
642 }
643
644 static char *autoanswer_complete(const char *line, const char *word, int pos, int state)
645 {
646         switch (state) {
647                 case 0:
648                         if (!ast_strlen_zero(word) && !strncasecmp(word, "on", MIN(strlen(word), 2)))
649                                 return ast_strdup("on");
650                 case 1:
651                         if (!ast_strlen_zero(word) && !strncasecmp(word, "off", MIN(strlen(word), 3)))
652                                 return ast_strdup("off");
653                 default:
654                         return NULL;
655         }
656
657         return NULL;
658 }
659
660 static char *console_autoanswer(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
661 {
662         char *res = CLI_SUCCESS;
663
664         switch (cmd) {
665         case CLI_INIT:
666                 e->command = "console autoanswer";
667                 e->usage =
668                         "Usage: console autoanswer [on|off]\n"
669                         "       Enables or disables autoanswer feature.  If used without\n"
670                         "       argument, displays the current on/off status of autoanswer.\n"
671                         "       The default value of autoanswer is in 'alsa.conf'.\n";
672                 return NULL;
673         case CLI_GENERATE:
674                 return autoanswer_complete(a->line, a->word, a->pos, a->n);
675         }
676
677         if ((a->argc != 2) && (a->argc != 3))
678                 return CLI_SHOWUSAGE;
679
680         ast_mutex_lock(&alsalock);
681         if (a->argc == 2) {
682                 ast_cli(a->fd, "Auto answer is %s.\n", autoanswer ? "on" : "off");
683         } else {
684                 if (!strcasecmp(a->argv[2], "on"))
685                         autoanswer = -1;
686                 else if (!strcasecmp(a->argv[2], "off"))
687                         autoanswer = 0;
688                 else
689                         res = CLI_SHOWUSAGE;
690         }
691         ast_mutex_unlock(&alsalock);
692
693         return res;
694 }
695
696 static char *console_answer(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
697 {
698         char *res = CLI_SUCCESS;
699
700         switch (cmd) {
701         case CLI_INIT:
702                 e->command = "console answer";
703                 e->usage =
704                         "Usage: console answer\n"
705                         "       Answers an incoming call on the console (ALSA) channel.\n";
706
707                 return NULL;
708         case CLI_GENERATE:
709                 return NULL; 
710         }
711
712         if (a->argc != 2)
713                 return CLI_SHOWUSAGE;
714
715         ast_mutex_lock(&alsalock);
716
717         if (!alsa.owner) {
718                 ast_cli(a->fd, "No one is calling us\n");
719                 res = CLI_FAILURE;
720         } else {
721                 if (mute) {
722                         ast_verbose( " << Muted >> \n" );
723                 }
724                 hookstate = 1;
725                 grab_owner();
726                 if (alsa.owner) {
727                         ast_queue_control(alsa.owner, AST_CONTROL_ANSWER);
728                         ast_channel_unlock(alsa.owner);
729                 }
730         }
731
732         if (!noaudiocapture) {
733                 snd_pcm_prepare(alsa.icard);
734                 snd_pcm_start(alsa.icard);
735         }
736
737         ast_mutex_unlock(&alsalock);
738
739         return res;
740 }
741
742 static char *console_sendtext(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
743 {
744         int tmparg = 3;
745         char *res = CLI_SUCCESS;
746
747         switch (cmd) {
748         case CLI_INIT:
749                 e->command = "console send text";
750                 e->usage =
751                         "Usage: console send text <message>\n"
752                         "       Sends a text message for display on the remote terminal.\n";
753                 return NULL;
754         case CLI_GENERATE:
755                 return NULL; 
756         }
757
758         if (a->argc < 3)
759                 return CLI_SHOWUSAGE;
760
761         ast_mutex_lock(&alsalock);
762
763         if (!alsa.owner) {
764                 ast_cli(a->fd, "No channel active\n");
765                 res = CLI_FAILURE;
766         } else {
767                 struct ast_frame f = { AST_FRAME_TEXT };
768                 char text2send[256] = "";
769
770                 while (tmparg < a->argc) {
771                         strncat(text2send, a->argv[tmparg++], sizeof(text2send) - strlen(text2send) - 1);
772                         strncat(text2send, " ", sizeof(text2send) - strlen(text2send) - 1);
773                 }
774
775                 text2send[strlen(text2send) - 1] = '\n';
776                 f.data.ptr = text2send;
777                 f.datalen = strlen(text2send) + 1;
778                 grab_owner();
779                 if (alsa.owner) {
780                         ast_queue_frame(alsa.owner, &f);
781                         ast_queue_control(alsa.owner, AST_CONTROL_ANSWER);
782                         ast_channel_unlock(alsa.owner);
783                 }
784         }
785
786         ast_mutex_unlock(&alsalock);
787
788         return res;
789 }
790
791 static char *console_hangup(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
792 {
793         char *res = CLI_SUCCESS;
794
795         switch (cmd) {
796         case CLI_INIT:
797                 e->command = "console hangup";
798                 e->usage =
799                         "Usage: console hangup\n"
800                         "       Hangs up any call currently placed on the console.\n";
801                 return NULL;
802         case CLI_GENERATE:
803                 return NULL; 
804         }
805  
806
807         if (a->argc != 2)
808                 return CLI_SHOWUSAGE;
809
810         ast_mutex_lock(&alsalock);
811
812         if (!alsa.owner && !hookstate) {
813                 ast_cli(a->fd, "No call to hangup\n");
814                 res = CLI_FAILURE;
815         } else {
816                 hookstate = 0;
817                 grab_owner();
818                 if (alsa.owner) {
819                         ast_queue_hangup_with_cause(alsa.owner, AST_CAUSE_NORMAL_CLEARING);
820                         ast_channel_unlock(alsa.owner);
821                 }
822         }
823
824         ast_mutex_unlock(&alsalock);
825
826         return res;
827 }
828
829 static char *console_dial(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
830 {
831         char tmp[256], *tmp2;
832         char *mye, *myc;
833         const char *d;
834         char *res = CLI_SUCCESS;
835
836         switch (cmd) {
837         case CLI_INIT:
838                 e->command = "console dial";
839                 e->usage =
840                         "Usage: console dial [extension[@context]]\n"
841                         "       Dials a given extension (and context if specified)\n";
842                 return NULL;
843         case CLI_GENERATE:
844                 return NULL;
845         }
846
847         if ((a->argc != 2) && (a->argc != 3))
848                 return CLI_SHOWUSAGE;
849
850         ast_mutex_lock(&alsalock);
851
852         if (alsa.owner) {
853                 if (a->argc == 3) {
854                         if (alsa.owner) {
855                                 for (d = a->argv[2]; *d; d++) {
856                                         struct ast_frame f = { .frametype = AST_FRAME_DTMF, .subclass.integer = *d };
857
858                                         ast_queue_frame(alsa.owner, &f);
859                                 }
860                         }
861                 } else {
862                         ast_cli(a->fd, "You're already in a call.  You can use this only to dial digits until you hangup\n");
863                         res = CLI_FAILURE;
864                 }
865         } else {
866                 mye = exten;
867                 myc = context;
868                 if (a->argc == 3) {
869                         char *stringp = NULL;
870
871                         ast_copy_string(tmp, a->argv[2], sizeof(tmp));
872                         stringp = tmp;
873                         strsep(&stringp, "@");
874                         tmp2 = strsep(&stringp, "@");
875                         if (!ast_strlen_zero(tmp))
876                                 mye = tmp;
877                         if (!ast_strlen_zero(tmp2))
878                                 myc = tmp2;
879                 }
880                 if (ast_exists_extension(NULL, myc, mye, 1, NULL)) {
881                         ast_copy_string(alsa.exten, mye, sizeof(alsa.exten));
882                         ast_copy_string(alsa.context, myc, sizeof(alsa.context));
883                         hookstate = 1;
884                         alsa_new(&alsa, AST_STATE_RINGING, NULL, NULL);
885                 } else
886                         ast_cli(a->fd, "No such extension '%s' in context '%s'\n", mye, myc);
887         }
888
889         ast_mutex_unlock(&alsalock);
890
891         return res;
892 }
893
894 static char *console_mute(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
895 {
896         int toggle = 0;
897         char *res = CLI_SUCCESS;
898
899         switch (cmd) {
900         case CLI_INIT:
901                 e->command = "console {mute|unmute} [toggle]";
902                 e->usage =
903                         "Usage: console {mute|unmute} [toggle]\n"
904                         "       Mute/unmute the microphone.\n";
905                 return NULL;
906         case CLI_GENERATE:
907                 return NULL;
908         }
909
910
911         if (a->argc > 3) {
912                 return CLI_SHOWUSAGE;
913         }
914
915         if (a->argc == 3) {
916                 if (strcasecmp(a->argv[2], "toggle"))
917                         return CLI_SHOWUSAGE;
918                 toggle = 1;
919         }
920
921         if (a->argc < 2) {
922                 return CLI_SHOWUSAGE;
923         }
924
925         if (!strcasecmp(a->argv[1], "mute")) {
926                 mute = toggle ? !mute : 1;
927         } else if (!strcasecmp(a->argv[1], "unmute")) {
928                 mute = toggle ? !mute : 0;
929         } else {
930                 return CLI_SHOWUSAGE;
931         }
932
933         ast_cli(a->fd, "Console mic is %s\n", mute ? "off" : "on");
934
935         return res;
936 }
937
938 static struct ast_cli_entry cli_alsa[] = {
939         AST_CLI_DEFINE(console_answer, "Answer an incoming console call"),
940         AST_CLI_DEFINE(console_hangup, "Hangup a call on the console"),
941         AST_CLI_DEFINE(console_dial, "Dial an extension on the console"),
942         AST_CLI_DEFINE(console_sendtext, "Send text to the remote device"),
943         AST_CLI_DEFINE(console_autoanswer, "Sets/displays autoanswer"),
944         AST_CLI_DEFINE(console_mute, "Disable/Enable mic input"),
945 };
946
947 /*!
948  * \brief Load the module
949  *
950  * Module loading including tests for configuration or dependencies.
951  * This function can return AST_MODULE_LOAD_FAILURE, AST_MODULE_LOAD_DECLINE,
952  * or AST_MODULE_LOAD_SUCCESS. If a dependency or environment variable fails
953  * tests return AST_MODULE_LOAD_FAILURE. If the module can not load the 
954  * configuration file or other non-critical problem return 
955  * AST_MODULE_LOAD_DECLINE. On success return AST_MODULE_LOAD_SUCCESS.
956  */
957 static int load_module(void)
958 {
959         struct ast_config *cfg;
960         struct ast_variable *v;
961         struct ast_flags config_flags = { 0 };
962         struct ast_format tmpfmt;
963
964         if (!(alsa_tech.capabilities = ast_format_cap_alloc(0))) {
965                 return AST_MODULE_LOAD_DECLINE;
966         }
967         ast_format_cap_add(alsa_tech.capabilities, ast_format_set(&tmpfmt, AST_FORMAT_SLINEAR, 0));
968
969         /* Copy the default jb config over global_jbconf */
970         memcpy(&global_jbconf, &default_jbconf, sizeof(struct ast_jb_conf));
971
972         strcpy(mohinterpret, "default");
973
974         if (!(cfg = ast_config_load(config, config_flags))) {
975                 ast_log(LOG_ERROR, "Unable to read ALSA configuration file %s.  Aborting.\n", config);
976                 return AST_MODULE_LOAD_DECLINE;
977         } else if (cfg == CONFIG_STATUS_FILEINVALID) {
978                 ast_log(LOG_ERROR, "%s is in an invalid format.  Aborting.\n", config);
979                 return AST_MODULE_LOAD_DECLINE;
980         }
981
982         v = ast_variable_browse(cfg, "general");
983         for (; v; v = v->next) {
984                 /* handle jb conf */
985                 if (!ast_jb_read_conf(&global_jbconf, v->name, v->value)) {
986                         continue;
987                 }
988
989                 if (!strcasecmp(v->name, "autoanswer")) {
990                         autoanswer = ast_true(v->value);
991                 } else if (!strcasecmp(v->name, "mute")) {
992                         mute = ast_true(v->value);
993                 } else if (!strcasecmp(v->name, "noaudiocapture")) {
994                         noaudiocapture = ast_true(v->value);
995                 } else if (!strcasecmp(v->name, "silencesuppression")) {
996                         silencesuppression = ast_true(v->value);
997                 } else if (!strcasecmp(v->name, "silencethreshold")) {
998                         silencethreshold = atoi(v->value);
999                 } else if (!strcasecmp(v->name, "context")) {
1000                         ast_copy_string(context, v->value, sizeof(context));
1001                 } else if (!strcasecmp(v->name, "language")) {
1002                         ast_copy_string(language, v->value, sizeof(language));
1003                 } else if (!strcasecmp(v->name, "extension")) {
1004                         ast_copy_string(exten, v->value, sizeof(exten));
1005                 } else if (!strcasecmp(v->name, "input_device")) {
1006                         ast_copy_string(indevname, v->value, sizeof(indevname));
1007                 } else if (!strcasecmp(v->name, "output_device")) {
1008                         ast_copy_string(outdevname, v->value, sizeof(outdevname));
1009                 } else if (!strcasecmp(v->name, "mohinterpret")) {
1010                         ast_copy_string(mohinterpret, v->value, sizeof(mohinterpret));
1011                 }
1012         }
1013         ast_config_destroy(cfg);
1014
1015         if (soundcard_init() < 0) {
1016                 ast_verb(2, "No sound card detected -- console channel will be unavailable\n");
1017                 ast_verb(2, "Turn off ALSA support by adding 'noload=chan_alsa.so' in /etc/asterisk/modules.conf\n");
1018                 return AST_MODULE_LOAD_DECLINE;
1019         }
1020
1021         if (ast_channel_register(&alsa_tech)) {
1022                 ast_log(LOG_ERROR, "Unable to register channel class 'Console'\n");
1023                 return AST_MODULE_LOAD_FAILURE;
1024         }
1025
1026         ast_cli_register_multiple(cli_alsa, ARRAY_LEN(cli_alsa));
1027
1028         return AST_MODULE_LOAD_SUCCESS;
1029 }
1030
1031 static int unload_module(void)
1032 {
1033         ast_channel_unregister(&alsa_tech);
1034         ast_cli_unregister_multiple(cli_alsa, ARRAY_LEN(cli_alsa));
1035
1036         if (alsa.icard)
1037                 snd_pcm_close(alsa.icard);
1038         if (alsa.ocard)
1039                 snd_pcm_close(alsa.ocard);
1040         if (alsa.owner)
1041                 ast_softhangup(alsa.owner, AST_SOFTHANGUP_APPUNLOAD);
1042         if (alsa.owner)
1043                 return -1;
1044
1045         alsa_tech.capabilities = ast_format_cap_destroy(alsa_tech.capabilities);
1046         return 0;
1047 }
1048
1049 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_LOAD_ORDER, "ALSA Console Channel Driver",
1050                 .load = load_module,
1051                 .unload = unload_module,
1052                 .load_pri = AST_MODPRI_CHANNEL_DRIVER,
1053         );