| /* (C) 2016 by Harald Welte <laforge@gnumonks.org> |
| * |
| * 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 <errno.h> |
| |
| #include <osmocom/core/msgb.h> |
| #include <osmocom/core/logging.h> |
| #include <osmocom/core/linuxlist.h> |
| #include <osmocom/abis/ipa.h> |
| #include <osmocom/abis/ipaccess.h> |
| #include <osmocom/gsm/gsm48_ie.h> |
| #include <osmocom/gsm/apn.h> |
| |
| #include "gsup_server.h" |
| #include "gsup_router.h" |
| |
| static void osmo_gsup_server_send(struct osmo_gsup_conn *conn, |
| int proto_ext, struct msgb *msg_tx) |
| { |
| ipa_prepend_header_ext(msg_tx, proto_ext); |
| ipa_msg_push_header(msg_tx, IPAC_PROTO_OSMO); |
| ipa_server_conn_send(conn->conn, msg_tx); |
| } |
| |
| int osmo_gsup_conn_send(struct osmo_gsup_conn *conn, struct msgb *msg) |
| { |
| if (!conn) { |
| msgb_free(msg); |
| return -ENOTCONN; |
| } |
| |
| osmo_gsup_server_send(conn, IPAC_PROTO_EXT_GSUP, msg); |
| |
| return 0; |
| } |
| |
| static int osmo_gsup_conn_oap_handle(struct osmo_gsup_conn *conn, |
| struct msgb *msg_rx) |
| { |
| #if 0 |
| int rc; |
| struct msgb *msg_tx; |
| rc = oap_handle(&conn->oap_state, msg_rx, &msg_tx); |
| msgb_free(msg_rx); |
| if (rc < 0) |
| return rc; |
| |
| if (msg_tx) |
| osmo_gsup_conn_send(conn, IPAC_PROTO_EXT_OAP, msg_tx); |
| #endif |
| return 0; |
| } |
| |
| /* Data from a given client has arrived over the socket */ |
| static int osmo_gsup_server_read_cb(struct ipa_server_conn *conn, |
| struct msgb *msg) |
| { |
| struct ipaccess_head *hh = (struct ipaccess_head *) msg->data; |
| struct ipaccess_head_ext *he = (struct ipaccess_head_ext *) msgb_l2(msg); |
| struct osmo_gsup_conn *clnt = (struct osmo_gsup_conn *)conn->data; |
| int rc; |
| |
| msg->l2h = &hh->data[0]; |
| |
| if (hh->proto == IPAC_PROTO_IPACCESS) { |
| rc = ipa_server_conn_ccm(conn, msg); |
| if (rc < 0) { |
| /* conn is already invalid here! */ |
| return -1; |
| } |
| msgb_free(msg); |
| return 0; |
| } |
| |
| if (hh->proto != IPAC_PROTO_OSMO) { |
| LOGP(DLGSUP, LOGL_NOTICE, "Unsupported IPA stream ID 0x%02x\n", |
| hh->proto); |
| goto invalid; |
| } |
| |
| if (!he || msgb_l2len(msg) < sizeof(*he)) { |
| LOGP(DLGSUP, LOGL_NOTICE, "short IPA message\n"); |
| goto invalid; |
| } |
| |
| msg->l2h = &he->data[0]; |
| |
| if (he->proto == IPAC_PROTO_EXT_GSUP) { |
| OSMO_ASSERT(clnt->server->read_cb != NULL); |
| clnt->server->read_cb(clnt, msg); |
| /* expecting read_cb() to free msg */ |
| } else if (he->proto == IPAC_PROTO_EXT_OAP) { |
| return osmo_gsup_conn_oap_handle(clnt, msg); |
| /* osmo_gsup_client_oap_handle frees msg */ |
| } else { |
| LOGP(DLGSUP, LOGL_NOTICE, "Unsupported IPA Osmo Proto 0x%02x\n", |
| hh->proto); |
| goto invalid; |
| } |
| |
| return 0; |
| |
| invalid: |
| LOGP(DLGSUP, LOGL_NOTICE, |
| "GSUP received an invalid IPA message from %s:%d: %s\n", |
| conn->addr, conn->port, osmo_hexdump(msgb_l2(msg), msgb_l2len(msg))); |
| msgb_free(msg); |
| return -1; |
| |
| } |
| |
| static void osmo_tlvp_dump(const struct tlv_parsed *tlvp, |
| int subsys, int level) |
| { |
| unsigned int i; |
| |
| for (i = 0; i < ARRAY_SIZE(tlvp->lv); i++) { |
| if (!TLVP_PRESENT(tlvp, i)) |
| continue; |
| |
| LOGP(subsys, level, "%u: %s\n", i, |
| TLVP_VAL(tlvp, i)); |
| LOGP(subsys, level, "%u: %s\n", i, |
| osmo_hexdump(TLVP_VAL(tlvp, i), |
| TLVP_LEN(tlvp, i))); |
| } |
| } |
| |
| /* FIXME: should this be parrt of ipas_server handling, not GSUP? */ |
| static void tlvp_copy(void *ctx, struct tlv_parsed *out, const struct tlv_parsed *in) |
| { |
| unsigned int i; |
| |
| for (i = 0; i < ARRAY_SIZE(out->lv); i++) { |
| if (!TLVP_PRESENT(in, i)) { |
| if (TLVP_PRESENT(out, i)) { |
| talloc_free((void *) out->lv[i].val); |
| out->lv[i].val = NULL; |
| out->lv[i].len = 0; |
| } |
| continue; |
| } |
| out->lv[i].val = talloc_memdup(ctx, in->lv[i].val, in->lv[i].len); |
| out->lv[i].len = in->lv[i].len; |
| } |
| } |
| |
| int osmo_gsup_conn_ccm_get(const struct osmo_gsup_conn *clnt, uint8_t **addr, |
| uint8_t tag) |
| { |
| if (!TLVP_PRESENT(&clnt->ccm, tag)) |
| return -ENODEV; |
| *addr = (uint8_t *) TLVP_VAL(&clnt->ccm, tag); |
| |
| return TLVP_LEN(&clnt->ccm, tag); |
| } |
| |
| static int osmo_gsup_server_ccm_cb(struct ipa_server_conn *conn, |
| struct msgb *msg, struct tlv_parsed *tlvp, |
| struct ipaccess_unit *unit) |
| { |
| struct osmo_gsup_conn *clnt = (struct osmo_gsup_conn *)conn->data; |
| uint8_t *addr = NULL; |
| size_t addr_len; |
| |
| LOGP(DLGSUP, LOGL_INFO, "CCM Callback\n"); |
| |
| /* FIXME: should this be parrt of ipas_server handling, not |
| * GSUP? */ |
| tlvp_copy(clnt, &clnt->ccm, tlvp); |
| osmo_tlvp_dump(tlvp, DLGSUP, LOGL_INFO); |
| |
| addr_len = osmo_gsup_conn_ccm_get(clnt, &addr, IPAC_IDTAG_SERNR); |
| if (addr_len <= 0) { |
| LOGP(DLGSUP, LOGL_ERROR, "GSUP client %s:%u has no %s IE and" |
| " cannot be routed\n", |
| conn->addr, conn->port, |
| ipa_ccm_idtag_name(IPAC_IDTAG_SERNR)); |
| return -EINVAL; |
| } |
| |
| gsup_route_add(clnt, addr, addr_len); |
| return 0; |
| } |
| |
| static int osmo_gsup_server_closed_cb(struct ipa_server_conn *conn) |
| { |
| struct osmo_gsup_conn *clnt = (struct osmo_gsup_conn *)conn->data; |
| |
| LOGP(DLGSUP, LOGL_INFO, "Lost GSUP client %s:%d\n", |
| conn->addr, conn->port); |
| |
| gsup_route_del_conn(clnt); |
| llist_del(&clnt->list); |
| talloc_free(clnt); |
| |
| return 0; |
| } |
| |
| /* Add conn to the clients list in a way that conn->auc_3g_ind takes the lowest |
| * unused integer and the list of clients remains sorted by auc_3g_ind. |
| * Keep this function non-static to allow linking in a unit test. */ |
| void osmo_gsup_server_add_conn(struct llist_head *clients, |
| struct osmo_gsup_conn *conn) |
| { |
| struct osmo_gsup_conn *c; |
| struct osmo_gsup_conn *prev_conn; |
| |
| c = llist_first_entry_or_null(clients, struct osmo_gsup_conn, list); |
| |
| /* Is the first index, 0, unused? */ |
| if (!c || c->auc_3g_ind > 0) { |
| conn->auc_3g_ind = 0; |
| llist_add(&conn->list, clients); |
| return; |
| } |
| |
| /* Look for a gap later on */ |
| prev_conn = NULL; |
| llist_for_each_entry(c, clients, list) { |
| /* skip first item, we know it has auc_3g_ind == 0. */ |
| if (!prev_conn) { |
| prev_conn = c; |
| continue; |
| } |
| if (c->auc_3g_ind > prev_conn->auc_3g_ind + 1) |
| break; |
| prev_conn = c; |
| } |
| |
| OSMO_ASSERT(prev_conn); |
| |
| conn->auc_3g_ind = prev_conn->auc_3g_ind + 1; |
| llist_add(&conn->list, &prev_conn->list); |
| } |
| |
| /* a client has connected to the server socket and we have accept()ed it */ |
| static int osmo_gsup_server_accept_cb(struct ipa_server_link *link, int fd) |
| { |
| struct osmo_gsup_conn *conn; |
| struct osmo_gsup_server *gsups = |
| (struct osmo_gsup_server *) link->data; |
| int rc; |
| |
| conn = talloc_zero(gsups, struct osmo_gsup_conn); |
| OSMO_ASSERT(conn); |
| |
| conn->conn = ipa_server_conn_create(gsups, link, fd, |
| osmo_gsup_server_read_cb, |
| osmo_gsup_server_closed_cb, conn); |
| OSMO_ASSERT(conn->conn); |
| conn->conn->ccm_cb = osmo_gsup_server_ccm_cb; |
| |
| /* link data structure with server structure */ |
| conn->server = gsups; |
| osmo_gsup_server_add_conn(&gsups->clients, conn); |
| |
| LOGP(DLGSUP, LOGL_INFO, "New GSUP client %s:%d (IND=%u)\n", |
| conn->conn->addr, conn->conn->port, conn->auc_3g_ind); |
| |
| /* request the identity of the client */ |
| rc = ipa_ccm_send_id_req(fd); |
| if (rc < 0) |
| goto failed; |
| #if 0 |
| rc = oap_init(&gsups->oap_config, &conn->oap_state); |
| if (rc != 0) |
| goto failed; |
| #endif |
| return 0; |
| failed: |
| ipa_server_conn_destroy(conn->conn); |
| return -1; |
| } |
| |
| struct osmo_gsup_server * |
| osmo_gsup_server_create(void *ctx, const char *ip_addr, uint16_t tcp_port, |
| osmo_gsup_read_cb_t read_cb, |
| struct llist_head *lu_op_lst, void *priv) |
| { |
| struct osmo_gsup_server *gsups; |
| int rc; |
| |
| gsups = talloc_zero(ctx, struct osmo_gsup_server); |
| OSMO_ASSERT(gsups); |
| |
| INIT_LLIST_HEAD(&gsups->clients); |
| INIT_LLIST_HEAD(&gsups->routes); |
| |
| gsups->link = ipa_server_link_create(gsups, |
| /* no e1inp */ NULL, |
| ip_addr, tcp_port, |
| osmo_gsup_server_accept_cb, |
| gsups); |
| if (!gsups->link) |
| goto failed; |
| |
| gsups->read_cb = read_cb; |
| gsups->priv = priv; |
| |
| rc = ipa_server_link_open(gsups->link); |
| if (rc < 0) |
| goto failed; |
| |
| gsups->luop = lu_op_lst; |
| |
| return gsups; |
| |
| failed: |
| osmo_gsup_server_destroy(gsups); |
| return NULL; |
| } |
| |
| void osmo_gsup_server_destroy(struct osmo_gsup_server *gsups) |
| { |
| if (gsups->link) { |
| ipa_server_link_close(gsups->link); |
| ipa_server_link_destroy(gsups->link); |
| gsups->link = NULL; |
| } |
| talloc_free(gsups); |
| } |
| |
| /* Set GSUP message's pdp_infos[0] to a wildcard APN. |
| * Use the provided apn_buf to store the produced APN data. This must remain valid until |
| * osmo_gsup_encode() is done. Return 0 if an entry was added, -ENOMEM if the provided buffer is too |
| * small. */ |
| int osmo_gsup_configure_wildcard_apn(struct osmo_gsup_message *gsup, |
| uint8_t *apn_buf, size_t apn_buf_size) |
| { |
| int l; |
| |
| l = osmo_apn_from_str(apn_buf, apn_buf_size, "*"); |
| if (l <= 0) |
| return -ENOMEM; |
| |
| gsup->pdp_infos[0].apn_enc = apn_buf; |
| gsup->pdp_infos[0].apn_enc_len = l; |
| gsup->pdp_infos[0].have_info = 1; |
| gsup->num_pdp_infos = 1; |
| /* FIXME: use real value: */ |
| gsup->pdp_infos[0].context_id = 1; |
| |
| return 0; |
| } |
| |
| /** |
| * Populate a gsup message structure with an Insert Subscriber Data Message. |
| * All required memory buffers for data pointed to by pointers in struct omso_gsup_message |
| * must be allocated by the caller and should have the same lifetime as the gsup parameter. |
| * |
| * \param[out] gsup The gsup message to populate. |
| * \param[in] imsi The subscriber's IMSI. |
| * \param[in] msisdn The subscriber's MSISDN. |
| * \param[out] msisdn_enc A buffer large enough to store the MSISDN in encoded form. |
| * \param[in] msisdn_enc_size Size of the buffer (must be >= OSMO_GSUP_MAX_CALLED_PARTY_BCD_LEN). |
| * \param[out] apn_buf A buffer large enough to store an APN (required if cn_domain is OSMO_GSUP_CN_DOMAIN_PS). |
| * \param[in] apn_buf_size Size of APN buffer (must be >= APN_MAXLEN). |
| * \param[in] cn_domain The CN Domain of the subscriber connection. |
| * \returns 0 on success, and negative on error. |
| */ |
| int osmo_gsup_create_insert_subscriber_data_msg(struct osmo_gsup_message *gsup, const char *imsi, const char *msisdn, |
| uint8_t *msisdn_enc, size_t msisdn_enc_size, |
| uint8_t *apn_buf, size_t apn_buf_size, |
| enum osmo_gsup_cn_domain cn_domain) |
| { |
| int len; |
| |
| OSMO_ASSERT(gsup); |
| |
| gsup->message_type = OSMO_GSUP_MSGT_INSERT_DATA_REQUEST; |
| osmo_strlcpy(gsup->imsi, imsi, sizeof(gsup->imsi)); |
| |
| if (msisdn_enc_size < OSMO_GSUP_MAX_CALLED_PARTY_BCD_LEN) |
| return -ENOSPC; |
| |
| OSMO_ASSERT(msisdn_enc); |
| len = gsm48_encode_bcd_number(msisdn_enc, msisdn_enc_size, 0, msisdn); |
| if (len < 1) { |
| LOGP(DLGSUP, LOGL_ERROR, "%s: Error: cannot encode MSISDN '%s'\n", imsi, msisdn); |
| return -ENOSPC; |
| } |
| gsup->msisdn_enc = msisdn_enc; |
| gsup->msisdn_enc_len = len; |
| |
| #pragma message "FIXME: deal with encoding the following data: gsup.hlr_enc" |
| |
| gsup->cn_domain = cn_domain; |
| if (gsup->cn_domain == OSMO_GSUP_CN_DOMAIN_PS) { |
| OSMO_ASSERT(apn_buf_size >= APN_MAXLEN); |
| OSMO_ASSERT(apn_buf); |
| /* FIXME: PDP infos - use more fine-grained access control |
| instead of wildcard APN */ |
| osmo_gsup_configure_wildcard_apn(gsup, apn_buf, apn_buf_size); |
| } |
| |
| return 0; |
| } |