/* main MSC management code... */ /* * (C) 2010,2013 by Holger Hans Peter Freyther * (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 . * */ #include #include #include #include #include #include #include #include #include "../../bscconfig.h" #ifdef BUILD_IU #include #else #include #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; } void gsm_network_set_mncc_sock_path(struct gsm_network *net, const char *mncc_sock_path) { if (net->mncc_sock_path) talloc_free(net->mncc_sock_path); net->mncc_sock_path = mncc_sock_path ? talloc_strdup(net, mncc_sock_path) : NULL; } /* 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) { LOGPFSMSL(conn->fi, DRR, LOGL_ERROR, "Assignment Failure: cause=%u rr_cause=%u.\n", cause, rr_cause ? *rr_cause : 0); msc_mgcp_ass_fail(conn); } /* 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? */ }