X-Git-Url: http://git.archive.openwrt.org/?p=project%2Fuqmi.git;a=blobdiff_plain;f=commands-wms.c;h=9760d856780bf4b846059d34dd6e942ab18f7f95;hp=74fb69aade9b514a14ffac4f4b741f22dcbed26e;hb=894ffc95a6cccfe1b5aaf4361312b8939e685dff;hpb=3762cd81f82e39fac74c1b213f526dc7261aa845

diff --git a/commands-wms.c b/commands-wms.c
index 74fb69a..9760d85 100644
--- a/commands-wms.c
+++ b/commands-wms.c
@@ -3,16 +3,15 @@
 static void cmd_wms_list_messages_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 {
 	struct qmi_wms_list_messages_response res;
-	int i, len = 0;
+	void *c;
+	int i;
 
 	qmi_parse_wms_list_messages_response(msg, &res);
-	blobmsg_alloc_string_buffer(&status, "messages", 1);
-	for (i = 0; i < res.data.message_list_n; i++) {
-		len += sprintf(blobmsg_realloc_string_buffer(&status, len + 12) + len,
-		               " %d" + (len ? 0 : 1),
-					   res.data.message_list[i].memory_index);
-	}
-	blobmsg_add_string_buffer(&status);
+	c = blobmsg_open_array(&status, NULL);
+	for (i = 0; i < res.data.message_list_n; i++)
+		blobmsg_add_u32(&status, NULL, res.data.message_list[i].memory_index);
+
+	blobmsg_close_array(&status, c);
 }
 
 static enum qmi_cmd_result
@@ -28,56 +27,176 @@ cmd_wms_list_messages_prepare(struct qmi_dev *qmi, struct qmi_request *req, stru
 	return QMI_CMD_REQUEST;
 }
 
-static void decode_7bit(char *name, const unsigned char *data, int data_len)
+static int
+put_unicode_char(char *dest, uint16_t c)
 {
-	bool multipart = false;
-	char *dest;
-	int part = 0, n_parts = 0;
-	int len, pos_offset = 0;
-	int i;
+	if (c < 0x80) {
+		*dest = c;
+		return 1;
+	} else if (c < 0x800) {
+		*(dest++) = 0xc0 | ((c >> 6) & 0x1f);
+		*dest = 0x80 | (c & 0x3f);
+		return 2;
+	} else {
+		*(dest++) = 0xe0 | ((c >> 12) & 0xf);
+		*(dest++) = 0x80 | ((c >> 6) & 0x3f);
+		*dest = 0x80 | (c & 0x3f);
+		return 3;
+	}
+}
+
 
-	if (data[0] == 5 && data[1] == 0 && data[2] == 3) {
-		multipart = true;
-		n_parts = data[4];
-		part = data[5];
-	} else if (data[0] == 6 && data[1] == 8 && data[2] == 4) {
-		multipart = true;
-		n_parts = data[5];
-		part = data[6];
+static int
+pdu_decode_7bit_char(char *dest, int len, unsigned char c, bool *escape)
+{
+	uint16_t conv_0x20[] = {
+		0x0040, 0x00A3, 0x0024, 0x00A5, 0x00E8, 0x00E9, 0x00F9, 0x00EC,
+		0x00F2, 0x00E7, 0x000A, 0x00D8, 0x00F8, 0x000D, 0x00C5, 0x00E5,
+		0x0394, 0x005F, 0x03A6, 0x0393, 0x039B, 0x03A9, 0x03A0, 0x03A8,
+		0x03A3, 0x0398, 0x039E, 0x00A0, 0x00C6, 0x00E6, 0x00DF, 0x00C9,
+	};
+	uint16_t conv_0x5b[] = {
+		0x00C4, 0x00D6, 0x00D1, 0x00DC, 0x00A7, 0x00BF,
+	};
+	uint16_t conv_0x7b[] = {
+		0x00E4, 0x00F6, 0x00F1, 0x00FC, 0x00E0
+	};
+	int cur_len = 0;
+	uint16_t outc;
+
+	fprintf(stderr, " %02x", c);
+	dest += len;
+	if (*escape) {
+		switch(c) {
+		case 0x0A:
+			*dest = 0x0C;
+			return 1;
+		case 0x14:
+			*dest = 0x5E;
+			return 1;
+		case 0x28:
+			*dest = 0x7B;
+			return 1;
+		case 0x29:
+			*dest = 0x7D;
+			return 1;
+		case 0x2F:
+			*dest = 0x5C;
+			return 1;
+		case 0x3C:
+			*dest = 0x5B;
+			return 1;
+		case 0x3D:
+			*dest = 0x7E;
+			return 1;
+		case 0x3E:
+			*dest = 0x5D;
+			return 1;
+		case 0x40:
+			*dest = 0x7C;
+			return 1;
+		case 0x65:
+			outc = 0x20AC;
+			goto out;
+		case 0x1B:
+			goto normal;
+		default:
+			/* invalid */
+			*(dest++) = conv_0x20[0x1B];
+			cur_len++;
+			goto normal;
+		}
 	}
 
-	if (multipart) {
-		len = data[0] + 1;
-		data += len;
-		data_len -= len;
-		pos_offset = 6;
+	if (c == 0x1b) {
+		*escape = true;
+		return 0;
 	}
 
-	dest = blobmsg_alloc_string_buffer(&status, name, data_len * 8 / 7 + 2);
+normal:
+	if (c < 0x20)
+		outc = conv_0x20[(int) c];
+	else if (c == 0x40)
+		outc = 0x00A1;
+	else if (c >= 0x5b && c <= 0x60)
+		outc = conv_0x5b[c - 0x5b];
+	else if (c >= 0x7b && c <= 0x7f)
+		outc = conv_0x7b[c - 0x7b];
+	else
+		outc = c;
+
+out:
+	return cur_len + put_unicode_char(dest, outc);
+}
+
+static int
+pdu_decode_7bit_str(char *dest, const unsigned char *data, int data_len, int bit_offset)
+{
+	bool escape = false;
+	int len = 0;
+	int i;
+
+	fprintf(stderr, "Raw text:");
 	for (i = 0; i < data_len; i++) {
-		int pos = (i + pos_offset) % 7;
+		int pos = (i + bit_offset) % 7;
 
 		if (pos == 0) {
-			*(dest++) = data[i] & 0x7f;
+			len += pdu_decode_7bit_char(dest, len, data[i] & 0x7f, &escape);
 		} else {
 			if (i)
-				*(dest++) = (data[i - 1] >> (7 + 1 - pos)) |
-				            ((data[i] << pos) & 0x7f);
+				len += pdu_decode_7bit_char(dest, len,
+				                            (data[i - 1] >> (7 + 1 - pos)) |
+				                            ((data[i] << pos) & 0x7f), &escape);
 
 			if (pos == 6)
-				*(dest++) = (data[i] >> 1) & 0x7f;
+				len += pdu_decode_7bit_char(dest, len, (data[i] >> 1) & 0x7f,
+				                            &escape);
 		}
 	}
-	*dest = 0;
-	blobmsg_add_string_buffer(&status);
+	dest[len] = 0;
+	fprintf(stderr, "\n");
+	return len;
+}
+
+static int decode_udh(const unsigned char *data)
+{
+	const unsigned char *end;
+	unsigned int type, len, udh_len;
+
+	udh_len = *(data++);
+	end = data + udh_len;
+	while (data < end) {
+		const unsigned char *val;
+
+		type = data[0];
+		len = data[1];
+		val = &data[2];
+		data += 2 + len;
+		if (data > end)
+			break;
 
-	if (multipart) {
-		blobmsg_add_u32(&status, "part", part + 1);
-		blobmsg_add_u32(&status, "parts", n_parts);
+		switch (type) {
+		case 0:
+			blobmsg_add_u32(&status, "concat_ref", (uint32_t) val[0]);
+			blobmsg_add_u32(&status, "concat_part", (uint32_t) val[2]);
+			blobmsg_add_u32(&status, "concat_parts", (uint32_t) val[1]);
+			break;
+		default:
+			break;
+		}
 	}
+
+	return udh_len + 1;
 }
 
-static char *add_semioctet(char *str, char val)
+static void decode_7bit_field(char *name, const unsigned char *data, int data_len, int bit_offset)
+{
+	char *dest = blobmsg_alloc_string_buffer(&status, name, 3 * (data_len * 8 / 7) + 2);
+	pdu_decode_7bit_str(dest, data, data_len, bit_offset);
+	blobmsg_add_string_buffer(&status);
+}
+
+static char *pdu_add_semioctet(char *str, char val)
 {
 	*str = '0' + (val & 0xf);
 	if (*str <= '9')
@@ -90,112 +209,179 @@ static char *add_semioctet(char *str, char val)
 	return str;
 }
 
-static unsigned char *
-decode_semioctet_number(char *str, char *name, unsigned char *data, int len)
+static void
+pdu_decode_address(char *str, unsigned char *data, int len)
 {
-	str = blobmsg_alloc_string_buffer(&status, name, len * 2 + 2);
-	if (*data == 0x91) {
-		len--;
+	unsigned char toa;
+
+	toa = *(data++);
+	switch (toa & 0x70) {
+	case 0x50:
+		pdu_decode_7bit_str(str, data, len, 0);
+		return;
+	case 0x10:
 		*(str++) = '+';
-	}
-	data++;
-	while (len) {
-		str = add_semioctet(str, *data);
-		data++;
-		len--;
+		/* fall through */
+	default:
+		while (len--) {
+			str = pdu_add_semioctet(str, *data);
+			data++;
+		}
 	}
 
 	*str = 0;
+}
+
+static void wms_decode_address(char *name, unsigned char *data, int len)
+{
+	char *str = blobmsg_alloc_string_buffer(&status, name, len * 2 + 2);
+	pdu_decode_address(str, data, len);
 	blobmsg_add_string_buffer(&status);
+}
 
-	return data;
+#define cmd_wms_delete_message_cb no_cb
+static enum qmi_cmd_result
+cmd_wms_delete_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
+{
+	char *err;
+	int id;
+
+	id = strtoul(arg, &err, 10);
+	if (err && *err) {
+		uqmi_add_error("Invalid message ID");
+		return QMI_CMD_EXIT;
+	}
+
+	static struct qmi_wms_delete_request mreq = {
+		QMI_INIT(memory_storage, QMI_WMS_STORAGE_TYPE_UIM),
+		QMI_INIT(message_mode, QMI_WMS_MESSAGE_MODE_GSM_WCDMA),
+	};
+
+	mreq.set.memory_index = 1;
+	mreq.data.memory_index = id;
+
+	qmi_set_wms_delete_request(msg, &mreq);
+
+	return QMI_CMD_REQUEST;
 }
 
+
 static void cmd_wms_get_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 {
 	struct qmi_wms_raw_read_response res;
 	unsigned char *data, *end;
 	char *str;
-	int i, cur_len;
+	int cur_len;
 	bool sent;
+	unsigned char first, dcs;
+	void *c;
 
 	qmi_parse_wms_raw_read_response(msg, &res);
+	c = blobmsg_open_table(&status, NULL);
 	data = (unsigned char *) res.data.raw_message_data.raw_data;
 	end = data + res.data.raw_message_data.raw_data_n;
 
-	do {
-		cur_len = *(data++);
-		if (data + cur_len >= end)
-			break;
+	cur_len = *(data++);
+	if (data + cur_len >= end)
+		goto error;
 
-		if (cur_len)
-			data = decode_semioctet_number(str, "smsc", data, cur_len);
+	if (cur_len) {
+		wms_decode_address("smsc", data, cur_len - 1);
+		data += cur_len;
+	}
 
-		if (data + 3 >= end)
-			break;
+	if (data + 3 >= end)
+		goto error;
 
-		sent = (*data & 0x3) == 1;
+	first = *(data++);
+	sent = (first & 0x3) == 1;
+	if (sent)
 		data++;
-		if (sent)
-			data++;
 
-		cur_len = *(data++);
-		if (data + cur_len >= end)
-			break;
+	cur_len = *(data++);
+	if (data + cur_len >= end)
+		goto error;
 
-		if (cur_len)
-			data = decode_semioctet_number(str, sent ? "receiver" : "sender", data, (cur_len + 1) / 2);
+	if (cur_len) {
+		cur_len = (cur_len + 1) / 2;
+		wms_decode_address(sent ? "receiver" : "sender", data, cur_len);
+		data += cur_len + 1;
+	}
 
-		if (data + 3 >= end)
-			break;
+	if (data + 3 >= end)
+		goto error;
 
-		/* Protocol ID */
-		if (*(data++) != 0)
-			break;
+	/* Protocol ID */
+	if (*(data++) != 0)
+		goto error;
 
-		/* Data Encoding */
-		if (*(data++) != 0)
-			break;
+	/* Data Encoding */
+	dcs = *(data++);
 
-		if (sent) {
-			/* Message validity */
-			data++;
-		} else {
-			if (data + 6 >= end)
-				break;
-
-			str = blobmsg_alloc_string_buffer(&status, "timestamp", 32);
-
-			/* year */
-			*(str++) = '2';
-			*(str++) = '0';
-			str = add_semioctet(str, data[0]);
-			/* month */
-			*(str++) = '-';
-			str = add_semioctet(str, data[1]);
-			/* day */
-			*(str++) = '-';
-			str = add_semioctet(str, data[2]);
-
-			/* hour */
-			*(str++) = ' ';
-			str = add_semioctet(str, data[3]);
-			/* minute */
-			*(str++) = ':';
-			str = add_semioctet(str, data[4]);
-			/* second */
-			*(str++) = ':';
-			str = add_semioctet(str, data[5]);
-			*str = 0;
-
-			blobmsg_add_string_buffer(&status);
-
-			data += 7;
+	/* only 7-bit encoding supported for now */
+	if (dcs & 0x0c)
+		goto error;
+
+	if (dcs & 0x10)
+		blobmsg_add_u32(&status, "class", (dcs & 3));
+
+	if (sent) {
+		/* Message validity */
+		data++;
+	} else {
+		if (data + 6 >= end)
+			goto error;
+
+		str = blobmsg_alloc_string_buffer(&status, "timestamp", 32);
+
+		/* year */
+		*(str++) = '2';
+		*(str++) = '0';
+		str = pdu_add_semioctet(str, data[0]);
+		/* month */
+		*(str++) = '-';
+		str = pdu_add_semioctet(str, data[1]);
+		/* day */
+		*(str++) = '-';
+		str = pdu_add_semioctet(str, data[2]);
+
+		/* hour */
+		*(str++) = ' ';
+		str = pdu_add_semioctet(str, data[3]);
+		/* minute */
+		*(str++) = ':';
+		str = pdu_add_semioctet(str, data[4]);
+		/* second */
+		*(str++) = ':';
+		str = pdu_add_semioctet(str, data[5]);
+		*str = 0;
+
+		blobmsg_add_string_buffer(&status);
+
+		data += 7;
+	}
+
+	data++;
+	int bit_offset = 0;
+
+	/* User Data Header */
+	if (first & 0x40) {
+		int udh_len = decode_udh(data);
+		data += udh_len;
+		bit_offset = udh_len % 7;
 		}
 
-		cur_len = *(data++);
-		decode_7bit("text", data, end - data);
-	} while (0);
+	if (data >= end)
+		goto error;
+
+	decode_7bit_field("text", data, end - data, bit_offset);
+	blobmsg_close_table(&status, c);
+
+	return;
+
+error:
+	blobmsg_close_table(&status, c);
+	fprintf(stderr, "There was an error reading message.\n");
 }
 
 static enum qmi_cmd_result
@@ -212,7 +398,7 @@ cmd_wms_get_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct
 
 	id = strtoul(arg, &err, 10);
 	if (err && *err) {
-		blobmsg_add_string(&status, "error", "Invalid message ID");
+		uqmi_add_error("Invalid message ID");
 		return QMI_CMD_EXIT;
 	}
 
@@ -221,3 +407,202 @@ cmd_wms_get_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct
 
 	return QMI_CMD_REQUEST;
 }
+
+
+static void cmd_wms_get_raw_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
+{
+	struct qmi_wms_raw_read_response res;
+	unsigned char *data;
+	char *str;
+	int i;
+
+	qmi_parse_wms_raw_read_response(msg, &res);
+	data = (unsigned char *) res.data.raw_message_data.raw_data;
+	str = blobmsg_alloc_string_buffer(&status, NULL, res.data.raw_message_data.raw_data_n * 3);
+	for (i = 0; i < res.data.raw_message_data.raw_data_n; i++) {
+		str += sprintf(str, &" %02x"[i ? 0 : 1], data[i]);
+	}
+	blobmsg_add_string_buffer(&status);
+}
+
+#define cmd_wms_get_raw_message_prepare cmd_wms_get_message_prepare
+
+
+static struct {
+	const char *smsc;
+	const char *target;
+	bool flash;
+} _send;
+
+
+#define cmd_wms_send_message_smsc_cb no_cb
+static enum qmi_cmd_result
+cmd_wms_send_message_smsc_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
+{
+	_send.smsc = arg;
+	return QMI_CMD_DONE;
+}
+
+#define cmd_wms_send_message_target_cb no_cb
+static enum qmi_cmd_result
+cmd_wms_send_message_target_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
+{
+	_send.target = arg;
+	return QMI_CMD_DONE;
+}
+
+#define cmd_wms_send_message_flash_cb no_cb
+static enum qmi_cmd_result
+cmd_wms_send_message_flash_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
+{
+	_send.flash = true;
+	return QMI_CMD_DONE;
+}
+
+static int
+pdu_encode_semioctet(unsigned char *dest, const char *str)
+{
+	int len = 0;
+	bool lower = true;
+
+	while (*str) {
+		char digit = *str - '0';
+
+		if (lower)
+			dest[len] = 0xf0 | digit;
+		else
+			dest[len++] &= (digit << 4) | 0xf;
+
+		lower = !lower;
+		str++;
+	}
+
+	return len;
+}
+
+static int
+pdu_encode_7bit_str(unsigned char *data, const char *str)
+{
+	unsigned char c;
+	int len = 0;
+	int ofs = 0;
+
+	while(1) {
+		c = *(str++) & 0x7f;
+		if (!c)
+			break;
+
+		switch(ofs) {
+		case 0:
+			data[len] = c;
+			break;
+		default:
+			data[len++] |= c << (8 - ofs);
+			data[len] = c >> ofs;
+			break;
+		}
+
+		ofs = (ofs + 1) % 8;
+	}
+
+	return len + 1;
+}
+
+static int
+pdu_encode_number(unsigned char *dest, const char *str, bool smsc)
+{
+	unsigned char format;
+	bool ascii = false;
+	int len = 0;
+	int i;
+
+	dest[len++] = 0;
+	if (*str == '+') {
+		str++;
+		format = 0x91;
+	} else {
+		format = 0x81;
+	}
+
+	for (i = 0; str[i]; i++) {
+		if (str[i] >= '0' || str[i] <= '9')
+			continue;
+
+		ascii = true;
+		break;
+	}
+
+	if (ascii)
+		format |= 0x40;
+
+	dest[len++] = format;
+	if (!ascii)
+		len += pdu_encode_semioctet(&dest[len], str);
+	else
+		len += pdu_encode_7bit_str(&dest[len], str);
+
+	if (smsc)
+		dest[0] = len - 1;
+	else
+		dest[0] = strlen(str);
+
+	return len;
+}
+
+static int
+pdu_encode_data(unsigned char *dest, const char *str)
+{
+	int len = 0;
+
+	dest[len++] = 0;
+	len += pdu_encode_7bit_str(&dest[len], str);
+	dest[0] = len - 1;
+
+	return len;
+}
+
+#define cmd_wms_send_message_cb no_cb
+static enum qmi_cmd_result
+cmd_wms_send_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
+{
+	static unsigned char buf[512];
+	static struct qmi_wms_raw_send_request mreq = {
+		QMI_INIT_SEQUENCE(raw_message_data,
+			.format = QMI_WMS_MESSAGE_FORMAT_GSM_WCDMA_POINT_TO_POINT,
+			.raw_data = buf,
+		),
+	};
+	unsigned char *cur = buf;
+	unsigned char first_octet = 0x11;
+	unsigned char protocol_id = 0x00;
+	unsigned char dcs = 0x00;
+
+	if (!_send.smsc || !*_send.smsc || !_send.target || !*_send.target) {
+		uqmi_add_error("Missing argument");
+		return QMI_CMD_EXIT;
+	}
+
+	if (strlen(_send.smsc) > 16 || strlen(_send.target) > 16 || strlen(arg) > 160) {
+		uqmi_add_error("Argument too long");
+		return QMI_CMD_EXIT;
+	}
+
+	if (_send.flash)
+		dcs |= 0x10;
+
+	cur += pdu_encode_number(cur, _send.smsc, true);
+	*(cur++) = first_octet;
+	*(cur++) = 0; /* reference */
+
+	cur += pdu_encode_number(cur, _send.target, false);
+	*(cur++) = protocol_id;
+	*(cur++) = dcs;
+
+	*(cur++) = 0xff; /* validity */
+	cur += pdu_encode_data(cur, arg);
+
+	mreq.data.raw_message_data.raw_data_n = cur - buf;
+	qmi_set_wms_raw_send_request(msg, &mreq);
+
+	return QMI_CMD_REQUEST;
+}