328 lines
9.3 KiB
C
328 lines
9.3 KiB
C
/* main MSC management code... */
|
|
|
|
/*
|
|
* (C) 2010,2013 by Holger Hans Peter Freyther <zecke@selfish.org>
|
|
* (C) 2010 by On-Waves
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU Affero General Public License as published by
|
|
* the Free Software Foundation; either version 3 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 Affero General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Affero General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*
|
|
*/
|
|
|
|
#include <osmocom/msc/debug.h>
|
|
#include <osmocom/msc/transaction.h>
|
|
#include <osmocom/msc/db.h>
|
|
#include <osmocom/msc/vlr.h>
|
|
#include <osmocom/msc/a_iface.h>
|
|
#include <osmocom/msc/gsm_04_08.h>
|
|
#include <osmocom/msc/gsm_04_11.h>
|
|
|
|
#include "../../bscconfig.h"
|
|
#ifdef BUILD_IU
|
|
#include <osmocom/ranap/iu_client.h>
|
|
#else
|
|
#include <osmocom/msc/iu_dummy.h>
|
|
#endif
|
|
|
|
struct gsm_network *gsm_network_init(void *ctx, mncc_recv_cb_t mncc_recv)
|
|
{
|
|
struct gsm_network *net;
|
|
|
|
net = talloc_zero(ctx, struct gsm_network);
|
|
if (!net)
|
|
return NULL;
|
|
|
|
net->plmn = (struct osmo_plmn_id){ .mcc=1, .mnc=1 };
|
|
|
|
/* Permit a compile-time default of A5/3 and A5/1 */
|
|
net->a5_encryption_mask = (1 << 3) | (1 << 1);
|
|
|
|
/* Use 30 min periodic update interval as sane default */
|
|
net->t3212 = 5;
|
|
|
|
net->mncc_guard_timeout = 180;
|
|
|
|
net->paging_response_timer = MSC_PAGING_RESPONSE_TIMER_DEFAULT;
|
|
|
|
INIT_LLIST_HEAD(&net->trans_list);
|
|
INIT_LLIST_HEAD(&net->upqueue);
|
|
INIT_LLIST_HEAD(&net->ran_conns);
|
|
|
|
/* init statistics */
|
|
net->msc_ctrs = rate_ctr_group_alloc(net, &msc_ctrg_desc, 0);
|
|
if (!net->msc_ctrs) {
|
|
talloc_free(net);
|
|
return NULL;
|
|
}
|
|
net->active_calls = osmo_counter_alloc("msc.active_calls");
|
|
net->active_nc_ss = osmo_counter_alloc("msc.active_nc_ss");
|
|
|
|
net->mncc_recv = mncc_recv;
|
|
|
|
INIT_LLIST_HEAD(&net->a.bscs);
|
|
|
|
return net;
|
|
}
|
|
|
|
/* Receive a SAPI-N-REJECT from BSC */
|
|
void ran_conn_sapi_n_reject(struct ran_conn *conn, int dlci)
|
|
{
|
|
int sapi = dlci & 0x7;
|
|
|
|
if (sapi == UM_SAPI_SMS)
|
|
gsm411_sapi_n_reject(conn);
|
|
}
|
|
|
|
/* receive a Level 3 Complete message.
|
|
* Ownership of the conn is completely passed to the conn FSM, i.e. for both acceptance and rejection,
|
|
* the conn FSM shall decide when to release this conn. It may already be discarded before this exits. */
|
|
void ran_conn_compl_l3(struct ran_conn *conn,
|
|
struct msgb *msg, uint16_t chosen_channel)
|
|
{
|
|
ran_conn_get(conn, RAN_CONN_USE_COMPL_L3);
|
|
gsm0408_dispatch(conn, msg);
|
|
ran_conn_put(conn, RAN_CONN_USE_COMPL_L3);
|
|
}
|
|
|
|
/* Receive a DTAP message from BSC */
|
|
void ran_conn_dtap(struct ran_conn *conn, struct msgb *msg)
|
|
{
|
|
ran_conn_get(conn, RAN_CONN_USE_DTAP);
|
|
gsm0408_dispatch(conn, msg);
|
|
|
|
ran_conn_put(conn, RAN_CONN_USE_DTAP);
|
|
}
|
|
|
|
/* Receive an ASSIGNMENT COMPLETE from BSC */
|
|
void msc_assign_compl(struct ran_conn *conn,
|
|
uint8_t rr_cause, uint8_t chosen_channel,
|
|
uint8_t encr_alg_id, uint8_t speec)
|
|
{
|
|
LOGP(DRR, LOGL_DEBUG, "MSC assign complete (do nothing).\n");
|
|
}
|
|
|
|
/* Receive an ASSIGNMENT FAILURE from BSC */
|
|
void ran_conn_assign_fail(struct ran_conn *conn, uint8_t cause, uint8_t *rr_cause)
|
|
{
|
|
LOGP(DRR, LOGL_DEBUG, "MSC assign failure (do nothing).\n");
|
|
}
|
|
|
|
/* Receive a CLASSMARK CHANGE from BSC */
|
|
void ran_conn_classmark_chg(struct ran_conn *conn,
|
|
const uint8_t *cm2, uint8_t cm2_len,
|
|
const uint8_t *cm3, uint8_t cm3_len)
|
|
{
|
|
struct gsm_classmark *cm;
|
|
|
|
if (!conn->vsub)
|
|
cm = &conn->temporary_classmark;
|
|
else
|
|
cm = &conn->vsub->classmark;
|
|
|
|
if (cm2 && cm2_len) {
|
|
if (cm2_len > sizeof(cm->classmark2)) {
|
|
LOGP(DRR, LOGL_NOTICE, "%s: classmark2 is %u bytes, truncating at %zu bytes\n",
|
|
vlr_subscr_name(conn->vsub), cm2_len, sizeof(cm->classmark2));
|
|
cm2_len = sizeof(cm->classmark2);
|
|
}
|
|
cm->classmark2_len = cm2_len;
|
|
memcpy(cm->classmark2, cm2, cm2_len);
|
|
}
|
|
if (cm3 && cm3_len) {
|
|
if (cm3_len > sizeof(cm->classmark3)) {
|
|
LOGP(DRR, LOGL_NOTICE, "%s: classmark3 is %u bytes, truncating at %zu bytes\n",
|
|
vlr_subscr_name(conn->vsub), cm3_len, sizeof(cm->classmark3));
|
|
cm3_len = sizeof(cm->classmark3);
|
|
}
|
|
cm->classmark3_len = cm3_len;
|
|
memcpy(cm->classmark3, cm3, cm3_len);
|
|
}
|
|
|
|
/* bump subscr conn FSM in case it is waiting for a Classmark Update */
|
|
if (conn->fi->state == RAN_CONN_S_WAIT_CLASSMARK_UPDATE)
|
|
osmo_fsm_inst_dispatch(conn->fi, RAN_CONN_E_CLASSMARK_UPDATE, NULL);
|
|
}
|
|
|
|
/* Receive a CIPHERING MODE COMPLETE from BSC */
|
|
void ran_conn_cipher_mode_compl(struct ran_conn *conn, struct msgb *msg, uint8_t alg_id)
|
|
{
|
|
struct vlr_ciph_result ciph_res = { .cause = VLR_CIPH_REJECT };
|
|
|
|
if (!conn) {
|
|
LOGP(DRR, LOGL_ERROR, "invalid: rx Ciphering Mode Complete on NULL conn\n");
|
|
return;
|
|
}
|
|
if (!conn->vsub) {
|
|
LOGP(DRR, LOGL_ERROR, "invalid: rx Ciphering Mode Complete for NULL subscr\n");
|
|
return;
|
|
}
|
|
|
|
DEBUGP(DRR, "%s: CIPHERING MODE COMPLETE\n", vlr_subscr_name(conn->vsub));
|
|
|
|
if (msg) {
|
|
struct gsm48_hdr *gh = msgb_l3(msg);
|
|
unsigned int payload_len = msgb_l3len(msg) - sizeof(*gh);
|
|
struct tlv_parsed tp;
|
|
uint8_t mi_type;
|
|
|
|
if (!gh) {
|
|
LOGP(DRR, LOGL_ERROR, "invalid: msgb without l3 header\n");
|
|
return;
|
|
}
|
|
|
|
tlv_parse(&tp, &gsm48_att_tlvdef, gh->data, payload_len, 0, 0);
|
|
|
|
/* bearer capability */
|
|
if (TLVP_PRESENT(&tp, GSM48_IE_MOBILE_ID)) {
|
|
mi_type = TLVP_VAL(&tp, GSM48_IE_MOBILE_ID)[0] & GSM_MI_TYPE_MASK;
|
|
if (mi_type == GSM_MI_TYPE_IMEISV
|
|
&& TLVP_LEN(&tp, GSM48_IE_MOBILE_ID) > 0) {
|
|
gsm48_mi_to_string(ciph_res.imeisv, sizeof(ciph_res.imeisv),
|
|
TLVP_VAL(&tp, GSM48_IE_MOBILE_ID),
|
|
TLVP_LEN(&tp, GSM48_IE_MOBILE_ID));
|
|
}
|
|
}
|
|
}
|
|
|
|
conn->geran_encr.alg_id = alg_id;
|
|
|
|
ciph_res.cause = VLR_CIPH_COMPL;
|
|
vlr_subscr_rx_ciph_res(conn->vsub, &ciph_res);
|
|
}
|
|
|
|
/* Receive a CLEAR REQUEST from BSC */
|
|
int ran_conn_clear_request(struct ran_conn *conn, uint32_t cause)
|
|
{
|
|
ran_conn_close(conn, cause);
|
|
return 1;
|
|
}
|
|
|
|
static const char *used_ref_counts_str(struct ran_conn *conn)
|
|
{
|
|
static char buf[256];
|
|
int bit_nr;
|
|
char *pos = buf;
|
|
*pos = '\0';
|
|
|
|
if (conn->use_tokens < 0)
|
|
return "invalid";
|
|
|
|
#define APPEND_STR(fmt, args...) do { \
|
|
int remain = sizeof(buf) - (pos - buf) - 1; \
|
|
int l = -1; \
|
|
if (remain > 0) \
|
|
l = snprintf(pos, remain, "%s" fmt, (pos == buf? "" : ","), ##args); \
|
|
if (l < 0 || l > remain) { \
|
|
buf[sizeof(buf) - 1] = '\0'; \
|
|
return buf; \
|
|
} \
|
|
pos += l; \
|
|
} while(0)
|
|
|
|
for (bit_nr = 0; (1 << bit_nr) <= conn->use_tokens; bit_nr++) {
|
|
if (conn->use_tokens & (1 << bit_nr)) {
|
|
APPEND_STR("%s", get_value_string(ran_conn_use_names, bit_nr));
|
|
}
|
|
}
|
|
return buf;
|
|
#undef APPEND_STR
|
|
}
|
|
|
|
/* increment the ref-count. Needs to be called by every user */
|
|
struct ran_conn *_ran_conn_get(struct ran_conn *conn, enum ran_conn_use balance_token,
|
|
const char *file, int line)
|
|
{
|
|
OSMO_ASSERT(conn);
|
|
|
|
if (balance_token != RAN_CONN_USE_UNTRACKED) {
|
|
uint32_t flag = 1 << balance_token;
|
|
OSMO_ASSERT(balance_token < 32);
|
|
if (conn->use_tokens & flag)
|
|
LOGPSRC(DREF, LOGL_ERROR, file, line,
|
|
"%s: MSC conn use error: using an already used token: %s\n",
|
|
vlr_subscr_name(conn->vsub),
|
|
ran_conn_use_name(balance_token));
|
|
conn->use_tokens |= flag;
|
|
}
|
|
|
|
conn->use_count++;
|
|
LOGPSRC(DREF, LOGL_DEBUG, file, line,
|
|
"%s: MSC conn use + %s == %u (0x%x: %s)\n",
|
|
vlr_subscr_name(conn->vsub), ran_conn_use_name(balance_token),
|
|
conn->use_count, conn->use_tokens, used_ref_counts_str(conn));
|
|
|
|
return conn;
|
|
}
|
|
|
|
/* decrement the ref-count. Once it reaches zero, we release */
|
|
void _ran_conn_put(struct ran_conn *conn, enum ran_conn_use balance_token,
|
|
const char *file, int line)
|
|
{
|
|
OSMO_ASSERT(conn);
|
|
|
|
if (balance_token != RAN_CONN_USE_UNTRACKED) {
|
|
uint32_t flag = 1 << balance_token;
|
|
OSMO_ASSERT(balance_token < 32);
|
|
if (!(conn->use_tokens & flag))
|
|
LOGPSRC(DREF, LOGL_ERROR, file, line,
|
|
"%s: MSC conn use error: freeing an unused token: %s\n",
|
|
vlr_subscr_name(conn->vsub),
|
|
ran_conn_use_name(balance_token));
|
|
conn->use_tokens &= ~flag;
|
|
}
|
|
|
|
if (conn->use_count == 0) {
|
|
LOGPSRC(DREF, LOGL_ERROR, file, line,
|
|
"%s: MSC conn use - %s failed: is already 0\n",
|
|
vlr_subscr_name(conn->vsub),
|
|
ran_conn_use_name(balance_token));
|
|
return;
|
|
}
|
|
|
|
conn->use_count--;
|
|
LOGPSRC(DREF, LOGL_DEBUG, file, line,
|
|
"%s: MSC conn use - %s == %u (0x%x: %s)\n",
|
|
vlr_subscr_name(conn->vsub), ran_conn_use_name(balance_token),
|
|
conn->use_count, conn->use_tokens, used_ref_counts_str(conn));
|
|
|
|
if (conn->use_count == 0)
|
|
osmo_fsm_inst_dispatch(conn->fi, RAN_CONN_E_UNUSED, NULL);
|
|
}
|
|
|
|
bool ran_conn_used_by(struct ran_conn *conn, enum ran_conn_use token)
|
|
{
|
|
return conn && (conn->use_tokens & (1 << token));
|
|
}
|
|
|
|
const struct value_string ran_conn_use_names[] = {
|
|
{RAN_CONN_USE_UNTRACKED, "UNTRACKED"},
|
|
{RAN_CONN_USE_COMPL_L3, "compl_l3"},
|
|
{RAN_CONN_USE_DTAP, "dtap"},
|
|
{RAN_CONN_USE_AUTH_CIPH, "auth+ciph"},
|
|
{RAN_CONN_USE_CM_SERVICE, "cm_service"},
|
|
{RAN_CONN_USE_TRANS_CC, "trans_cc"},
|
|
{RAN_CONN_USE_TRANS_SMS, "trans_sms"},
|
|
{RAN_CONN_USE_TRANS_NC_SS, "trans_nc_ss"},
|
|
{RAN_CONN_USE_SILENT_CALL, "silent_call"},
|
|
{RAN_CONN_USE_RELEASE, "release"},
|
|
{0, NULL},
|
|
};
|
|
|
|
void msc_stop_paging(struct vlr_subscr *vsub)
|
|
{
|
|
DEBUGP(DPAG, "Paging can stop for %s\n", vlr_subscr_name(vsub));
|
|
/* tell BSCs and RNCs to stop paging? How? */
|
|
}
|