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