commands-wms.c

   1 #include "qmi-message.h"
   2
   3 #define MIN(a,b) (((a)<(b))?(a):(b))
   4 #define CEILDIV(x,y) (((x) + (y) - 1) / (y))
   5
   6 static void cmd_wms_list_messages_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
   7 {
   8         struct qmi_wms_list_messages_response res;
   9         void *c;
  10         int i;
  11
  12         qmi_parse_wms_list_messages_response(msg, &res);
  13         c = blobmsg_open_array(&status, NULL);
  14         for (i = 0; i < res.data.message_list_n; i++)
  15                 blobmsg_add_u32(&status, NULL, res.data.message_list[i].memory_index);
  16
  17         blobmsg_close_array(&status, c);
  18 }
  19
  20 static enum qmi_cmd_result
  21 cmd_wms_list_messages_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
  22 {
  23         static struct qmi_wms_list_messages_request mreq = {
  24                 QMI_INIT(storage_type, QMI_WMS_STORAGE_TYPE_UIM),
  25                 QMI_INIT(message_tag, QMI_WMS_MESSAGE_TAG_TYPE_MT_NOT_READ),
  26         };
  27
  28         qmi_set_wms_list_messages_request(msg, &mreq);
  29
  30         return QMI_CMD_REQUEST;
  31 }
  32
  33 static int
  34 put_unicode_char(char *dest, uint16_t c)
  35 {
  36         if (c < 0x80) {
  37                 *dest = c;
  38                 return 1;
  39         } else if (c < 0x800) {
  40                 *(dest++) = 0xc0 | ((c >> 6) & 0x1f);
  41                 *dest = 0x80 | (c & 0x3f);
  42                 return 2;
  43         } else {
  44                 *(dest++) = 0xe0 | ((c >> 12) & 0xf);
  45                 *(dest++) = 0x80 | ((c >> 6) & 0x3f);
  46                 *dest = 0x80 | (c & 0x3f);
  47                 return 3;
  48         }
  49 }
  50
  51
  52 static int
  53 pdu_decode_7bit_char(char *dest, int len, unsigned char c, bool *escape)
  54 {
  55         uint16_t conv_0x20[] = {
  56                 0x0040, 0x00A3, 0x0024, 0x00A5, 0x00E8, 0x00E9, 0x00F9, 0x00EC,
  57                 0x00F2, 0x00E7, 0x000A, 0x00D8, 0x00F8, 0x000D, 0x00C5, 0x00E5,
  58                 0x0394, 0x005F, 0x03A6, 0x0393, 0x039B, 0x03A9, 0x03A0, 0x03A8,
  59                 0x03A3, 0x0398, 0x039E, 0x00A0, 0x00C6, 0x00E6, 0x00DF, 0x00C9,
  60         };
  61         uint16_t conv_0x5b[] = {
  62                 0x00C4, 0x00D6, 0x00D1, 0x00DC, 0x00A7, 0x00BF,
  63         };
  64         uint16_t conv_0x7b[] = {
  65                 0x00E4, 0x00F6, 0x00F1, 0x00FC, 0x00E0
  66         };
  67         int cur_len = 0;
  68         uint16_t outc;
  69
  70         fprintf(stderr, " %02x", c);
  71         dest += len;
  72         if (*escape) {
  73                 switch(c) {
  74                 case 0x0A:
  75                         *dest = 0x0C;
  76                         return 1;
  77                 case 0x14:
  78                         *dest = 0x5E;
  79                         return 1;
  80                 case 0x28:
  81                         *dest = 0x7B;
  82                         return 1;
  83                 case 0x29:
  84                         *dest = 0x7D;
  85                         return 1;
  86                 case 0x2F:
  87                         *dest = 0x5C;
  88                         return 1;
  89                 case 0x3C:
  90                         *dest = 0x5B;
  91                         return 1;
  92                 case 0x3D:
  93                         *dest = 0x7E;
  94                         return 1;
  95                 case 0x3E:
  96                         *dest = 0x5D;
  97                         return 1;
  98                 case 0x40:
  99                         *dest = 0x7C;
 100                         return 1;
 101                 case 0x65:
 102                         outc = 0x20AC;
 103                         goto out;
 104                 case 0x1B:
 105                         goto normal;
 106                 default:
 107                         /* invalid */
 108                         *(dest++) = conv_0x20[0x1B];
 109                         cur_len++;
 110                         goto normal;
 111                 }
 112         }
 113
 114         if (c == 0x1b) {
 115                 *escape = true;
 116                 return 0;
 117         }
 118
 119 normal:
 120         if (c < 0x20)
 121                 outc = conv_0x20[(int) c];
 122         else if (c == 0x40)
 123                 outc = 0x00A1;
 124         else if (c >= 0x5b && c <= 0x60)
 125                 outc = conv_0x5b[c - 0x5b];
 126         else if (c >= 0x7b && c <= 0x7f)
 127                 outc = conv_0x7b[c - 0x7b];
 128         else
 129                 outc = c;
 130
 131 out:
 132         return cur_len + put_unicode_char(dest, outc);
 133 }
 134
 135 static int
 136 pdu_decode_7bit_str(char *dest, const unsigned char *data, int data_len, int bit_offset)
 137 {
 138         bool escape = false;
 139         int len = 0;
 140         int i;
 141
 142         fprintf(stderr, "Raw text:");
 143         for (i = 0; i < data_len; i++) {
 144                 int pos = (i + bit_offset) % 7;
 145
 146                 if (pos == 0) {
 147                         len += pdu_decode_7bit_char(dest, len, data[i] & 0x7f, &escape);
 148                 } else {
 149                         if (i)
 150                                 len += pdu_decode_7bit_char(dest, len,
 151                                                             (data[i - 1] >> (7 + 1 - pos)) |
 152                                                             ((data[i] << pos) & 0x7f), &escape);
 153
 154                         if (pos == 6)
 155                                 len += pdu_decode_7bit_char(dest, len, (data[i] >> 1) & 0x7f,
 156                                                             &escape);
 157                 }
 158         }
 159         dest[len] = 0;
 160         fprintf(stderr, "\n");
 161         return len;
 162 }
 163
 164 static int decode_udh(const unsigned char *data)
 165 {
 166         const unsigned char *end;
 167         unsigned int type, len, udh_len;
 168
 169         udh_len = *(data++);
 170         end = data + udh_len;
 171         while (data < end) {
 172                 const unsigned char *val;
 173
 174                 type = data[0];
 175                 len = data[1];
 176                 val = &data[2];
 177                 data += 2 + len;
 178                 if (data > end)
 179                         break;
 180
 181                 switch (type) {
 182                 case 0x00:
 183                         blobmsg_add_u32(&status, "concat_ref", (uint32_t) val[0]);
 184                         blobmsg_add_u32(&status, "concat_part", (uint32_t) val[2]);
 185                         blobmsg_add_u32(&status, "concat_parts", (uint32_t) val[1]);
 186                         break;
 187                 case 0x08:
 188                         blobmsg_add_u32(&status, "concat_ref", (uint32_t) (val[0] << 8 | val[1]));
 189                         blobmsg_add_u32(&status, "concat_part", (uint32_t) val[3]);
 190                         blobmsg_add_u32(&status, "concat_parts", (uint32_t) val[2]);
 191                         break;
 192                 default:
 193                         break;
 194                 }
 195         }
 196
 197         return udh_len + 1;
 198 }
 199
 200 static void decode_7bit_field(char *name, const unsigned char *data, int data_len, int bit_offset)
 201 {
 202         char *dest = blobmsg_alloc_string_buffer(&status, name, 3 * data_len + 2);
 203         pdu_decode_7bit_str(dest, data, CEILDIV(data_len * 7, 8), bit_offset);
 204         dest[data_len] = 0;
 205         blobmsg_add_string_buffer(&status);
 206 }
 207
 208 static char *pdu_add_semioctet(char *str, char val)
 209 {
 210         *str = '0' + (val & 0xf);
 211         if (*str <= '9')
 212                 str++;
 213
 214         *str = '0' + ((val >> 4) & 0xf);
 215         if (*str <= '9')
 216                 str++;
 217
 218         return str;
 219 }
 220
 221 static void
 222 pdu_decode_address(char *str, unsigned char *data, int len)
 223 {
 224         unsigned char toa;
 225
 226         toa = *(data++);
 227         switch (toa & 0x70) {
 228         case 0x50:
 229                 pdu_decode_7bit_str(str, data, len, 0);
 230                 return;
 231         case 0x10:
 232                 *(str++) = '+';
 233                 /* fall through */
 234         default:
 235                 while (len--) {
 236                         str = pdu_add_semioctet(str, *data);
 237                         data++;
 238                 }
 239         }
 240
 241         *str = 0;
 242 }
 243
 244 static void wms_decode_address(char *name, unsigned char *data, int len)
 245 {
 246         char *str = blobmsg_alloc_string_buffer(&status, name, len * 2 + 2);
 247         pdu_decode_address(str, data, len);
 248         blobmsg_add_string_buffer(&status);
 249 }
 250
 251 static void blobmsg_add_hex(struct blob_buf *buf, const char *name, unsigned const char *data, int len)
 252 {
 253         char* str = blobmsg_alloc_string_buffer(buf, name, len * 2 + 1);
 254         for (int i = 0; i < len; i++) {
 255                 str += sprintf(str, "%02x", data[i]);
 256         }
 257         blobmsg_add_string_buffer(buf);
 258 }
 259
 260 #define cmd_wms_delete_message_cb no_cb
 261 static enum qmi_cmd_result
 262 cmd_wms_delete_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 263 {
 264         char *err;
 265         int id;
 266
 267         id = strtoul(arg, &err, 10);
 268         if (err && *err) {
 269                 uqmi_add_error("Invalid message ID");
 270                 return QMI_CMD_EXIT;
 271         }
 272
 273         static struct qmi_wms_delete_request mreq = {
 274                 QMI_INIT(memory_storage, QMI_WMS_STORAGE_TYPE_UIM),
 275                 QMI_INIT(message_mode, QMI_WMS_MESSAGE_MODE_GSM_WCDMA),
 276         };
 277
 278         mreq.set.memory_index = 1;
 279         mreq.data.memory_index = id;
 280
 281         qmi_set_wms_delete_request(msg, &mreq);
 282
 283         return QMI_CMD_REQUEST;
 284 }
 285
 286
 287 static void cmd_wms_get_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 288 {
 289         struct qmi_wms_raw_read_response res;
 290         unsigned char *data, *end;
 291         char *str;
 292         int cur_len;
 293         bool sent;
 294         unsigned char first, dcs;
 295         void *c;
 296
 297         qmi_parse_wms_raw_read_response(msg, &res);
 298         c = blobmsg_open_table(&status, NULL);
 299         data = (unsigned char *) res.data.raw_message_data.raw_data;
 300         end = data + res.data.raw_message_data.raw_data_n;
 301
 302         cur_len = *(data++);
 303         if (data + cur_len >= end)
 304                 goto error;
 305
 306         if (cur_len) {
 307                 wms_decode_address("smsc", data, cur_len - 1);
 308                 data += cur_len;
 309         }
 310
 311         if (data + 3 >= end)
 312                 goto error;
 313
 314         first = *(data++);
 315         sent = (first & 0x3) == 1;
 316         if (sent)
 317                 data++;
 318
 319         cur_len = *(data++);
 320         if (data + cur_len >= end)
 321                 goto error;
 322
 323         if (cur_len) {
 324                 cur_len = (cur_len + 1) / 2;
 325                 wms_decode_address(sent ? "receiver" : "sender", data, cur_len);
 326                 data += cur_len + 1;
 327         }
 328
 329         if (data + 3 >= end)
 330                 goto error;
 331
 332         /* Protocol ID */
 333         if (*(data++) != 0)
 334                 goto error;
 335
 336         /* Data Encoding */
 337         dcs = *(data++);
 338
 339         if (dcs & 0x10)
 340                 blobmsg_add_u32(&status, "class", (dcs & 3));
 341
 342         if (sent) {
 343                 /* Message validity */
 344                 data++;
 345         } else {
 346                 if (data + 6 >= end)
 347                         goto error;
 348
 349                 str = blobmsg_alloc_string_buffer(&status, "timestamp", 32);
 350
 351                 /* year */
 352                 *(str++) = '2';
 353                 *(str++) = '0';
 354                 str = pdu_add_semioctet(str, data[0]);
 355                 /* month */
 356                 *(str++) = '-';
 357                 str = pdu_add_semioctet(str, data[1]);
 358                 /* day */
 359                 *(str++) = '-';
 360                 str = pdu_add_semioctet(str, data[2]);
 361
 362                 /* hour */
 363                 *(str++) = ' ';
 364                 str = pdu_add_semioctet(str, data[3]);
 365                 /* minute */
 366                 *(str++) = ':';
 367                 str = pdu_add_semioctet(str, data[4]);
 368                 /* second */
 369                 *(str++) = ':';
 370                 str = pdu_add_semioctet(str, data[5]);
 371                 *str = 0;
 372
 373                 blobmsg_add_string_buffer(&status);
 374
 375                 data += 7;
 376         }
 377
 378         int message_len = *(data++);
 379         int udh_len = 0;
 380         int bit_offset = 0;
 381
 382         /* User Data Header */
 383         if (first & 0x40) {
 384                 udh_len = decode_udh(data);
 385                 data += udh_len;
 386                 bit_offset = udh_len % 7;
 387                 }
 388
 389         if (data >= end)
 390                 goto error;
 391
 392         switch(dcs & 0x0c) {
 393                 case 0x00:
 394                         /* 7 bit GSM alphabet */
 395                         message_len = message_len - CEILDIV(udh_len * 8, 7);
 396                         message_len = MIN(message_len, CEILDIV((end - data) * 8, 7));
 397                         decode_7bit_field("text", data, message_len, bit_offset);
 398                         break;
 399                 case 0x04:
 400                         /* 8 bit data */
 401                         message_len = MIN(message_len - udh_len, end - data);
 402                         blobmsg_add_hex(&status, "data", data, message_len);
 403                         break;
 404                 case 0x08:
 405                         /* 16 bit UCS-2 string */
 406                         message_len = MIN(message_len - udh_len, end - data);
 407                         blobmsg_add_hex(&status, "ucs-2", data, message_len);
 408                         break;
 409                 default:
 410                         goto error;
 411                 }
 412
 413         blobmsg_close_table(&status, c);
 414         return;
 415
 416 error:
 417         blobmsg_close_table(&status, c);
 418         fprintf(stderr, "There was an error reading message.\n");
 419 }
 420
 421 static enum qmi_cmd_result
 422 cmd_wms_get_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 423 {
 424         static struct qmi_wms_raw_read_request mreq = {
 425                 QMI_INIT_SEQUENCE(message_memory_storage_id,
 426                         .storage_type = QMI_WMS_STORAGE_TYPE_UIM,
 427                 ),
 428                 QMI_INIT(message_mode, QMI_WMS_MESSAGE_MODE_GSM_WCDMA),
 429         };
 430         char *err;
 431         int id;
 432
 433         id = strtoul(arg, &err, 10);
 434         if (err && *err) {
 435                 uqmi_add_error("Invalid message ID");
 436                 return QMI_CMD_EXIT;
 437         }
 438
 439         mreq.data.message_memory_storage_id.memory_index = id;
 440         qmi_set_wms_raw_read_request(msg, &mreq);
 441
 442         return QMI_CMD_REQUEST;
 443 }
 444
 445
 446 static void cmd_wms_get_raw_message_cb(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg)
 447 {
 448         struct qmi_wms_raw_read_response res;
 449         unsigned char *data;
 450         char *str;
 451         int i;
 452
 453         qmi_parse_wms_raw_read_response(msg, &res);
 454         data = (unsigned char *) res.data.raw_message_data.raw_data;
 455         str = blobmsg_alloc_string_buffer(&status, NULL, res.data.raw_message_data.raw_data_n * 3);
 456         for (i = 0; i < res.data.raw_message_data.raw_data_n; i++) {
 457                 str += sprintf(str, &" %02x"[i ? 0 : 1], data[i]);
 458         }
 459         blobmsg_add_string_buffer(&status);
 460 }
 461
 462 #define cmd_wms_get_raw_message_prepare cmd_wms_get_message_prepare
 463
 464
 465 static struct {
 466         const char *smsc;
 467         const char *target;
 468         bool flash;
 469 } _send;
 470
 471
 472 #define cmd_wms_send_message_smsc_cb no_cb
 473 static enum qmi_cmd_result
 474 cmd_wms_send_message_smsc_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 475 {
 476         _send.smsc = arg;
 477         return QMI_CMD_DONE;
 478 }
 479
 480 #define cmd_wms_send_message_target_cb no_cb
 481 static enum qmi_cmd_result
 482 cmd_wms_send_message_target_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 483 {
 484         _send.target = arg;
 485         return QMI_CMD_DONE;
 486 }
 487
 488 #define cmd_wms_send_message_flash_cb no_cb
 489 static enum qmi_cmd_result
 490 cmd_wms_send_message_flash_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 491 {
 492         _send.flash = true;
 493         return QMI_CMD_DONE;
 494 }
 495
 496 static int
 497 pdu_encode_semioctet(unsigned char *dest, const char *str)
 498 {
 499         int len = 0;
 500         bool lower = true;
 501
 502         while (*str) {
 503                 char digit = *str - '0';
 504
 505                 if (lower)
 506                         dest[len] = 0xf0 | digit;
 507                 else
 508                         dest[len++] &= (digit << 4) | 0xf;
 509
 510                 lower = !lower;
 511                 str++;
 512         }
 513
 514         return len;
 515 }
 516
 517 static int
 518 pdu_encode_7bit_str(unsigned char *data, const char *str)
 519 {
 520         unsigned char c;
 521         int len = 0;
 522         int ofs = 0;
 523
 524         while(1) {
 525                 c = *(str++) & 0x7f;
 526                 if (!c)
 527                         break;
 528
 529                 switch(ofs) {
 530                 case 0:
 531                         data[len] = c;
 532                         break;
 533                 default:
 534                         data[len++] |= c << (8 - ofs);
 535                         data[len] = c >> ofs;
 536                         break;
 537                 }
 538
 539                 ofs = (ofs + 1) % 8;
 540         }
 541
 542         return len + 1;
 543 }
 544
 545 static int
 546 pdu_encode_number(unsigned char *dest, const char *str, bool smsc)
 547 {
 548         unsigned char format;
 549         bool ascii = false;
 550         int len = 0;
 551         int i;
 552
 553         dest[len++] = 0;
 554         if (*str == '+') {
 555                 str++;
 556                 format = 0x91;
 557         } else {
 558                 format = 0x81;
 559         }
 560
 561         for (i = 0; str[i]; i++) {
 562                 if (str[i] >= '0' || str[i] <= '9')
 563                         continue;
 564
 565                 ascii = true;
 566                 break;
 567         }
 568
 569         if (ascii)
 570                 format |= 0x40;
 571
 572         dest[len++] = format;
 573         if (!ascii)
 574                 len += pdu_encode_semioctet(&dest[len], str);
 575         else
 576                 len += pdu_encode_7bit_str(&dest[len], str);
 577
 578         if (smsc)
 579                 dest[0] = len - 1;
 580         else
 581                 dest[0] = strlen(str);
 582
 583         return len;
 584 }
 585
 586 static int
 587 pdu_encode_data(unsigned char *dest, const char *str)
 588 {
 589         int len = 0;
 590
 591         dest[len++] = 0;
 592         len += pdu_encode_7bit_str(&dest[len], str);
 593         dest[0] = len - 1;
 594
 595         return len;
 596 }
 597
 598 #define cmd_wms_send_message_cb no_cb
 599 static enum qmi_cmd_result
 600 cmd_wms_send_message_prepare(struct qmi_dev *qmi, struct qmi_request *req, struct qmi_msg *msg, char *arg)
 601 {
 602         static unsigned char buf[512];
 603         static struct qmi_wms_raw_send_request mreq = {
 604                 QMI_INIT_SEQUENCE(raw_message_data,
 605                         .format = QMI_WMS_MESSAGE_FORMAT_GSM_WCDMA_POINT_TO_POINT,
 606                         .raw_data = buf,
 607                 ),
 608         };
 609         unsigned char *cur = buf;
 610         unsigned char first_octet = 0x11;
 611         unsigned char protocol_id = 0x00;
 612         unsigned char dcs = 0x00;
 613
 614         if (!_send.smsc || !*_send.smsc || !_send.target || !*_send.target) {
 615                 uqmi_add_error("Missing argument");
 616                 return QMI_CMD_EXIT;
 617         }
 618
 619         if (strlen(_send.smsc) > 16 || strlen(_send.target) > 16 || strlen(arg) > 160) {
 620                 uqmi_add_error("Argument too long");
 621                 return QMI_CMD_EXIT;
 622         }
 623
 624         if (_send.flash)
 625                 dcs |= 0x10;
 626
 627         cur += pdu_encode_number(cur, _send.smsc, true);
 628         *(cur++) = first_octet;
 629         *(cur++) = 0; /* reference */
 630
 631         cur += pdu_encode_number(cur, _send.target, false);
 632         *(cur++) = protocol_id;
 633         *(cur++) = dcs;
 634
 635         *(cur++) = 0xff; /* validity */
 636         cur += pdu_encode_data(cur, arg);
 637
 638         mreq.data.raw_message_data.raw_data_n = cur - buf;
 639         qmi_set_wms_raw_send_request(msg, &mreq);
 640
 641         return QMI_CMD_REQUEST;
 642 }