1 /*****************************************************************************\
3 ** Linux Call Router **
5 **---------------------------------------------------------------------------**
6 ** Copyright: Andreas Eversberg **
8 ** mISDN channel handlin for remote application **
10 \*****************************************************************************/
18 #include <sys/ioctl.h>
19 #include <sys/types.h>
22 #include <netinet/udp.h>
23 #include <netinet/in.h>
25 #include <sys/socket.h>
26 #include <mISDN/mISDNif.h>
28 #include <mISDN/mISDNcompat.h>
29 int __af_isdn = MISDN_AF_ISDN;
30 #include <mISDN/q931.h>
32 #define HAVE_ATTRIBUTE_always_inline 1
33 #define HAVE_ARPA_INET_H 1
34 #define HAVE_TIMERSUB 1
36 #include <asterisk/compiler.h>
37 #include <asterisk/frame.h>
39 /* Choose if you want to have chan_lcr for Asterisk 1.4.x or CallWeaver 1.2.x */
40 /* #define LCR_FOR_CALLWEAVER */
42 #ifdef LCR_FOR_CALLWEAVER
43 #include <asterisk/phone_no_utils.h>
44 #include <asterisk/logger.h>
45 #include <asterisk/module.h>
46 #include <asterisk/channel.h>
49 #include "extension.h"
51 #include "lcrsocket.h"
60 #ifndef ISDN_PID_L4_B_USER
61 #define ISDN_PID_L4_B_USER 0x440000ff
73 static void bchannel_send_queue(struct bchannel *bchannel);
75 int bchannel_initialize(void)
80 void bchannel_deinitialize(void)
85 * send control information to the channel (dsp-module)
87 static void ph_control(int sock, unsigned int c1, unsigned int c2, char *trace_name, int trace_value, int b_mode)
89 unsigned char buffer[MISDN_HEADER_LEN+sizeof(int)+sizeof(int)];
90 struct mISDNhead *ctrl = (struct mISDNhead *)buffer;
91 unsigned int *d = (unsigned int *)(buffer+MISDN_HEADER_LEN);
94 if (b_mode != 0 && b_mode != 2)
97 CDEBUG(NULL, NULL, "Sending PH_CONTROL %s %x,%x\n", trace_name, c1, c2);
98 ctrl->prim = PH_CONTROL_REQ;
102 ret = sendto(sock, buffer, MISDN_HEADER_LEN+sizeof(int)*2, 0, NULL, 0);
104 CERROR(NULL, NULL, "Failed to send to socket %d\n", sock);
107 static void ph_control_block(int sock, unsigned int c1, void *c2, int c2_len, char *trace_name, int trace_value, int b_mode)
109 unsigned char buffer[MISDN_HEADER_LEN+sizeof(int)+c2_len];
110 struct mISDNhead *ctrl = (struct mISDNhead *)buffer;
111 unsigned int *d = (unsigned int *)(buffer+MISDN_HEADER_LEN);
114 if (b_mode != 0 && b_mode != 2)
117 CDEBUG(NULL, NULL, "Sending PH_CONTROL (block) %s %x\n", trace_name, c1);
118 ctrl->prim = PH_CONTROL_REQ;
121 memcpy(d, c2, c2_len);
122 ret = sendto(sock, buffer, MISDN_HEADER_LEN+sizeof(int)+c2_len, 0, NULL, 0);
124 CERROR(NULL, NULL, "Failed to send to socket %d\n", sock);
127 static int bchannel_handle(struct lcr_fd *fd, unsigned int what, void *instance, int index);
132 int bchannel_create(struct bchannel *bchannel, int mode, int queue)
135 struct sockaddr_mISDN addr;
137 if (bchannel->b_sock > -1) {
138 CERROR(bchannel->call, NULL, "Socket already created for handle 0x%x\n", bchannel->handle);
143 bchannel->b_mode = (mode & 3);
144 switch(bchannel->b_mode) {
146 CDEBUG(bchannel->call, NULL, "Open DSP audio\n");
147 bchannel->b_sock = socket(PF_ISDN, SOCK_DGRAM, ISDN_P_B_L2DSP);
150 CDEBUG(bchannel->call, NULL, "Open audio\n");
151 bchannel->b_sock = socket(PF_ISDN, SOCK_DGRAM, ISDN_P_B_RAW);
154 CDEBUG(bchannel->call, NULL, "Open DSP HDLC\n");
155 bchannel->b_sock = socket(PF_ISDN, SOCK_DGRAM, ISDN_P_B_L2DSPHDLC);
158 CDEBUG(bchannel->call, NULL, "Open HDLC\n");
159 bchannel->b_sock = socket(PF_ISDN, SOCK_DGRAM, ISDN_P_B_HDLC);
162 if (bchannel->b_sock < 0) {
163 CERROR(bchannel->call, NULL, "Failed to open bchannel-socket for handle 0x%x with mISDN-DSP layer. Did you load mISDN_dsp.ko?\n", bchannel->handle);
168 memset(&bchannel->lcr_fd, 0, sizeof(bchannel->lcr_fd));
169 bchannel->lcr_fd.fd = bchannel->b_sock;
170 register_fd(&bchannel->lcr_fd, LCR_FD_READ | LCR_FD_EXCEPT, bchannel_handle, bchannel, 0);
172 /* bind socket to bchannel */
173 addr.family = AF_ISDN;
174 addr.dev = (bchannel->handle>>8);
175 addr.channel = bchannel->handle & 0xff;
176 ret = bind(bchannel->b_sock, (struct sockaddr *)&addr, sizeof(addr));
178 CERROR(bchannel->call, NULL, "Failed to bind bchannel-socket for handle 0x%x with mISDN-DSP layer. (port %d, channel %d) Did you load mISDN_dsp.ko?\n", bchannel->handle, addr.dev, addr.channel);
179 unregister_fd(&bchannel->lcr_fd);
180 close(bchannel->b_sock);
181 bchannel->b_sock = -1;
186 if (bchannel->b_mode == 1 && queue) {
187 bchannel->nodsp_queue_out = 0;
188 bchannel->nodsp_queue_in = queue * 8;
189 if (bchannel->nodsp_queue_in > QUEUE_BUFFER_MAX-1)
190 bchannel->nodsp_queue_in = QUEUE_BUFFER_MAX-1;
191 bchannel->nodsp_queue = bchannel->nodsp_queue_in; /* store initial load */
192 memset(&bchannel->nodsp_queue_buffer, (options.law=='a')?0x2a:0xff, QUEUE_BUFFER_SIZE);
193 bchannel->queue_sent = 0;
195 bchannel->nodsp_queue = 0;
202 * activate / deactivate request
204 void bchannel_activate(struct bchannel *bchannel, int activate)
206 struct mISDNhead act;
209 /* activate bchannel */
210 CDEBUG(bchannel->call, NULL, "%sActivating B-channel.\n", activate?"":"De-");
211 switch(bchannel->b_mode) {
214 act.prim = (activate)?DL_ESTABLISH_REQ:DL_RELEASE_REQ;
218 act.prim = (activate)?PH_ACTIVATE_REQ:PH_DEACTIVATE_REQ;
222 ret = sendto(bchannel->b_sock, &act, MISDN_HEADER_LEN, 0, NULL, 0);
224 CERROR(bchannel->call, NULL, "Failed to send to socket %d\n", bchannel->b_sock);
226 bchannel->b_state = (activate)?BSTATE_ACTIVATING:BSTATE_DEACTIVATING;
233 static void bchannel_activated(struct bchannel *bchannel)
237 sock = bchannel->b_sock;
239 /* set dsp features */
240 if (bchannel->b_txdata)
241 ph_control(sock, (bchannel->b_txdata)?DSP_TXDATA_ON:DSP_TXDATA_OFF, 0, "DSP-TXDATA", bchannel->b_txdata, bchannel->b_mode);
242 if (bchannel->b_delay && bchannel->b_mode == 0)
243 ph_control(sock, DSP_DELAY, bchannel->b_delay, "DSP-DELAY", bchannel->b_delay, bchannel->b_mode);
244 if (bchannel->b_tx_dejitter && bchannel->b_mode == 0)
245 ph_control(sock, (bchannel->b_tx_dejitter)?DSP_TX_DEJITTER:DSP_TX_DEJ_OFF, 0, "DSP-TX_DEJITTER", bchannel->b_tx_dejitter, bchannel->b_mode);
246 if (bchannel->b_tx_gain && bchannel->b_mode == 0)
247 ph_control(sock, DSP_VOL_CHANGE_TX, bchannel->b_tx_gain, "DSP-TX_GAIN", bchannel->b_tx_gain, bchannel->b_mode);
248 if (bchannel->b_rx_gain && bchannel->b_mode == 0)
249 ph_control(sock, DSP_VOL_CHANGE_RX, bchannel->b_rx_gain, "DSP-RX_GAIN", bchannel->b_rx_gain, bchannel->b_mode);
250 if (bchannel->b_pipeline[0] && bchannel->b_mode == 0)
251 ph_control_block(sock, DSP_PIPELINE_CFG, bchannel->b_pipeline, strlen(bchannel->b_pipeline)+1, "DSP-PIPELINE", 0, bchannel->b_mode);
252 if (bchannel->b_conf)
253 ph_control(sock, DSP_CONF_JOIN, bchannel->b_conf, "DSP-CONF", bchannel->b_conf, bchannel->b_mode);
254 if (bchannel->b_echo)
255 ph_control(sock, DSP_ECHO_ON, 0, "DSP-ECHO", 1, bchannel->b_mode);
256 if (bchannel->b_tone && bchannel->b_mode == 0)
257 ph_control(sock, DSP_TONE_PATT_ON, bchannel->b_tone, "DSP-TONE", bchannel->b_tone, bchannel->b_mode);
258 if (bchannel->b_rxoff)
259 ph_control(sock, DSP_RECEIVE_OFF, 0, "DSP-RXOFF", 1, bchannel->b_mode);
260 // if (bchannel->b_txmix && bchannel->b_mode == 0)
261 // ph_control(sock, DSP_MIX_ON, 0, "DSP-MIX", 1, bchannel->b_mode);
262 if (bchannel->b_dtmf && bchannel->b_mode == 0)
263 ph_control(sock, DTMF_TONE_START, 0, "DSP-DTMF", 1, bchannel->b_mode);
264 if (bchannel->b_bf_len && bchannel->b_mode == 0)
265 ph_control_block(sock, DSP_BF_ENABLE_KEY, bchannel->b_bf_key, bchannel->b_bf_len, "DSP-CRYPT", bchannel->b_bf_len, bchannel->b_mode);
266 if (bchannel->b_conf)
267 ph_control(sock, DSP_CONF_JOIN, bchannel->b_conf, "DSP-CONF", bchannel->b_conf, bchannel->b_mode);
269 bchannel->b_state = BSTATE_ACTIVE;
275 void bchannel_destroy(struct bchannel *bchannel)
277 if (bchannel->b_sock > -1) {
278 unregister_fd(&bchannel->lcr_fd);
279 close(bchannel->b_sock);
280 bchannel->b_sock = -1;
282 bchannel->b_state = BSTATE_IDLE;
287 * whenever we get audio data from bchannel, we process it here
289 static void bchannel_receive(struct bchannel *bchannel, unsigned char *buffer, int len)
291 struct mISDNhead *hh = (struct mISDNhead *)buffer;
292 unsigned char *data = buffer + MISDN_HEADER_LEN;
293 unsigned int cont = *((unsigned int *)data);
296 struct bchannel *remote_bchannel;
299 if (hh->prim == PH_CONTROL_IND) {
300 /* non dsp -> ignore ph_control */
301 if (bchannel->b_mode == 1 || bchannel->b_mode == 3)
304 CERROR(bchannel->call, NULL, "SHORT READ OF PH_CONTROL INDICATION\n");
307 if ((cont&(~DTMF_TONE_MASK)) == DTMF_TONE_VAL) {
309 lcr_in_dtmf(bchannel->call, cont & DTMF_TONE_MASK);
314 CERROR(bchannel->call, NULL, "Blowfish crypt rejected.\n");
318 CDEBUG(bchannel->call, NULL, "Blowfish crypt enabled.\n");
322 CDEBUG(bchannel->call, NULL, "Unhandled bchannel control 0x%x.\n", cont);
326 if (hh->prim == PH_DATA_REQ) {
327 if (!bchannel->b_txdata) {
328 /* if tx is off, it may happen that fifos send us pending informations, we just ignore them */
329 CDEBUG(bchannel->call, NULL, "ignoring tx data, because 'txdata' is turned off\n");
334 if (hh->prim != PH_DATA_IND && hh->prim != DL_DATA_IND) {
335 CERROR(bchannel->call, NULL, "Bchannel received unknown primitve: 0x%lx\n", hh->prim);
338 /* if calls are bridged, but not via dsp (no b_conf), forward here */
339 if (!bchannel->b_conf
341 && bchannel->call->bridge_call
342 && bchannel->call->bridge_call->bchannel) {
343 remote_bchannel = bchannel->call->bridge_call->bchannel;
346 char string[4096] = "";
348 sprintf(string+strlen(string), " %02x", data[i]);
351 CDEBUG(remote_bchannel->call, NULL, "Forwarding packet%s\n", string);
353 hh->prim = PH_DATA_REQ;
355 ret = sendto(remote_bchannel->b_sock, buffer, MISDN_HEADER_LEN+len, 0, NULL, 0);
357 CERROR(remote_bchannel->call, NULL, "Failed to send to socket %d\n", bchannel->b_sock);
360 /* calls will not process any audio data unless
361 * the call is connected OR interface features audio during call setup.
364 /* if rx is off, it may happen that fifos send us pending informations, we just ignore them */
365 if (bchannel->b_rxoff) {
366 CDEBUG(bchannel->call, NULL, "ignoring data, because rx is turned off\n");
370 if (!bchannel->call) {
371 CDEBUG(bchannel->call, NULL, "ignoring data, because no call associated with bchannel\n");
374 if (!bchannel->call->audiopath) {
375 /* return, because we have no audio from port */
379 if (bchannel->call->pipe[1] < 0) {
385 if (bchannel->b_mode == 0 || bchannel->b_mode == 1) {
387 for (i = 0; i < len; i++) {
394 len = write(bchannel->call->pipe[1], data, len);
400 close(bchannel->call->pipe[1]);
401 bchannel->call->pipe[1] = -1;
402 CDEBUG(bchannel->call, NULL, "broken pipe on bchannel pipe\n");
407 * transmit data to bchannel
409 void bchannel_transmit(struct bchannel *bchannel, unsigned char *data, int len)
411 unsigned char buff[1024 + MISDN_HEADER_LEN], *p = buff + MISDN_HEADER_LEN;
412 struct mISDNhead *frm = (struct mISDNhead *)buff;
417 if (bchannel->b_state != BSTATE_ACTIVE)
419 if (len > 1024 || len < 1)
422 switch(bchannel->b_mode) {
424 for (i = 0; i < len; i++)
425 *p++ = flip_bits[*data++];
426 frm->prim = DL_DATA_REQ;
429 for (i = 0; i < len; i++)
430 *p++ = flip_bits[*data++];
431 frm->prim = PH_DATA_REQ;
434 memcpy(p, data, len);
435 frm->prim = DL_DATA_REQ;
438 memcpy(p, data, len);
439 frm->prim = PH_DATA_REQ;
443 memset(p, flip_bits[(options.law=='a')?0x2a:0xff], len);
446 unsigned char test_tone[8] = {0x2a, 0x24, 0xb4, 0x24, 0x2a, 0x25, 0xb5, 0x25};
447 p = buff + MISDN_HEADER_LEN;
448 for (i = 0; i < len; i++)
449 *p++ = test_tone[(bchannel->test + i) & 7];
450 bchannel->test = (bchannel->test + len) & 7;
452 if (bchannel->nodsp_queue) {
453 space = (bchannel->nodsp_queue_out - bchannel->nodsp_queue_in - 1) & (QUEUE_BUFFER_SIZE - 1);
455 CERROR(bchannel->call, NULL, "Queue buffer overflow, space is %d, len is %d.\n", space, len);
458 p = buff + MISDN_HEADER_LEN;
459 in = bchannel->nodsp_queue_in;
460 for (i = 0; i < len; i++) {
461 bchannel->nodsp_queue_buffer[in] = *p++;
462 in = (in + 1) & (QUEUE_BUFFER_SIZE - 1);
464 bchannel->nodsp_queue_in = in;
465 if (bchannel->queue_sent == 0) /* if there is no pending data */
466 bchannel_send_queue(bchannel);
469 ret = sendto(bchannel->b_sock, buff, MISDN_HEADER_LEN+len, 0, NULL, 0);
471 CERROR(bchannel->call, NULL, "Failed to send to socket %d\n", bchannel->b_sock);
476 * in case of a send queue, we send from that queue rather directly
478 static void bchannel_send_queue(struct bchannel *bchannel)
480 unsigned char buff[1024 + MISDN_HEADER_LEN], *p = buff + MISDN_HEADER_LEN;
481 struct mISDNhead *frm = (struct mISDNhead *)buff;
486 len = (bchannel->nodsp_queue_in - bchannel->nodsp_queue_out) & (QUEUE_BUFFER_SIZE - 1);
488 return; /* mISDN driver received all load */
490 printf("%4d:(%s|%s)\n", bchannel->nodsp_queue_out,
491 "----------------------------------------------------------------"+64-len/(8192/64),
496 frm->prim = PH_DATA_REQ;
498 out = bchannel->nodsp_queue_out;
499 for (i = 0; i < len; i++) {
500 *p++ = bchannel->nodsp_queue_buffer[out];
501 out = (out + 1) & (QUEUE_BUFFER_SIZE - 1);
503 bchannel->nodsp_queue_out = out;
504 ret = sendto(bchannel->b_sock, buff, MISDN_HEADER_LEN+len, 0, NULL, 0);
506 CERROR(bchannel->call, NULL, "Failed to send to socket %d\n", bchannel->b_sock);
508 bchannel->queue_sent = 1;
515 void bchannel_join(struct bchannel *bchannel, unsigned short id)
519 sock = bchannel->b_sock;
521 bchannel->b_conf = (id<<16) + bchannel_pid;
522 bchannel->b_rxoff = 1;
524 bchannel->b_conf = 0;
525 bchannel->b_rxoff = 0;
527 if (bchannel->b_state == BSTATE_ACTIVE) {
528 ph_control(sock, DSP_RECEIVE_OFF, bchannel->b_rxoff, "DSP-RX_OFF", bchannel->b_conf, bchannel->b_mode);
529 ph_control(sock, DSP_CONF_JOIN, bchannel->b_conf, "DSP-CONF", bchannel->b_conf, bchannel->b_mode);
537 void bchannel_dtmf(struct bchannel *bchannel, int on)
541 sock = bchannel->b_sock;
542 bchannel->b_dtmf = on;
543 if (bchannel->b_state == BSTATE_ACTIVE && bchannel->b_mode == 0)
544 ph_control(sock, on?DTMF_TONE_START:DTMF_TONE_STOP, 0, "DSP-DTMF", 1, bchannel->b_mode);
551 void bchannel_blowfish(struct bchannel *bchannel, unsigned char *key, int len)
555 sock = bchannel->b_sock;
556 memcpy(bchannel->b_bf_key, key, len);
557 bchannel->b_bf_len = len;
558 if (bchannel->b_state == BSTATE_ACTIVE)
559 ph_control_block(sock, DSP_BF_ENABLE_KEY, bchannel->b_bf_key, bchannel->b_bf_len, "DSP-CRYPT", bchannel->b_bf_len, bchannel->b_mode);
566 void bchannel_pipeline(struct bchannel *bchannel, char *pipeline)
570 sock = bchannel->b_sock;
571 strncpy(bchannel->b_pipeline, pipeline, sizeof(bchannel->b_pipeline)-1);
572 if (bchannel->b_state == BSTATE_ACTIVE)
573 ph_control_block(sock, DSP_PIPELINE_CFG, bchannel->b_pipeline, strlen(bchannel->b_pipeline)+1, "DSP-PIPELINE", 0, bchannel->b_mode);
580 void bchannel_gain(struct bchannel *bchannel, int gain, int tx)
584 sock = bchannel->b_sock;
586 bchannel->b_tx_gain = gain;
588 bchannel->b_rx_gain = gain;
589 if (bchannel->b_state == BSTATE_ACTIVE && bchannel->b_mode == 0)
590 ph_control(sock, (tx)?DSP_VOL_CHANGE_TX:DSP_VOL_CHANGE_RX, gain, (tx)?"DSP-TX_GAIN":"DSP-RX_GAIN", gain, bchannel->b_mode);
595 * main loop for processing messages from mISDN
597 static int bchannel_handle(struct lcr_fd *fd, unsigned int what, void *instance, int index)
599 struct bchannel *bchannel = (struct bchannel *)instance;
601 unsigned char buffer[2048+MISDN_HEADER_LEN];
602 struct mISDNhead *hh = (struct mISDNhead *)buffer;
604 ret = recv(bchannel->b_sock, buffer, sizeof(buffer), 0);
605 if (ret >= (int)MISDN_HEADER_LEN) {
607 /* after a confim, we can send more from queue */
609 if (bchannel->nodsp_queue) {
610 bchannel->queue_sent = 0;
611 bchannel_send_queue(bchannel);
615 /* we receive audio data, we respond to it AND we send tones */
620 bchannel_receive(bchannel, buffer, ret-MISDN_HEADER_LEN);
623 case PH_ACTIVATE_IND:
624 case DL_ESTABLISH_IND:
625 case PH_ACTIVATE_CNF:
626 case DL_ESTABLISH_CNF:
627 CDEBUG(bchannel->call, NULL, "DL_ESTABLISH confirm: bchannel is now activated (socket %d).\n", bchannel->b_sock);
628 bchannel_activated(bchannel);
631 case PH_DEACTIVATE_IND:
633 case PH_DEACTIVATE_CNF:
635 CDEBUG(bchannel->call, NULL, "DL_RELEASE confirm: bchannel is now de-activated (socket %d).\n", bchannel->b_sock);
636 // bchannel_deactivated(bchannel);
640 CERROR(bchannel->call, NULL, "child message not handled: prim(0x%x) socket(%d) data len(%d)\n", hh->prim, bchannel->b_sock, ret - MISDN_HEADER_LEN);
643 // if (ret < 0 && errno != EWOULDBLOCK)
644 CERROR(bchannel->call, NULL, "Read from socket %d failed with return code %d\n", bchannel->b_sock, ret);
647 /* if we received at least one b-frame, we will return 1 */
653 * bchannel channel handling
655 struct bchannel *bchannel_first = NULL;
656 struct bchannel *find_bchannel_handle(unsigned int handle)
658 struct bchannel *bchannel = bchannel_first;
661 if (bchannel->handle == handle)
663 bchannel = bchannel->next;
669 struct bchannel *find_bchannel_ref(unsigned int ref)
671 struct bchannel *bchannel = bchannel_first;
674 if (bchannel->ref == ref)
676 bchannel = bchannel->next;
682 struct bchannel *alloc_bchannel(unsigned int handle)
684 struct bchannel **bchannelp = &bchannel_first;
687 bchannelp = &((*bchannelp)->next);
689 *bchannelp = (struct bchannel *)calloc(1, sizeof(struct bchannel));
692 (*bchannelp)->handle = handle;
693 (*bchannelp)->b_state = BSTATE_IDLE;
694 (*bchannelp)->b_sock = -1;
699 void free_bchannel(struct bchannel *bchannel)
701 struct bchannel **temp = &bchannel_first;
704 if (*temp == bchannel) {
705 *temp = (*temp)->next;
706 if (bchannel->b_sock > -1)
707 bchannel_destroy(bchannel);
708 if (bchannel->call) {
709 if (bchannel->call->bchannel)
710 bchannel->call->bchannel = NULL;
715 temp = &((*temp)->next);