809 lines
21 KiB
C
809 lines
21 KiB
C
/*
|
|
* (C) 2010 by Andreas Eversberg <jolly@eversberg.eu>
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
*/
|
|
|
|
#include <stdint.h>
|
|
#include <errno.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
#include <osmocom/core/talloc.h>
|
|
|
|
#include <osmocom/bb/common/logging.h>
|
|
#include <osmocom/bb/common/osmocom_data.h>
|
|
#include <osmocom/bb/mobile/mncc.h>
|
|
#include <osmocom/bb/mobile/mncc_ms.h>
|
|
#include <osmocom/bb/mobile/vty.h>
|
|
|
|
static uint32_t new_callref = 1;
|
|
static LLIST_HEAD(call_list);
|
|
|
|
static int dtmf_statemachine(struct gsm_call *call, struct gsm_mncc *mncc);
|
|
static void timeout_dtmf(void *arg);
|
|
|
|
/*
|
|
* support functions
|
|
*/
|
|
|
|
/* DTMF timer */
|
|
static void start_dtmf_timer(struct gsm_call *call, uint16_t ms)
|
|
{
|
|
LOGP(DCC, LOGL_INFO, "starting DTMF timer %d ms\n", ms);
|
|
call->dtmf_timer.cb = timeout_dtmf;
|
|
call->dtmf_timer.data = call;
|
|
osmo_timer_schedule(&call->dtmf_timer, 0, ms * 1000);
|
|
}
|
|
|
|
static void stop_dtmf_timer(struct gsm_call *call)
|
|
{
|
|
if (osmo_timer_pending(&call->dtmf_timer)) {
|
|
LOGP(DCC, LOGL_INFO, "stopping pending DTMF timer\n");
|
|
osmo_timer_del(&call->dtmf_timer);
|
|
}
|
|
}
|
|
|
|
/* free call instance */
|
|
static void free_call(struct gsm_call *call)
|
|
{
|
|
stop_dtmf_timer(call);
|
|
|
|
llist_del(&call->entry);
|
|
DEBUGP(DMNCC, "(call %x) Call removed.\n", call->callref);
|
|
talloc_free(call);
|
|
}
|
|
|
|
|
|
struct gsm_call *get_call_ref(uint32_t callref)
|
|
{
|
|
struct gsm_call *callt;
|
|
|
|
llist_for_each_entry(callt, &call_list, entry) {
|
|
if (callt->callref == callref)
|
|
return callt;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static int8_t mncc_get_bearer(struct gsm_settings *set, uint8_t speech_ver)
|
|
{
|
|
switch (speech_ver) {
|
|
case 4:
|
|
if (set->full_v3)
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests full rate v3\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, " full rate v3 not supported\n");
|
|
speech_ver = -1;
|
|
}
|
|
break;
|
|
case 2:
|
|
if (set->full_v2)
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests full rate v2\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, " full rate v2 not supported\n");
|
|
speech_ver = -1;
|
|
}
|
|
break;
|
|
case 0: /* mandatory */
|
|
if (set->full_v1)
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests full rate v1\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, " full rate v1 not supported\n");
|
|
speech_ver = -1;
|
|
}
|
|
break;
|
|
case 5:
|
|
if (set->half_v3)
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests half rate v3\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, " half rate v3 not supported\n");
|
|
speech_ver = -1;
|
|
}
|
|
break;
|
|
case 1:
|
|
if (set->half_v1)
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests half rate v1\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, " half rate v1 not supported\n");
|
|
speech_ver = -1;
|
|
}
|
|
break;
|
|
default:
|
|
LOGP(DMNCC, LOGL_INFO, " net suggests unknown speech version "
|
|
"%d\n", speech_ver);
|
|
speech_ver = -1;
|
|
}
|
|
|
|
return speech_ver;
|
|
}
|
|
|
|
static void mncc_set_bearer(struct osmocom_ms *ms, int8_t speech_ver,
|
|
struct gsm_mncc *mncc)
|
|
{
|
|
struct gsm_settings *set = &ms->settings;
|
|
int i = 0;
|
|
|
|
mncc->fields |= MNCC_F_BEARER_CAP;
|
|
mncc->bearer_cap.coding = 0;
|
|
if (set->ch_cap == GSM_CAP_SDCCH_TCHF_TCHH
|
|
&& (set->half_v1 || set->half_v3)) {
|
|
mncc->bearer_cap.radio = 3;
|
|
LOGP(DMNCC, LOGL_INFO, " support TCH/H also\n");
|
|
} else {
|
|
mncc->bearer_cap.radio = 1;
|
|
LOGP(DMNCC, LOGL_INFO, " support TCH/F only\n");
|
|
}
|
|
mncc->bearer_cap.speech_ctm = 0;
|
|
/* if no specific speech_ver is given */
|
|
if (speech_ver < 0) {
|
|
/* if half rate is supported and preferred */
|
|
if (set->half_v3 && set->half && set->half_prefer) {
|
|
mncc->bearer_cap.speech_ver[i++] = 5;
|
|
LOGP(DMNCC, LOGL_INFO, " support half rate v3\n");
|
|
}
|
|
if (set->half_v1 && set->half && set->half_prefer) {
|
|
mncc->bearer_cap.speech_ver[i++] = 1;
|
|
LOGP(DMNCC, LOGL_INFO, " support half rate v1\n");
|
|
}
|
|
/* if full rate is supported */
|
|
if (set->full_v3) {
|
|
mncc->bearer_cap.speech_ver[i++] = 4;
|
|
LOGP(DMNCC, LOGL_INFO, " support full rate v3\n");
|
|
}
|
|
if (set->full_v2) {
|
|
mncc->bearer_cap.speech_ver[i++] = 2;
|
|
LOGP(DMNCC, LOGL_INFO, " support full rate v2\n");
|
|
}
|
|
if (set->full_v1) { /* mandatory, so it's always true */
|
|
mncc->bearer_cap.speech_ver[i++] = 0;
|
|
LOGP(DMNCC, LOGL_INFO, " support full rate v1\n");
|
|
}
|
|
/* if half rate is supported and not preferred */
|
|
if (set->half_v3 && set->half && !set->half_prefer) {
|
|
mncc->bearer_cap.speech_ver[i++] = 5;
|
|
LOGP(DMNCC, LOGL_INFO, " support half rate v3\n");
|
|
}
|
|
if (set->half_v1 && set->half && !set->half_prefer) {
|
|
mncc->bearer_cap.speech_ver[i++] = 1;
|
|
LOGP(DMNCC, LOGL_INFO, " support half rate v1\n");
|
|
}
|
|
/* if specific speech_ver is given (it must be supported) */
|
|
} else
|
|
mncc->bearer_cap.speech_ver[i++] = speech_ver;
|
|
mncc->bearer_cap.speech_ver[i] = -1; /* end of list */
|
|
mncc->bearer_cap.transfer = 0;
|
|
mncc->bearer_cap.mode = 0;
|
|
}
|
|
|
|
/*
|
|
* MNCCms dummy application
|
|
*/
|
|
|
|
/* this is a minimal implementation as required by GSM 04.08 */
|
|
int mncc_recv_dummy(struct osmocom_ms *ms, int msg_type, void *arg)
|
|
{
|
|
struct gsm_mncc *data = arg;
|
|
uint32_t callref = data->callref;
|
|
struct gsm_mncc rel;
|
|
|
|
if (msg_type == MNCC_REL_IND || msg_type == MNCC_REL_CNF)
|
|
return 0;
|
|
|
|
LOGP(DMNCC, LOGL_INFO, "Rejecting incoming call\n");
|
|
|
|
/* reject, as we don't support Calls */
|
|
memset(&rel, 0, sizeof(struct gsm_mncc));
|
|
rel.callref = callref;
|
|
mncc_set_cause(&rel, GSM48_CAUSE_LOC_USER,
|
|
GSM48_CC_CAUSE_INCOMPAT_DEST);
|
|
|
|
return mncc_tx_to_cc(ms, MNCC_REL_REQ, &rel);
|
|
}
|
|
|
|
/*
|
|
* MNCCms call application via socket
|
|
*/
|
|
int mncc_recv_socket(struct osmocom_ms *ms, int msg_type, void *arg)
|
|
{
|
|
struct mncc_sock_state *state = ms->mncc_entity.sock_state;
|
|
struct gsm_mncc *mncc = arg;
|
|
struct msgb *msg;
|
|
unsigned char *data;
|
|
|
|
if (!state) {
|
|
if (msg_type != MNCC_REL_IND && msg_type != MNCC_REL_CNF) {
|
|
struct gsm_mncc rel;
|
|
|
|
/* reject */
|
|
memset(&rel, 0, sizeof(struct gsm_mncc));
|
|
rel.callref = mncc->callref;
|
|
mncc_set_cause(&rel, GSM48_CAUSE_LOC_USER,
|
|
GSM48_CC_CAUSE_TEMP_FAILURE);
|
|
return mncc_tx_to_cc(ms, MNCC_REL_REQ, &rel);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
mncc->msg_type = msg_type;
|
|
|
|
msg = msgb_alloc(sizeof(struct gsm_mncc), "MNCC");
|
|
if (!msg)
|
|
return -ENOMEM;
|
|
|
|
data = msgb_put(msg, sizeof(struct gsm_mncc));
|
|
memcpy(data, mncc, sizeof(struct gsm_mncc));
|
|
|
|
return mncc_sock_from_cc(state, msg);
|
|
}
|
|
|
|
/*
|
|
* MNCCms basic call application
|
|
*/
|
|
|
|
int mncc_recv_mobile(struct osmocom_ms *ms, int msg_type, void *arg)
|
|
{
|
|
struct gsm_settings *set = &ms->settings;
|
|
struct gsm_mncc *data = arg;
|
|
struct gsm_call *call = get_call_ref(data->callref);
|
|
struct gsm_mncc mncc;
|
|
uint8_t cause;
|
|
int8_t speech_ver = -1, speech_ver_half = -1, temp;
|
|
int first_call = 0;
|
|
|
|
/* call does not exist */
|
|
if (!call && msg_type != MNCC_SETUP_IND) {
|
|
LOGP(DMNCC, LOGL_INFO, "Rejecting incoming call "
|
|
"(callref %x)\n", data->callref);
|
|
if (msg_type == MNCC_REL_IND || msg_type == MNCC_REL_CNF)
|
|
return 0;
|
|
cause = GSM48_CC_CAUSE_INCOMPAT_DEST;
|
|
release:
|
|
memset(&mncc, 0, sizeof(struct gsm_mncc));
|
|
mncc.callref = data->callref;
|
|
mncc_set_cause(&mncc, GSM48_CAUSE_LOC_USER, cause);
|
|
return mncc_tx_to_cc(ms, MNCC_REL_REQ, &mncc);
|
|
}
|
|
|
|
/* setup without call */
|
|
if (!call) {
|
|
if (llist_empty(&call_list))
|
|
first_call = 1;
|
|
call = talloc_zero(ms, struct gsm_call);
|
|
if (!call)
|
|
return -ENOMEM;
|
|
call->ms = ms;
|
|
call->callref = data->callref;
|
|
llist_add_tail(&call->entry, &call_list);
|
|
}
|
|
|
|
/* not in initiated state anymore */
|
|
call->init = false;
|
|
|
|
switch (msg_type) {
|
|
case MNCC_DISC_IND:
|
|
vty_notify(ms, NULL);
|
|
switch (data->cause.value) {
|
|
case GSM48_CC_CAUSE_UNASSIGNED_NR:
|
|
vty_notify(ms, "Call: Number not assigned\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_NO_ROUTE:
|
|
vty_notify(ms, "Call: Destination unreachable\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_NORM_CALL_CLEAR:
|
|
vty_notify(ms, "Call: Remote hangs up\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_USER_BUSY:
|
|
vty_notify(ms, "Call: Remote busy\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_USER_NOTRESPOND:
|
|
vty_notify(ms, "Call: Remote not responding\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_USER_ALERTING_NA:
|
|
vty_notify(ms, "Call: Remote not answering\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_CALL_REJECTED:
|
|
vty_notify(ms, "Call has been rejected\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_NUMBER_CHANGED:
|
|
vty_notify(ms, "Call: Number changed\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_PRE_EMPTION:
|
|
vty_notify(ms, "Call: Cleared due to pre-emption\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_DEST_OOO:
|
|
vty_notify(ms, "Call: Remote out of order\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_INV_NR_FORMAT:
|
|
vty_notify(ms, "Call: Number invalid or incomplete\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_NO_CIRCUIT_CHAN:
|
|
vty_notify(ms, "Call: No channel available\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_NETWORK_OOO:
|
|
vty_notify(ms, "Call: Network out of order\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_TEMP_FAILURE:
|
|
vty_notify(ms, "Call: Temporary failure\n");
|
|
break;
|
|
case GSM48_CC_CAUSE_SWITCH_CONG:
|
|
vty_notify(ms, "Congestion\n");
|
|
break;
|
|
default:
|
|
vty_notify(ms, "Call has been disconnected "
|
|
"(clear cause %d)\n", data->cause.value);
|
|
}
|
|
LOGP(DMNCC, LOGL_INFO, "Call has been disconnected "
|
|
"(cause %d)\n", data->cause.value);
|
|
if ((data->fields & MNCC_F_PROGRESS)
|
|
&& data->progress.descr == 8) {
|
|
vty_notify(ms, "Please hang up!\n");
|
|
break;
|
|
}
|
|
free_call(call);
|
|
cause = GSM48_CC_CAUSE_NORM_CALL_CLEAR;
|
|
goto release;
|
|
case MNCC_REL_IND:
|
|
case MNCC_REL_CNF:
|
|
vty_notify(ms, NULL);
|
|
if (data->cause.value == GSM48_CC_CAUSE_CALL_REJECTED)
|
|
vty_notify(ms, "Call has been rejected\n");
|
|
else
|
|
vty_notify(ms, "Call has been released\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call has been released (cause %d)\n",
|
|
data->cause.value);
|
|
free_call(call);
|
|
break;
|
|
case MNCC_CALL_PROC_IND:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is proceeding\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is proceeding\n");
|
|
if ((data->fields & MNCC_F_BEARER_CAP)
|
|
&& data->bearer_cap.speech_ver[0] >= 0) {
|
|
mncc_get_bearer(set, data->bearer_cap.speech_ver[0]);
|
|
}
|
|
break;
|
|
case MNCC_ALERT_IND:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is alerting\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is alerting\n");
|
|
break;
|
|
case MNCC_SETUP_CNF:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is answered\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is answered\n");
|
|
break;
|
|
case MNCC_SETUP_IND:
|
|
vty_notify(ms, NULL);
|
|
if (!first_call && !ms->settings.cw) {
|
|
vty_notify(ms, "Incoming call rejected while busy\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Incoming call but busy\n");
|
|
cause = GSM48_CC_CAUSE_USER_BUSY;
|
|
goto release;
|
|
}
|
|
/* select first supported speech_ver */
|
|
if ((data->fields & MNCC_F_BEARER_CAP)) {
|
|
int i;
|
|
|
|
for (i = 0; data->bearer_cap.speech_ver[i] >= 0; i++) {
|
|
|
|
temp = mncc_get_bearer(set,
|
|
data->bearer_cap.speech_ver[i]);
|
|
if (temp < 0)
|
|
continue;
|
|
if (temp == 5 || temp == 1) { /* half */
|
|
/* only the first half rate */
|
|
if (speech_ver_half < 0)
|
|
speech_ver_half = temp;
|
|
} else {
|
|
/* only the first full rate */
|
|
if (speech_ver < 0)
|
|
speech_ver = temp;
|
|
}
|
|
}
|
|
/* half and full given */
|
|
if (speech_ver_half >= 0 && speech_ver >= 0) {
|
|
if (set->half_prefer) {
|
|
LOGP(DMNCC, LOGL_INFO, " both supported"
|
|
" codec rates are given, using "
|
|
"preferred half rate\n");
|
|
speech_ver = speech_ver_half;
|
|
} else
|
|
LOGP(DMNCC, LOGL_INFO, " both supported"
|
|
" codec rates are given, using "
|
|
"preferred full rate\n");
|
|
} else if (speech_ver_half < 0 && speech_ver < 0) {
|
|
LOGP(DMNCC, LOGL_INFO, " no supported codec "
|
|
"rate is given\n");
|
|
/* only half rate is given, use it */
|
|
} else if (speech_ver_half >= 0) {
|
|
LOGP(DMNCC, LOGL_INFO, " only supported half "
|
|
"rate codec is given, using it\n");
|
|
speech_ver = speech_ver_half;
|
|
/* only full rate is given, use it */
|
|
} else {
|
|
LOGP(DMNCC, LOGL_INFO, " only supported full "
|
|
"rate codec is given, using it\n");
|
|
}
|
|
}
|
|
/* presentation allowed if present == 0 */
|
|
if (data->calling.present || !data->calling.number[0])
|
|
vty_notify(ms, "Incoming call (anonymous)\n");
|
|
else if (data->calling.type == 1)
|
|
vty_notify(ms, "Incoming call (from +%s)\n",
|
|
data->calling.number);
|
|
else if (data->calling.type == 2)
|
|
vty_notify(ms, "Incoming call (from 0-%s)\n",
|
|
data->calling.number);
|
|
else
|
|
vty_notify(ms, "Incoming call (from %s)\n",
|
|
data->calling.number);
|
|
LOGP(DMNCC, LOGL_INFO, "Incoming call (from %s callref %x)\n",
|
|
data->calling.number, call->callref);
|
|
memset(&mncc, 0, sizeof(struct gsm_mncc));
|
|
mncc.callref = call->callref;
|
|
/* only include bearer cap, if not given in setup
|
|
* or if multiple codecs are given
|
|
* or if not only full rate
|
|
* or if given codec is unimplemented
|
|
*/
|
|
if (!(data->fields & MNCC_F_BEARER_CAP) || speech_ver < 0)
|
|
mncc_set_bearer(ms, -1, &mncc);
|
|
else if (data->bearer_cap.speech_ver[1] >= 0
|
|
|| speech_ver != 0)
|
|
mncc_set_bearer(ms, speech_ver, &mncc);
|
|
/* CC capabilities (optional) */
|
|
if (ms->settings.cc_dtmf) {
|
|
mncc.fields |= MNCC_F_CCCAP;
|
|
mncc.cccap.dtmf = 1;
|
|
}
|
|
mncc_tx_to_cc(ms, MNCC_CALL_CONF_REQ, &mncc);
|
|
if (first_call)
|
|
LOGP(DMNCC, LOGL_INFO, "Ring!\n");
|
|
else {
|
|
LOGP(DMNCC, LOGL_INFO, "Knock!\n");
|
|
call->hold = true;
|
|
}
|
|
call->ring = true;
|
|
memset(&mncc, 0, sizeof(struct gsm_mncc));
|
|
mncc.callref = call->callref;
|
|
mncc_tx_to_cc(ms, MNCC_ALERT_REQ, &mncc);
|
|
if (ms->settings.auto_answer) {
|
|
LOGP(DMNCC, LOGL_INFO, "Auto-answering call\n");
|
|
mncc_answer(ms);
|
|
}
|
|
break;
|
|
case MNCC_SETUP_COMPL_IND:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is connected\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is connected\n");
|
|
break;
|
|
case MNCC_HOLD_CNF:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is on hold\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is on hold\n");
|
|
call->hold = true;
|
|
break;
|
|
case MNCC_HOLD_REJ:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call hold was rejected\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call hold was rejected\n");
|
|
break;
|
|
case MNCC_RETRIEVE_CNF:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call is retrieved\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call is retrieved\n");
|
|
call->hold = false;
|
|
break;
|
|
case MNCC_RETRIEVE_REJ:
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Call retrieve was rejected\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Call retrieve was rejected\n");
|
|
break;
|
|
case MNCC_FACILITY_IND:
|
|
LOGP(DMNCC, LOGL_INFO, "Facility info not displayed, "
|
|
"unsupported\n");
|
|
break;
|
|
case MNCC_START_DTMF_RSP:
|
|
case MNCC_START_DTMF_REJ:
|
|
case MNCC_STOP_DTMF_RSP:
|
|
dtmf_statemachine(call, data);
|
|
break;
|
|
default:
|
|
LOGP(DMNCC, LOGL_INFO, "Message 0x%02x unsupported\n",
|
|
msg_type);
|
|
return -EINVAL;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int mncc_call(struct osmocom_ms *ms, char *number)
|
|
{
|
|
struct gsm_call *call;
|
|
struct gsm_mncc setup;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (!call->hold) {
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Please put active call on hold "
|
|
"first!\n");
|
|
LOGP(DMNCC, LOGL_INFO, "Cannot make a call, busy!\n");
|
|
return -EBUSY;
|
|
}
|
|
}
|
|
|
|
call = talloc_zero(ms, struct gsm_call);
|
|
if (!call)
|
|
return -ENOMEM;
|
|
call->ms = ms;
|
|
call->callref = new_callref++;
|
|
call->init = true;
|
|
llist_add_tail(&call->entry, &call_list);
|
|
|
|
memset(&setup, 0, sizeof(struct gsm_mncc));
|
|
setup.callref = call->callref;
|
|
|
|
if (!strncasecmp(number, "emerg", 5)) {
|
|
LOGP(DMNCC, LOGL_INFO, "Make emergency call\n");
|
|
/* emergency */
|
|
setup.emergency = 1;
|
|
} else {
|
|
LOGP(DMNCC, LOGL_INFO, "Make call to %s\n", number);
|
|
/* called number */
|
|
setup.fields |= MNCC_F_CALLED;
|
|
if (number[0] == '+') {
|
|
number++;
|
|
setup.called.type = 1; /* international */
|
|
} else
|
|
setup.called.type = 0; /* auto/unknown - prefix must be
|
|
used */
|
|
setup.called.plan = 1; /* ISDN */
|
|
OSMO_STRLCPY_ARRAY(setup.called.number, number);
|
|
|
|
/* bearer capability (mandatory) */
|
|
mncc_set_bearer(ms, -1, &setup);
|
|
|
|
/* CLIR */
|
|
if (ms->settings.clir)
|
|
setup.clir.inv = 1;
|
|
else if (ms->settings.clip)
|
|
setup.clir.sup = 1;
|
|
|
|
/* CC capabilities (optional) */
|
|
if (ms->settings.cc_dtmf) {
|
|
setup.fields |= MNCC_F_CCCAP;
|
|
setup.cccap.dtmf = 1;
|
|
}
|
|
}
|
|
|
|
return mncc_tx_to_cc(ms, MNCC_SETUP_REQ, &setup);
|
|
}
|
|
|
|
int mncc_hangup(struct osmocom_ms *ms)
|
|
{
|
|
struct gsm_call *call, *found = NULL;
|
|
struct gsm_mncc disc;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (!call->hold) {
|
|
found = call;
|
|
break;
|
|
}
|
|
}
|
|
if (!found) {
|
|
LOGP(DMNCC, LOGL_INFO, "No active call to hangup\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "No active call\n");
|
|
return -EINVAL;
|
|
}
|
|
|
|
memset(&disc, 0, sizeof(struct gsm_mncc));
|
|
disc.callref = found->callref;
|
|
mncc_set_cause(&disc, GSM48_CAUSE_LOC_USER,
|
|
GSM48_CC_CAUSE_NORM_CALL_CLEAR);
|
|
return mncc_tx_to_cc(ms, (call->init) ? MNCC_REL_REQ : MNCC_DISC_REQ,
|
|
&disc);
|
|
}
|
|
|
|
int mncc_answer(struct osmocom_ms *ms)
|
|
{
|
|
struct gsm_call *call, *alerting = NULL;
|
|
struct gsm_mncc rsp;
|
|
int active = 0;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (call->ring)
|
|
alerting = call;
|
|
else if (!call->hold)
|
|
active = 1;
|
|
}
|
|
if (!alerting) {
|
|
LOGP(DMNCC, LOGL_INFO, "No call alerting\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "No alerting call\n");
|
|
return -EBUSY;
|
|
}
|
|
if (active) {
|
|
LOGP(DMNCC, LOGL_INFO, "Answer but we have an active call\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Please put active call on hold first!\n");
|
|
return -EBUSY;
|
|
}
|
|
alerting->ring = false;
|
|
alerting->hold = false;
|
|
|
|
memset(&rsp, 0, sizeof(struct gsm_mncc));
|
|
rsp.callref = alerting->callref;
|
|
return mncc_tx_to_cc(ms, MNCC_SETUP_RSP, &rsp);
|
|
}
|
|
|
|
int mncc_hold(struct osmocom_ms *ms)
|
|
{
|
|
struct gsm_call *call, *found = NULL;
|
|
struct gsm_mncc hold;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (!call->hold) {
|
|
found = call;
|
|
break;
|
|
}
|
|
}
|
|
if (!found) {
|
|
LOGP(DMNCC, LOGL_INFO, "No active call to hold\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "No active call\n");
|
|
return -EINVAL;
|
|
}
|
|
|
|
memset(&hold, 0, sizeof(struct gsm_mncc));
|
|
hold.callref = found->callref;
|
|
return mncc_tx_to_cc(ms, MNCC_HOLD_REQ, &hold);
|
|
}
|
|
|
|
int mncc_retrieve(struct osmocom_ms *ms, int number)
|
|
{
|
|
struct gsm_call *call;
|
|
struct gsm_mncc retr;
|
|
int holdnum = 0, active = 0, i = 0;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (call->hold)
|
|
holdnum++;
|
|
if (!call->hold)
|
|
active = 1;
|
|
}
|
|
if (active) {
|
|
LOGP(DMNCC, LOGL_INFO, "Cannot retrieve during active call\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Hold active call first!\n");
|
|
return -EINVAL;
|
|
}
|
|
if (holdnum == 0) {
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "No call on hold!\n");
|
|
return -EINVAL;
|
|
}
|
|
if (holdnum > 1 && number <= 0) {
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Select call 1..%d\n", holdnum);
|
|
return -EINVAL;
|
|
}
|
|
if (holdnum == 1 && number <= 0)
|
|
number = 1;
|
|
if (number > holdnum) {
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "Given number %d out of range!\n", number);
|
|
vty_notify(ms, "Select call 1..%d\n", holdnum);
|
|
return -EINVAL;
|
|
}
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
i++;
|
|
if (i == number)
|
|
break;
|
|
}
|
|
|
|
memset(&retr, 0, sizeof(struct gsm_mncc));
|
|
retr.callref = call->callref;
|
|
return mncc_tx_to_cc(ms, MNCC_RETRIEVE_REQ, &retr);
|
|
}
|
|
|
|
/*
|
|
* DTMF
|
|
*/
|
|
|
|
static int dtmf_statemachine(struct gsm_call *call, struct gsm_mncc *mncc)
|
|
{
|
|
struct osmocom_ms *ms = call->ms;
|
|
struct gsm_mncc dtmf;
|
|
|
|
switch (call->dtmf_state) {
|
|
case DTMF_ST_SPACE:
|
|
case DTMF_ST_IDLE:
|
|
/* end of string */
|
|
if (!call->dtmf[call->dtmf_index]) {
|
|
LOGP(DMNCC, LOGL_INFO, "done with DTMF\n");
|
|
call->dtmf_state = DTMF_ST_IDLE;
|
|
return -EOF;
|
|
}
|
|
memset(&dtmf, 0, sizeof(struct gsm_mncc));
|
|
dtmf.callref = call->callref;
|
|
dtmf.keypad = call->dtmf[call->dtmf_index++];
|
|
call->dtmf_state = DTMF_ST_START;
|
|
LOGP(DMNCC, LOGL_INFO, "start DTMF (keypad %c)\n",
|
|
dtmf.keypad);
|
|
return mncc_tx_to_cc(ms, MNCC_START_DTMF_REQ, &dtmf);
|
|
case DTMF_ST_START:
|
|
if (mncc->msg_type != MNCC_START_DTMF_RSP) {
|
|
LOGP(DMNCC, LOGL_INFO, "DTMF was rejected\n");
|
|
return -ENOTSUP;
|
|
}
|
|
start_dtmf_timer(call, 70);
|
|
call->dtmf_state = DTMF_ST_MARK;
|
|
LOGP(DMNCC, LOGL_INFO, "DTMF is on\n");
|
|
break;
|
|
case DTMF_ST_MARK:
|
|
memset(&dtmf, 0, sizeof(struct gsm_mncc));
|
|
dtmf.callref = call->callref;
|
|
call->dtmf_state = DTMF_ST_STOP;
|
|
LOGP(DMNCC, LOGL_INFO, "stop DTMF\n");
|
|
return mncc_tx_to_cc(ms, MNCC_STOP_DTMF_REQ, &dtmf);
|
|
case DTMF_ST_STOP:
|
|
start_dtmf_timer(call, 120);
|
|
call->dtmf_state = DTMF_ST_SPACE;
|
|
LOGP(DMNCC, LOGL_INFO, "DTMF is off\n");
|
|
break;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static void timeout_dtmf(void *arg)
|
|
{
|
|
struct gsm_call *call = arg;
|
|
|
|
LOGP(DCC, LOGL_INFO, "DTMF timer has fired\n");
|
|
dtmf_statemachine(call, NULL);
|
|
}
|
|
|
|
int mncc_dtmf(struct osmocom_ms *ms, char *dtmf)
|
|
{
|
|
struct gsm_call *call, *found = NULL;
|
|
|
|
llist_for_each_entry(call, &call_list, entry) {
|
|
if (!call->hold) {
|
|
found = call;
|
|
break;
|
|
}
|
|
}
|
|
if (!found) {
|
|
LOGP(DMNCC, LOGL_INFO, "No active call to send DTMF\n");
|
|
vty_notify(ms, NULL);
|
|
vty_notify(ms, "No active call\n");
|
|
return -EINVAL;
|
|
}
|
|
|
|
if (call->dtmf_state != DTMF_ST_IDLE) {
|
|
LOGP(DMNCC, LOGL_INFO, "sending DTMF already\n");
|
|
return -EINVAL;
|
|
}
|
|
|
|
call->dtmf_index = 0;
|
|
OSMO_STRLCPY_ARRAY(call->dtmf, dtmf);
|
|
return dtmf_statemachine(call, NULL);
|
|
}
|
|
|