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