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