int CardDevice::at_response_cusd(char* str, size_t len)
{
//TODO:
ssize_t res;
String cusd;
unsigned char dcs;
char cusd_utf8_str[1024];
if(at_parse_cusd(str, len, cusd, dcs))
{
Debug(DebugAll, "[%s] Error parsing CUSD: '%.*s'", c_str(), (int) len, str);
return 0;
}
if((dcs == 0 || dcs == 15) && !m_cusd_use_ucs2_decoding)
{
res = hexstr_7bit_to_char(cusd.safe(), cusd.length(), cusd_utf8_str, sizeof (cusd_utf8_str));
if (res > 0)
{
cusd = cusd_utf8_str;
}
else
{
Debug(DebugAll, "[%s] Error parsing CUSD (convert 7bit to ASCII): %s", c_str(), cusd.safe());
return -1;
}
}
else
{
res = hexstr_ucs2_to_utf8(cusd.safe(), cusd.length(), cusd_utf8_str, sizeof (cusd_utf8_str));
if (res > 0)
{
cusd = cusd_utf8_str;
}
else
{
Debug(DebugAll, "[%s] Error parsing CUSD (convert UCS-2 to UTF-8): %s", c_str(), cusd.safe());
return -1;
}
}
Debug(DebugAll, "[%s] Got USSD response: '%s'", c_str(), cusd.safe());
m_endpoint->onReceiveUSSD(this, cusd.safe());
return 0;
}
#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");
}
#/* */
void test_parse_cusd()
{
struct result {
int res;
int type;
char * cusd;
int dcs;
};
static const struct test_case {
const char * input;
struct result result;
} cases[] = {
{ "+CUSD: 0,\"CF2135487D2E4130572D0682BB1A\",0", { 0, 0, "CF2135487D2E4130572D0682BB1A", 0} },
{ "+CUSD: 1,\"CF2135487D2E4130572D0682BB1A\",1", { 0, 1, "CF2135487D2E4130572D0682BB1A", 1} },
{ "+CUSD: 5", { 0, 5, "", -1} },
};
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_cusd", input);
result.res = at_parse_cusd(input, &result.type, &result.cusd, &result.dcs);
if(result.res == cases[idx].result.res
&&
result.type == cases[idx].result.type
&&
result.dcs == cases[idx].result.dcs
&&
test_strcmp(result.cusd, cases[idx].result.cusd) == 0
) {
msg = "OK";
ok++;
} else {
msg = "FAIL";
faults++;
}
fprintf(stderr, " = %d (%d,\"%s\",%d)\t%s\n", result.res, result.type, result.cusd, result.dcs, msg);
free(input);
}
fprintf(stderr, "\n");
}
static inline int at_response_cusd (pvt_t* pvt, char* str, size_t len)
{
ssize_t res;
int type;
int dcs;
char* text;
char text_utf8[1024];
char text_base64[8192];
if (at_parse_cusd (pvt, str, len, &type, &text, &dcs))
{
ast_verb (1, "[%s] Error parsing CUSD: '%.*s'\n", pvt->id, (int) len, str);
return 0;
}
if (pvt->ussd_use_ucs2_decoding)
{
res = conv_ucs2_8bit_hexstr_to_utf8 (text, strlen (text), text_utf8, sizeof (text_utf8));
if (res > 0)
{
text = text_utf8;
}
else
{
ast_log (LOG_ERROR, "[%s] Error parsing CUSD (convert UCS-2 to UTF-8): %s\n", pvt->id, text);
return -1;
}
}
else
{
if (dcs == 0)
{
res = conv_latin1_8bit_hexstr_to_utf8 (text, strlen (text), text_utf8, sizeof (text_utf8));
}
// else if (dcs == 15) // !!!!!
else
{
res = conv_latin1_7bit_hexstr_to_utf8 (text, strlen (text), text_utf8, sizeof (text_utf8));
}
if (res > 0)
{
text = text_utf8;
}
else
{
ast_log (LOG_ERROR, "[%s] Error parsing CUSD (convert 8bit/7bit hexstring to UTF-8): %s\n", pvt->id, text);
return -1;
}
}
ast_verb (1, "[%s] Got USSD response: '%s'\n", pvt->id, text);
ast_base64encode (text_base64, (unsigned char *) text, strlen (text), sizeof (text_base64));
#ifdef __MANAGER__
manager_event_new_ussd (pvt, text);
manager_event_new_ussd_base64 (pvt, text_base64);
#endif
#ifdef __ALLOW_LOCAL_CHANNELS__
struct ast_channel* channel;
snprintf (pvt->d_send_buf, sizeof (pvt->d_send_buf), "ussd@%s", pvt->context);
if (channel = channel_local_request (pvt, pvt->d_send_buf, pvt->id, "ussd"))
{
pbx_builtin_setvar_helper (channel, "USSD", text);
pbx_builtin_setvar_helper (channel, "USSD_BASE64", text_base64);
if (ast_pbx_start (channel))
{
ast_hangup (channel);
ast_log (LOG_ERROR, "[%s] Unable to start pbx on incoming ussd\n", pvt->id);
}
}
#endif /* __ALLOW_LOCAL_CHANNELS__ */
return 0;
}
