static void kannel_parse_reply(SMSCConn *conn, Msg *msg, int status,
List *headers, Octstr *body)
{
/* Test on three cases:
* 1. an smsbox reply of an remote kannel instance
* 2. an smsc_http response (if used for MT to MO looping)
* 3. an smsbox reply of partly successful sendings */
if ((status == HTTP_OK || status == HTTP_ACCEPTED)
&& (octstr_case_compare(body, octstr_imm("0: Accepted for delivery")) == 0 ||
octstr_case_compare(body, octstr_imm("Sent.")) == 0 ||
octstr_case_compare(body, octstr_imm("Ok.")) == 0 ||
octstr_ncompare(body, octstr_imm("Result: OK"),10) == 0)) {
char id[UUID_STR_LEN + 1];
Octstr *mid;
/* create Octstr from UUID */
uuid_unparse(msg->sms.id, id);
mid = octstr_create(id);
/* add to our own DLR storage */
if (DLR_IS_ENABLED_DEVICE(msg->sms.dlr_mask))
dlr_add(conn->id, mid, msg, 0);
octstr_destroy(mid);
bb_smscconn_sent(conn, msg, NULL);
} else {
bb_smscconn_send_failed(conn, msg,
SMSCCONN_FAILED_MALFORMED, octstr_duplicate(body));
}
}
static void brunet_parse_reply(SMSCConn *conn, Msg *msg, int status,
List *headers, Octstr *body)
{
if (status == HTTP_OK || status == HTTP_ACCEPTED) {
Dict *param;
Octstr *status;
if ((param = brunet_parse_body(body)) != NULL &&
(status = dict_get(param, octstr_imm("Status"))) != NULL &&
octstr_case_compare(status, octstr_imm("0")) == 0) {
Octstr *msg_id;
/* pass the MessageId for this MT to the logging facility */
if ((msg_id = dict_get(param, octstr_imm("MessageId"))) != NULL)
msg->sms.binfo = octstr_duplicate(msg_id);
bb_smscconn_sent(conn, msg, NULL);
} else {
error(0, "HTTP[%s]: Message was malformed. SMSC response `%s'.",
octstr_get_cstr(conn->id), octstr_get_cstr(body));
bb_smscconn_send_failed(conn, msg,
SMSCCONN_FAILED_MALFORMED, octstr_duplicate(body));
}
dict_destroy(param);
} else {
error(0, "HTTP[%s]: Message was rejected. SMSC reponse `%s'.",
octstr_get_cstr(conn->id), octstr_get_cstr(body));
bb_smscconn_send_failed(conn, msg,
SMSCCONN_FAILED_REJECTED, octstr_duplicate(body));
}
}
static int sms_send(SMSCConn *conn, Msg *msg)
{
SmscWrapper *wrap = conn->data;
int ret;
debug("bb.sms", 0, "smscconn_sender (%s): sending message",
octstr_get_cstr(conn->name));
ret = smscenter_submit_msg(wrap->smsc, msg);
if (ret == -1) {
bb_smscconn_send_failed(conn, msg,
SMSCCONN_FAILED_REJECTED, octstr_create("REJECTED"));
if (reconnect(conn) == -1)
smscconn_shutdown(conn, 0);
return -1;
} else {
bb_smscconn_sent(conn, msg, NULL);
return 0;
}
}
/******************************************************************************
* This function handles incoming operations. Used by both receiver and sender
* threads (i.e. sender thread uses this function for delivery and ack
* operations).
* Returns 1 if successfull, otherwise 0
*/
static int cgw_handle_op(SMSCConn *conn, Connection *server, struct cgwop *cgwop)
{
PrivData *privdata = conn->data;
Msg *msg = NULL;
Octstr *from, *app, *sid, *to, *msgtype, *msgdata; /* for messages */
Octstr *msid, *status, *txt; /* delivery reports */
Octstr *clid; /* for acks */
struct cgwop *reply = NULL;
long trn, stat; /* transaction number for ack */
Msg *dlrmsg = NULL, *origmsg = NULL;
Octstr *ts;
if (cgwop == NULL) return 0;
from = cgwop_get(cgwop, octstr_imm("from"));
app = cgwop_get(cgwop, octstr_imm("app"));
sid = cgwop_get(cgwop, octstr_imm("session-id"));
to = cgwop_get(cgwop, octstr_imm("to"));
msgtype = cgwop_get(cgwop, octstr_imm("type"));
msgdata = cgwop_get(cgwop, octstr_imm("msg"));
txt = cgwop_get(cgwop, octstr_imm("txt"));
msid = cgwop_get(cgwop, octstr_imm("msid"));
status = cgwop_get(cgwop, octstr_imm("status"));
clid = cgwop_get(cgwop, octstr_imm("client-id"));
if (clid != NULL)
{
octstr_parse_long(&trn, clid, 0, 10);
if ((trn < 0) || (trn >= CGW_TRN_MAX)) { /* invalid transaction number */
info(0, "cgw: Invalid transaction number: %d", (int) trn);
trn = -1;
return 0;
}
}
switch (cgwop->op)
{
case CGW_OP_MSG:
msg = msg_create(sms);
time(&msg->sms.time);
msg->sms.msgdata = cgw_decode_msg(octstr_duplicate(msgdata));
msg->sms.sender = octstr_duplicate(from);
msg->sms.receiver = octstr_duplicate(to);
msg->sms.smsc_id = octstr_duplicate(conn->id);
bb_smscconn_receive(conn, msg);
reply = cgwop_create(CGW_OP_OK, -1);
cgwop_add(reply, octstr_imm("session-id"), sid);
cgwop_send(server, reply); /* send reply */
cgwop_destroy(reply);
break;
case CGW_OP_DELIVERY:
if (privdata->dlr[trn]) {
octstr_parse_long(&stat, status, 0, 10);
origmsg = privdata->sendmsg[trn];
if (origmsg == NULL) break;
ts = octstr_create("");
octstr_append(ts, conn->id);
octstr_append_char(ts, '-');
octstr_append_decimal(ts, trn);
switch (stat) {
case 0: /* delivered */
dlrmsg = dlr_find(conn->id,
ts, /* timestamp */
msid, /* destination */
DLR_SUCCESS);
break;
case 1: /* buffered */
dlrmsg = dlr_find(conn->id,
ts, /* timestamp */
msid, /* destination */
DLR_BUFFERED);
break;
case 2: /* not delivered */
dlrmsg = dlr_find(conn->id,
ts, /* timestamp */
msid, /* destination */
DLR_FAIL);
break;
}
octstr_destroy(ts);
if (dlrmsg != NULL) {
dlrmsg->sms.msgdata = octstr_duplicate(txt);
bb_smscconn_receive(conn, dlrmsg);
}
}
break;
case CGW_OP_OK:
if (trn == -1) break; /* invalid transaction number */
/* info(0, "cgw: Got ACK: %s", octstr_get_cstr(clid)); */
privdata->sendtime[trn] = 0;
privdata->unacked--;
/* add delivery notification request if wanted */
msg = privdata->sendmsg[trn];
if (msg && msg->sms.dlr_url && DLR_IS_ENABLED_DEVICE(msg->sms.dlr_mask)) {
Octstr *ts;
ts = octstr_create("");
octstr_append(ts, conn->id);
octstr_append_char(ts, '-');
octstr_append_decimal(ts, trn);
dlr_add(conn->id, ts, msg);
octstr_destroy(ts);
privdata->dlr[trn] = 1;
} else {
privdata->dlr[trn] = 0;
}
/* mark as successfully sent */
bb_smscconn_sent(conn, msg, NULL);
break;
case CGW_OP_STATUS:
info(0, "CGW: Warning: Got session status");
/* op:status messages are sent by ProviderServer to tell if there are problems with
the session status. These are not wanted, and should never occur, as the delivery is
cancelled, and no end-user billing is done. */
break;
case CGW_OP_HELLO:
info(0, "CGW: Server said: %s", octstr_get_cstr(cgwop_get(cgwop, octstr_imm("hello"))));
break;
case CGW_OP_ERR:
if (trn == -1) break; /* invalid transaction number */
info(0, "CGW: Received error: %s", octstr_get_cstr(txt));
privdata->sendtime[trn] = 0;
privdata->unacked--;
bb_smscconn_send_failed(conn, privdata->sendmsg[trn],
SMSCCONN_FAILED_REJECTED, octstr_create("REJECTED"));
break;
default:
info(0, "cgw: Unknown operation: %d", cgwop->op);
return 0;
}
return 1;
}
static void main_connection_loop(SMSCConn *conn, Connection *client)
{
PrivData *privdata = conn->data;
Octstr *line;
Msg *msg;
double delay = 0;
if (conn->throughput > 0) {
delay = 1.0 / conn->throughput;
}
while (1) {
while (!conn->is_stopped && !privdata->shutdown &&
(line = conn_read_line(client)))
msg_to_bb(conn, line);
if (conn_error(client))
goto error;
if (conn_eof(client))
goto eof;
/*
* We won't get DLRs from fakesmsc itself, due that we don't have
* corresponding message IDs etc. We threat the DLR receiving here. So
* DLR "originate" from the protocol layer towards abstraction layer.
* This is all for pure debugging and testing.
*/
while ((msg = gwlist_extract_first(privdata->outgoing_queue)) != NULL) {
/* pass msg to fakesmsc daemon */
if (sms_to_client(client, msg) == 1) {
Msg *copy = msg_duplicate(msg);
/*
* Actually no guarantee of it having been really sent,
* but I suppose that doesn't matter since this interface
* is just for debugging anyway. The upper layer will send
* a SMSC success DLR if mask is set. Be aware that msg is
* destroyed in abstraction layer, that's why we use a copy
* afterwards to handle the final DLR.
*/
bb_smscconn_sent(conn, msg, NULL);
/* and now the final DLR */
if (DLR_IS_SUCCESS_OR_FAIL(copy->sms.dlr_mask)) {
Msg *dlrmsg;
Octstr *tmp;
int dlrstat = DLR_SUCCESS;
char id[UUID_STR_LEN + 1];
uuid_unparse(copy->sms.id, id);
tmp = octstr_create(id);
dlrmsg = dlr_find(conn->id,
tmp, /* smsc message id */
copy->sms.receiver, /* destination */
dlrstat, 0);
if (dlrmsg != NULL) {
/* XXX TODO: Provide a SMPP DLR text in msgdata */
bb_smscconn_receive(conn, dlrmsg);
} else {
error(0,"smsc_fale: got DLR but could not find message or "
"was not interested in it");
}
octstr_destroy(tmp);
}
msg_destroy(copy);
} else {
bb_smscconn_send_failed(conn, msg,
SMSCCONN_FAILED_REJECTED, octstr_create("REJECTED"));
goto error;
}
/* obey throughput speed limit, if any */
if (conn->throughput > 0) {
gwthread_sleep(delay);
}
}
if (privdata->shutdown) {
debug("bb.sms", 0, "smsc_fake shutting down, closing client socket");
conn_destroy(client);
return;
}
conn_wait(client, -1);
if (conn_error(client))
goto error;
if (conn_eof(client))
goto eof;
}
error:
info(0, "IO error to fakesmsc client. Closing connection.");
conn_destroy(client);
return;
eof:
info(0, "EOF from fakesmsc client. Closing connection.");
conn_destroy(client);
return;
}
