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