EXPORT_DEF int at_enque_ussd (struct cpvt * cpvt, const char * code, attribute_unused const char * u1, attribute_unused unsigned u2, attribute_unused int u3, void ** id)
{
static const char cmd[] = "AT+CUSD=1,\"";
static const char cmd_end[] = "\",15\r";
at_queue_cmd_t at_cmd = ATQ_CMD_DECLARE_DYN(CMD_AT_CUSD); /* TODO: may be increase timeout ? */
str_encoding_t cusd_encoding ;
ssize_t res;
int length;
char buf[4096];
pvt_t* pvt = cpvt->pvt;
memcpy (buf, cmd, STRLEN(cmd));
length = STRLEN(cmd);
if (pvt->cusd_use_7bit_encoding)
cusd_encoding = STR_ENCODING_7BIT_HEX;
else if (pvt->use_ucs2_encoding)
cusd_encoding = STR_ENCODING_UCS2_HEX;
else
cusd_encoding = STR_ENCODING_7BIT;
res = str_recode(RECODE_ENCODE, cusd_encoding, code, strlen (code), buf + STRLEN(cmd), sizeof (buf) - STRLEN(cmd) - STRLEN(cmd_end) - 1);
if (res <= 0)
{
ast_log (LOG_ERROR, "[%s] Error converting USSD code: %s\n", PVT_ID(pvt), code);
return -1;
}
length += res;
memcpy(buf + length, cmd_end, STRLEN(cmd_end)+1);
length += STRLEN(cmd_end);
at_cmd.length = length;
at_cmd.data = ast_strdup (buf);
if(!at_cmd.data)
return -1;
return at_queue_insert_task(cpvt, &at_cmd, 1, 0, (struct at_queue_task **)id);
}
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "at_parse.h" /* at_parse_*() */
#include "mutils.h" /* ITEMS_OF() */
int ok = 0;
int faults = 0;
int test_strcmp(const char *pa, const char *pb)
{
int retval;
if (pa == NULL)
pa = "";
if (pb == NULL)
pb = "";
retval = strcmp(pa,pb);
if (retval != 0) {
int x = 0;
while (pa[x] == pb[x] && pa[x] != 0) {
x++;
}
printf("String '%s' and '%s' differs at "
"offset %d '%c' != '%c'\n", pa, pb, x, pa[x], pb[x]);
}
return (retval);
}
#/* */
void test_parse_cnum()
{
static const struct test_case {
const char * input;
const char * result;
} cases[] = {
{ "+CNUM: \"*Subscriber Number\",\"+79139131234\",145", "+79139131234" },
{ "+CNUM: \"Subscriber Number\",\"\",145", "" },
{ "+CNUM: \"Subscriber Number\",,145", "" },
{ "+CNUM: \"\",\"+79139131234\",145", "+79139131234" },
{ "+CNUM: ,\"\",145", "" },
{ "+CNUM: ,,145", "" },
{ "+CNUM: \"\",+79139131234\",145", "+79139131234" },
{ "+CNUM: \"\",+79139131234,145", "+79139131234" },
};
unsigned idx = 0;
char * input;
const char * res;
const char * msg;
for(; idx < ITEMS_OF(cases); ++idx) {
input = strdup(cases[idx].input);
fprintf(stderr, "%s(\"%s\")...", "at_parse_cnum", input);
res = at_parse_cnum(input);
if(test_strcmp(res, cases[idx].result) == 0) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
fprintf(stderr, " = \"%s\"\t%s\n", res, msg);
free(input);
}
fprintf(stderr, "\n");
}
#/* */
void test_parse_cops()
{
static const struct test_case {
const char * input;
const char * result;
} cases[] = {
{ "+COPS: 0,0,\"TELE2\",0", "TELE2" },
{ "+COPS: 0,0,\"TELE2,0", "TELE2" },
{ "+COPS: 0,0,TELE2,0", "TELE2" },
};
unsigned idx = 0;
char * input;
const char * res;
const char * msg;
for(; idx < ITEMS_OF(cases); ++idx) {
input = strdup(cases[idx].input);
fprintf(stderr, "%s(\"%s\")...", "at_parse_cops", input);
res = at_parse_cops(input);
if(test_strcmp(res, cases[idx].result) == 0) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
fprintf(stderr, " = \"%s\"\t%s\n", res, msg);
free(input);
}
fprintf(stderr, "\n");
}
#/* */
void test_parse_creg()
{
struct result {
int res;
int gsm_reg;
int gsm_reg_status;
char * lac;
char * ci;
};
static const struct test_case {
const char * input;
struct result result;
} cases[] = {
{ "+CREG: 2,1,9110,7E6", { 0, 1, 1, "9110", "7E6"} },
{ "+CREG: 2,1,XXXX,AAAA", { 0, 1, 1, "XXXX", "AAAA"} },
};
unsigned idx = 0;
char * input;
struct result result;
const char * msg;
for(; idx < ITEMS_OF(cases); ++idx) {
input = strdup(cases[idx].input);
fprintf(stderr, "%s(\"%s\")...", "at_parse_creg", input);
result.res = at_parse_creg(input, strlen(input), &result.gsm_reg, &result.gsm_reg_status, &result.lac, &result.ci);
if(result.res == cases[idx].result.res
&&
result.gsm_reg == cases[idx].result.gsm_reg
&&
result.gsm_reg_status == cases[idx].result.gsm_reg_status
&&
test_strcmp(result.lac, cases[idx].result.lac) == 0
&&
test_strcmp(result.ci, cases[idx].result.ci) == 0
) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
fprintf(stderr, " = %d (%d,%d,\"%s\",\"%s\")\t%s\n", result.res, result.gsm_reg, result.gsm_reg_status, result.lac, result.ci, msg);
free(input);
}
fprintf(stderr, "\n");
}
#/* */
void test_parse_cmti()
{
static const struct test_case {
const char * input;
int result;
} cases[] = {
{ "+CMTI: \"ME\",41", 41 },
{ "+CMTI: 0,111", 111 },
{ "+CMTI: ", -1 },
};
unsigned idx = 0;
char * input;
int result;
const char * msg;
for(; idx < ITEMS_OF(cases); ++idx) {
input = strdup(cases[idx].input);
fprintf(stderr, "%s(\"%s\")...", "at_parse_cmti", input);
result = at_parse_cmti(input);
if(result == cases[idx].result) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
fprintf(stderr, " = %d\t%s\n", result, msg);
free(input);
}
fprintf(stderr, "\n");
}
#/* */
void test_parse_cmgr()
{
struct result {
const char * res;
char * str;
char * oa;
str_encoding_t oa_enc;
char * msg;
str_encoding_t msg_enc;
};
static const struct test_case {
const char * input;
struct result result;
} cases[] = {
{ "+CMGR: \"REC READ\",\"+79139131234\",,\"10/12/05,22:00:04+12\"\r\n041F04400438043204350442",
{
NULL,
"\"REC READ\",\"+79139131234",
"+79139131234",
STR_ENCODING_7BIT,
"041F04400438043204350442",
STR_ENCODING_UNKNOWN
}
},
{ "+CMGR: \"REC READ\",\"002B00370039003500330037003600310032003000350032\",,\"10/12/05,22:00:04+12\"\r\n041F04400438043204350442",
{
NULL,
"\"REC READ\",\"002B00370039003500330037003600310032003000350032",
"002B00370039003500330037003600310032003000350032",
STR_ENCODING_UNKNOWN,
"041F04400438043204350442",
STR_ENCODING_UNKNOWN
}
},
{ "+CMGR: 0,,106\r\n07911111111100F3040B911111111111F200000121702214952163B1582C168BC562B1984C2693C96432994C369BCD66B3D96C369BD168341A8D46A3D168B55AAD56ABD56AB59ACD66B3D96C369BCD76BBDD6EB7DBED76BBE170381C0E87C3E170B95C2E97CBE572B91C0C0683C16030180C",
{
NULL,
"B1582C168BC562B1984C2693C96432994C369BCD66B3D96C369BD168341A8D46A3D168B55AAD56ABD56AB59ACD66B3D96C369BCD76BBDD6EB7DBED76BBE170381C0E87C3E170B95C2E97CBE572B91C0C0683C16030180C",
"+11111111112",
STR_ENCODING_7BIT,
"B1582C168BC562B1984C2693C96432994C369BCD66B3D96C369BD168341A8D46A3D168B55AAD56ABD56AB59ACD66B3D96C369BCD76BBDD6EB7DBED76BBE170381C0E87C3E170B95C2E97CBE572B91C0C0683C16030180C",
STR_ENCODING_7BIT_HEX_PAD_0
}
},
{ "+CMGR: 0,,159\r\n07919740430900F3440B912222222220F20008012180004390218C0500030003010031003100310031003100310031003100310031003200320032003200320032003200320032003200330033003300330033003300330033003300330034003400340034003400340034003400340034003500350035003500350035003500350035003500360036003600360036003600360036003600360037003700370037003700370037",
{
NULL,
"0031003100310031003100310031003100310031003200320032003200320032003200320032003200330033003300330033003300330033003300330034003400340034003400340034003400340034003500350035003500350035003500350035003500360036003600360036003600360036003600360037003700370037003700370037",
"+22222222022",
STR_ENCODING_7BIT,
"0031003100310031003100310031003100310031003200320032003200320032003200320032003200330033003300330033003300330033003300330034003400340034003400340034003400340034003500350035003500350035003500350035003500360036003600360036003600360036003600360037003700370037003700370037",
STR_ENCODING_UCS2_HEX
}
},
{ "+CMGR: 0,,158\r\n07916407970970F6400A912222222222000041903021825180A0050003000301A9E5391D14060941439015240409414290102404094142901024040941429010240409414290106405594142901564055941429012A40429AD4AABD22A7481AC56101264455A915624C80AB282AC20A1D06A0559415610D20A4282AC2024C80AB282AC202BC80AB282AC2E9012B4042D414A90D2055282942E90D20502819420254809528294",
{
NULL,
"A9E5391D14060941439015240409414290102404094142901024040941429010240409414290106405594142901564055941429012A40429AD4AABD22A7481AC56101264455A915624C80AB282AC20A1D06A0559415610D20A4282AC2024C80AB282AC202BC80AB282AC2E9012B4042D414A90D2055282942E90D20502819420254809528294",
"+2222222222",
STR_ENCODING_7BIT,
"A9E5391D14060941439015240409414290102404094142901024040941429010240409414290106405594142901564055941429012A40429AD4AABD22A7481AC56101264455A915624C80AB282AC20A1D06A0559415610D20A4282AC2024C80AB282AC202BC80AB282AC2E9012B4042D414A90D2055282942E90D20502819420254809528294",
STR_ENCODING_7BIT_HEX_PAD_1,
}
},
{ "+CMGR: 0,,55\r\n07912933035011804409D055F3DB5D060000411120712071022A080701030003990202A09976D7E9E5390B640FB3D364103DCD668364B3562CD692C1623417",
{
NULL,
"A09976D7E9E5390B640FB3D364103DCD668364B3562CD692C1623417",
"553",
STR_ENCODING_7BIT,
"A09976D7E9E5390B640FB3D364103DCD668364B3562CD692C1623417",
STR_ENCODING_7BIT_HEX_PAD_5,
}
},
};
unsigned idx = 0;
char * input;
struct result result;
char oa[200];
char buffer_res[256];
char buffer_dec[256];
const char * msg;
result.oa = oa;
for(; idx < ITEMS_OF(cases); ++idx) {
result.str = input = strdup(cases[idx].input);
fprintf(stderr, "%s(\"%s\")...", "at_parse_cmgr", input);
result.res = at_parse_cmgr(&result.str, strlen(result.str), result.oa, sizeof(oa), &result.oa_enc, &result.msg, &result.msg_enc);
if( ((result.res == NULL && result.res == cases[idx].result.res) || test_strcmp(result.res, cases[idx].result.res) == 0)
&&
test_strcmp(result.str, cases[idx].result.str) == 0
&&
test_strcmp(result.oa, cases[idx].result.oa) == 0
&&
result.oa_enc == cases[idx].result.oa_enc
&&
test_strcmp(result.msg, cases[idx].result.msg) == 0
&&
result.msg_enc == cases[idx].result.msg_enc
) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
memset(buffer_res, 0, sizeof(buffer_res));
memset(buffer_dec, 0, sizeof(buffer_dec));
str_recode(RECODE_DECODE, result.msg_enc, result.msg, strlen(result.msg), buffer_res, sizeof(buffer_res));
str_recode(RECODE_DECODE, cases[idx].result.msg_enc, cases[idx].result.msg, strlen(cases[idx].result.msg), buffer_dec, sizeof(buffer_dec));
fprintf(stderr, " = '%s' ('%s','%s',%d,'%s',%d,'%s','%s')\t%s\n", result.res, result.str, result.oa, result.oa_enc, result.msg, result.msg_enc, buffer_res, buffer_dec, msg);
free(input);
}
fprintf(stderr, "\n");
}
EXPORT_DEF int at_enque_sms (struct cpvt* cpvt, const char* destination, const char* msg, unsigned validity_minutes, int report_req, void ** id)
{
ssize_t res;
char buf[1024] = "AT+CMGS=\"";
char pdu_buf[2048];
pvt_t* pvt = cpvt->pvt;
at_queue_cmd_t at_cmd[] = {
{ CMD_AT_CMGS, RES_SMS_PROMPT, ATQ_CMD_FLAG_DEFAULT, { ATQ_CMD_TIMEOUT_2S, 0} , NULL, 0 },
{ CMD_AT_SMSTEXT, RES_OK, ATQ_CMD_FLAG_DEFAULT, { ATQ_CMD_TIMEOUT_40S, 0} , NULL, 0 }
};
if(pvt->use_pdu)
{
/* set default validity period */
if(validity_minutes <= 0)
validity_minutes = 3 * 24 * 60;
/* res = pdu_build(pdu_buf, sizeof(pdu_buf), pvt->sms_scenter, destination, msg, validity_minutes, report_req);
*/
res = pdu_build(pdu_buf, sizeof(pdu_buf), "", destination, msg, validity_minutes, report_req);
if(res <= 0)
{
if(res == -E2BIG)
{
ast_verb (3, "[%s] SMS Message too long, PDU has limit 140 octets\n", PVT_ID(pvt));
ast_log (LOG_WARNING, "[%s] SMS Message too long, PDU has limit 140 octets\n", PVT_ID(pvt));
}
/* TODO: complain on other errors */
return res;
}
if(res > (int)(sizeof(pdu_buf) - 2))
return -1;
return at_enque_pdu(cpvt, pdu_buf, NULL, 0, 0, id);
}
else
{
at_cmd[0].length = 9;
res = str_recode (RECODE_ENCODE, STR_ENCODING_UCS2_HEX, destination, strlen (destination), buf + at_cmd[0].length, sizeof(buf) - at_cmd[0].length - 3);
if(res <= 0)
{
ast_log (LOG_ERROR, "[%s] Error converting SMS number to UCS-2\n", PVT_ID(pvt));
return -4;
}
at_cmd[0].length += res;
buf[at_cmd[0].length++] = '"';
buf[at_cmd[0].length++] = '\r';
buf[at_cmd[0].length] = '\0';
}
at_cmd[0].data = ast_strdup (buf);
if(!at_cmd[0].data)
return -ENOMEM;
res = strlen (msg);
// if(!pvt->use_pdu)
// {
if (pvt->use_ucs2_encoding)
{
/* NOTE: bg: i test limit of no response is 133, but for +CMS ERROR: ? */
/* message limit in 178 octet of TPDU (w/o SCA) Headers: Type(1)+MR(1)+DA(3..12)+PID(1)+DCS(1)+VP(0,1,7)+UDL(1) = 8..24 (usually 14) */
if(res > 70)
{
ast_log (LOG_ERROR, "[%s] SMS message too long, 70 symbols max\n", PVT_ID(pvt));
return -4;
}
res = str_recode (RECODE_ENCODE, STR_ENCODING_UCS2_HEX, msg, res, pdu_buf, sizeof(pdu_buf) - 2);
if (res < 0)
{
ast_free (at_cmd[0].data);
ast_log (LOG_ERROR, "[%s] Error converting SMS to UCS-2: '%s'\n", PVT_ID(pvt), msg);
return -4;
}
pdu_buf[res++] = 0x1a;
pdu_buf[res] = 0;
at_cmd[1].length = res;
}
else
{
if(res > 140)
{
ast_log (LOG_ERROR, "[%s] SMS message too long, 140 symbols max\n", PVT_ID(pvt));
return -4;
}
at_cmd[1].length = snprintf (pdu_buf, sizeof(pdu_buf), "%.160s\x1a", msg);
}
// }
at_cmd[1].data = ast_strdup(pdu_buf);
if(!at_cmd[1].data)
{
ast_free(at_cmd[0].data);
return -ENOMEM;
}
return at_queue_insert_task(cpvt, at_cmd, ITEMS_OF(at_cmd), 0, (struct at_queue_task **)id);
}
