bb3a51cdfa6b4571901911846c98d80fcea08e6f
[asterisk/asterisk.git] / res / res_pjsip_messaging.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 2013, Digium, Inc.
5  *
6  * Kevin Harwell <kharwell@digium.com>
7  *
8  * See http://www.asterisk.org for more information about
9  * the Asterisk project. Please do not directly contact
10  * any of the maintainers of this project for assistance;
11  * the project provides a web site, mailing lists and IRC
12  * channels for your use.
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License Version 2. See the LICENSE file
16  * at the top of the source tree.
17  */
18
19 /*** MODULEINFO
20         <depend>pjproject</depend>
21         <depend>res_pjsip</depend>
22         <depend>res_pjsip_session</depend>
23         <support_level>core</support_level>
24  ***/
25
26 /*** DOCUMENTATION
27         <info name="PJSIPMessageFromInfo" language="en_US" tech="PJSIP">
28                 <para>The <literal>from</literal> parameter can be a configured endpoint
29                 or in the form of "display-name" &lt;URI&gt;.</para>
30         </info>
31         <info name="PJSIPMessageToInfo" language="en_US" tech="PJSIP">
32                 <para>Specifying a prefix of <literal>pjsip:</literal> will send the
33                 message as a SIP MESSAGE request.</para>
34         </info>
35  ***/
36 #include "asterisk.h"
37
38 #include "pjsua-lib/pjsua.h"
39
40 #include "asterisk/message.h"
41 #include "asterisk/module.h"
42 #include "asterisk/pbx.h"
43 #include "asterisk/res_pjsip.h"
44 #include "asterisk/res_pjsip_session.h"
45
46 const pjsip_method pjsip_message_method = {PJSIP_OTHER_METHOD, {"MESSAGE", 7} };
47
48 #define MAX_HDR_SIZE 512
49 #define MAX_BODY_SIZE 1024
50 #define MAX_EXTEN_SIZE 256
51 #define MAX_USER_SIZE 128
52
53 /*!
54  * \internal
55  * \brief Determine where in the dialplan a call should go
56  *
57  * \details This uses the username in the request URI to try to match
58  * an extension in an endpoint's context in order to route the call.
59  *
60  * \param rdata The SIP request
61  * \param context The context to use
62  * \param exten The extension to use
63  */
64 static enum pjsip_status_code get_destination(const pjsip_rx_data *rdata, const char *context, char *exten)
65 {
66         pjsip_uri *ruri = rdata->msg_info.msg->line.req.uri;
67         pjsip_sip_uri *sip_ruri;
68
69         if (!PJSIP_URI_SCHEME_IS_SIP(ruri) && !PJSIP_URI_SCHEME_IS_SIPS(ruri)) {
70                 return PJSIP_SC_UNSUPPORTED_URI_SCHEME;
71         }
72
73         sip_ruri = pjsip_uri_get_uri(ruri);
74         ast_copy_pj_str(exten, &sip_ruri->user, MAX_EXTEN_SIZE);
75
76         if (ast_exists_extension(NULL, context, exten, 1, NULL)) {
77                 return PJSIP_SC_OK;
78         }
79         return PJSIP_SC_NOT_FOUND;
80 }
81
82 /*!
83  * \internal
84  * \brief Checks to make sure the request has the correct content type.
85  *
86  * \details This module supports the following media types: "text/plain".
87  * Return unsupported otherwise.
88  *
89  * \param rdata The SIP request
90  */
91 static enum pjsip_status_code check_content_type(const pjsip_rx_data *rdata)
92 {
93         int res;
94         if (rdata->msg_info.msg->body && rdata->msg_info.msg->body->len) {
95                 res = ast_sip_is_content_type(
96                         &rdata->msg_info.msg->body->content_type, "text", "plain");
97         } else {
98                 res = rdata->msg_info.ctype &&
99                         !pj_strcmp2(&rdata->msg_info.ctype->media.type, "text") &&
100                         !pj_strcmp2(&rdata->msg_info.ctype->media.subtype, "plain");
101         }
102
103         return res ? PJSIP_SC_OK : PJSIP_SC_UNSUPPORTED_MEDIA_TYPE;
104 }
105
106 /*!
107  * \internal
108  * \brief Puts pointer past 'sip[s]:' string that should be at the
109  * front of the given 'fromto' parameter
110  *
111  * \param fromto 'From' or 'To' field containing 'sip:'
112  */
113 static const char *skip_sip(const char *fromto)
114 {
115         const char *p;
116
117         /* need to be one past 'sip:' or 'sips:' */
118         if (!(p = strstr(fromto, "sip"))) {
119                 return fromto;
120         }
121
122         p += 3;
123         if (*p == 's') {
124                 ++p;
125         }
126
127         return ++p;
128 }
129
130 /*!
131  * \internal
132  * \brief Retrieves an endpoint if specified in the given 'to'
133  *
134  * Expects the given 'to' to be in one of the following formats:
135  *      sip[s]:endpoint[/aor]
136  *      sip[s]:endpoint[/uri]
137  *      sip[s]:uri <-- will use default outbound endpoint
138  *
139  * If an optional aor is given it will try to find an associated uri
140  * to return.  If an optional uri is given then that will be returned,
141  * otherwise uri will be NULL.
142  *
143  * \param to 'From' or 'To' field with possible endpoint
144  * \param uri Optional uri to return
145  */
146 static struct ast_sip_endpoint* get_outbound_endpoint(
147         const char *to, char **uri)
148 {
149         char *name, *aor_uri;
150         struct ast_sip_endpoint* endpoint;
151         RAII_VAR(struct ast_sip_aor *, aor, NULL, ao2_cleanup);
152         RAII_VAR(struct ast_sip_contact *, contact, NULL, ao2_cleanup);
153
154         name = ast_strdupa(skip_sip(to));
155
156         /* attempt to extract the endpoint name */
157         if ((aor_uri = strchr(name, '/'))) {
158                 /* format was 'endpoint/' */
159                 *aor_uri++ = '\0';
160         } else if ((aor_uri = strchr(name, '@'))) {
161                 /* format was 'endpoint@' - don't use the rest */
162                 *aor_uri = '\0';
163         }
164
165         /* at this point, if name is not empty then it
166            might be an endpoint, so try to retrieve it */
167         if (ast_strlen_zero(name) || !(endpoint = ast_sorcery_retrieve_by_id(
168                       ast_sip_get_sorcery(), "endpoint", name))) {
169                 /* an endpoint was not found, so assume sending directly
170                    to a uri and use the default outbound endpoint */
171                 *uri = ast_strdup(to);
172                 return ast_sip_default_outbound_endpoint();
173         }
174
175         *uri = aor_uri;
176         if (*uri) {
177                 char *end = strchr(*uri, '>');
178                 if (end) {
179                         *end++ = '\0';
180                 }
181
182                 /* if what's in 'uri' is a retrievable aor use the uri on it
183                    instead, otherwise assume what's there is already a uri*/
184                 if ((aor = ast_sip_location_retrieve_aor(*uri)) &&
185                         (contact = ast_sip_location_retrieve_first_aor_contact(aor))) {
186                         *uri = (char*)contact->uri;
187                 }
188                 /* need to copy because underlying uri goes away */
189                 *uri = ast_strdup(*uri);
190         }
191
192         return endpoint;
193 }
194
195 /*!
196  * \internal
197  * \brief Overwrite fields in the outbound 'To' header
198  *
199  * Updates display name in an outgoing To header.
200  *
201  * \param tdata the outbound message data structure
202  * \param to info to copy into the header
203  */
204 static void update_to(pjsip_tx_data *tdata, char *to)
205 {
206         pjsip_name_addr *name_addr = (pjsip_name_addr *)
207                 PJSIP_MSG_TO_HDR(tdata->msg)->uri;
208         pjsip_uri *parsed;
209
210         if ((parsed = pjsip_parse_uri(tdata->pool, to, strlen(to),
211                                       PJSIP_PARSE_URI_AS_NAMEADDR))) {
212                 pjsip_name_addr *parsed_name_addr = (pjsip_name_addr *)parsed;
213                 if (pj_strlen(&parsed_name_addr->display)) {
214                         pj_strdup(tdata->pool, &name_addr->display,
215                                   &parsed_name_addr->display);
216                 }
217         }
218 }
219
220 /*!
221  * \internal
222  * \brief Overwrite fields in the outbound 'From' header
223  *
224  * The outbound 'From' header is created/added in ast_sip_create_request with
225  * default data.  If available that data may be info specified in the 'from_user'
226  * and 'from_domain' options found on the endpoint.  That information will be
227  * overwritten with data in the given 'from' parameter.
228  *
229  * \param tdata the outbound message data structure
230  * \param from info to copy into the header
231  */
232 static void update_from(pjsip_tx_data *tdata, char *from)
233 {
234         pjsip_name_addr *name_addr = (pjsip_name_addr *)
235                 PJSIP_MSG_FROM_HDR(tdata->msg)->uri;
236         pjsip_sip_uri *uri = pjsip_uri_get_uri(name_addr);
237         pjsip_uri *parsed;
238
239         if (ast_strlen_zero(from)) {
240                 return;
241         }
242
243         if ((parsed = pjsip_parse_uri(tdata->pool, from, strlen(from),
244                                       PJSIP_PARSE_URI_AS_NAMEADDR))) {
245                 pjsip_name_addr *parsed_name_addr = (pjsip_name_addr *)parsed;
246                 pjsip_sip_uri *parsed_uri = pjsip_uri_get_uri(parsed_name_addr->uri);
247
248                 if (pj_strlen(&parsed_name_addr->display)) {
249                         pj_strdup(tdata->pool, &name_addr->display,
250                                   &parsed_name_addr->display);
251                 }
252
253                 pj_strdup(tdata->pool, &uri->user, &parsed_uri->user);
254                 pj_strdup(tdata->pool, &uri->host, &parsed_uri->host);
255                 uri->port = parsed_uri->port;
256         } else {
257                 /* assume it is 'user[@domain]' format */
258                 char *domain = strchr(from, '@');
259                 if (domain) {
260                         *domain++ = '\0';
261                         pj_strdup2(tdata->pool, &uri->host, domain);
262                 }
263                 pj_strdup2(tdata->pool, &uri->user, from);
264         }
265 }
266
267 /*!
268  * \internal
269  * \brief Checks if the given msg var name should be blocked.
270  *
271  * \details Some headers are not allowed to be overriden by the user.
272  *  Determine if the given var header name from the user is blocked for
273  *  an outgoing MESSAGE.
274  *
275  * \param name name of header to see if it is blocked.
276  *
277  * \retval TRUE if the given header is blocked.
278  */
279 static int is_msg_var_blocked(const char *name)
280 {
281         int i;
282
283         /*
284          * Don't block Content-Type or Max-Forwards headers because the
285          * user can override them.
286          */
287         static const char *hdr[] = {
288                 "To",
289                 "From",
290                 "Via",
291                 "Route",
292                 "Contact",
293                 "Call-ID",
294                 "CSeq",
295                 "Allow",
296                 "Content-Length",
297                 "Request-URI",
298         };
299
300         for (i = 0; i < ARRAY_LEN(hdr); ++i) {
301                 if (!strcasecmp(name, hdr[i])) {
302                         /* Block addition of this header. */
303                         return 1;
304                 }
305         }
306         return 0;
307 }
308
309 /*!
310  * \internal
311  * \brief Copies any other msg vars over to the request headers.
312  *
313  * \param msg The msg structure to copy headers from
314  * \param tdata The SIP transmission data
315  */
316 static enum pjsip_status_code vars_to_headers(const struct ast_msg *msg, pjsip_tx_data *tdata)
317 {
318         const char *name;
319         const char *value;
320         int max_forwards;
321
322         RAII_VAR(struct ast_msg_var_iterator *, i, ast_msg_var_iterator_init(msg), ast_msg_var_iterator_destroy);
323         while (ast_msg_var_iterator_next(msg, i, &name, &value)) {
324                 if (!strcasecmp(name, "Max-Forwards")) {
325                         /* Decrement Max-Forwards for SIP loop prevention. */
326                         if (sscanf(value, "%30d", &max_forwards) != 1 || --max_forwards == 0) {
327                                 ast_log(LOG_NOTICE, "MESSAGE(Max-Forwards) reached zero.  MESSAGE not sent.\n");
328                                 return -1;
329                         }
330                         sprintf((char*)value, "%d", max_forwards);
331                         ast_sip_add_header(tdata, name, value);
332                 } else if (!is_msg_var_blocked(name)) {
333                         ast_sip_add_header(tdata, name, value);
334                 }
335                 ast_msg_var_unref_current(i);
336         }
337         return PJSIP_SC_OK;
338 }
339
340 /*!
341  * \internal
342  * \brief Copies any other request header data over to ast_msg structure.
343  *
344  * \param rdata The SIP request
345  * \param msg The msg structure to copy headers into
346  */
347 static int headers_to_vars(const pjsip_rx_data *rdata, struct ast_msg *msg)
348 {
349         char *c;
350         char name[MAX_HDR_SIZE];
351         char buf[MAX_HDR_SIZE];
352         int res = 0;
353         pjsip_hdr *h = rdata->msg_info.msg->hdr.next;
354         pjsip_hdr *end= &rdata->msg_info.msg->hdr;
355
356         while (h != end) {
357                 if ((res = pjsip_hdr_print_on(h, buf, sizeof(buf)-1)) > 0) {
358                         buf[res] = '\0';
359                         if ((c = strchr(buf, ':'))) {
360                                 ast_copy_string(buf, ast_skip_blanks(c + 1), sizeof(buf));
361                         }
362
363                         ast_copy_pj_str(name, &h->name, sizeof(name));
364                         if ((res = ast_msg_set_var(msg, name, buf)) != 0) {
365                                 break;
366                         }
367                 }
368                 h = h->next;
369         }
370         return 0;
371 }
372
373 /*!
374  * \internal
375  * \brief Prints the message body into the given char buffer.
376  *
377  * \details Copies body content from the received data into the given
378  * character buffer removing any extra carriage return/line feeds.
379  *
380  * \param rdata The SIP request
381  * \param buf Buffer to fill
382  * \param len The length of the buffer
383  */
384 static int print_body(pjsip_rx_data *rdata, char *buf, int len)
385 {
386         int res;
387
388         if (!rdata->msg_info.msg->body || !rdata->msg_info.msg->body->len) {
389                 return 0;
390         }
391
392         if ((res = rdata->msg_info.msg->body->print_body(
393                      rdata->msg_info.msg->body, buf, len)) < 0) {
394                 return res;
395         }
396
397         /* remove any trailing carriage return/line feeds */
398         while (res > 0 && ((buf[--res] == '\r') || (buf[res] == '\n')));
399
400         buf[++res] = '\0';
401
402         return res;
403 }
404
405 /*!
406  * \internal
407  * \brief Converts a 'sip:' uri to a 'pjsip:' so it can be found by
408  * the message tech.
409  *
410  * \param buf uri to insert 'pjsip' into
411  * \param size length of the uri in buf
412  * \param capacity total size of buf
413  */
414 static char *sip_to_pjsip(char *buf, int size, int capacity)
415 {
416         int count;
417         const char *scheme;
418         char *res = buf;
419
420         /* remove any wrapping brackets */
421         if (*buf == '<') {
422                 ++buf;
423                 --size;
424         }
425
426         scheme = strncmp(buf, "sip", 3) ? "pjsip:" : "pj";
427         count = strlen(scheme);
428         if (count + size >= capacity) {
429                 ast_log(LOG_WARNING, "Unable to handle MESSAGE- incoming uri "
430                         "too large for given buffer\n");
431                 return NULL;
432         }
433
434         memmove(res + count, buf, size);
435         memcpy(res, scheme, count);
436
437         buf += size - 1;
438         if (*buf == '>') {
439                 *buf = '\0';
440         }
441
442         return res;
443 }
444
445 /*!
446  * \internal
447  * \brief Converts a pjsip_rx_data structure to an ast_msg structure.
448  *
449  * \details Attempts to fill in as much information as possible into the given
450  * msg structure copied from the given request data.
451  *
452  * \param rdata The SIP request
453  * \param msg The asterisk message structure to fill in.
454  */
455 static enum pjsip_status_code rx_data_to_ast_msg(pjsip_rx_data *rdata, struct ast_msg *msg)
456 {
457
458 #define CHECK_RES(z_) do { if (z_) { ast_msg_destroy(msg); \
459                 return PJSIP_SC_INTERNAL_SERVER_ERROR; } } while (0)
460
461         int size;
462         char buf[MAX_BODY_SIZE];
463         pjsip_name_addr *name_addr;
464         const char *field;
465         pjsip_status_code code;
466         struct ast_sip_endpoint *endpt = ast_pjsip_rdata_get_endpoint(rdata);
467
468         /* make sure there is an appropriate context and extension*/
469         if ((code = get_destination(rdata, endpt->context, buf)) != PJSIP_SC_OK) {
470                 return code;
471         }
472
473         CHECK_RES(ast_msg_set_context(msg, "%s", endpt->context));
474         CHECK_RES(ast_msg_set_exten(msg, "%s", buf));
475
476         /* to header */
477         name_addr = (pjsip_name_addr *)rdata->msg_info.to->uri;
478         if ((size = pjsip_uri_print(PJSIP_URI_IN_FROMTO_HDR, name_addr, buf, sizeof(buf)-1)) > 0) {
479                 buf[size] = '\0';
480                 /* prepend the tech */
481                 CHECK_RES(ast_msg_set_to(msg, "%s", sip_to_pjsip(buf, ++size, sizeof(buf)-1)));
482         }
483
484         /* from header */
485         name_addr = (pjsip_name_addr *)rdata->msg_info.from->uri;
486         if ((size = pjsip_uri_print(PJSIP_URI_IN_FROMTO_HDR, name_addr, buf, sizeof(buf)-1)) > 0) {
487                 buf[size] = '\0';
488                 CHECK_RES(ast_msg_set_from(msg, "%s", buf));
489         }
490
491         /* receive address */
492         field = pj_sockaddr_print(&rdata->pkt_info.src_addr, buf, sizeof(buf)-1, 1);
493         CHECK_RES(ast_msg_set_var(msg, "PJSIP_RECVADDR", field));
494
495         /* body */
496         if (print_body(rdata, buf, sizeof(buf) - 1) > 0) {
497                 CHECK_RES(ast_msg_set_body(msg, "%s", buf));
498         }
499
500         /* endpoint name */
501         if (endpt->id.self.name.valid) {
502                 CHECK_RES(ast_msg_set_var(msg, "PJSIP_PEERNAME", endpt->id.self.name.str));
503         }
504
505         CHECK_RES(headers_to_vars(rdata, msg));
506
507         return PJSIP_SC_OK;
508 }
509
510 struct msg_data {
511         struct ast_msg *msg;
512         char *to;
513         char *from;
514 };
515
516 static void msg_data_destroy(void *obj)
517 {
518         struct msg_data *mdata = obj;
519
520         ast_free(mdata->from);
521         ast_free(mdata->to);
522
523         ast_msg_destroy(mdata->msg);
524 }
525
526 static struct msg_data* msg_data_create(const struct ast_msg *msg, const char *to, const char *from)
527 {
528         char *tag;
529         struct msg_data *mdata = ao2_alloc(sizeof(*mdata), msg_data_destroy);
530
531         if (!mdata) {
532                 return NULL;
533         }
534
535         /* typecast to suppress const warning */
536         mdata->msg = ast_msg_ref((struct ast_msg*)msg);
537
538         /* starts with 'pjsip:' the 'pj' needs to be removed and maybe even
539            the entire string. */
540         if (!(to = strchr(to, ':'))) {
541                 ao2_ref(mdata, -1);
542                 return NULL;
543         }
544
545         /* if there is another sip in the uri then we are good,
546            otherwise it needs a sip: in front */
547         mdata->to = to == skip_sip(to) ? ast_strdup(to - 3) :
548                 ast_strdup(++to);
549         mdata->from = ast_strdup(from);
550
551         /* sometimes from can still contain the tag at this point, so remove it */
552         if ((tag = strchr(mdata->from, ';'))) {
553                 *tag = '\0';
554         }
555
556         return mdata;
557 }
558
559 static int msg_send(void *data)
560 {
561         RAII_VAR(struct msg_data *, mdata, data, ao2_cleanup);
562
563         const struct ast_sip_body body = {
564                 .type = "text",
565                 .subtype = "plain",
566                 .body_text = ast_msg_get_body(mdata->msg)
567         };
568
569         pjsip_tx_data *tdata;
570         RAII_VAR(char *, uri, NULL, ast_free);
571         RAII_VAR(struct ast_sip_endpoint *, endpoint, get_outbound_endpoint(
572                          mdata->to, &uri), ao2_cleanup);
573
574         if (!endpoint) {
575                 ast_log(LOG_ERROR, "PJSIP MESSAGE - Could not find endpoint and "
576                         "no default outbound endpoint configured\n");
577                 return -1;
578         }
579
580         if (ast_sip_create_request("MESSAGE", NULL, endpoint, uri, &tdata)) {
581                 ast_log(LOG_ERROR, "PJSIP MESSAGE - Could not create request\n");
582                 return -1;
583         }
584
585         update_to(tdata, mdata->to);
586         update_from(tdata, mdata->from);
587
588         if (ast_sip_add_body(tdata, &body)) {
589                 pjsip_tx_data_dec_ref(tdata);
590                 ast_log(LOG_ERROR, "PJSIP MESSAGE - Could not add body to request\n");
591                 return -1;
592         }
593
594         vars_to_headers(mdata->msg, tdata);
595
596         if (ast_sip_send_request(tdata, NULL, endpoint)) {
597                 ast_log(LOG_ERROR, "PJSIP MESSAGE - Could not send request\n");
598                 return -1;
599         }
600
601         return PJ_SUCCESS;
602 }
603
604 static int sip_msg_send(const struct ast_msg *msg, const char *to, const char *from)
605 {
606         struct msg_data *mdata;
607
608         if (ast_strlen_zero(to)) {
609                 ast_log(LOG_ERROR, "SIP MESSAGE - a 'To' URI  must be specified\n");
610                 return -1;
611         }
612
613         if (!(mdata = msg_data_create(msg, to, from)) ||
614             ast_sip_push_task(NULL, msg_send, mdata)) {
615                 ao2_ref(mdata, -1);
616                 return -1;
617         }
618         return 0;
619 }
620
621 static const struct ast_msg_tech msg_tech = {
622         .name = "pjsip",
623         .msg_send = sip_msg_send,
624 };
625
626 static pj_status_t send_response(pjsip_rx_data *rdata, enum pjsip_status_code code,
627                                  pjsip_dialog *dlg, pjsip_transaction *tsx)
628 {
629         pjsip_tx_data *tdata;
630         pj_status_t status;
631         pjsip_response_addr res_addr;
632
633         pjsip_endpoint *endpt = ast_sip_get_pjsip_endpoint();
634
635         status = pjsip_endpt_create_response(endpt, rdata, code, NULL, &tdata);
636         if (status != PJ_SUCCESS) {
637                 ast_log(LOG_ERROR, "Unable to create response (%d)\n", status);
638                 return status;
639         }
640
641         if (dlg && tsx) {
642                 status = pjsip_dlg_send_response(dlg, tsx, tdata);
643         } else {
644                 /* Get where to send request. */
645                 status = pjsip_get_response_addr(tdata->pool, rdata, &res_addr);
646                 if (status != PJ_SUCCESS) {
647                         ast_log(LOG_ERROR, "Unable to get response address (%d)\n", status);
648                         return status;
649                 }
650                 status = pjsip_endpt_send_response(endpt, &res_addr, tdata, NULL, NULL);
651         }
652
653         if (status != PJ_SUCCESS) {
654                 ast_log(LOG_ERROR, "Unable to send response (%d)\n", status);
655         }
656
657         return status;
658 }
659
660 static pj_bool_t module_on_rx_request(pjsip_rx_data *rdata)
661 {
662         enum pjsip_status_code code;
663         struct ast_msg *msg;
664
665         /* if not a MESSAGE, don't handle */
666         if (pjsip_method_cmp(&rdata->msg_info.msg->line.req.method, &pjsip_message_method)) {
667                 return PJ_FALSE;
668         }
669
670         msg = ast_msg_alloc();
671         if (!msg) {
672                 send_response(rdata, PJSIP_SC_INTERNAL_SERVER_ERROR, NULL, NULL);
673                 return PJ_TRUE;
674         }
675
676         if ((code = check_content_type(rdata)) != PJSIP_SC_OK) {
677                 send_response(rdata, code, NULL, NULL);
678                 return PJ_TRUE;
679         }
680
681         if ((code = rx_data_to_ast_msg(rdata, msg)) == PJSIP_SC_OK) {
682                 /* send it to the dialplan */
683                 ast_msg_queue(msg);
684                 code = PJSIP_SC_ACCEPTED;
685         }
686
687         send_response(rdata, code, NULL, NULL);
688         return PJ_TRUE;
689 }
690
691 static int incoming_in_dialog_request(struct ast_sip_session *session, struct pjsip_rx_data *rdata)
692 {
693         char buf[MAX_BODY_SIZE];
694         enum pjsip_status_code code;
695         struct ast_frame f;
696
697         pjsip_dialog *dlg = session->inv_session->dlg;
698         pjsip_transaction *tsx = pjsip_rdata_get_tsx(rdata);
699
700         if ((code = check_content_type(rdata)) != PJSIP_SC_OK) {
701                 send_response(rdata, code, dlg, tsx);
702                 return 0;
703         }
704
705         if (print_body(rdata, buf, sizeof(buf)-1) < 1) {
706                 /* invalid body size */
707                 return 0;
708         }
709
710         ast_debug(3, "Received in dialog SIP message\n");
711
712         memset(&f, 0, sizeof(f));
713         f.frametype = AST_FRAME_TEXT;
714         f.subclass.integer = 0;
715         f.offset = 0;
716         f.data.ptr = buf;
717         f.datalen = strlen(buf) + 1;
718         ast_queue_frame(session->channel, &f);
719
720         send_response(rdata, PJSIP_SC_ACCEPTED, dlg, tsx);
721         return 0;
722 }
723
724 static struct ast_sip_session_supplement messaging_supplement = {
725         .method = "MESSAGE",
726         .incoming_request = incoming_in_dialog_request
727 };
728
729 static pjsip_module messaging_module = {
730         .name = {"Messaging Module", 16},
731         .id = -1,
732         .priority = PJSIP_MOD_PRIORITY_APPLICATION,
733         .on_rx_request = module_on_rx_request,
734 };
735
736 static int load_module(void)
737 {
738         if (ast_sip_register_service(&messaging_module) != PJ_SUCCESS) {
739                 return AST_MODULE_LOAD_DECLINE;
740         }
741
742         if (pjsip_endpt_add_capability(ast_sip_get_pjsip_endpoint(),
743                                        NULL, PJSIP_H_ALLOW, NULL, 1,
744                                        &pjsip_message_method.name) != PJ_SUCCESS) {
745
746                 ast_sip_unregister_service(&messaging_module);
747                 return AST_MODULE_LOAD_DECLINE;
748         }
749
750         if (ast_msg_tech_register(&msg_tech)) {
751                 ast_sip_unregister_service(&messaging_module);
752                 return AST_MODULE_LOAD_DECLINE;
753         }
754
755         ast_sip_session_register_supplement(&messaging_supplement);
756         return AST_MODULE_LOAD_SUCCESS;
757 }
758
759 static int unload_module(void)
760 {
761         ast_sip_session_unregister_supplement(&messaging_supplement);
762         ast_msg_tech_unregister(&msg_tech);
763         ast_sip_unregister_service(&messaging_module);
764         return 0;
765 }
766
767 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_LOAD_ORDER, "PJSIP Messaging Support",
768                 .load = load_module,
769                 .unload = unload_module,
770                 .load_pri = AST_MODPRI_APP_DEPEND,
771                );