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