commands-wms.c

   1 #include "qmi-message.h"
   2
   3 static void cmd_wms_list_messages_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
   4 {
   5         struct qmi_wms_list_messages_response res;
   6         int i, len = 0;
   7
   8         qmi_parse_wms_list_messages_response(msg, &res);
   9         blobmsg_alloc_string_buffer(&status, "messages", 1);
  10         for (i = 0; i < res.data.message_list_n; i++) {
  11                 len += sprintf(blobmsg_realloc_string_buffer(&status, len + 12) + len,
  12                                " %d" + (len ? 0 : 1),
  13                                            res.data.message_list[i].memory_index);
  14         }
  15         blobmsg_add_string_buffer(&status);
  16 }
  17
  18 static enum qmi_cmd_result
  19 cmd_wms_list_messages_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
  20 {
  21         static struct qmi_wms_list_messages_request mreq = {
  22                 QMI_INIT(storage_type, QMI_WMS_STORAGE_TYPE_UIM),
  23                 QMI_INIT(message_tag, QMI_WMS_MESSAGE_TAG_TYPE_MT_NOT_READ),
  24         };
  25
  26         qmi_set_wms_list_messages_request(msg, &mreq);
  27
  28         return QMI_CMD_REQUEST;
  29 }
  30
  31 static int
  32 pdu_decode_7bit_str(char *dest, const unsigned char *data, int data_len, int bit_offset)
  33 {
  34         char *orig_dest = dest;
  35         int i;
  36
  37         for (i = 0; i < data_len; i++) {
  38                 int pos = (i + bit_offset) % 7;
  39
  40                 if (pos == 0) {
  41                         *(dest++) = data[i] & 0x7f;
  42                 } else {
  43                         if (i)
  44                                 *(dest++) = (data[i - 1] >> (7 + 1 - pos)) |
  45                                             ((data[i] << pos) & 0x7f);
  46
  47                         if (pos == 6)
  48                                 *(dest++) = (data[i] >> 1) & 0x7f;
  49                 }
  50         }
  51         *dest = 0;
  52         return dest - orig_dest;
  53 }
  54
  55 static void decode_udh(const unsigned char *data)
  56 {
  57         const unsigned char *start = data;
  58         const unsigned char *end;
  59         unsigned int type, len;
  60
  61         len = *(data++);
  62         end = data + len;
  63         while (data < end) {
  64                 const unsigned char *val;
  65
  66                 type = data[0];
  67                 len = data[1];
  68                 val = &data[2];
  69                 data += 2 + len;
  70                 if (data > end)
  71                         break;
  72
  73                 switch (type) {
  74                 case 0:
  75                         blobmsg_add_u32(&status, "concat_ref", (uint32_t) val[0]);
  76                         blobmsg_add_u32(&status, "concat_part", (uint32_t) val[2] + 1);
  77                         blobmsg_add_u32(&status, "concat_parts", (uint32_t) val[1]);
  78                         break;
  79                 default:
  80                         break;
  81                 }
  82         }
  83 }
  84
  85 static void decode_7bit_field(char *name, const unsigned char *data, int data_len, bool udh)
  86 {
  87         bool multipart = false;
  88         const unsigned char *udh_start;
  89         char *dest;
  90         int pos_offset = 0;
  91
  92         if (udh) {
  93                 int len = data[0] + 1;
  94
  95                 udh_start = data;
  96                 data += len;
  97                 data_len -= len;
  98                 pos_offset = len % 7;
  99         }
 100
 101         dest = blobmsg_alloc_string_buffer(&status, name, data_len * 8 / 7 + 2);
 102         pdu_decode_7bit_str(dest, data, data_len, pos_offset);
 103         blobmsg_add_string_buffer(&status);
 104
 105         if (udh)
 106                 decode_udh(udh_start);
 107 }
 108
 109 static char *pdu_add_semioctet(char *str, char val)
 110 {
 111         *str = '0' + (val & 0xf);
 112         if (*str <= '9')
 113                 str++;
 114
 115         *str = '0' + ((val >> 4) & 0xf);
 116         if (*str <= '9')
 117                 str++;
 118
 119         return str;
 120 }
 121
 122 static void
 123 pdu_decode_address(char *str, unsigned char *data, int len)
 124 {
 125         unsigned char toa;
 126
 127         toa = *(data++);
 128         switch (toa & 0x70) {
 129         case 0x50:
 130                 pdu_decode_7bit_str(str, data, len, 0);
 131                 return;
 132         case 0x10:
 133                 *(str++) = '+';
 134                 /* fall through */
 135         default:
 136                 while (len--) {
 137                         str = pdu_add_semioctet(str, *data);
 138                         data++;
 139                 }
 140         }
 141
 142         *str = 0;
 143 }
 144
 145 static void wms_decode_address(char *str, char *name, unsigned char *data, int len)
 146 {
 147         str = blobmsg_alloc_string_buffer(&status, name, len * 2 + 2);
 148         pdu_decode_address(str, data, len);
 149         blobmsg_add_string_buffer(&status);
 150 }
 151
 152 static void cmd_wms_get_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 153 {
 154         struct qmi_wms_raw_read_response res;
 155         unsigned char *data, *end;
 156         char *str;
 157         int i, cur_len;
 158         bool sent;
 159         unsigned char first, dcs;
 160
 161         qmi_parse_wms_raw_read_response(msg, &res);
 162         data = (unsigned char *) res.data.raw_message_data.raw_data;
 163         end = data + res.data.raw_message_data.raw_data_n;
 164
 165         cur_len = *(data++);
 166         if (data + cur_len >= end)
 167                 return;
 168
 169         if (cur_len) {
 170                 wms_decode_address(str, "smsc", data, cur_len - 1);
 171                 data += cur_len;
 172         }
 173
 174         if (data + 3 >= end)
 175                 return;
 176
 177         first = *(data++);
 178         sent = (first & 0x3) == 1;
 179         if (sent)
 180                 data++;
 181
 182         cur_len = *(data++);
 183         if (data + cur_len >= end)
 184                 return;
 185
 186         if (cur_len) {
 187                 cur_len = (cur_len + 1) / 2;
 188                 wms_decode_address(str, sent ? "receiver" : "sender", data, cur_len);
 189                 data += cur_len + 1;
 190         }
 191
 192         if (data + 3 >= end)
 193                 return;
 194
 195         /* Protocol ID */
 196         if (*(data++) != 0)
 197                 return;
 198
 199         /* Data Encoding */
 200         dcs = *(data++);
 201
 202         /* only 7-bit encoding supported for now */
 203         if (dcs & 0x0c)
 204                 return;
 205
 206         if (dcs & 0x10)
 207                 blobmsg_add_u32(&status, "class", (dcs & 3));
 208
 209         if (sent) {
 210                 /* Message validity */
 211                 data++;
 212         } else {
 213                 if (data + 6 >= end)
 214                         return;
 215
 216                 str = blobmsg_alloc_string_buffer(&status, "timestamp", 32);
 217
 218                 /* year */
 219                 *(str++) = '2';
 220                 *(str++) = '0';
 221                 str = pdu_add_semioctet(str, data[0]);
 222                 /* month */
 223                 *(str++) = '-';
 224                 str = pdu_add_semioctet(str, data[1]);
 225                 /* day */
 226                 *(str++) = '-';
 227                 str = pdu_add_semioctet(str, data[2]);
 228
 229                 /* hour */
 230                 *(str++) = ' ';
 231                 str = pdu_add_semioctet(str, data[3]);
 232                 /* minute */
 233                 *(str++) = ':';
 234                 str = pdu_add_semioctet(str, data[4]);
 235                 /* second */
 236                 *(str++) = ':';
 237                 str = pdu_add_semioctet(str, data[5]);
 238                 *str = 0;
 239
 240                 blobmsg_add_string_buffer(&status);
 241
 242                 data += 7;
 243         }
 244
 245         cur_len = *(data++);
 246         decode_7bit_field("text", data, end - data, !!(first & 0x40));
 247 }
 248
 249 static enum qmi_cmd_result
 250 cmd_wms_get_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 251 {
 252         static struct qmi_wms_raw_read_request mreq = {
 253                 QMI_INIT_SEQUENCE(message_memory_storage_id,
 254                         .storage_type = QMI_WMS_STORAGE_TYPE_UIM,
 255                 ),
 256                 QMI_INIT(message_mode, QMI_WMS_MESSAGE_MODE_GSM_WCDMA),
 257         };
 258         char *err;
 259         int id;
 260
 261         id = strtoul(arg, &err, 10);
 262         if (err && *err) {
 263                 blobmsg_add_string(&status, "error", "Invalid message ID");
 264                 return QMI_CMD_EXIT;
 265         }
 266
 267         mreq.data.message_memory_storage_id.memory_index = id;
 268         qmi_set_wms_raw_read_request(msg, &mreq);
 269
 270         return QMI_CMD_REQUEST;
 271 }
 272
 273
 274 static void cmd_wms_get_raw_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 275 {
 276         struct qmi_wms_raw_read_response res;
 277         unsigned char *data;
 278         int i, len = 0;
 279         char *str;
 280
 281         qmi_parse_wms_raw_read_response(msg, &res);
 282         data = (unsigned char *) res.data.raw_message_data.raw_data;
 283         str = blobmsg_alloc_string_buffer(&status, "data", res.data.raw_message_data.raw_data_n * 3);
 284         for (i = 0; i < res.data.raw_message_data.raw_data_n; i++) {
 285                 str += sprintf(str, " %02x" + (i ? 0 : 1), data[i]);
 286         }
 287         blobmsg_add_string_buffer(&status);
 288 }
 289
 290 #define cmd_wms_get_raw_message_prepare cmd_wms_get_message_prepare
 291
 292
 293 static struct {
 294         const char *smsc;
 295         const char *target;
 296         bool flash;
 297 } send;
 298
 299
 300 #define cmd_wms_send_message_smsc_cb no_cb
 301 static enum qmi_cmd_result
 302 cmd_wms_send_message_smsc_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 303 {
 304         send.smsc = arg;
 305         return QMI_CMD_DONE;
 306 }
 307
 308 #define cmd_wms_send_message_target_cb no_cb
 309 static enum qmi_cmd_result
 310 cmd_wms_send_message_target_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 311 {
 312         send.target = arg;
 313         return QMI_CMD_DONE;
 314 }
 315
 316 #define cmd_wms_send_message_flash_cb no_cb
 317 static enum qmi_cmd_result
 318 cmd_wms_send_message_flash_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 319 {
 320         send.flash = true;
 321         return QMI_CMD_DONE;
 322 }
 323
 324 static int
 325 pdu_encode_semioctet(unsigned char *dest, const char *str)
 326 {
 327         int len = 0;
 328         bool lower = true;
 329
 330         while (*str) {
 331                 char digit = *str - '0';
 332
 333                 if (lower)
 334                         dest[len] = 0xf0 | digit;
 335                 else
 336                         dest[len++] &= (digit << 4) | 0xf;
 337
 338                 lower = !lower;
 339                 str++;
 340         }
 341
 342         return len;
 343 }
 344
 345 static int
 346 pdu_encode_7bit_str(unsigned char *data, const char *str)
 347 {
 348         unsigned char c;
 349         int len = 0;
 350         int ofs = 0;
 351
 352         while(1) {
 353                 unsigned char mask;
 354
 355                 c = *(str++) & 0x7f;
 356                 if (!c)
 357                         break;
 358
 359                 switch(ofs) {
 360                 case 0:
 361                         data[len] = c;
 362                         break;
 363                 default:
 364                         data[len++] |= c << (8 - ofs);
 365                         data[len] = c >> ofs;
 366                         break;
 367                 }
 368
 369                 ofs = (ofs + 1) % 7;
 370         }
 371
 372         return len + 1;
 373 }
 374
 375 static int
 376 pdu_encode_number(unsigned char *dest, const char *str, bool smsc)
 377 {
 378         unsigned char format;
 379         bool ascii = false;
 380         int len = 0;
 381         int i;
 382
 383         dest[len++] = 0;
 384         if (*str == '+') {
 385                 str++;
 386                 format = 0x91;
 387         } else {
 388                 format = 0x81;
 389         }
 390
 391         for (i = 0; str[i]; i++) {
 392                 if (str[i] >= '0' || str[i] <= '9')
 393                         continue;
 394
 395                 ascii = true;
 396                 break;
 397         }
 398
 399         if (ascii)
 400                 format |= 0x40;
 401
 402         dest[len++] = format;
 403         if (!ascii)
 404                 len += pdu_encode_semioctet(&dest[len], str);
 405         else
 406                 len += pdu_encode_7bit_str(&dest[len], str);
 407
 408         if (smsc)
 409                 dest[0] = len - 1;
 410         else
 411                 dest[0] = strlen(str);
 412
 413         return len;
 414 }
 415
 416 static int
 417 pdu_encode_data(unsigned char *dest, const char *str)
 418 {
 419         int len = 0;
 420
 421         dest[len++] = 0;
 422         len += pdu_encode_7bit_str(&dest[len], str);
 423         dest[0] = len - 1;
 424
 425         return len;
 426 }
 427
 428 #define cmd_wms_send_message_cb no_cb
 429 static enum qmi_cmd_result
 430 cmd_wms_send_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 431 {
 432         static unsigned char buf[512];
 433         static struct qmi_wms_raw_send_request mreq = {
 434                 QMI_INIT_SEQUENCE(raw_message_data,
 435                         .format = QMI_WMS_MESSAGE_FORMAT_GSM_WCDMA_POINT_TO_POINT,
 436                         .raw_data = buf,
 437                 ),
 438         };
 439         unsigned char *cur = buf;
 440         unsigned char first_octet = 0x11;
 441         unsigned char protocol_id = 0x00;
 442         unsigned char dcs = 0x00;
 443         char *str;
 444         int i;
 445
 446         if (!send.smsc || !*send.smsc || !send.target || !*send.target) {
 447                 blobmsg_add_string(&status, "error", "Missing argument");
 448                 return QMI_CMD_EXIT;
 449         }
 450
 451         if (strlen(send.smsc) > 16 || strlen(send.target) > 16 || strlen(arg) > 160) {
 452                 blobmsg_add_string(&status, "error", "Argument too long");
 453                 return QMI_CMD_EXIT;
 454         }
 455
 456         if (send.flash)
 457                 dcs |= 0x10;
 458
 459         cur += pdu_encode_number(cur, send.smsc, true);
 460         *(cur++) = first_octet;
 461         *(cur++) = 0; /* reference */
 462
 463         cur += pdu_encode_number(cur, send.target, false);
 464         *(cur++) = protocol_id;
 465         *(cur++) = dcs;
 466
 467         *(cur++) = 0xff; /* validity */
 468         cur += pdu_encode_data(cur, arg);
 469
 470         mreq.data.raw_message_data.raw_data_n = cur - buf;
 471         qmi_set_wms_raw_send_request(msg, &mreq);
 472
 473         return QMI_CMD_REQUEST;
 474 }