/* returns the DLR/RR URL, fills in the queue header info. */
Octstr *mmsbox_get_report_info(MmsMsg *m, MmscGrp *mmsc, Octstr *out_mmc_id, char *report_type,
Octstr *status, List *qhdr, Octstr *uaprof,
time_t uaprof_tstamp,
Octstr *msgid)
{
Octstr *res;
if (mmsc == NULL)
res = NULL;
else if (out_mmc_id != NULL) { /* internal routing. */
if (m)
fixup_relayed_report(m, mmsc, report_type, octstr_imm(""));
res = NULL;
} else {
Octstr *transid = NULL;
res = get_dlr_notify_url(msgid, report_type,mmsc->group_id, mmsc->id,
status, &transid);
http_header_add(qhdr, "X-Mbuni-Mmsc-GroupID", octstr_get_cstr(mmsc->group_id));
if (transid) {
http_header_add(qhdr, "X-Mbuni-TransactionID", octstr_get_cstr(transid));
octstr_destroy(transid);
}
if (uaprof) {
Octstr *sx = date_format_http(uaprof_tstamp);
http_header_add(qhdr, "X-Mbuni-UAProf", octstr_get_cstr(uaprof));
http_header_add(qhdr, "X-Mbuni-Timestamp", octstr_get_cstr(sx));
octstr_destroy(sx);
}
}
return res;
}
static List *push_headers_create(size_t content_len)
{
List *push_headers;
Octstr *mos;
mos = NULL;
push_headers = http_create_empty_headers();
if (use_hardcoded)
http_header_add(push_headers, "Content-Type", "multipart/related;"
" boundary=asdlfkjiurwgasf; type=\"application/xml\"");
else
http_header_add(push_headers, "Content-Type",
octstr_get_cstr(mos = make_multipart_value(boundary)));
if (use_headers)
http_add_basic_auth(push_headers, username, password);
add_push_application_id(&push_headers, appid_flag, use_string);
add_connection_header(&push_headers, connection);
if (use_dlr_mask)
add_dlr_mask(&push_headers, dlr_mask);
if (use_dlr_url)
add_dlr_url(&push_headers, dlr_url);
octstr_destroy(mos);
/* add initiator... */
if (initiator_uri)
http_header_add(push_headers, "X-Wap-Initiator-URI",
octstr_get_cstr(initiator_uri));
return push_headers;
}
static void add_connection_header(List **push_headers, Octstr *connection)
{
if (!connection)
return;
if (octstr_compare(connection, octstr_imm("close")) == 0)
http_header_add(*push_headers, "Connection", "close");
else if (octstr_compare(connection, octstr_imm("keep-alive")) == 0)
http_header_add(*push_headers, "Connection", "keep-alive");
}
static int
airplay_reverse(http_connection_t *hc, const char *remain, void *opaque,
http_cmd_t method)
{
struct http_header_list headers;
LIST_INIT(&headers);
http_header_add(&headers, "Connection", "Upgrade", 0);
http_header_add(&headers, "Upgrade", "PTTH/1.0", 0);
return http_send_raw(hc, 101, "Switching Protocols", &headers, NULL);
}
static void add_push_application_id(List **push_headers, Octstr *appid_flag,
int use_string)
{
if (use_string) {
gwlist_append(*push_headers, appid_string);
return;
}
if (octstr_compare(appid_flag, octstr_imm("any")) == 0) {
if (!use_numeric)
http_header_add(*push_headers, "X-WAP-Application-Id",
"http://www.wiral.com:*");
else
http_header_add(*push_headers, "X-WAP-Application-Id", "0");
} else if (octstr_compare(appid_flag, octstr_imm("ua")) == 0) {
if (!use_numeric)
http_header_add(*push_headers, "X-WAP-Application-Id",
"http://www.wiral.com:wml.ua");
else
http_header_add(*push_headers, "X-WAP-Application-Id", "2");
} else if (octstr_compare(appid_flag, octstr_imm("mms")) == 0) {
if (!use_numeric)
http_header_add(*push_headers, "X-WAP-Application-Id",
"mms.ua");
else
http_header_add(*push_headers, "X-WAP-Application-Id", "4");
} else if (octstr_compare(appid_flag, octstr_imm("scrap")) == 0) {
if (!use_numeric)
http_header_add(*push_headers, "X-WAP-Application-Id",
"no appid at all");
else
http_header_add(*push_headers, "X-WAP-Application-Id",
"this is not a numeric header");
}
}
static int
ssdp_parse(char *buf, struct http_header_list *list)
{
char *l = buf, *e, *s;
int r = 0;
while((e = strchr(l, '\r')) != NULL && e != l) {
*e++ = 0;
if(l == buf) {
if(!strcmp(l, "HTTP/1.1 200 OK"))
r = SSDP_RESPONSE;
else if(!strcmp(l, "M-SEARCH * HTTP/1.1"))
r = SSDP_SEARCH;
else if(!strcmp(l, "NOTIFY * HTTP/1.1"))
r = SSDP_NOTIFY;
else
return 0;
} else {
if((s = strchr(l, ':')) == NULL)
return 0;
*s++ = 0;
while(*s == 32)
s++;
http_header_add(list, l, s, 0);
}
if(*e == '\n')
e++;
l = e;
}
return r;
}
/* This function checks that there is a boundary parameter in the headers
* for a multipart MIME object. If not, it is inserted and passed back to caller
* in the variable boundary_elem.
*/
static void fix_boundary_element(List *headers, Octstr **boundary_elem)
{
Octstr *value, *boundary;
long len;
/*
* Check if we have an boundary parameter already in the
* Content-Type header. If no, add one, otherwise parse which one
* we should use.
* XXX this can be abstracted as function in gwlib/http.[ch].
*/
value = http_header_value(headers, octstr_imm("Content-Type"));
boundary = value ? http_get_header_parameter(value, octstr_imm("boundary")) : NULL;
if (value == NULL) {
/* we got here because it is multi-part, so... */
value = octstr_create("multipart/mixed");
http_header_add(headers, "Content-Type", "multipart/mixed");
}
if (boundary == NULL) {
Octstr *v;
boundary = octstr_format("_boundary_%d_%ld_%c_%c_bd%d",
random(), (long) time(NULL), 'A' + (random() % 26),
'a' + (random() % 26), random());
octstr_format_append(value, "; boundary=%S", boundary);
http_header_remove_all(headers, "Content-Type");
http_header_add(headers, "Content-Type", octstr_get_cstr(value));
if ((v = http_header_value(headers, octstr_imm("MIME-Version"))) == NULL)
http_header_add(headers, "MIME-Version", "1.0");
else
octstr_destroy(v);
}
else if ((len = octstr_len(boundary)) > 0 &&
octstr_get_char(boundary, 0) == '"' &&
octstr_get_char(boundary, len - 1) == '"') {
octstr_delete(boundary, 0, 1);
octstr_delete(boundary, len - 2, 1);
}
octstr_destroy(value);
if (boundary_elem)
*boundary_elem = boundary;
else
octstr_destroy(boundary);
}
/*
* Add push flag into push headers. Push flag is defined in ota, p. 17-18.
* If there is no flags set, no Push-Flag header is added.
*/
static List *add_push_flag(WAPEvent *e)
{
int push_flag,
trusted,
authenticated,
last;
Octstr *buf;
List *headers;
flags_assert(e);
if (e->type == Po_Unit_Push_Req) {
trusted = e->u.Po_Unit_Push_Req.trusted << 1;
authenticated = e->u.Po_Unit_Push_Req.authenticated;
last = e->u.Po_Unit_Push_Req.last << 2;
headers = http_header_duplicate(e->u.Po_Unit_Push_Req.push_headers);
} else if (e->type == Po_Push_Req) {
trusted = e->u.Po_Push_Req.trusted << 1;
authenticated = e->u.Po_Push_Req.authenticated;
last = e->u.Po_Push_Req.last << 2;
headers = http_header_duplicate(e->u.Po_Push_Req.push_headers);
} else if (e->type == Po_ConfirmedPush_Req) {
trusted = e->u.Po_ConfirmedPush_Req.trusted << 1;
authenticated = e->u.Po_ConfirmedPush_Req.authenticated;
last = e->u.Po_ConfirmedPush_Req.last << 2;
headers = http_header_duplicate(
e->u.Po_ConfirmedPush_Req.push_headers);
} else {
debug("wap.ota", 0, "OTA: no push flag when the event is: \n");
wap_event_dump(e);
return NULL;
}
push_flag = 0;
push_flag = push_flag | authenticated | trusted | last;
if (push_flag) {
buf = octstr_format("%d", push_flag);
http_header_add(headers, "Push-Flag", octstr_get_cstr(buf));
octstr_destroy(buf);
}
return headers;
}
static void client_thread(void *arg)
{
List *reqh;
unsigned long i;
long succeeded, failed;
HTTPCaller *caller;
char buf[1024];
long in_queue;
Counter *counter = NULL;
caller = arg;
succeeded = 0;
failed = 0;
reqh = gwlist_create();
sprintf(buf, "%ld", (long) gwthread_self());
http_header_add(reqh, "X-Thread", buf);
if (auth_username != NULL && auth_password != NULL)
http_add_basic_auth(reqh, auth_username, auth_password);
in_queue = 0;
counter = counter_create();
for (;;) {
i = counter_increase(counter);
if (i >= max_requests)
goto receive_rest;
start_request(caller, reqh, i);
if (interval > 0)
gwthread_sleep(interval);
++in_queue;
if (receive_reply(caller) == -1)
++failed;
else
++succeeded;
--in_queue;
}
receive_rest:
while (in_queue > 0) {
if (receive_reply(caller) == -1)
++failed;
else
++succeeded;
--in_queue;
}
counter_destroy(counter);
http_destroy_headers(reqh);
http_caller_destroy(caller);
info(0, "This thread: %ld succeeded, %ld failed.", succeeded, failed);
}
/*
* Extension headers are optional, see Push Message, chapter 6.2. Field struc-
* ture is defined in rfc 822, chapter 3.2. Extension headers are defined in
* rfc 2045, chapter 9, grammar in appendix A. (Only to the next null line).
* Return 0 when error, 1 otherwise.
*/
static int pass_extension_headers(Octstr **body_part, List **content_headers, Octstr *boundary)
{
long next_field_part_pos,
count;
Octstr *header_name,
*header_value;
long next_content_part_pos;
header_name = octstr_create("");
header_value = octstr_create("");
count = 0;
next_field_part_pos = 0;
next_content_part_pos = octstr_search(*body_part, boundary, 0);
do {
if ((octstr_case_nsearch(*body_part, octstr_imm("Content"), 0,
next_content_part_pos)) < 0)
goto end;
if ((next_field_part_pos = pass_field_name(body_part, &header_name,
next_field_part_pos)) < 0)
goto error;
if ((next_field_part_pos = pass_field_value(body_part, &header_value,
next_field_part_pos)) < 0)
goto error;
if ((next_field_part_pos = parse_terminator(*body_part,
next_field_part_pos)) == 0)
goto error;
drop_separator(&header_value, &next_field_part_pos);
http_header_add(*content_headers, octstr_get_cstr(header_name),
octstr_get_cstr(header_value));
} while (islwspchar(octstr_get_char(*body_part, next_field_part_pos)));
octstr_delete(*body_part, 0, next_field_part_pos);
/*
* An intentional fall-through. We must eventually use a function for memory
* cleaning.
*/
end:
octstr_destroy(header_name);
octstr_destroy(header_value);
return 1;
error:
octstr_destroy(header_name);
octstr_destroy(header_value);
return 0;
}
void http_error_send(int dsc, char* version, int status)
{
char* body = NULL;
http_header_t* hdr = NULL;
body = http_error_get_body(status);
if(version == NULL)
{
/* Assuming HTTP/0.9 */
http_network_send(dsc, NULL, NULL, body);
}
else
{
/* Creates headers */
hdr = http_header_add(hdr, "Server", PACKAGE_NAME"/"PACKAGE_VERSION);
http_network_send(dsc, http_status_buffer(status), http_header_buffer(hdr), body);
}
}
/*
* We try to find an optional header, so a failure to find one is not an
* error. Return -1 when error, 0 when header name not found, 1 otherwise.
* Search only until 'boundary'.
*/
static int pass_optional_header(Octstr **body_part, char *name, List **content_headers,
Octstr *boundary)
{
long content_pos,
next_header_pos;
Octstr *osname,
*osvalue;
long message_start_pos;
content_pos = next_header_pos = -1;
osname = octstr_create(name);
osvalue = octstr_create("");
message_start_pos = octstr_search(*body_part, boundary, 0);
if ((content_pos = octstr_case_nsearch(*body_part, osname, 0, message_start_pos)) < 0)
goto noheader;
if ((next_header_pos = pass_field_value(body_part, &osvalue,
content_pos + octstr_len(osname))) < 0)
goto error;
if ((next_header_pos =
parse_terminator(*body_part, next_header_pos)) == 0)
goto error;
drop_separator(&osvalue, &next_header_pos);
http_header_add(*content_headers, name, octstr_get_cstr(osvalue));
octstr_delete(*body_part, content_pos, next_header_pos - content_pos);
octstr_destroy(osname);
octstr_destroy(osvalue);
return 1;
error:
octstr_destroy(osvalue);
octstr_destroy(osname);
return -1;
noheader:
octstr_destroy(osvalue);
octstr_destroy(osname);
return 0;
}
static void dispatch_mm7_recv(List *rl)
{
MmsBoxHTTPClientInfo *h;
while ((h = gwlist_consume(rl)) != NULL) {
int ret = -1, has_auth = 0;
MmscGrp *m = h->m;
if (auth_check(m->incoming.user,
m->incoming.pass,
h->headers, &has_auth) != 0) { /* Ask it to authenticate... */
List *hh = http_create_empty_headers();
http_header_add(hh, "WWW-Authenticate",
"Basic realm=\"" MM_NAME "\"");
http_send_reply(h->client, HTTP_UNAUTHORIZED, hh,
octstr_imm("Authentication failed"));
http_destroy_headers(hh);
if (!has_auth)
mms_info_ex("auth",0, "MM7", m->id, "Auth failed, incoming connection, MMC group=[%s]",
m->id ? octstr_get_cstr(m->id) : "(none)");
else
mms_error_ex("auth",0, "MM7", m->id, "Auth failed, incoming connection, MMC group=[%s]",
m->id ? octstr_get_cstr(m->id) : "(none)");
} else if (h->m->type == SOAP_MMSC)
ret = mm7soap_receive(h);
else if (h->m->type == EAIF_MMSC)
ret = mm7eaif_receive(h);
else
ret = mm7http_receive(h);
h->m->last_pdu = time(NULL);
if (ret == 0)
h->m->mo_pdus++;
else
h->m->mo_errors++;
free_mmsbox_http_clientInfo(h, 1);
}
}
static List *make_reply_headers(WSPMachine *m)
{
List *headers;
Octstr *encoding_version;
/* Add all server wsp level hop-by-hop headers. Currently only
* Encoding-Version, as defined by wsp, chapter 8.4.2.70.
* What headers belong to which version is defined in appendix A,
* table 39..
encoding_version = request_version = NULL;
* Essentially, if the client sends us an Encoding-Version
* higher than ours (1.3) we send our version number to it,
* if it is lower, we left version number intact. */
/* First the case that we have no Encoding-Version header at all.
* This case we must assume that the client supports version 1.2
* or lower. */
headers = http_create_empty_headers();
encoding_version = wsp_encoding_version_to_string(m->encoding_version);
http_header_add(headers, "Encoding-Version", octstr_get_cstr(encoding_version));
octstr_destroy(encoding_version);
return headers;
}
static Octstr *mm7eaif_send(MmscGrp *mmc, Octstr *from, Octstr *to,
Octstr *transid,
char *vasid,
List *hdrs,
MmsMsg *m, Octstr **error,
int *retry)
{
Octstr *ret = NULL, *resp = NULL;
int mtype = mms_messagetype(m);
int hstatus = HTTP_OK;
List *rh = http_create_empty_headers(), *ph = NULL;
Octstr *body = NULL, *rbody = NULL, *xver = NULL;
char *msgtype;
mms_info(0, "MM7", mmc->id, "MMSBox: Send [eaif] to MMC[%s], msg type [%s], from %s, to %s",
mmc ? octstr_get_cstr(mmc->id) : "",
mms_message_type_to_cstr(mtype),
octstr_get_cstr(from), octstr_get_cstr(to));
http_header_remove_all(rh, "X-Mms-Allow-Adaptations");
http_header_add(rh, "X-NOKIA-MMSC-To", octstr_get_cstr(to));
http_header_add(rh, "X-NOKIA-MMSC-From", octstr_get_cstr(from));
xver = octstr_format(EAIF_VERSION, mmc->ver.major, mmc->ver.minor1);
http_header_add(rh, "X-NOKIA-MMSC-Version", octstr_get_cstr(xver));
octstr_destroy(xver);
if (mtype == MMS_MSGTYPE_SEND_REQ ||
mtype == MMS_MSGTYPE_RETRIEVE_CONF) {
msgtype = "MultiMediaMessage";
mms_make_sendreq(m); /* ensure it is a sendreq. */
} else if (mtype == MMS_MSGTYPE_DELIVERY_IND)
msgtype = "DeliveryReport";
else
msgtype = "ReadReply";
http_header_add(rh, "X-NOKIA-MMSC-Message-Type", msgtype);
if (hdrs)
http_header_combine(rh, hdrs); /* If specified, then update and pass on. */
http_header_add(rh, "Content-Type", "application/vnd.wap.mms-message");
/* Patch the message FROM and TO fields. */
mms_replace_header_value(m, "From", octstr_get_cstr(from));
mms_replace_header_value(m, "To", octstr_get_cstr(to));
mms_replace_header_value(m,"X-Mms-Transaction-ID",
transid ? octstr_get_cstr(transid) : "000");
body = mms_tobinary(m);
hstatus = mmsbox_url_fetch_content(HTTP_METHOD_POST, mmc->mmsc_url, rh, body, &ph, &rbody);
if (http_status_class(hstatus) != HTTP_STATUS_SUCCESSFUL) {
*error = octstr_format("Failed to contact MMC[url=%S] => HTTP returned status = %d !",
mmc->mmsc_url, hstatus);
} else {
MmsMsg *mresp = rbody ? mms_frombinary(rbody, octstr_imm("anon@anon")) : NULL;
resp = octstr_imm("Ok");
if (mresp && mms_messagetype(mresp) == MMS_MSGTYPE_SEND_CONF)
resp = mms_get_header_value(mresp, octstr_imm("X-Mms-Response-Status"));
if (octstr_case_compare(resp, octstr_imm("ok")) != 0)
hstatus = HTTP_STATUS_SERVER_ERROR; /* error. */
else if (mresp)
ret = mms_get_header_value(mresp, octstr_imm("Message-ID"));
mms_destroy(mresp);
}
if (hstatus < 0)
ret = NULL;
else {
hstatus = http_status_class(hstatus);
if (hstatus == HTTP_STATUS_SERVER_ERROR ||
hstatus == HTTP_STATUS_CLIENT_ERROR)
ret = NULL;
else if (!ret)
ret = http_header_value(ph, octstr_imm("X-Nokia-MMSC-Message-Id"));
}
*retry = (ret == NULL && (hstatus == HTTP_STATUS_SERVER_ERROR || hstatus < 0));
if (ret)
mms_log2("Sent", from, to, -1, ret, NULL, mmc->id, "MMSBox", NULL, NULL);
#if 0
mms_info(0, "MM7", mmc->id,"Sent to MMC[%s], code=[%d], resp=[%s] msgid [%s]",
octstr_get_cstr(mmc->id),
hstatus, resp ? octstr_get_cstr(resp) : "(none)", ret ? octstr_get_cstr(ret) : "(none)");
#endif
http_destroy_headers(rh);
octstr_destroy(body);
http_destroy_headers(ph);
octstr_destroy(rbody);
octstr_destroy(resp);
return ret;
}
static void kannel_receive_sms(SMSCConn *conn, HTTPClient *client,
List *headers, Octstr *body, List *cgivars)
{
ConnData *conndata = conn->data;
Octstr *user, *pass, *from, *to, *text, *udh, *account, *binfo, *charset;
Octstr *dlrmid, *dlrerr;
Octstr *tmp_string, *retmsg;
int mclass, mwi, coding, validity, deferred, dlrmask;
List *reply_headers;
int ret;
mclass = mwi = coding = validity =
deferred = dlrmask = SMS_PARAM_UNDEFINED;
user = http_cgi_variable(cgivars, "username");
pass = http_cgi_variable(cgivars, "password");
from = http_cgi_variable(cgivars, "from");
to = http_cgi_variable(cgivars, "to");
text = http_cgi_variable(cgivars, "text");
udh = http_cgi_variable(cgivars, "udh");
charset = http_cgi_variable(cgivars, "charset");
account = http_cgi_variable(cgivars, "account");
binfo = http_cgi_variable(cgivars, "binfo");
dlrmid = http_cgi_variable(cgivars, "dlr-mid");
tmp_string = http_cgi_variable(cgivars, "flash");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &mclass);
}
tmp_string = http_cgi_variable(cgivars, "mclass");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &mclass);
}
tmp_string = http_cgi_variable(cgivars, "mwi");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &mwi);
}
tmp_string = http_cgi_variable(cgivars, "coding");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &coding);
}
tmp_string = http_cgi_variable(cgivars, "validity");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &validity);
}
tmp_string = http_cgi_variable(cgivars, "deferred");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &deferred);
}
tmp_string = http_cgi_variable(cgivars, "dlr-mask");
if (tmp_string) {
sscanf(octstr_get_cstr(tmp_string),"%d", &dlrmask);
}
dlrerr = http_cgi_variable(cgivars, "dlr-err");
debug("smsc.http.kannel", 0, "HTTP[%s]: Received an HTTP request",
octstr_get_cstr(conn->id));
if (user == NULL || pass == NULL ||
octstr_compare(user, conndata->username) != 0 ||
octstr_compare(pass, conndata->password) != 0) {
error(0, "HTTP[%s]: Authorization failure",
octstr_get_cstr(conn->id));
retmsg = octstr_create("Authorization failed for sendsms");
} else if (dlrmask != 0 && dlrmid != NULL) {
/* we got a DLR, and we don't require additional values */
Msg *dlrmsg;
dlrmsg = dlr_find(conn->id,
dlrmid, /* message id */
to, /* destination */
dlrmask, 0);
if (dlrmsg != NULL) {
dlrmsg->sms.sms_type = report_mo;
dlrmsg->sms.msgdata = octstr_duplicate(text);
dlrmsg->sms.account = octstr_duplicate(conndata->username);
debug("smsc.http.kannel", 0, "HTTP[%s]: Received DLR for DLR-URL <%s>",
octstr_get_cstr(conn->id), octstr_get_cstr(dlrmsg->sms.dlr_url));
if (dlrerr != NULL) {
/* pass errorcode as is */
if (dlrmsg->sms.meta_data == NULL)
dlrmsg->sms.meta_data = octstr_create("");
meta_data_set_value(dlrmsg->sms.meta_data, METADATA_DLR_GROUP,
octstr_imm(METADATA_DLR_GROUP_ERRORCODE), dlrerr, 1);
}
ret = bb_smscconn_receive(conn, dlrmsg);
if (ret == -1)
retmsg = octstr_create("Not accepted");
else
retmsg = octstr_create("Sent.");
} else {
error(0,"HTTP[%s]: Got DLR but could not find message or was not interested "
"in it id<%s> dst<%s>, type<%d>",
octstr_get_cstr(conn->id), octstr_get_cstr(dlrmid),
octstr_get_cstr(to), dlrmask);
retmsg = octstr_create("Unknown DLR, not accepted");
}
}
else if (from == NULL || to == NULL || text == NULL) {
error(0, "HTTP[%s]: Insufficient args",
octstr_get_cstr(conn->id));
retmsg = octstr_create("Insufficient args, rejected");
}
else if (udh != NULL && (octstr_len(udh) != octstr_get_char(udh, 0) + 1)) {
error(0, "HTTP[%s]: UDH field misformed, rejected",
octstr_get_cstr(conn->id));
retmsg = octstr_create("UDH field misformed, rejected");
}
else if (udh != NULL && octstr_len(udh) > MAX_SMS_OCTETS) {
error(0, "HTTP[%s]: UDH field is too long, rejected",
octstr_get_cstr(conn->id));
retmsg = octstr_create("UDH field is too long, rejected");
}
else {
/* we got a normal MO SMS */
Msg *msg;
msg = msg_create(sms);
debug("smsc.http.kannel", 0, "HTTP[%s]: Constructing new SMS",
octstr_get_cstr(conn->id));
msg->sms.service = octstr_duplicate(user);
msg->sms.sender = octstr_duplicate(from);
msg->sms.receiver = octstr_duplicate(to);
msg->sms.msgdata = octstr_duplicate(text);
msg->sms.udhdata = octstr_duplicate(udh);
msg->sms.smsc_id = octstr_duplicate(conn->id);
msg->sms.time = time(NULL);
msg->sms.mclass = mclass;
msg->sms.mwi = mwi;
msg->sms.coding = coding;
msg->sms.validity = (validity == SMS_PARAM_UNDEFINED ? validity : time(NULL) + validity * 60);
msg->sms.deferred = (deferred == SMS_PARAM_UNDEFINED ? deferred : time(NULL) + deferred * 60);
msg->sms.account = octstr_duplicate(account);
msg->sms.binfo = octstr_duplicate(binfo);
/* re-encode content if necessary */
if (sms_charset_processing(charset, msg->sms.msgdata, msg->sms.coding) == -1) {
error(0, "HTTP[%s]: Charset or body misformed, rejected",
octstr_get_cstr(conn->id));
retmsg = octstr_create("Charset or body misformed, rejected");
}
else {
ret = bb_smscconn_receive(conn, msg);
if (ret == -1)
retmsg = octstr_create("Not accepted");
else
retmsg = octstr_create("Sent.");
}
}
reply_headers = gwlist_create();
http_header_add(reply_headers, "Content-Type", "text/plain");
debug("smsc.http.kannel", 0, "HTTP[%s]: Sending reply",
octstr_get_cstr(conn->id));
http_send_reply(client, HTTP_ACCEPTED, reply_headers, retmsg);
octstr_destroy(retmsg);
http_destroy_headers(reply_headers);
}
static void httpd_serve(HTTPClient *client, Octstr *ourl, List *headers,
Octstr *body, List *cgivars)
{
Octstr *reply, *final_reply, *url;
char *content_type;
char *header, *footer;
int status_type;
int i;
long pos;
reply = final_reply = NULL; /* for compiler please */
url = octstr_duplicate(ourl);
/* Set default reply format according to client
* Accept: header */
if (http_type_accepted(headers, "text/vnd.wap.wml")) {
status_type = BBSTATUS_WML;
content_type = "text/vnd.wap.wml";
}
else if (http_type_accepted(headers, "text/html")) {
status_type = BBSTATUS_HTML;
content_type = "text/html";
}
else if (http_type_accepted(headers, "text/xml")) {
status_type = BBSTATUS_XML;
content_type = "text/xml";
} else {
status_type = BBSTATUS_TEXT;
content_type = "text/plain";
}
/* kill '/cgi-bin' prefix */
pos = octstr_search(url, octstr_imm("/cgi-bin/"), 0);
if (pos != -1)
octstr_delete(url, pos, 9);
else if (octstr_get_char(url, 0) == '/')
octstr_delete(url, 0, 1);
/* look for type and kill it */
pos = octstr_search_char(url, '.', 0);
if (pos != -1) {
Octstr *tmp = octstr_copy(url, pos+1, octstr_len(url) - pos - 1);
octstr_delete(url, pos, octstr_len(url) - pos);
if (octstr_str_compare(tmp, "txt") == 0)
status_type = BBSTATUS_TEXT;
else if (octstr_str_compare(tmp, "html") == 0)
status_type = BBSTATUS_HTML;
else if (octstr_str_compare(tmp, "xml") == 0)
status_type = BBSTATUS_XML;
else if (octstr_str_compare(tmp, "wml") == 0)
status_type = BBSTATUS_WML;
octstr_destroy(tmp);
}
for (i=0; httpd_commands[i].command != NULL; i++) {
if (octstr_str_compare(url, httpd_commands[i].command) == 0) {
reply = httpd_commands[i].function(cgivars, status_type);
break;
}
}
/* check if command found */
if (httpd_commands[i].command == NULL) {
char *lb = bb_status_linebreak(status_type);
reply = octstr_format("Unknown command `%S'.%sPossible commands are:%s",
ourl, lb, lb);
for (i=0; httpd_commands[i].command != NULL; i++)
octstr_format_append(reply, "%s%s", httpd_commands[i].command, lb);
}
gw_assert(reply != NULL);
if (status_type == BBSTATUS_HTML) {
header = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">\n"
"<html>\n<title>" GW_NAME "</title>\n<body>\n<p>";
footer = "</p>\n</body></html>\n";
content_type = "text/html";
} else if (status_type == BBSTATUS_WML) {
header = "<?xml version=\"1.0\"?>\n"
"<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" "
"\"http://www.wapforum.org/DTD/wml_1.1.xml\">\n"
"\n<wml>\n <card>\n <p>";
footer = " </p>\n </card>\n</wml>\n";
content_type = "text/vnd.wap.wml";
} else if (status_type == BBSTATUS_XML) {
header = "<?xml version=\"1.0\"?>\n"
"<gateway>\n";
footer = "</gateway>\n";
} else {
header = "";
footer = "";
content_type = "text/plain";
}
final_reply = octstr_create(header);
octstr_append(final_reply, reply);
octstr_append_cstr(final_reply, footer);
/* debug("bb.http", 0, "Result: '%s'", octstr_get_cstr(final_reply));
*/
http_destroy_headers(headers);
headers = list_create();
http_header_add(headers, "Content-Type", content_type);
http_send_reply(client, HTTP_OK, headers, final_reply);
octstr_destroy(url);
octstr_destroy(ourl);
octstr_destroy(body);
octstr_destroy(reply);
octstr_destroy(final_reply);
http_destroy_headers(headers);
http_destroy_cgiargs(cgivars);
}
int main(int argc, char *argv[])
{
Octstr *fname, *s;
int cfidx;
int msize;
List *h = NULL;
if (argc < 2)
return -1;
mms_lib_init();
cfidx = get_and_set_debugs(argc, argv, find_own);
if (argv[cfidx] == NULL)
fname = octstr_imm("mmsc.conf");
else
fname = octstr_create(argv[cfidx]);
mms_info(0, "mmssend", NULL, "----------------------------------------");
mms_info(0, "mmssend", NULL, " MMSC Message sender runner version %s starting", MMSC_VERSION);
/* Load settings. */
settings = mms_load_mmsc_settings(fname, &proxyrelays,1);
if (!settings)
panic(0, "No global MMSC configuration, or failed to read conf from <%s>!", octstr_get_cstr(fname));
octstr_destroy(fname);
if (from == NULL ||
to == NULL) {
mms_error(0, "mmssend", NULL, "Sender and recipient addresses required!\n");
exit(-1);
} else { /* fix up 'to' list */
List *l = gwlist_create();
Octstr *x;
while ((x = gwlist_extract_first(to)) != NULL) {
octstr_strip_blanks(x);
_mms_fixup_address(&x,
settings->unified_prefix ? octstr_get_cstr(settings->unified_prefix) : NULL,
settings->strip_prefixes, 1);
gwlist_append(l, x);
}
gwlist_destroy(to, NULL);
to = l;
}
/* fix from address. */
_mms_fixup_address(&from,
settings->unified_prefix ? octstr_get_cstr(settings->unified_prefix) : NULL,
settings->strip_prefixes, 1);
#if 0
mms_start_profile_engine(octstr_get_cstr(settings->ua_profile_cache_dir));
#endif
if (data) {
/* try and detect if we are looking at plain text (mime-encoded) or binary encoded message. */
int ch = octstr_get_char(data, 0);
if (isprint(ch)) {
MIMEEntity *mime = mime_octstr_to_entity(data);
if (mime) {
m = mms_frommime(mime);
mime_entity_destroy(mime);
}
} else
m = mms_frombinary_ex(data, from ? from : octstr_imm("anon@anon"),
octstr_get_cstr(settings->unified_prefix),
settings->strip_prefixes);
if (m)
mms_msgdump(m,1);
msize = octstr_len(data);
octstr_destroy(data);
} else
msize = 0;
if (!m)
panic(0, "No Message supplied, or failed to decode binary data!");
h = http_create_empty_headers();
http_header_add(h, "X-Mbuni-Tool", "mmssend");
http_header_add(h, "X-Mbuni-CalledFrom", "Terminal");
if (binfo) {
mms_info(0, "add.info", NULL, "Adding extra headers billing info `X-Mms-Binfo' :");
http_header_add(h, "X-Mms-Binfo", octstr_get_cstr(binfo));
}
s = settings->qfs->mms_queue_add(from, to, NULL, NULL, NULL, time(NULL),
time(NULL) + settings->default_msgexpiry, m,
NULL,
NULL, NULL,
NULL, NULL,
h,
dlr,
octstr_get_cstr(settings->global_queuedir),
"MM3",
settings->host_alias);
if (savetommbox)
mmbox = mms_mmbox_addmsg(octstr_get_cstr(settings->mmbox_rootdir),
octstr_get_cstr(from), m, NULL, octstr_imm("Sent"));
mms_log("Received", from, to, msize, s, NULL, NULL, "MM3",NULL,NULL);
printf("Queued: %s, mmbox=%s\n",
octstr_get_cstr(s), mmbox ? octstr_get_cstr(mmbox) : "");
octstr_destroy(s);
http_destroy_headers(h);
mms_cleanup_mmsc_settings(settings);
mms_lib_shutdown();
return 0;
}
/* MO related function */
static void brunet_receive_sms(SMSCConn *conn, HTTPClient *client,
List *headers, Octstr *body, List *cgivars)
{
ConnData *conndata = conn->data;
Octstr *user, *from, *to, *text, *udh, *date, *type;
Octstr *retmsg;
int mclass, mwi, coding, validity, deferred;
List *reply_headers;
int ret;
mclass = mwi = coding = validity = deferred = 0;
user = http_cgi_variable(cgivars, "CustomerId");
from = http_cgi_variable(cgivars, "MsIsdn");
to = http_cgi_variable(cgivars, "Recipient");
text = http_cgi_variable(cgivars, "SMMO");
udh = http_cgi_variable(cgivars, "XSer");
date = http_cgi_variable(cgivars, "DateReceived");
type = http_cgi_variable(cgivars, "MessageType");
debug("smsc.http.brunet", 0, "HTTP[%s]: Received a request",
octstr_get_cstr(conn->id));
if (user == NULL || octstr_compare(user, conndata->username) != 0) {
error(0, "HTTP[%s]: Authorization failure. CustomerId was <%s>.",
octstr_get_cstr(conn->id), octstr_get_cstr(user));
retmsg = octstr_create("Authorization failed for MO submission.");
}
else if (from == NULL || to == NULL || text == NULL) {
error(0, "HTTP[%s]: Insufficient args.",
octstr_get_cstr(conn->id));
retmsg = octstr_create("Insufficient arguments, rejected.");
}
else {
Msg *msg;
msg = msg_create(sms);
debug("smsc.http.brunet", 0, "HTTP[%s]: Received new MO SMS.",
octstr_get_cstr(conn->id));
msg->sms.sender = octstr_duplicate(from);
msg->sms.receiver = octstr_duplicate(to);
msg->sms.msgdata = octstr_duplicate(text);
msg->sms.udhdata = octstr_duplicate(udh);
msg->sms.smsc_id = octstr_duplicate(conn->id);
msg->sms.time = time(NULL); /* XXX maybe extract from DateReceived */
msg->sms.mclass = mclass;
msg->sms.mwi = mwi;
msg->sms.coding = coding;
msg->sms.validity = validity;
msg->sms.deferred = deferred;
ret = bb_smscconn_receive(conn, msg);
if (ret == -1)
retmsg = octstr_create("Status=1");
else
retmsg = octstr_create("Status=0");
}
reply_headers = gwlist_create();
http_header_add(reply_headers, "Content-Type", "text/plain");
debug("smsc.http.brunet", 0, "HTTP[%s]: Sending reply `%s'.",
octstr_get_cstr(conn->id), octstr_get_cstr(retmsg));
http_send_reply(client, HTTP_OK, reply_headers, retmsg);
octstr_destroy(retmsg);
http_destroy_headers(reply_headers);
}
static void start_push(Octstr *rcpt_to, int isphonenum, MmsEnvelope *e, MmsMsg *msg)
{
List *pheaders;
static unsigned char ct; /* Transaction counter -- do we need it? */
Octstr *to = NULL;
Octstr *pduhdr = octstr_create("");
Octstr *s = NULL;
info(0, "mms2mobile.startpush: notification to %s\n", octstr_get_cstr(rcpt_to));
if (!rcpt_to) {
error(0, "mobilesender: Queue entry %s has no recipient address!", e->xqfname);
goto done;
} else
to = octstr_duplicate(rcpt_to);
ct++;
octstr_append_char(pduhdr, ct); /* Pushd id */
octstr_append_char(pduhdr, 0x06); /* PUSH */
#if 1
octstr_append_char(pduhdr, 1 + 1 + 1);
octstr_append_char(pduhdr, 0xbe); /* content type. */
#else
octstr_append_char(pduhdr,
1 + 1 + sizeof "application/vnd.wap.mms-message"); /*header length. */
octstr_append_cstr(pduhdr, "application/vnd.wap.mms-message");
octstr_append_char(pduhdr, 0x0); /* string terminator. */
#endif
octstr_append_char(pduhdr, 0xaf); /* push application ID header and value follows. */
octstr_append_char(pduhdr, 0x84); /* ... */
s = mms_tobinary(msg);
if (isphonenum) {
Octstr *url;
octstr_url_encode(to);
octstr_url_encode(s);
#if 0
octstr_dump(pduhdr, 0);
#endif
octstr_url_encode(pduhdr);
url = octstr_format("%S&text=%S%S&to=%S&udh=%%06%%05%%04%%0B%%84%%23%%F0",
settings->sendsms_url, pduhdr, s, to);
pheaders = http_create_empty_headers();
http_header_add(pheaders, "Connection", "close");
http_header_add(pheaders, "User-Agent", MM_NAME "/" MMSC_VERSION);
http_start_request(httpcaller, HTTP_METHOD_GET, url,
pheaders, NULL, 0, e, NULL);
http_destroy_headers(pheaders);
octstr_destroy(url);
} else { /* An IP Address: Send packet, forget. */
Octstr *addr = udp_create_address(to, WAPPUSH_PORT);
int sock = udp_client_socket();
if (sock > 0) {
MmsEnvelopeTo *xto = gwlist_get(e->to,0);
octstr_append(pduhdr, s);
#if 0
octstr_dump(pduhdr, 0);
#endif
udp_sendto(sock, pduhdr, addr);
close(sock); /* ?? */
mms_log2("Notify", octstr_imm("system"), to,
-1, e ? e->msgId : NULL,
NULL, NULL, "MM1", NULL,NULL);
e = update_env_success(e, xto);
} else {
e = update_env_failed(e);
error(0, "push to %s:%d failed: %s", octstr_get_cstr(to), WAPPUSH_PORT, strerror(errno));
}
octstr_destroy(addr);
if (e)
settings->qfs->mms_queue_free_env(e);
}
done:
octstr_destroy(to);
octstr_destroy(pduhdr);
octstr_destroy(s);
}
int
soap_exec(const char *uri, const char *service, int version, const char *method,
htsmsg_t *in, htsmsg_t **outp, char *errbuf, size_t errlen)
{
int r;
htsmsg_t *out;
htsbuf_queue_t post;
buf_t *result;
struct http_header_list hdrs = {0};
char tmp[100];
htsbuf_queue_init(&post, 0);
htsbuf_qprintf(&post,
"<?xml version=\"1.0\" encoding=\"utf-8\"?>"
"<s:Envelope s:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\" xmlns:s=\"http://schemas.xmlsoap.org/soap/envelope/\">"
"<s:Body><ns0:%s xmlns:ns0=\"urn:schemas-upnp-org:service:%s:%d\">", method, service, version);
soap_encode_args(&post, in);
htsbuf_qprintf(&post, "</ns0:%s></s:Body></s:Envelope>", method);
snprintf(tmp, sizeof(tmp),"\"urn:schemas-upnp-org:service:%s:%d#%s\"",
service, version, method);
http_header_add(&hdrs, "SOAPACTION", tmp, 0);
r = http_request(uri, NULL, &result, errbuf, errlen,
&post, "text/xml; charset=\"utf-8\"",
0, NULL, &hdrs, NULL, NULL, NULL);
http_headers_free(&hdrs);
htsbuf_queue_flush(&post);
if(r)
return -1;
out = htsmsg_xml_deserialize_buf2(result, errbuf, errlen);
if(out == NULL)
return -1;
snprintf(tmp, sizeof(tmp), "urn:schemas-upnp-org:service:%s:%d%sResponse",
service, version, method);
htsmsg_t *outargs =
htsmsg_get_map_multi(out,
"tags",
"http://schemas.xmlsoap.org/soap/envelope/Envelope",
"tags",
"http://schemas.xmlsoap.org/soap/envelope/Body",
"tags",
tmp,
"tags",
NULL);
if(outargs != NULL) {
htsmsg_field_t *f;
htsmsg_t *out = htsmsg_create_map();
// Convert args from XML style to more compact style
HTSMSG_FOREACH(f, outargs) {
htsmsg_t *a;
const char *s;
if((a = htsmsg_get_map_by_field(f)) == NULL)
continue;
if((s = htsmsg_get_str(a, "cdata")) != NULL)
htsmsg_add_str(out, f->hmf_name, s);
}
/*
* When server is requesting a session with a client, content type and applic-
* ation headers must be present (this behaviour is defined in ota, p. 14).
* We check headers for them and add them if they are not already present.
* X-WAP-Application-Id has been added by ppg module.
*/
static void check_session_request_headers(List *headers)
{
if (!http_type_accepted(headers, "application/wnd.wap.sia"))
http_header_add(headers, "Content-Type", "application/vnd.wap.sia");
}
static int sendNotify(MmsEnvelope *e)
{
Octstr *to;
MmsMsg *msg, *smsg = NULL;
MmsEnvelopeTo *xto = gwlist_get(e->to, 0);
Octstr *err = NULL;
time_t tnow = time(NULL);
int j, k, len;
Octstr *phonenum = NULL, *rcpt_ip = NULL, *msgId, *from, *fromproxy;
int mtype, msize;
int res = MMS_SEND_OK, dlr;
time_t expiryt;
char *prov_notify_event = NULL;
char *rtype = NULL;
if (e->lastaccess != 0) { /* This message has been fetched at least once, no more signals. */
e->sendt = e->expiryt + 3600*24*30*12;
info(0, "MM1: Message [ID: %s] fetched/touched at least once. Skipping",
e->xqfname);
return settings->qfs->mms_queue_update(e);
}
if (!xto) {
error(0, "mobilesender: Queue entry %s with no recipients!",
e->xqfname);
return 0;
}
msg = settings->qfs->mms_queue_getdata(e);
to = octstr_duplicate(xto->rcpt);
expiryt = e->expiryt;
msgId = e->msgId ? octstr_duplicate(e->msgId) : NULL;
from = octstr_duplicate(e->from);
fromproxy = e->fromproxy ? octstr_duplicate(e->fromproxy) : NULL;
msize = e->msize;
dlr = e->dlr;
if (e->expiryt != 0 && /* Handle message expiry. */
e->expiryt < tnow) {
err = octstr_format("MMSC error: Message expired while sending to %S!", to);
res = MMS_SEND_ERROR_FATAL;
prov_notify_event = "failedfetch";
rtype = "Expired";
goto done;
} else if (e->attempts >= settings->maxsendattempts) {
err = octstr_format("MMSC error: Failed to deliver to %S after %ld attempts!",
to, e->attempts);
res = MMS_SEND_ERROR_FATAL;
prov_notify_event = "failedfetch";
rtype = "Expired";
goto done;
}
j = octstr_case_search(to, octstr_imm("/TYPE=PLMN"), 0);
k = octstr_case_search(to, octstr_imm("/TYPE=IPv"), 0);
len = octstr_len(to);
if (j > 0 && j - 1 + sizeof "/TYPE=PLMN" == len) { /* A proper number. */
phonenum = octstr_copy(to, 0, j);
#if 0
normalize_number(octstr_get_cstr(settings->unified_prefix), &phonenum);
#else
mms_normalize_phonenum(&phonenum,
octstr_get_cstr(settings->unified_prefix),
settings->strip_prefixes);
#endif
} else if (k > 0 && k + sizeof "/TYPE=IPv" == len)
rcpt_ip = octstr_copy(to, 0, k);
else {
/* We only handle phone numbers here. */
err = octstr_format("Unexpected recipient %s in MT queue!", octstr_get_cstr(to));
res = MMS_SEND_ERROR_FATAL;
goto done;
}
mtype = mms_messagetype(msg);
/* For phone, getting here means the message can be delivered. So:
* - Check whether the recipient is provisioned, if not, wait (script called will queue creation req)
* - If the recipient can't take MMS, then send SMS.
*/
/* We handle two types of requests: send and delivery/read notifications.
* other types of messages cannot possibly be in this queue!
*/
if (mtype == MMS_MSGTYPE_SEND_REQ ||
mtype == MMS_MSGTYPE_RETRIEVE_CONF) {
Octstr *url, *transid;
if (phonenum) {
int send_ind = mms_ind_send(settings->prov_getstatus, phonenum);
if (send_ind < 0 &&
settings->notify_unprovisioned)
send_ind = 0;
if (send_ind < 0) { /* That is, recipient is not (yet) provisioned. */
res = MMS_SEND_ERROR_TRANSIENT;
err = octstr_format("%S is not provisioned for MMS reception, delivery deferred!",
phonenum);
/* Do not increase delivery attempts counter. */
e->lasttry = tnow;
e->sendt = e->lasttry + settings->send_back_off * (1 + e->attempts);
if (settings->qfs->mms_queue_update(e) == 1)
e = NULL; /* Queue entry gone. */
else
settings->qfs->mms_queue_free_env(e);
goto done;
} else if (send_ind == 0) { /* provisioned but does not support */
Octstr *s = octstr_format(octstr_get_cstr(settings->mms_notify_txt),
from);
if (settings->notify_unprovisioned && s && octstr_len(s) > 0) { /* Only send if the string was set. */
List *pheaders;
Octstr *sto = octstr_duplicate(phonenum);
octstr_url_encode(s);
octstr_url_encode(sto);
url = octstr_format("%S&text=%S&to=%S",settings->sendsms_url,s, sto);
pheaders = http_create_empty_headers();
http_header_add(pheaders, "Connection", "close");
http_header_add(pheaders, "User-Agent", MM_NAME "/" VERSION);
http_start_request(httpcaller, HTTP_METHOD_GET, url,
pheaders, NULL, 0, &edummy, NULL);
http_destroy_headers(pheaders);
octstr_destroy(url);
octstr_destroy(sto);
} else if (s)
octstr_destroy(s);
res = MMS_SEND_OK;
err = octstr_imm("No MMS Ind support, sent SMS instead");
xto->process = 0; /* No more processing. */
if (settings->qfs->mms_queue_update(e) == 1)
e = NULL;
else
settings->qfs->mms_queue_free_env(e);
goto done;
}
}
/* To get here means we can send Ind. */
url = mms_makefetchurl(e->xqfname, e->token, MMS_LOC_MQUEUE,
phonenum ? phonenum : to,
settings);
info(0, "Preparing to notify client to fetch message at URL: %s",
octstr_get_cstr(url));
transid = mms_maketransid(e->xqfname, settings->host_alias);
smsg = mms_notification(msg, e->msize, url, transid,
e->expiryt ? e->expiryt :
tnow + settings->default_msgexpiry,
settings->optimize_notification_size);
octstr_destroy(transid);
octstr_destroy(url);
} else if (mtype == MMS_MSGTYPE_DELIVERY_IND ||
mtype == MMS_MSGTYPE_READ_ORIG_IND)
smsg = msg;
else {
error(0, "Unexpected message type %s for %s found in MT queue!",
mms_message_type_to_cstr(mtype), octstr_get_cstr(to));
res = MMS_SEND_ERROR_FATAL;
goto done;
}
if (smsg)
start_push(phonenum ? phonenum : rcpt_ip,
phonenum ? 1 : 0,
e, smsg); /* Send the message.
* Don't touch 'e' after this point!
* It may be freed by receive thread.
*/
if (smsg != msg && smsg)
mms_destroy(smsg);
done:
if (err != NULL &&
res != MMS_SEND_ERROR_TRANSIENT) { /* If there was a report request and this is a legit error
* queue it.
*/
if (dlr) {
MmsMsg *m = mms_deliveryreport(msgId, to, tnow,
rtype ? octstr_imm(rtype) :
octstr_imm("Indeterminate"));
List *l = gwlist_create();
Octstr *res;
gwlist_append(l, from);
/* Add to queue, switch via proxy to be from proxy. */
res = settings->qfs->mms_queue_add(to ? to : settings->system_user, l, err,
NULL, fromproxy,
tnow, tnow+settings->default_msgexpiry, m, NULL,
NULL, NULL,
NULL, NULL,
NULL,
0,
octstr_get_cstr(settings->mm1_queuedir),
"MM2",
settings->host_alias);
gwlist_destroy(l, NULL);
mms_destroy(m);
octstr_destroy(res);
}
}
/* Write to log */
info(0, "%s Mobile Queue MMS Send Notify: From=%s, to=%s, msgsize=%d, reason=%s",
SEND_ERROR_STR(res),
octstr_get_cstr(from), octstr_get_cstr(to), msize,
err ? octstr_get_cstr(err) : "");
if (res == MMS_SEND_ERROR_FATAL) {
xto->process = 0; /* No more attempts to deliver, delete this. */
if (settings->qfs->mms_queue_update(e) == 1)
e = NULL; /* Queue entry gone. */
else
settings->qfs->mms_queue_free_env(e);
} /* Else queue will be updated/freed elsewhere. */
if (prov_notify_event)
notify_prov_server(octstr_get_cstr(settings->prov_notify),
to ? octstr_get_cstr(to) : "unknown",
prov_notify_event,
rtype ? rtype : "",
e ? e->msgId : NULL, NULL, NULL);
if (msg) mms_destroy(msg);
octstr_destroy(phonenum);
octstr_destroy(rcpt_ip);
octstr_destroy(to);
octstr_destroy(msgId);
octstr_destroy(fromproxy);
octstr_destroy(from);
octstr_destroy(err);
return 1;
}
static int mm7eaif_receive(MmsBoxHTTPClientInfo *h)
{
MmsMsg *m = NULL;
List *mh = NULL;
int hstatus = HTTP_NO_CONTENT;
List *rh = http_create_empty_headers();
List *rqh = http_create_empty_headers();
Octstr *reply_body = NULL, *value = NULL, *value2 = NULL;
List *to = gwlist_create(), *hto = NULL;
Octstr *subject = NULL, *otransid = NULL, *msgid = NULL;
Octstr *hfrom = NULL, *rr_uri = NULL;
time_t expiryt = -1, deliveryt = -1;
Octstr *qf = NULL, *xver = NULL, *mmc_id = NULL, *qdir = NULL;
int msize = h->body ? octstr_len(h->body) : 0;
int dlr;
int mtype;
debug("mmsbox.mm7eaif.sendinterface", 0,
" --> Enterred eaif send interface, blen=[%d] <--- ",
msize);
hfrom = http_header_value(h->headers, octstr_imm("X-NOKIA-MMSC-From"));
if (!h->body || /* A body is required, and must parse */
(m = mms_frombinary(h->body, hfrom ? hfrom : octstr_imm("anon@anon"))) == NULL) {
http_header_add(rh, "Content-Type", "text/plain");
hstatus = HTTP_BAD_REQUEST;
reply_body = octstr_format("Unexpected MMS message, no body?");
goto done;
}
/* XXXX handle delivery reports differently. */
mtype = mms_messagetype(m);
mh = mms_message_headers(m);
/* Now get sender and receiver data.
* for now we ignore adaptation flags.
*/
mms_collect_envdata_from_msgheaders(mh, &to, &subject,
&otransid, &expiryt, &deliveryt,
DEFAULT_EXPIRE,
-1,
octstr_get_cstr(unified_prefix),
strip_prefixes);
if ((hto = http_header_find_all(h->headers, "X-NOKIA-MMSC-To")) != NULL &&
gwlist_len(hto) > 0) { /* To address is in headers. */
int i, n;
gwlist_destroy(to, (gwlist_item_destructor_t *)octstr_destroy);
to = gwlist_create();
for (i = 0, n = gwlist_len(hto); i < n; i++) {
Octstr *h = NULL, *v = NULL;
List *l;
void *x;
http_header_get(hto,i, &h, &v);
l = http_header_split_value(v);
while ((x = gwlist_extract_first(l)) != NULL)
gwlist_append(to, x);
gwlist_destroy(l, NULL);
octstr_destroy(h);
octstr_destroy(v);
}
}
qdir = get_mmsbox_queue_dir(hfrom, to, h->m, &mmc_id); /* get routing info. */
switch(mtype) {
case MMS_MSGTYPE_SEND_REQ:
case MMS_MSGTYPE_RETRIEVE_CONF:
/* Get Message ID */
if ((msgid = http_header_value(h->headers, octstr_imm("X-NOKIA-MMSC-Message-Id"))) == NULL)
msgid = http_header_value(mh, octstr_imm("Message-ID"));
else
mms_replace_header_value(m, "Message-ID", octstr_get_cstr(msgid)); /* replace it in the message.*/
value = http_header_value(mh, octstr_imm("X-Mms-Delivery-Report"));
if (value &&
octstr_case_compare(value, octstr_imm("Yes")) == 0)
dlr = 1;
else
dlr = 0;
if (deliveryt < 0)
deliveryt = time(NULL);
if (expiryt < 0)
expiryt = time(NULL) + DEFAULT_EXPIRE;
if (hfrom == NULL)
hfrom = http_header_value(mh, octstr_imm("From"));
mms_remove_headers(m, "Bcc");
mms_remove_headers(m, "X-Mms-Delivery-Time");
mms_remove_headers(m, "X-Mms-Expiry");
mms_remove_headers(m, "X-Mms-Sender-Visibility");
MOD_SUBJECT(m, h->m, hfrom);
/* Save it, put message id in header, return. */
qf = qfs->mms_queue_add(hfrom, to, subject,
h->m->id, mmc_id,
deliveryt, expiryt, m, NULL,
NULL, NULL,
NULL, NULL,
NULL,
dlr,
octstr_get_cstr(qdir),
"MM7/EAIF-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("Received", hfrom, to, msize, msgid, NULL, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_NO_CONTENT;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
octstr_destroy(value);
octstr_destroy(value2);
break;
case MMS_MSGTYPE_DELIVERY_IND:
msgid = mms_get_header_value(m, octstr_imm("Message-ID"));
value = mms_get_header_value(m, octstr_imm("X-Mms-Status"));
value2 = mms_get_header_value(m, octstr_imm("X-Mbuni-Orig-Message-ID"));
rr_uri = mmsbox_get_report_info(m, h->m, mmc_id, "delivery-report",
value, rqh, NULL, 0, msgid);
if (value2 && mmc_id == NULL)
http_header_add(rqh, "X-Mbuni-Orig-Message-ID", octstr_get_cstr(value2));
qf = qfs->mms_queue_add(hfrom, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
rr_uri, NULL,
rqh,
0,
octstr_get_cstr(qdir),
"MM7/EAIF-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("DeliveryReport", hfrom, to, -1, msgid, value, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_NO_CONTENT;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
octstr_destroy(value);
octstr_destroy(value2);
break;
case MMS_MSGTYPE_READ_ORIG_IND:
msgid = mms_get_header_value(m, octstr_imm("Message-ID"));
value = mms_get_header_value(m, octstr_imm("X-Mms-Read-Status"));
value2 = mms_get_header_value(m, octstr_imm("X-Mbuni-Orig-Message-ID"));
rr_uri = mmsbox_get_report_info(m, h->m, mmc_id, "read-report",
value, rqh, NULL, 0, msgid);
if (value2 && mmc_id == NULL)
http_header_add(rqh, "X-Mbuni-Orig-Message-ID", octstr_get_cstr(value2));
qf = qfs->mms_queue_add(hfrom, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
rr_uri, NULL,
rqh,
0,
octstr_get_cstr(qdir),
"MM7/EAIF-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("Received RR", hfrom, to, -1, msgid, value, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_NO_CONTENT;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
octstr_destroy(value);
octstr_destroy(value2);
break;
}
done:
xver = octstr_format(EAIF_VERSION, h->m->ver.major, h->m->ver.minor1);
http_header_add(rh, "X-NOKIA-MMSC-Version", octstr_get_cstr(xver));
octstr_destroy(xver);
http_send_reply(h->client, hstatus, rh, octstr_imm(""));
http_destroy_headers(hto);
http_destroy_headers(rqh);
gwlist_destroy(to, (gwlist_item_destructor_t *)octstr_destroy);
octstr_destroy(hfrom);
octstr_destroy(subject);
octstr_destroy(otransid);
octstr_destroy(msgid);
octstr_destroy(qf);
octstr_destroy(mmc_id);
octstr_destroy(rr_uri);
http_destroy_headers(mh);
mms_destroy(m);
return http_status_class(hstatus) == HTTP_STATUS_SUCCESSFUL ? 0 : -1;
}
static int mm7http_receive(MmsBoxHTTPClientInfo *h)
{
MmsMsg *m = NULL;
List *mh = NULL;
int hstatus = HTTP_OK;
List *rh = http_create_empty_headers();
Octstr *reply_body = NULL;
List *to = NULL;
Octstr *hto = NULL, *subject = NULL, *msgid = NULL;
Octstr *hfrom = NULL, *body, *rr_uri = NULL, *dlr_uri = NULL;
time_t expiryt = -1, deliveryt = -1;
Octstr *qf = NULL, *mmc_id = NULL, *qdir = NULL, *s;
int msize;
int dlr, rr;
int mtype;
List *cgivars_ctypes = NULL, *rqh = http_create_empty_headers();
parse_cgivars(h->headers, h->body, &h->cgivars, &cgivars_ctypes);
hfrom = http_cgi_variable(h->cgivars, "from");
hto = http_cgi_variable(h->cgivars, "to");
body = http_cgi_variable(h->cgivars, "mms");
msize = octstr_len(body);
debug("mmsbox.mm7http.sendinterface", 0,
" --> Enterred http-mmsc send interface, blen=[%d] <--- ",
msize);
if (hto == NULL) {
http_header_add(rh, "Content-Type", "text/plain");
hstatus = HTTP_BAD_REQUEST;
reply_body = octstr_format("Missing 'to' argument");
goto done;
} else if (hfrom == NULL) {
http_header_add(rh, "Content-Type", "text/plain");
hstatus = HTTP_BAD_REQUEST;
reply_body = octstr_format("Missing 'from' argument");
goto done;
} else if (body == NULL || /* A message is required, and must parse */
(m = mms_frombinary(body, hfrom ? hfrom : octstr_imm("anon@anon"))) == NULL) {
http_header_add(rh, "Content-Type", "text/plain");
hstatus = HTTP_BAD_REQUEST;
reply_body = octstr_format("Unexpected MMS message, no content?");
goto done;
}
to = octstr_split_words(hto);
mtype = mms_messagetype(m);
mh = mms_message_headers(m);
/* find interesting headers. */
subject = http_header_value(mh, octstr_imm("Subject"));
/* Find expiry and delivery times */
if ((s = http_header_value(mh, octstr_imm("X-Mms-Expiry"))) != NULL) {
expiryt = date_parse_http(s);
octstr_destroy(s);
} else
expiryt = time(NULL) + DEFAULT_EXPIRE;
if ((s = http_header_value(mh, octstr_imm("X-Mms-Delivery-Time"))) != NULL) {
deliveryt = date_parse_http(s);
octstr_destroy(s);
} else
deliveryt = 0;
qdir = get_mmsbox_queue_dir(hfrom, to, h->m, &mmc_id); /* get routing info. */
switch(mtype) {
Octstr *value, *value2;
case MMS_MSGTYPE_SEND_REQ:
case MMS_MSGTYPE_RETRIEVE_CONF:
/* Get/make a Message ID */
if ((msgid = mms_get_header_value(m, octstr_imm("Message-ID"))) == NULL) { /* Make a message id for it directly. We need it below. */
msgid = mms_make_msgid(NULL, NULL);
mms_replace_header_value(m, "Message-ID", octstr_get_cstr(msgid));
}
if ((value = http_header_value(mh, octstr_imm("X-Mms-Delivery-Report"))) != NULL &&
octstr_case_compare(value, octstr_imm("Yes")) == 0)
dlr = 1;
else
dlr = 0;
octstr_destroy(value);
if ((value = http_header_value(mh, octstr_imm("X-Mms-Read-Report"))) != NULL &&
octstr_case_compare(value, octstr_imm("Yes")) == 0)
rr = 1;
else
rr = 0;
octstr_destroy(value);
if (deliveryt < 0)
deliveryt = time(NULL);
if (expiryt < 0)
expiryt = time(NULL) + DEFAULT_EXPIRE;
mms_remove_headers(m, "Bcc");
mms_remove_headers(m, "X-Mms-Delivery-Time");
mms_remove_headers(m, "X-Mms-Expiry");
mms_remove_headers(m, "X-Mms-Sender-Visibility");
MOD_SUBJECT(m, h->m, hfrom);
if (qdir == outgoing_qdir) { /* We need to remember the old message ID so we can re-write it
* if a DLR is relayed backwards.
*/
Octstr *t = mms_maketransid(NULL, octstr_imm(MM_NAME)); /* make a fake transaction id so dlr works*/
http_header_add(rqh, "X-Mbuni-TransactionID", octstr_get_cstr(t));
if (dlr)
dlr_uri = octstr_format("msgid:%S", msgid);
if (rr)
rr_uri = octstr_format("msgid:%S", msgid);
octstr_destroy(t);
}
/* Save it, put message id in header, return. */
qf = qfs->mms_queue_add(hfrom, to, subject,
h->m->id, mmc_id,
deliveryt, expiryt, m, NULL,
NULL, NULL,
dlr_uri, rr_uri,
rqh,
dlr,
octstr_get_cstr(qdir),
"MM7/HTTP-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("Received", hfrom, to, msize, msgid, NULL, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_OK;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
break;
case MMS_MSGTYPE_DELIVERY_IND:
msgid = mms_get_header_value(m, octstr_imm("Message-ID"));
value = mms_get_header_value(m, octstr_imm("X-Mms-Status"));
value2 = mms_get_header_value(m, octstr_imm("X-Mbuni-Orig-Message-ID"));
rr_uri = mmsbox_get_report_info(m, h->m, mmc_id, "delivery-report",
value, rqh, NULL, 0, msgid);
if (mmc_id == NULL && value2)
http_header_add(rqh, "X-Mbuni-Orig-Message-ID", octstr_get_cstr(value2));
qf = qfs->mms_queue_add(hfrom, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
rr_uri, NULL,
rqh,
0,
octstr_get_cstr(qdir),
"MM7/HTTP-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("DeliveryReport", hfrom, to, -1, msgid,value, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_OK;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
octstr_destroy(value);
octstr_destroy(value2);
break;
case MMS_MSGTYPE_READ_ORIG_IND:
msgid = mms_get_header_value(m, octstr_imm("Message-ID"));
value = mms_get_header_value(m, octstr_imm("X-Mms-Read-Status"));
value2 = mms_get_header_value(m, octstr_imm("X-Mbuni-Orig-Message-ID"));
rr_uri = mmsbox_get_report_info(m, h->m, mmc_id, "read-report",
value, rqh, NULL, 0, msgid);
if (mmc_id == NULL && value2)
http_header_add(rqh, "X-Mbuni-Orig-Message-ID", octstr_get_cstr(value2));
qf = qfs->mms_queue_add(hfrom, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
rr_uri, NULL,
rqh,
0,
octstr_get_cstr(qdir),
"MM7/HTTP-IN",
NULL);
if (qf) {
/* Log to access log */
mms_log("Received RR", hfrom, to, -1, msgid, value, h->m->id, "MMSBox", h->ua, NULL);
hstatus = HTTP_NO_CONTENT;
} else
hstatus = HTTP_INTERNAL_SERVER_ERROR;
octstr_destroy(value);
octstr_destroy(value2);
break;
}
done:
http_header_add(rh, "X-Mbuni-Version", VERSION);
http_send_reply(h->client, hstatus, rh, msgid ? msgid : (qf ? qf : octstr_imm("")));
gwlist_destroy(to, (gwlist_item_destructor_t *)octstr_destroy);
octstr_destroy(subject);
octstr_destroy(qf);
octstr_destroy(mmc_id);
octstr_destroy(msgid);
http_destroy_headers(mh);
http_destroy_headers(rh);
http_destroy_headers(rqh);
if (m)
mms_destroy(m);
http_destroy_cgiargs(cgivars_ctypes);
return http_status_class(hstatus) == HTTP_STATUS_SUCCESSFUL ? 0 : -1;
}
/* These functions are very similar to those in mmsproxy */
static int mm7soap_receive(MmsBoxHTTPClientInfo *h)
{
MSoapMsg_t *mreq = NULL, *mresp = NULL;
int hstatus = HTTP_OK;
List *rh = NULL;
Octstr *reply_body = NULL;
List *to = NULL;
Octstr *from = NULL, *subject = NULL, *vasid = NULL, *msgid = NULL, *uaprof = NULL;
time_t expiryt = -1, delivert = -1, uaprof_tstamp = -1;
MmsMsg *m = NULL;
int status = 1000;
unsigned char *msgtype = (unsigned char *)"";
Octstr *qf = NULL, *mmc_id = NULL, *qdir = NULL;
List *qhdr = http_create_empty_headers();
if (h->body)
mreq = mm7_parse_soap(h->headers, h->body);
if (mreq)
msgtype = mms_mm7tag_to_cstr(mm7_msgtype(mreq));
debug("mmsbox.mm7sendinterface", 0,
" --> Enterred mm7dispatch interface, mreq=[%s] mtype=[%s] <-- ",
mreq ? "Ok" : "Null",
mreq ? (char *)msgtype : "Null");
if (!mreq) {
mresp = mm7_make_resp(NULL, MM7_SOAP_FORMAT_CORRUPT, NULL,1);
status = 4000;
goto done;
}
mm7_get_envelope(mreq, &from, &to, &subject, &vasid,
&expiryt, &delivert, &uaprof, &uaprof_tstamp);
if (!from)
from = octstr_create("anon@anon");
qdir = get_mmsbox_queue_dir(from, to, h->m, &mmc_id); /* get routing info. */
switch (mm7_msgtype(mreq)) {
Octstr *value, *value2;
case MM7_TAG_DeliverReq:
m = mm7_soap_to_mmsmsg(mreq, from);
if (m) {
/* Store linked id so we use it in response. */
Octstr *linkedid = mm7_soap_header_value(mreq, octstr_imm("LinkedID"));
List *qh = http_create_empty_headers();
int dlr;
value = mms_get_header_value(m, octstr_imm("X-Mms-Delivery-Report"));
if (value &&
octstr_case_compare(value, octstr_imm("Yes")) == 0)
dlr = 1;
else
dlr = 0;
if (delivert < 0)
delivert = time(NULL);
if (expiryt < 0)
expiryt = time(NULL) + DEFAULT_EXPIRE;
if (uaprof) {
Octstr *sx = date_format_http(uaprof_tstamp);
http_header_add(qh, "X-Mbuni-UAProf", octstr_get_cstr(uaprof));
http_header_add(qh, "X-Mbuni-Timestamp", octstr_get_cstr(sx));
octstr_destroy(sx);
}
MOD_SUBJECT(m, h->m, from);
qf = qfs->mms_queue_add(from, to, subject,
h->m->id, mmc_id,
delivert, expiryt, m, linkedid,
NULL, NULL,
NULL, NULL,
qh,
dlr,
octstr_get_cstr(qdir),
"MM7/SOAP-IN",
NULL);
if (qf == NULL) {
status = 4000;
mms_error(0, "MM7", h->m->id,
"Failed to write queue entry for received MM7/SOAP DeliverReq message from mmc=%s to MMS Message!",
octstr_get_cstr(h->m->id));
} else {
msgid = mms_make_msgid(octstr_get_cstr(qf), NULL);
mms_log("Received", from, to, -1, msgid, NULL, h->m->id, "MMSBox",
h->ua, NULL);
}
octstr_destroy(linkedid);
octstr_destroy(value);
http_destroy_headers(qh);
} else {
mms_error(0, "MM7", h->m->id,
"Failed to convert received MM7/SOAP DeliverReq message from mmc=%s to MMS Message!",
octstr_get_cstr(h->m->id));
status = 4000;
}
mresp = mm7_make_resp(mreq, status, NULL,1);
break;
case MM7_TAG_DeliveryReportReq:
value = mm7_soap_header_value(mreq, octstr_imm("MMStatus"));
msgid = mm7_soap_header_value(mreq, octstr_imm("MessageID"));
if ((value2 = mm7_soap_header_value(mreq, octstr_imm("StatusText"))) != NULL) {
http_header_add(qhdr, "X-Mbuni-StatusText", octstr_get_cstr(value2));
octstr_destroy(value2);
value2 = NULL;
}
if ((value2 = mm7_soap_header_value(mreq, octstr_imm("Details"))) != NULL) {
http_header_add(qhdr, "X-Mbuni-StatusDetails", octstr_get_cstr(value2));
octstr_destroy(value2);
value2 = NULL;
}
m = mm7_soap_to_mmsmsg(mreq, from);
value2 = mmsbox_get_report_info(m, h->m, mmc_id, "delivery-report",
value, qhdr, uaprof, uaprof_tstamp, msgid);
qf = qfs->mms_queue_add(from, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
value2, NULL,
qhdr,
0,
octstr_get_cstr(qdir),
"MM7/SOAP-IN",
NULL);
if (qf)
/* Log to access log */
mms_log("Received DLR", from, to, -1, msgid, value, h->m->id, "MMSBox", h->ua, NULL);
else
status = 4000;
mresp = mm7_make_resp(mreq, status, NULL,1);
octstr_destroy(value);
octstr_destroy(value2);
break;
case MM7_TAG_ReadReplyReq:
m = mm7_soap_to_mmsmsg(mreq, from);
value = mm7_soap_header_value(mreq, octstr_imm("MMStatus"));
msgid = mm7_soap_header_value(mreq, octstr_imm("MessageID"));
value2 = mmsbox_get_report_info(m, h->m, mmc_id, "read-report", value, qhdr, uaprof, uaprof_tstamp, msgid);
qf = qfs->mms_queue_add(from, to, NULL,
h->m->id, mmc_id,
0, time(NULL) + default_msgexpiry, m, NULL,
NULL, NULL,
value2, NULL,
qhdr,
0,
octstr_get_cstr(qdir),
"MM7/SOAP-IN",
NULL);
if (qf)
/* Log to access log */
mms_log("Received RR", from, to, -1, msgid, value, h->m->id, "MMSBox", h->ua, NULL);
else
status = 4000;
mresp = mm7_make_resp(mreq, status, NULL,1);
octstr_destroy(value);
octstr_destroy(value2);
break;
default:
mresp = mm7_make_resp(mreq, MM7_SOAP_UNSUPPORTED_OPERATION, NULL,1);
status = MM7_SOAP_UNSUPPORTED_OPERATION;
break;
}
done:
if (mresp && mm7_soapmsg_to_httpmsg(mresp, &h->m->ver, &rh, &reply_body) == 0)
http_send_reply(h->client, hstatus, rh, reply_body);
else
http_close_client(h->client);
debug("mmsbox.mm7sendinterface", 0,
" --> leaving mm7dispatch interface, mresp=[%s], body=[%s], mm7_status=[%d] <-- ",
mresp ? "ok" : "(null)",
reply_body ? "ok" : "(null)", status);
octstr_destroy(from);
octstr_destroy(subject);
octstr_destroy(vasid);
octstr_destroy(msgid);
octstr_destroy(qf);
octstr_destroy(uaprof);
mms_destroy(m);
http_destroy_headers(rh);
octstr_destroy(reply_body);
mm7_soap_destroy(mresp);
mm7_soap_destroy(mreq);
gwlist_destroy(to, (gwlist_item_destructor_t *)octstr_destroy);
octstr_destroy(mmc_id);
http_destroy_headers(qhdr);
return MM7_SOAP_STATUS_OK(status) ? 0 : -1;
}
static void add_dlr_url(List **push_headers, Octstr *value)
{
http_header_add(*push_headers, "X-Kannel-DLR-Url",
octstr_get_cstr(value));
}
static int mms_sendtommsc(MmscGrp *mmc, MmsEnvelope *e, Octstr *to,
Octstr *orig_transid,
MmsMsg *m,
Octstr **new_msgid,
List **errhdrs)
{
Octstr *id = NULL, *groupid = NULL;
int ret = 0, retry = 0;
double throughput = 0;
Octstr *from = e->from;
Octstr *transid = e->msgId;
Octstr *linkedid = e->token; /* token = linkedid */
char *vasid = e->vasid ? octstr_get_cstr(e->vasid) : NULL;
Octstr *service_code = e->vaspid;
Octstr *dlr_url = e->url1;
Octstr *rr_url = e->url2;
List *hdrs = e->hdrs;
mutex_lock(mmc->mutex); { /* Grab a lock on it. */
Octstr *err = NULL;
if (mmc->type == SOAP_MMSC)
id = mm7soap_send(mmc, from, to, transid, linkedid, vasid, service_code, hdrs, m, &err, errhdrs, &retry);
else if (mmc->type == EAIF_MMSC)
id = mm7eaif_send(mmc, from, to, transid, vasid, hdrs, m, &err, &retry);
else if (mmc->type == HTTP_MMSC)
id = mm7http_send(mmc, from, to, m, &err, &retry);
else if (mmc->type == CUSTOM_MMSC && mmc->custom_started)
id = mmc->fns->send_msg(mmc->data,
from, to, transid, linkedid, vasid,
service_code, m, hdrs, &err, &retry);
else
mms_error_ex("MT", 0, "MM7", mmc->id, "MMC[%s] of unknown type, can't send!",
mmc->id ? octstr_get_cstr(mmc->id) : "");
throughput = mmc->throughput;
groupid = mmc->group_id ? octstr_duplicate(mmc->group_id) : NULL;
if (err && errhdrs) {
if (*errhdrs == NULL)
*errhdrs = http_create_empty_headers();
http_header_add(*errhdrs, "X-Mbuni-Error", octstr_get_cstr(err));
}
octstr_destroy(err);
} mutex_unlock(mmc->mutex); /* release lock */
if (id) {
if (dlr_url) /* remember the url's for reporting purposes. */
mms_dlr_url_put(id, "delivery-report", groupid, dlr_url, orig_transid);
if (rr_url)
mms_dlr_url_put(id, "read-report", groupid, rr_url, orig_transid);
ret = MMS_SEND_OK;
} else
ret = retry ? MMS_SEND_ERROR_TRANSIENT : MMS_SEND_ERROR_FATAL;
*new_msgid = id;
octstr_destroy(groupid);
if (throughput > 0)
gwthread_sleep(1.0/throughput);
return ret;
}
/*
* Attempt to read an envelope from queue file:
* - opens and locks the file.
* - if the lock succeeds, check that file hasn't changed since opening. If it has
* return NULL (i.e. file is being processed elsewhere -- race condition), otherwise read it.
* - If should block is 1, then does a potentially blocking attempt to lock the file.
*/
static MmsEnvelope *mms_queue_readenvelope(char *qf, char *mms_queuedir, int shouldblock)
{
Octstr *fname;
int fd;
Octstr *qdata, *s;
ParseContext *p;
MmsEnvelope *e;
int okfile = 0;
char subdir[64];
char realqf[QFNAMEMAX];
char xqf[QFNAMEMAX+64];
struct qfile_t *qfs;
get_subdir(qf, subdir, realqf); /* break it down... */
fname = octstr_format( "%.128s/%s%s", mms_queuedir, subdir, realqf);
strncpy(xqf, octstr_get_cstr(fname), sizeof xqf);
#ifdef SunOS
if ((fd = open(octstr_get_cstr(fname), O_RDWR)) < 0) {
#else
if ((fd = open(octstr_get_cstr(fname), O_RDONLY)) < 0) {
#endif
debug("",0,"mms_queue_readenvelope: could not open file %s", octstr_get_cstr(fname));
octstr_destroy(fname);
return NULL;
} else if (mm_lockfile(fd, octstr_get_cstr(fname), shouldblock) != 0) {
debug("",0,"mms_queue_readenvelope: could not lock file %s", octstr_get_cstr(fname));
unlock_and_close(fd);
octstr_destroy(fname);
return NULL;
}
debug("",0,"locked and opened file: %s", octstr_get_cstr(fname));
e = mms_queue_create_envelope(NULL, NULL,
NULL,
NULL, NULL,
0, 0,
NULL,
NULL, NULL,
NULL, NULL,
NULL,
0,
NULL,
NULL,
qf,
NULL,
sizeof (struct qfile_t), NULL);
qfs = e->qfs_data;
qfs->fd = fd;
strncpy(qfs->name, realqf, sizeof qfs->name);
strncpy(qfs->subdir, subdir, sizeof qfs->subdir);
strncpy(qfs->dir, mms_queuedir, sizeof qfs->dir);
qdata = octstr_read_file(octstr_get_cstr(fname));
octstr_destroy(fname);
if (qdata == NULL)
qdata = octstr_imm("");
p = parse_context_create(qdata);
for (s = parse_get_line(p); s;
s = parse_get_line(p)) {
char *line = octstr_get_cstr(s);
int ch = line[0];
char *res = line + 1;
char *ptmp;
switch (ch) {
Octstr *t;
MmsEnvelopeTo *to;
case 'T':
t = octstr_create(res);
e->msgtype = mms_string_to_message_type(t);
octstr_destroy(t);
if (e->msgtype < 0) {
e->msgtype = 0;
error(0, "mms_queueread: Unknown MMS message type (%s) in file %s, skipped!\n",
res, xqf);
}
break;
case 'I':
e->msgId = octstr_create(res);
break;
case 'i':
strncpy(e->src_interface, res, sizeof e->src_interface);
break;
case 'F':
e->from = octstr_create(res);
if (mms_validate_address(e->from) != 0) {
warning(0, "mms_queueread: Mal-formed address [%s] in file %s! "
"Attempting fixup.", res, xqf);
_mms_fixup_address(&e->from, NULL, NULL, 1);
}
break;
case 'R':
t = octstr_create(res);
if (mms_validate_address(t) != 0) {
warning(0, "mms_queueread: Mal-formed address [%s] in file %s! "
"Attempting fixup.", res, xqf);
_mms_fixup_address(&t, NULL, NULL, 1);
}
to = gw_malloc(sizeof *to);
to->rcpt = t;
to->process = 1;
gwlist_append(e->to, to);
break;
case 'C':
e->created = atol(res);
break;
case 'L':
e->lasttry = atol(res);
break;
case 'D':
e->sendt = atol(res);
break;
case 'X':
e->expiryt = atol(res);
break;
case 'N':
e->attempts = atol(res);
break;
case 'P':
e->fromproxy = octstr_create(res);
break;
case 'M':
e->mdata = octstr_create(res);
break;
case 'p':
e->viaproxy = octstr_create(res);
break;
case 'S':
e->msize = atol(res);
break;
case 's':
e->subject = octstr_create(res);
break;
case 't':
e->token = octstr_create(res);
break;
case 'f':
e->lastaccess = atol(res);
break;
case 'b':
e->bill.billed = 1;
e->bill.amt = atof(res);
break;
case 'r':
e->dlr = 1;
break;
case 'V':
e->vaspid = octstr_create(res);
break;
case 'v':
e->vasid = octstr_create(res);
break;
case 'U':
e->url1 = octstr_create(res);
break;
case 'u':
e->url2 = octstr_create(res);
break;
case 'H':
if (e->hdrs == NULL)
e->hdrs = http_create_empty_headers();
if ((ptmp = index(res, ':')) == NULL)
error(0, "Incorrectly formatted line %s in queue file %s!",
line, xqf);
else {
char *value = ptmp + 1;
char hname[512];
int xlen = (ptmp - res < sizeof hname) ? ptmp - res : -1 + sizeof hname;
strncpy(hname, res, xlen);
hname[xlen] = 0; /* terminate it. */
http_header_add(e->hdrs, hname, value);
}
break;
case '.':
okfile = 1;
break;
default:
error(0, "Unknown QF header %c in file %s!", ch, xqf);
break;
}
octstr_destroy(s);
if (okfile)
break; /* We are done. */
}
parse_context_destroy(p);
octstr_destroy(qdata);
/* We should properly validate the queue file here. */
if (!okfile) {
free_envelope(e,0);
e = NULL;
error(0, "Corrupt queue control file: %s", xqf);
}
return e;
}
/* Updates envelope to queue file:
* - opens temp file
* - writes output to temp file, if not new else writes directly.
* - renames temp file to queue file (if not new)
* This function doesn't check that this envelope is useless (i.e. no recipients)
* - If function returns -1, caller should check errno for error.
*/
static int writeenvelope(MmsEnvelope *e, int newenv)
{
Octstr *tfname = NULL;
char *s;
char buf[512];
int fd;
int i, n;
int res = 0;
struct qfile_t *qfs = e ? e->qfs_data : NULL;
gw_assert(e);
if (newenv)
fd = qfs->fd;
else {
tfname = octstr_format(
"%s/%s%c%s.%d", qfs->dir, qfs->subdir,
MTF, qfs->name + 1, random());
fd = open(octstr_get_cstr(tfname),
O_RDWR|O_CREAT|O_EXCL, S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP);
if (fd < 0 ) {
error(0, "mms_queueadd: Failed to open temp file %s: error = %s\n",
octstr_get_cstr(tfname), strerror(errno));
res = -1;
goto done;
} else if (mm_lockfile(fd, octstr_get_cstr(tfname), 0) != 0) { /* Lock it. */
error(0, "mms_queueadd: Failed lock temp file %s: error = %s\n",
octstr_get_cstr(tfname), strerror(errno));
res = -1;
goto done;
}
}
/* Write out. */
s = (char *)mms_message_type_to_cstr(e->msgtype);
if (!s) {
error(0, "mms_queuewrite: Unknown MMS message type %d! Skipped\n", e->msgtype);
s = "";
}
_putline(fd, "T", s);
if (e->msgId)
_putline(fd, "I", octstr_get_cstr(e->msgId));
if (e->src_interface[0])
_putline(fd, "i", e->src_interface);
if (e->from)
_putline(fd, "F", octstr_get_cstr(e->from));
if (e->to)
n = gwlist_len(e->to);
else
n = 0;
for (i = 0; i < n; i++) {
MmsEnvelopeTo *to = gwlist_get(e->to, i);
if (to->process)
_putline(fd, "R", octstr_get_cstr(to->rcpt));
}
/* Output headers if any. */
n = (e->hdrs) ? gwlist_len(e->hdrs) : 0;
for (i = 0; i < n; i++) {
Octstr *h = NULL, *v = NULL;
http_header_get(e->hdrs, i, &h, &v);
if (h && v) {
Octstr *x = octstr_format("%s:%s", octstr_get_cstr(h),
octstr_get_cstr(v));
_putline(fd, "H", octstr_get_cstr(x));
octstr_destroy(x);
}
if (h) octstr_destroy(h);
if (v) octstr_destroy(v);
}
sprintf(buf, "%ld", e->created);
_putline(fd, "C", buf);
if (e->lasttry) {
sprintf(buf, "%ld", e->lasttry);
_putline(fd, "L", buf);
}
if (e->sendt) {
sprintf(buf, "%ld", e->sendt);
_putline(fd, "D", buf);
}
if (e->expiryt) {
sprintf(buf, "%ld", e->expiryt);
_putline(fd, "X", buf);
}
if (e->attempts) {
sprintf(buf, "%ld", e->attempts);
_putline(fd, "N", buf);
}
if (e->lastaccess) {
sprintf(buf, "%ld", e->lastaccess);
_putline(fd, "f", buf);
}
sprintf(buf, "%ld", e->msize);
_putline(fd, "S", buf);
if (e->fromproxy)
_putline(fd, "P", octstr_get_cstr(e->fromproxy));
if (e->mdata)
_putline(fd, "M", octstr_get_cstr(e->mdata));
if (e->subject)
_putline(fd, "s", octstr_get_cstr(e->subject));
if (e->viaproxy)
_putline(fd, "p", octstr_get_cstr(e->viaproxy));
if (e->token)
_putline(fd, "t", octstr_get_cstr(e->token));
if (e->vaspid)
_putline(fd, "V", octstr_get_cstr(e->vaspid));
if (e->vasid)
_putline(fd, "v", octstr_get_cstr(e->vasid));
if (e->url1)
_putline(fd, "U", octstr_get_cstr(e->url1));
if (e->url2)
_putline(fd, "u", octstr_get_cstr(e->url2));
if (e->dlr)
_putline(fd, "r", "Yes");
if (e->bill.billed) {
sprintf(buf, "%.3f", e->bill.amt);
_putline(fd,"b", buf);
}
_putline(fd, "", ".");
fsync(fd); /* Sync data. */
if (!newenv) { /* An update */
Octstr *qfname;
qfname = octstr_format("%s/%s%s", qfs->dir, qfs->subdir, qfs->name);
if (rename(octstr_get_cstr(tfname), octstr_get_cstr(qfname)) < 0) {
error(0, "mms_queuewrite: Failed to rename %s to %s: error = %s\n",
octstr_get_cstr(qfname), octstr_get_cstr(tfname), strerror(errno));
unlock_and_close(fd); /* Close new one, keep old one. */
res = -1;
} else { /* On success, new descriptor replaces old one and we close old one. */
unlock_and_close(qfs->fd);
qfs->fd = fd;
}
octstr_destroy(qfname);
}
done:
octstr_destroy(tfname);
return res;
}
/* XXX Returns msgid in mmsc or NULL if error. Caller uses this for DLR issues.
* Caller must make sure throughput issues
* are observed!
* Don't remove from queue on fail, just leave it to expire.
*/
static Octstr *mm7soap_send(MmscGrp *mmc, Octstr *from, Octstr *to,
Octstr *transid,
Octstr *linkedid,
char *vasid,
Octstr *service_code,
List *hdrs,
MmsMsg *m, Octstr **error,
List **errl,
int *retry)
{
Octstr *ret = NULL;
int mtype = mms_messagetype(m);
int hstatus = HTTP_OK, tstatus = -1;
List *xto = gwlist_create();
MSoapMsg_t *mreq = NULL, *mresp = NULL;
List *rh = NULL, *ph = NULL;
Octstr *body = NULL, *rbody = NULL, *url = NULL;
Octstr *s;
char *xvasid = vasid ? vasid : (mmc->default_vasid ? octstr_get_cstr(mmc->default_vasid) : NULL);
mms_info(0, "MM7", mmc->id, "MMSBox: Send[soap] to MMSC[%s], msg type [%s], from %s, to %s",
mmc->id ? octstr_get_cstr(mmc->id) : "",
mms_message_type_to_cstr(mtype),
octstr_get_cstr(from), octstr_get_cstr(to));
gwlist_append(xto, to);
if ((mreq = mm7_mmsmsg_to_soap(m, (mmc == NULL || mmc->no_senderaddress == 0) ? from : NULL,
xto, transid,
service_code,
linkedid,
1, octstr_get_cstr(mmc->vasp_id), xvasid, NULL, 0,/* UA N/A on this side. */
hdrs)) == NULL) {
*error = octstr_format("Failed to convert Msg[%S] 2 SOAP message!",
mms_message_type_to_string(mtype));
goto done1;
}
if (mm7_soapmsg_to_httpmsg(mreq, &mmc->ver, &rh, &body) < 0) {
*error = octstr_format("Failed to convert SOAP message to HTTP Msg!");
goto done1;
}
if (hdrs)
http_header_combine(rh, hdrs); /* If specified, then update and pass on. */
hstatus = mmsbox_url_fetch_content(HTTP_METHOD_POST, mmc->mmsc_url, rh, body, &ph,&rbody);
if (http_status_class(hstatus) != HTTP_STATUS_SUCCESSFUL) {
*error = octstr_format("Failed to contact MMC[url=%S] => HTTP returned status=[%d]!",
mmc->mmsc_url, hstatus);
goto done1;
}
if ((mresp = mm7_parse_soap(ph, rbody)) == NULL) {
*error = octstr_format("Failed to parse MMSC[url=%S, id=%S] response!",
mmc->mmsc_url, mmc->id);
goto done1;
}
if (errl) { /* Pick up status stuff -- for DLR */
if (*errl == NULL)
*errl = http_create_empty_headers();
if ((s = mm7_soap_header_value(mresp, octstr_imm("StatusText"))) != NULL) {
http_header_add(*errl, "X-Mbuni-StatusText", octstr_get_cstr(s));
octstr_destroy(s);
}
if ((s = mm7_soap_header_value(mresp, octstr_imm("Details"))) != NULL) {
http_header_add(*errl, "X-Mbuni-StatusDetails", octstr_get_cstr(s));
octstr_destroy(s);
}
}
/* Now look at response code and use it to tell you what you want. */
if ((s = mm7_soap_header_value(mresp, octstr_imm("StatusCode"))) != NULL) {
tstatus = atoi(octstr_get_cstr(s));
octstr_destroy(s);
} else if ((s = mm7_soap_header_value(mresp, octstr_imm("faultstring"))) != NULL) {
tstatus = atoi(octstr_get_cstr(s));
octstr_destroy(s);
} else
tstatus = MM7_SOAP_FORMAT_CORRUPT;
if (!MM7_SOAP_STATUS_OK(tstatus) && tstatus != MM7_SOAP_COMMAND_REJECTED) {
Octstr *detail = mm7_soap_header_value(mresp, octstr_imm("Details"));
char *tmp = (char *)mms_soap_status_to_cstr(tstatus);
if (detail == NULL)
detail = mm7_soap_header_value(mresp, octstr_imm("faultcode"));
ret = NULL;
mms_info(0, "MM7", mmc->id, "Send to MMSC[%s], failed, code=[%d=>%s], detail=[%s]",
mmc ? octstr_get_cstr(mmc->id) : "",
tstatus, tmp ? tmp : "",
detail ? octstr_get_cstr(detail) : "");
*error = octstr_format("Failed to deliver to MMC[url=%S, id=%S], status=[%d=>%s]!",
mmc->mmsc_url,
mmc->id,
tstatus,
tmp ? tmp : "");
octstr_destroy(detail);
} else {
ret = mm7_soap_header_value(mresp, octstr_imm("MessageID"));
mms_info(0, "MM7", NULL, "Sent to MMC[%s], code=[%d=>%s], msgid=[%s]", octstr_get_cstr(mmc->id),
tstatus, mms_soap_status_to_cstr(tstatus), ret ? octstr_get_cstr(ret) : "(none)");
}
if (ret)
mms_log2("Sent", from, to, -1, ret, NULL, mmc->id, "MMSBox", NULL, NULL);
done1:
*retry = (ret == NULL && (!MM7_SOAP_CLIENT_ERROR(tstatus) || tstatus < 0));
mm7_soap_destroy(mreq);
mm7_soap_destroy(mresp);
http_destroy_headers(rh);
octstr_destroy(body);
http_destroy_headers(ph);
octstr_destroy(rbody);
octstr_destroy(url);
gwlist_destroy(xto, NULL);
return ret;
}
