28f20d48571c4d30c1a0cd3f25e2f9e32d1a6978
[asterisk/asterisk.git] / channels / chan_oss.c
1 /*
2  * Asterisk -- A telephony toolkit for Linux.
3  *
4  * Use /dev/dsp as a channel, and the console to command it :).
5  *
6  * The full-duplex "simulation" is pretty weak.  This is generally a 
7  * VERY BADLY WRITTEN DRIVER so please don't use it as a model for
8  * writing a driver.
9  * 
10  * Copyright (C) 1999, Mark Spencer
11  *
12  * Mark Spencer <markster@linux-support.net>
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License
16  */
17
18 #include <asterisk/lock.h>
19 #include <asterisk/frame.h>
20 #include <asterisk/logger.h>
21 #include <asterisk/channel.h>
22 #include <asterisk/module.h>
23 #include <asterisk/channel_pvt.h>
24 #include <asterisk/options.h>
25 #include <asterisk/pbx.h>
26 #include <asterisk/config.h>
27 #include <asterisk/cli.h>
28 #include <unistd.h>
29 #include <fcntl.h>
30 #include <errno.h>
31 #include <sys/ioctl.h>
32 #include <sys/time.h>
33 #include <string.h>
34 #include <stdlib.h>
35 #include <stdio.h>
36 #ifdef __linux
37 #include <linux/soundcard.h>
38 #else
39 #include <soundcard.h>
40 #endif
41 #include "busy.h"
42 #include "ringtone.h"
43 #include "ring10.h"
44 #include "answer.h"
45
46 /* Which device to use */
47 #define DEV_DSP "/dev/dsp"
48
49 /* Lets use 160 sample frames, just like GSM.  */
50 #define FRAME_SIZE 160
51
52 /* When you set the frame size, you have to come up with
53    the right buffer format as well. */
54 /* 5 64-byte frames = one frame */
55 #define BUFFER_FMT ((buffersize * 10) << 16) | (0x0006);
56
57 /* Don't switch between read/write modes faster than every 300 ms */
58 #define MIN_SWITCH_TIME 600
59
60 static struct timeval lasttime;
61
62 static int usecnt;
63 static int silencesuppression = 0;
64 static int silencethreshold = 1000;
65
66
67 static ast_mutex_t usecnt_lock = AST_MUTEX_INITIALIZER;
68
69 static char *type = "Console";
70 static char *desc = "OSS Console Channel Driver";
71 static char *tdesc = "OSS Console Channel Driver";
72 static char *config = "oss.conf";
73
74 static char context[AST_MAX_EXTENSION] = "default";
75 static char language[MAX_LANGUAGE] = "";
76 static char exten[AST_MAX_EXTENSION] = "s";
77
78 static int hookstate=0;
79
80 static short silence[FRAME_SIZE] = {0, };
81
82 struct sound {
83         int ind;
84         short *data;
85         int datalen;
86         int samplen;
87         int silencelen;
88         int repeat;
89 };
90
91 static struct sound sounds[] = {
92         { AST_CONTROL_RINGING, ringtone, sizeof(ringtone)/2, 16000, 32000, 1 },
93         { AST_CONTROL_BUSY, busy, sizeof(busy)/2, 4000, 4000, 1 },
94         { AST_CONTROL_CONGESTION, busy, sizeof(busy)/2, 2000, 2000, 1 },
95         { AST_CONTROL_RING, ring10, sizeof(ring10)/2, 16000, 32000, 1 },
96         { AST_CONTROL_ANSWER, answer, sizeof(answer)/2, 2200, 0, 0 },
97 };
98
99 /* Sound command pipe */
100 static int sndcmd[2];
101
102 static struct chan_oss_pvt {
103         /* We only have one OSS structure -- near sighted perhaps, but it
104            keeps this driver as simple as possible -- as it should be. */
105         struct ast_channel *owner;
106         char exten[AST_MAX_EXTENSION];
107         char context[AST_MAX_EXTENSION];
108 } oss;
109
110 static int time_has_passed(void)
111 {
112         struct timeval tv;
113         int ms;
114         gettimeofday(&tv, NULL);
115         ms = (tv.tv_sec - lasttime.tv_sec) * 1000 +
116                         (tv.tv_usec - lasttime.tv_usec) / 1000;
117         if (ms > MIN_SWITCH_TIME)
118                 return -1;
119         return 0;
120 }
121
122 /* Number of buffers...  Each is FRAMESIZE/8 ms long.  For example
123    with 160 sample frames, and a buffer size of 3, we have a 60ms buffer, 
124    usually plenty. */
125
126 static pthread_t sthread;
127
128 #define MAX_BUFFER_SIZE 100
129 static int buffersize = 3;
130
131 static int full_duplex = 0;
132
133 /* Are we reading or writing (simulated full duplex) */
134 static int readmode = 1;
135
136 /* File descriptor for sound device */
137 static int sounddev = -1;
138
139 static int autoanswer = 1;
140  
141 #if 0
142 static int calc_loudness(short *frame)
143 {
144         int sum = 0;
145         int x;
146         for (x=0;x<FRAME_SIZE;x++) {
147                 if (frame[x] < 0)
148                         sum -= frame[x];
149                 else
150                         sum += frame[x];
151         }
152         sum = sum/FRAME_SIZE;
153         return sum;
154 }
155 #endif
156
157 static int cursound = -1;
158 static int sampsent = 0;
159 static int silencelen=0;
160 static int offset=0;
161 static int nosound=0;
162
163 static int send_sound(void)
164 {
165         short myframe[FRAME_SIZE];
166         int total = FRAME_SIZE;
167         short *frame = NULL;
168         int amt=0;
169         int res;
170         int myoff;
171         audio_buf_info abi;
172         if (cursound > -1) {
173                 res = ioctl(sounddev, SNDCTL_DSP_GETOSPACE ,&abi);
174                 if (res) {
175                         ast_log(LOG_WARNING, "Unable to read output space\n");
176                         return -1;
177                 }
178                 /* Calculate how many samples we can send, max */
179                 if (total > (abi.fragments * abi.fragsize / 2)) 
180                         total = abi.fragments * abi.fragsize / 2;
181                 res = total;
182                 if (sampsent < sounds[cursound].samplen) {
183                         myoff=0;
184                         while(total) {
185                                 amt = total;
186                                 if (amt > (sounds[cursound].datalen - offset)) 
187                                         amt = sounds[cursound].datalen - offset;
188                                 memcpy(myframe + myoff, sounds[cursound].data + offset, amt * 2);
189                                 total -= amt;
190                                 offset += amt;
191                                 sampsent += amt;
192                                 myoff += amt;
193                                 if (offset >= sounds[cursound].datalen)
194                                         offset = 0;
195                         }
196                         /* Set it up for silence */
197                         if (sampsent >= sounds[cursound].samplen) 
198                                 silencelen = sounds[cursound].silencelen;
199                         frame = myframe;
200                 } else {
201                         if (silencelen > 0) {
202                                 frame = silence;
203                                 silencelen -= res;
204                         } else {
205                                 if (sounds[cursound].repeat) {
206                                         /* Start over */
207                                         sampsent = 0;
208                                         offset = 0;
209                                 } else {
210                                         cursound = -1;
211                                         nosound = 0;
212                                 }
213                         }
214                 }
215                 if (frame)
216                         res = write(sounddev, frame, res * 2);
217                 if (res > 0)
218                         return 0;
219                 return res;
220         }
221         return 0;
222 }
223
224 static void *sound_thread(void *unused)
225 {
226         fd_set rfds;
227         fd_set wfds;
228         int max;
229         int res;
230         char ign[4096];
231         if (read(sounddev, ign, sizeof(sounddev)) < 0)
232                 ast_log(LOG_WARNING, "Read error on sound device: %s\n", strerror(errno));
233         for(;;) {
234                 FD_ZERO(&rfds);
235                 FD_ZERO(&wfds);
236                 max = sndcmd[0];
237                 FD_SET(sndcmd[0], &rfds);
238                 if (!oss.owner) {
239                         FD_SET(sounddev, &rfds);
240                         if (sounddev > max)
241                                 max = sounddev;
242                 }
243                 if (cursound > -1) {
244                         FD_SET(sounddev, &wfds);
245                         if (sounddev > max)
246                                 max = sounddev;
247                 }
248                 res = ast_select(max + 1, &rfds, &wfds, NULL, NULL);
249                 if (res < 1) {
250                         ast_log(LOG_WARNING, "select failed: %s\n", strerror(errno));
251                         continue;
252                 }
253                 if (FD_ISSET(sndcmd[0], &rfds)) {
254                         read(sndcmd[0], &cursound, sizeof(cursound));
255                         silencelen = 0;
256                         offset = 0;
257                         sampsent = 0;
258                 }
259                 if (FD_ISSET(sounddev, &rfds)) {
260                         /* Ignore read */
261                         if (read(sounddev, ign, sizeof(ign)) < 0)
262                                 ast_log(LOG_WARNING, "Read error on sound device: %s\n", strerror(errno));
263                 }
264                 if (FD_ISSET(sounddev, &wfds))
265                         if (send_sound())
266                                 ast_log(LOG_WARNING, "Failed to write sound\n");
267         }
268         /* Never reached */
269         return NULL;
270 }
271
272 #if 0
273 static int silence_suppress(short *buf)
274 {
275 #define SILBUF 3
276         int loudness;
277         static int silentframes = 0;
278         static char silbuf[FRAME_SIZE * 2 * SILBUF];
279         static int silbufcnt=0;
280         if (!silencesuppression)
281                 return 0;
282         loudness = calc_loudness((short *)(buf));
283         if (option_debug)
284                 ast_log(LOG_DEBUG, "loudness is %d\n", loudness);
285         if (loudness < silencethreshold) {
286                 silentframes++;
287                 silbufcnt++;
288                 /* Keep track of the last few bits of silence so we can play
289                    them as lead-in when the time is right */
290                 if (silbufcnt >= SILBUF) {
291                         /* Make way for more buffer */
292                         memmove(silbuf, silbuf + FRAME_SIZE * 2, FRAME_SIZE * 2 * (SILBUF - 1));
293                         silbufcnt--;
294                 }
295                 memcpy(silbuf + FRAME_SIZE * 2 * silbufcnt, buf, FRAME_SIZE * 2);
296                 if (silentframes > 10) {
297                         /* We've had plenty of silence, so compress it now */
298                         return 1;
299                 }
300         } else {
301                 silentframes=0;
302                 /* Write any buffered silence we have, it may have something
303                    important */
304                 if (silbufcnt) {
305                         write(sounddev, silbuf, silbufcnt * FRAME_SIZE);
306                         silbufcnt = 0;
307                 }
308         }
309         return 0;
310 }
311 #endif
312
313 static int setformat(void)
314 {
315         int fmt, desired, res, fd = sounddev;
316         static int warnedalready = 0;
317         static int warnedalready2 = 0;
318         fmt = AFMT_S16_LE;
319         res = ioctl(fd, SNDCTL_DSP_SETFMT, &fmt);
320         if (res < 0) {
321                 ast_log(LOG_WARNING, "Unable to set format to 16-bit signed\n");
322                 return -1;
323         }
324         res = ioctl(fd, SNDCTL_DSP_SETDUPLEX, 0);
325         if (res >= 0) {
326                 if (option_verbose > 1) 
327                         ast_verbose(VERBOSE_PREFIX_2 "Console is full duplex\n");
328                 full_duplex = -1;
329         }
330         fmt = 0;
331         res = ioctl(fd, SNDCTL_DSP_STEREO, &fmt);
332         if (res < 0) {
333                 ast_log(LOG_WARNING, "Failed to set audio device to mono\n");
334                 return -1;
335         }
336         /* 8000 Hz desired */
337         desired = 8000;
338         fmt = desired;
339         res = ioctl(fd, SNDCTL_DSP_SPEED, &fmt);
340         if (res < 0) {
341                 ast_log(LOG_WARNING, "Failed to set audio device to mono\n");
342                 return -1;
343         }
344         if (fmt != desired) {
345                 if (!warnedalready++)
346                         ast_log(LOG_WARNING, "Requested %d Hz, got %d Hz -- sound may be choppy\n", desired, fmt);
347         }
348 #if 1
349         fmt = BUFFER_FMT;
350         res = ioctl(fd, SNDCTL_DSP_SETFRAGMENT, &fmt);
351         if (res < 0) {
352                 if (!warnedalready2++)
353                         ast_log(LOG_WARNING, "Unable to set fragment size -- sound may be choppy\n");
354         }
355 #endif
356         return 0;
357 }
358
359 static int soundcard_setoutput(int force)
360 {
361         /* Make sure the soundcard is in output mode.  */
362         int fd = sounddev;
363         if (full_duplex || (!readmode && !force))
364                 return 0;
365         readmode = 0;
366         if (force || time_has_passed()) {
367                 ioctl(sounddev, SNDCTL_DSP_RESET);
368                 /* Keep the same fd reserved by closing the sound device and copying stdin at the same
369                    time. */
370                 /* dup2(0, sound); */ 
371                 close(sounddev);
372                 fd = open(DEV_DSP, O_WRONLY |O_NONBLOCK);
373                 if (fd < 0) {
374                         ast_log(LOG_WARNING, "Unable to re-open DSP device: %s\n", strerror(errno));
375                         return -1;
376                 }
377                 /* dup2 will close the original and make fd be sound */
378                 if (dup2(fd, sounddev) < 0) {
379                         ast_log(LOG_WARNING, "dup2() failed: %s\n", strerror(errno));
380                         return -1;
381                 }
382                 if (setformat()) {
383                         return -1;
384                 }
385                 return 0;
386         }
387         return 1;
388 }
389
390 static int soundcard_setinput(int force)
391 {
392         int fd = sounddev;
393         if (full_duplex || (readmode && !force))
394                 return 0;
395         readmode = -1;
396         if (force || time_has_passed()) {
397                 ioctl(sounddev, SNDCTL_DSP_RESET);
398                 close(sounddev);
399                 /* dup2(0, sound); */
400                 fd = open(DEV_DSP, O_RDONLY | O_NONBLOCK);
401                 if (fd < 0) {
402                         ast_log(LOG_WARNING, "Unable to re-open DSP device: %s\n", strerror(errno));
403                         return -1;
404                 }
405                 /* dup2 will close the original and make fd be sound */
406                 if (dup2(fd, sounddev) < 0) {
407                         ast_log(LOG_WARNING, "dup2() failed: %s\n", strerror(errno));
408                         return -1;
409                 }
410                 if (setformat()) {
411                         return -1;
412                 }
413                 return 0;
414         }
415         return 1;
416 }
417
418 static int soundcard_init(void)
419 {
420         /* Assume it's full duplex for starters */
421         int fd = open(DEV_DSP,  O_RDWR | O_NONBLOCK);
422         if (fd < 0) {
423                 ast_log(LOG_WARNING, "Unable to open %s: %s\n", DEV_DSP, strerror(errno));
424                 return fd;
425         }
426         gettimeofday(&lasttime, NULL);
427         sounddev = fd;
428         setformat();
429         if (!full_duplex) 
430                 soundcard_setinput(1);
431         return sounddev;
432 }
433
434 static int oss_digit(struct ast_channel *c, char digit)
435 {
436         ast_verbose( " << Console Received digit %c >> \n", digit);
437         return 0;
438 }
439
440 static int oss_text(struct ast_channel *c, char *text)
441 {
442         ast_verbose( " << Console Received text %s >> \n", text);
443         return 0;
444 }
445
446 static int oss_call(struct ast_channel *c, char *dest, int timeout)
447 {
448         int res = 3;
449         struct ast_frame f = { 0, };
450         ast_verbose( " << Call placed to '%s' on console >> \n", dest);
451         if (autoanswer) {
452                 ast_verbose( " << Auto-answered >> \n" );
453                 f.frametype = AST_FRAME_CONTROL;
454                 f.subclass = AST_CONTROL_ANSWER;
455                 ast_queue_frame(c, &f, 0);
456         } else {
457                 nosound = 1;
458                 ast_verbose( " << Type 'answer' to answer, or use 'autoanswer' for future calls >> \n");
459                 f.frametype = AST_FRAME_CONTROL;
460                 f.subclass = AST_CONTROL_RINGING;
461                 ast_queue_frame(c, &f, 0);
462                 write(sndcmd[1], &res, sizeof(res));
463         }
464         return 0;
465 }
466
467 static void answer_sound(void)
468 {
469         int res;
470         nosound = 1;
471         res = 4;
472         write(sndcmd[1], &res, sizeof(res));
473         
474 }
475
476 static int oss_answer(struct ast_channel *c)
477 {
478         ast_verbose( " << Console call has been answered >> \n");
479         answer_sound();
480         ast_setstate(c, AST_STATE_UP);
481         cursound = -1;
482         nosound=0;
483         return 0;
484 }
485
486 static int oss_hangup(struct ast_channel *c)
487 {
488         int res = 0;
489         cursound = -1;
490         c->pvt->pvt = NULL;
491         oss.owner = NULL;
492         ast_verbose( " << Hangup on console >> \n");
493         ast_mutex_lock(&usecnt_lock);
494         usecnt--;
495         ast_mutex_unlock(&usecnt_lock);
496         if (hookstate) {
497                 if (autoanswer) {
498                         /* Assume auto-hangup too */
499                         hookstate = 0;
500                 } else {
501                         /* Make congestion noise */
502                         res = 2;
503                         write(sndcmd[1], &res, sizeof(res));
504                 }
505         }
506         return 0;
507 }
508
509 static int soundcard_writeframe(short *data)
510 {       
511         /* Write an exactly FRAME_SIZE sized of frame */
512         static int bufcnt = 0;
513         static short buffer[FRAME_SIZE * MAX_BUFFER_SIZE * 5];
514         struct audio_buf_info info;
515         int res;
516         int fd = sounddev;
517         static int warned=0;
518         if (ioctl(fd, SNDCTL_DSP_GETOSPACE, &info)) {
519                 if (!warned)
520                         ast_log(LOG_WARNING, "Error reading output space\n");
521                 bufcnt = buffersize;
522                 warned++;
523         }
524         if ((info.fragments >= buffersize * 5) && (bufcnt == buffersize)) {
525                 /* We've run out of stuff, buffer again */
526                 bufcnt = 0;
527         }
528         if (bufcnt == buffersize) {
529                 /* Write sample immediately */
530                 res = write(fd, ((void *)data), FRAME_SIZE * 2);
531         } else {
532                 /* Copy the data into our buffer */
533                 res = FRAME_SIZE * 2;
534                 memcpy(buffer + (bufcnt * FRAME_SIZE), data, FRAME_SIZE * 2);
535                 bufcnt++;
536                 if (bufcnt == buffersize) {
537                         res = write(fd, ((void *)buffer), FRAME_SIZE * 2 * buffersize);
538                 }
539         }
540         return res;
541 }
542
543
544 static int oss_write(struct ast_channel *chan, struct ast_frame *f)
545 {
546         int res;
547         static char sizbuf[8000];
548         static int sizpos = 0;
549         int len = sizpos;
550         int pos;
551         /* Immediately return if no sound is enabled */
552         if (nosound)
553                 return 0;
554         /* Stop any currently playing sound */
555         cursound = -1;
556         if (!full_duplex) {
557                 /* If we're half duplex, we have to switch to read mode
558                    to honor immediate needs if necessary */
559                 res = soundcard_setinput(1);
560                 if (res < 0) {
561                         ast_log(LOG_WARNING, "Unable to set device to input mode\n");
562                         return -1;
563                 }
564                 return 0;
565         }
566         res = soundcard_setoutput(0);
567         if (res < 0) {
568                 ast_log(LOG_WARNING, "Unable to set output device\n");
569                 return -1;
570         } else if (res > 0) {
571                 /* The device is still in read mode, and it's too soon to change it,
572                    so just pretend we wrote it */
573                 return 0;
574         }
575         /* We have to digest the frame in 160-byte portions */
576         if (f->datalen > sizeof(sizbuf) - sizpos) {
577                 ast_log(LOG_WARNING, "Frame too large\n");
578                 return -1;
579         }
580         memcpy(sizbuf + sizpos, f->data, f->datalen);
581         len += f->datalen;
582         pos = 0;
583         while(len - pos > FRAME_SIZE * 2) {
584                 soundcard_writeframe((short *)(sizbuf + pos));
585                 pos += FRAME_SIZE * 2;
586         }
587         if (len - pos) 
588                 memmove(sizbuf, sizbuf + pos, len - pos);
589         sizpos = len - pos;
590         return 0;
591 }
592
593 static struct ast_frame *oss_read(struct ast_channel *chan)
594 {
595         static struct ast_frame f;
596         static char buf[FRAME_SIZE * 2 + AST_FRIENDLY_OFFSET];
597         static int readpos = 0;
598         int res;
599         
600 #if 0
601         ast_log(LOG_DEBUG, "oss_read()\n");
602 #endif
603                 
604         f.frametype = AST_FRAME_NULL;
605         f.subclass = 0;
606         f.samples = 0;
607         f.datalen = 0;
608         f.data = NULL;
609         f.offset = 0;
610         f.src = type;
611         f.mallocd = 0;
612         
613         res = soundcard_setinput(0);
614         if (res < 0) {
615                 ast_log(LOG_WARNING, "Unable to set input mode\n");
616                 return NULL;
617         }
618         if (res > 0) {
619                 /* Theoretically shouldn't happen, but anyway, return a NULL frame */
620                 return &f;
621         }
622         res = read(sounddev, buf + AST_FRIENDLY_OFFSET + readpos, FRAME_SIZE * 2 - readpos);
623         if (res < 0) {
624                 ast_log(LOG_WARNING, "Error reading from sound device (If you're running 'artsd' then kill it): %s\n", strerror(errno));
625 #if 0
626                 CRASH;
627 #endif          
628                 return NULL;
629         }
630         readpos += res;
631         
632         if (readpos >= FRAME_SIZE * 2) {
633                 /* A real frame */
634                 readpos = 0;
635                 if (chan->_state != AST_STATE_UP) {
636                         /* Don't transmit unless it's up */
637                         return &f;
638                 }
639                 f.frametype = AST_FRAME_VOICE;
640                 f.subclass = AST_FORMAT_SLINEAR;
641                 f.samples = FRAME_SIZE;
642                 f.datalen = FRAME_SIZE * 2;
643                 f.data = buf + AST_FRIENDLY_OFFSET;
644                 f.offset = AST_FRIENDLY_OFFSET;
645                 f.src = type;
646                 f.mallocd = 0;
647 #if 0
648                 { static int fd = -1;
649                   if (fd < 0)
650                         fd = open("output.raw", O_RDWR | O_TRUNC | O_CREAT);
651                   write(fd, f.data, f.datalen);
652                 }
653 #endif          
654         }
655         return &f;
656 }
657
658 static int oss_fixup(struct ast_channel *oldchan, struct ast_channel *newchan)
659 {
660         struct chan_oss_pvt *p = newchan->pvt->pvt;
661         p->owner = newchan;
662         return 0;
663 }
664
665 static int oss_indicate(struct ast_channel *chan, int cond)
666 {
667         int res;
668         switch(cond) {
669         case AST_CONTROL_BUSY:
670                 res = 1;
671                 break;
672         case AST_CONTROL_CONGESTION:
673                 res = 2;
674                 break;
675         case AST_CONTROL_RINGING:
676                 res = 0;
677                 break;
678         default:
679                 ast_log(LOG_WARNING, "Don't know how to display condition %d on %s\n", cond, chan->name);
680                 return -1;
681         }
682         if (res > -1) {
683                 write(sndcmd[1], &res, sizeof(res));
684         }
685         return 0;       
686 }
687
688 static struct ast_channel *oss_new(struct chan_oss_pvt *p, int state)
689 {
690         struct ast_channel *tmp;
691         tmp = ast_channel_alloc(1);
692         if (tmp) {
693                 snprintf(tmp->name, sizeof(tmp->name), "OSS/%s", DEV_DSP + 5);
694                 tmp->type = type;
695                 tmp->fds[0] = sounddev;
696                 tmp->nativeformats = AST_FORMAT_SLINEAR;
697                 tmp->pvt->pvt = p;
698                 tmp->pvt->send_digit = oss_digit;
699                 tmp->pvt->send_text = oss_text;
700                 tmp->pvt->hangup = oss_hangup;
701                 tmp->pvt->answer = oss_answer;
702                 tmp->pvt->read = oss_read;
703                 tmp->pvt->call = oss_call;
704                 tmp->pvt->write = oss_write;
705                 tmp->pvt->indicate = oss_indicate;
706                 tmp->pvt->fixup = oss_fixup;
707                 if (strlen(p->context))
708                         strncpy(tmp->context, p->context, sizeof(tmp->context)-1);
709                 if (strlen(p->exten))
710                         strncpy(tmp->exten, p->exten, sizeof(tmp->exten)-1);
711                 if (strlen(language))
712                         strncpy(tmp->language, language, sizeof(tmp->language)-1);
713                 p->owner = tmp;
714                 ast_setstate(tmp, state);
715                 ast_mutex_lock(&usecnt_lock);
716                 usecnt++;
717                 ast_mutex_unlock(&usecnt_lock);
718                 ast_update_use_count();
719                 if (state != AST_STATE_DOWN) {
720                         if (ast_pbx_start(tmp)) {
721                                 ast_log(LOG_WARNING, "Unable to start PBX on %s\n", tmp->name);
722                                 ast_hangup(tmp);
723                                 tmp = NULL;
724                         }
725                 }
726         }
727         return tmp;
728 }
729
730 static struct ast_channel *oss_request(char *type, int format, void *data)
731 {
732         int oldformat = format;
733         struct ast_channel *tmp;
734         format &= AST_FORMAT_SLINEAR;
735         if (!format) {
736                 ast_log(LOG_NOTICE, "Asked to get a channel of format '%d'\n", oldformat);
737                 return NULL;
738         }
739         if (oss.owner) {
740                 ast_log(LOG_NOTICE, "Already have a call on the OSS channel\n");
741                 return NULL;
742         }
743         tmp= oss_new(&oss, AST_STATE_DOWN);
744         if (!tmp) {
745                 ast_log(LOG_WARNING, "Unable to create new OSS channel\n");
746         }
747         return tmp;
748 }
749
750 static int console_autoanswer(int fd, int argc, char *argv[])
751 {
752         if ((argc != 1) && (argc != 2))
753                 return RESULT_SHOWUSAGE;
754         if (argc == 1) {
755                 ast_cli(fd, "Auto answer is %s.\n", autoanswer ? "on" : "off");
756                 return RESULT_SUCCESS;
757         } else {
758                 if (!strcasecmp(argv[1], "on"))
759                         autoanswer = -1;
760                 else if (!strcasecmp(argv[1], "off"))
761                         autoanswer = 0;
762                 else
763                         return RESULT_SHOWUSAGE;
764         }
765         return RESULT_SUCCESS;
766 }
767
768 static char *autoanswer_complete(char *line, char *word, int pos, int state)
769 {
770 #ifndef MIN
771 #define MIN(a,b) ((a) < (b) ? (a) : (b))
772 #endif
773         switch(state) {
774         case 0:
775                 if (strlen(word) && !strncasecmp(word, "on", MIN(strlen(word), 2)))
776                         return strdup("on");
777         case 1:
778                 if (strlen(word) && !strncasecmp(word, "off", MIN(strlen(word), 3)))
779                         return strdup("off");
780         default:
781                 return NULL;
782         }
783         return NULL;
784 }
785
786 static char autoanswer_usage[] =
787 "Usage: autoanswer [on|off]\n"
788 "       Enables or disables autoanswer feature.  If used without\n"
789 "       argument, displays the current on/off status of autoanswer.\n"
790 "       The default value of autoanswer is in 'oss.conf'.\n";
791
792 static int console_answer(int fd, int argc, char *argv[])
793 {
794         struct ast_frame f = { AST_FRAME_CONTROL, AST_CONTROL_ANSWER };
795         if (argc != 1)
796                 return RESULT_SHOWUSAGE;
797         if (!oss.owner) {
798                 ast_cli(fd, "No one is calling us\n");
799                 return RESULT_FAILURE;
800         }
801         hookstate = 1;
802         cursound = -1;
803         ast_queue_frame(oss.owner, &f, 1);
804         answer_sound();
805         return RESULT_SUCCESS;
806 }
807
808 static char sendtext_usage[] =
809 "Usage: send text <message>\n"
810 "       Sends a text message for display on the remote terminal.\n";
811
812 static int console_sendtext(int fd, int argc, char *argv[])
813 {
814         int tmparg = 2;
815         char text2send[256];
816         struct ast_frame f = { 0, };
817         if (argc < 2)
818                 return RESULT_SHOWUSAGE;
819         if (!oss.owner) {
820                 ast_cli(fd, "No one is calling us\n");
821                 return RESULT_FAILURE;
822         }
823         if (strlen(text2send))
824                 ast_cli(fd, "Warning: message already waiting to be sent, overwriting\n");
825         strcpy(text2send, "");
826         while(tmparg < argc) {
827                 strncat(text2send, argv[tmparg++], sizeof(text2send) - strlen(text2send));
828                 strncat(text2send, " ", sizeof(text2send) - strlen(text2send));
829         }
830         if (strlen(text2send)) {
831                 f.frametype = AST_FRAME_TEXT;
832                 f.subclass = 0;
833                 f.data = text2send;
834                 f.datalen = strlen(text2send);
835                 ast_queue_frame(oss.owner, &f, 1);
836         }
837         return RESULT_SUCCESS;
838 }
839
840 static char answer_usage[] =
841 "Usage: answer\n"
842 "       Answers an incoming call on the console (OSS) channel.\n";
843
844 static int console_hangup(int fd, int argc, char *argv[])
845 {
846         if (argc != 1)
847                 return RESULT_SHOWUSAGE;
848         cursound = -1;
849         if (!oss.owner && !hookstate) {
850                 ast_cli(fd, "No call to hangup up\n");
851                 return RESULT_FAILURE;
852         }
853         hookstate = 0;
854         if (oss.owner) {
855                 ast_queue_hangup(oss.owner, 1);
856         }
857         return RESULT_SUCCESS;
858 }
859
860 static char hangup_usage[] =
861 "Usage: hangup\n"
862 "       Hangs up any call currently placed on the console.\n";
863
864
865 static int console_dial(int fd, int argc, char *argv[])
866 {
867         char tmp[256], *tmp2;
868         char *mye, *myc;
869         int x;
870         struct ast_frame f = { AST_FRAME_DTMF, 0 };
871         if ((argc != 1) && (argc != 2))
872                 return RESULT_SHOWUSAGE;
873         if (oss.owner) {
874                 if (argc == 2) {
875                         for (x=0;x<strlen(argv[1]);x++) {
876                                 f.subclass = argv[1][x];
877                                 ast_queue_frame(oss.owner, &f, 1);
878                         }
879                 } else {
880                         ast_cli(fd, "You're already in a call.  You can use this only to dial digits until you hangup\n");
881                         return RESULT_FAILURE;
882                 }
883                 return RESULT_SUCCESS;
884         }
885         mye = exten;
886         myc = context;
887         if (argc == 2) {
888                 char *stringp=NULL;
889                 strncpy(tmp, argv[1], sizeof(tmp)-1);
890                 stringp=tmp;
891                 strsep(&stringp, "@");
892                 tmp2 = strsep(&stringp, "@");
893                 if (strlen(tmp))
894                         mye = tmp;
895                 if (tmp2 && strlen(tmp2))
896                         myc = tmp2;
897         }
898         if (ast_exists_extension(NULL, myc, mye, 1, NULL)) {
899                 strncpy(oss.exten, mye, sizeof(oss.exten)-1);
900                 strncpy(oss.context, myc, sizeof(oss.context)-1);
901                 hookstate = 1;
902                 oss_new(&oss, AST_STATE_RINGING);
903         } else
904                 ast_cli(fd, "No such extension '%s' in context '%s'\n", mye, myc);
905         return RESULT_SUCCESS;
906 }
907
908 static char dial_usage[] =
909 "Usage: dial [extension[@context]]\n"
910 "       Dials a given extensison (";
911
912 static int console_transfer(int fd, int argc, char *argv[])
913 {
914         char tmp[256];
915         char *context;
916         if (argc != 2)
917                 return RESULT_SHOWUSAGE;
918         if (oss.owner && oss.owner->bridge) {
919                 strncpy(tmp, argv[1], sizeof(tmp) - 1);
920                 context = strchr(tmp, '@');
921                 if (context) {
922                         *context = '\0';
923                         context++;
924                 } else
925                         context = oss.owner->context;
926                 if (ast_exists_extension(oss.owner->bridge, context, tmp, 1, oss.owner->bridge->callerid)) {
927                         ast_cli(fd, "Whee, transferring %s to %s@%s.\n", 
928                                         oss.owner->bridge->name, tmp, context);
929                         if (ast_async_goto(oss.owner->bridge, context, tmp, 1, 1))
930                                 ast_cli(fd, "Failed to transfer :(\n");
931                 } else {
932                         ast_cli(fd, "No such extension exists\n");
933                 }
934         } else {
935                 ast_cli(fd, "There is no call to transfer\n");
936         }
937         return RESULT_SUCCESS;
938 }
939
940 static char transfer_usage[] =
941 "Usage: transfer <extension>[@context]\n"
942 "       Transfers the currently connected call to the given extension (and\n"
943 "context if specified)\n";
944
945 static struct ast_cli_entry myclis[] = {
946         { { "answer", NULL }, console_answer, "Answer an incoming console call", answer_usage },
947         { { "hangup", NULL }, console_hangup, "Hangup a call on the console", hangup_usage },
948         { { "dial", NULL }, console_dial, "Dial an extension on the console", dial_usage },
949         { { "transfer", NULL }, console_transfer, "Transfer a call to a different extension", transfer_usage },
950         { { "send", "text", NULL }, console_sendtext, "Send text to the remote device", sendtext_usage },
951         { { "autoanswer", NULL }, console_autoanswer, "Sets/displays autoanswer", autoanswer_usage, autoanswer_complete }
952 };
953
954 int load_module()
955 {
956         int res;
957         int x;
958         struct ast_config *cfg;
959         struct ast_variable *v;
960         res = pipe(sndcmd);
961         if (res) {
962                 ast_log(LOG_ERROR, "Unable to create pipe\n");
963                 return -1;
964         }
965         res = soundcard_init();
966         if (res < 0) {
967                 if (option_verbose > 1) {
968                         ast_verbose(VERBOSE_PREFIX_2 "No sound card detected -- console channel will be unavailable\n");
969                         ast_verbose(VERBOSE_PREFIX_2 "Turn off OSS support by adding 'noload=chan_oss.so' in /etc/asterisk/modules.conf\n");
970                 }
971                 return 0;
972         }
973         if (!full_duplex)
974                 ast_log(LOG_WARNING, "XXX I don't work right with non-full duplex sound cards XXX\n");
975         res = ast_channel_register(type, tdesc, AST_FORMAT_SLINEAR, oss_request);
976         if (res < 0) {
977                 ast_log(LOG_ERROR, "Unable to register channel class '%s'\n", type);
978                 return -1;
979         }
980         for (x=0;x<sizeof(myclis)/sizeof(struct ast_cli_entry); x++)
981                 ast_cli_register(myclis + x);
982         if ((cfg = ast_load(config))) {
983                 v = ast_variable_browse(cfg, "general");
984                 while(v) {
985                         if (!strcasecmp(v->name, "autoanswer"))
986                                 autoanswer = ast_true(v->value);
987                         else if (!strcasecmp(v->name, "silencesuppression"))
988                                 silencesuppression = ast_true(v->value);
989                         else if (!strcasecmp(v->name, "silencethreshold"))
990                                 silencethreshold = atoi(v->value);
991                         else if (!strcasecmp(v->name, "context"))
992                                 strncpy(context, v->value, sizeof(context)-1);
993                         else if (!strcasecmp(v->name, "language"))
994                                 strncpy(language, v->value, sizeof(language)-1);
995                         else if (!strcasecmp(v->name, "extension"))
996                                 strncpy(exten, v->value, sizeof(exten)-1);
997                         v=v->next;
998                 }
999                 ast_destroy(cfg);
1000         }
1001         pthread_create(&sthread, NULL, sound_thread, NULL);
1002         return 0;
1003 }
1004
1005
1006
1007 int unload_module()
1008 {
1009         int x;
1010         for (x=0;x<sizeof(myclis)/sizeof(struct ast_cli_entry); x++)
1011                 ast_cli_unregister(myclis + x);
1012         close(sounddev);
1013         if (sndcmd[0] > 0) {
1014                 close(sndcmd[0]);
1015                 close(sndcmd[1]);
1016         }
1017         if (oss.owner)
1018                 ast_softhangup(oss.owner, AST_SOFTHANGUP_APPUNLOAD);
1019         if (oss.owner)
1020                 return -1;
1021         return 0;
1022 }
1023
1024 char *description()
1025 {
1026         return desc;
1027 }
1028
1029 int usecount()
1030 {
1031         int res;
1032         ast_mutex_lock(&usecnt_lock);
1033         res = usecnt;
1034         ast_mutex_unlock(&usecnt_lock);
1035         return res;
1036 }
1037
1038 char *key()
1039 {
1040         return ASTERISK_GPL_KEY;
1041 }