6 * Copyright (C) 2010 SIPE Project <http://sipe.sourceforge.net/>
7 * Copyright (C) 2008 Novell, Inc.
8 * Copyright (C) 2005 Thomas Butter <butter@uni-mannheim.de>
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 2 of the License, or
13 * (at your option) any later version.
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
33 #include "sipe-backend.h"
34 #include "sipe-mime.h"
35 #include "sipe-utils.h"
37 struct sipmsg
*sipmsg_parse_msg(const gchar
*msg
) {
38 const char *tmp
= strstr(msg
, "\r\n\r\n");
44 line
= g_strndup(msg
, tmp
- msg
);
46 smsg
= sipmsg_parse_header(line
);
47 smsg
->body
= g_strdup(tmp
+ 4);
53 struct sipmsg
*sipmsg_parse_header(const gchar
*header
) {
54 struct sipmsg
*msg
= g_new0(struct sipmsg
,1);
55 gchar
**lines
= g_strsplit(header
,"\r\n",0);
57 const gchar
*contentlength
;
63 parts
= g_strsplit(lines
[0], " ", 3);
64 if(!parts
[0] || !parts
[1] || !parts
[2]) {
70 if(strstr(parts
[0],"SIP") || strstr(parts
[0],"HTTP")) { /* numeric response */
71 msg
->method
= g_strdup(parts
[2]);
72 msg
->response
= strtol(parts
[1],NULL
,10);
73 } else { /* request */
74 msg
->method
= g_strdup(parts
[0]);
75 msg
->target
= g_strdup(parts
[1]);
79 if (sipe_utils_parse_lines(&msg
->headers
, lines
+ 1, ":") == FALSE
) {
85 contentlength
= sipmsg_find_header(msg
, "Content-Length");
87 msg
->bodylen
= strtol(contentlength
,NULL
,10);
89 SIPE_DEBUG_FATAL_NOFORMAT("sipmsg_parse_header(): Content-Length header not found");
94 tmp
= sipmsg_find_header(msg
, "CSeq");
96 /* SHOULD NOT HAPPEN */
99 parts
= g_strsplit(tmp
, " ", 2);
100 msg
->method
= g_strdup(parts
[1]);
107 char *sipmsg_to_string(const struct sipmsg
*msg
) {
109 GString
*outstr
= g_string_new("");
110 struct sipnameval
*elem
;
113 g_string_append_printf(outstr
, "SIP/2.0 %d Unknown\r\n",
116 g_string_append_printf(outstr
, "%s %s SIP/2.0\r\n",
117 msg
->method
, msg
->target
);
122 /*Todo: remove the LFCR in a good way*/
123 /*if(sipe_strequal(elem->name,"Proxy-Authorization"))
124 g_string_append_printf(outstr, "%s: %s", elem->name,
127 g_string_append_printf(outstr
, "%s: %s\r\n", elem
->name
,
129 cur
= g_slist_next(cur
);
132 g_string_append_printf(outstr
, "\r\n%s", msg
->bodylen
? msg
->body
: "");
134 return g_string_free(outstr
, FALSE
);
138 * Adds header to current message headers at specified position
140 void sipmsg_add_header_now_pos(struct sipmsg
*msg
, const gchar
*name
, const gchar
*value
, int pos
) {
141 struct sipnameval
*element
= g_new0(struct sipnameval
,1);
143 /* SANITY CHECK: the calling code must be fixed if this happens! */
145 SIPE_DEBUG_ERROR("sipmsg_add_header_now_pos: NULL value for %s (%d)",
150 element
->name
= g_strdup(name
);
151 element
->value
= g_strdup(value
);
152 msg
->headers
= g_slist_insert(msg
->headers
, element
,pos
);
156 * Adds header to current message headers
158 void sipmsg_add_header_now(struct sipmsg
*msg
, const gchar
*name
, const gchar
*value
) {
159 struct sipnameval
*element
= g_new0(struct sipnameval
,1);
161 /* SANITY CHECK: the calling code must be fixed if this happens! */
163 SIPE_DEBUG_ERROR("sipmsg_add_header_now: NULL value for %s",
168 element
->name
= g_strdup(name
);
169 element
->value
= g_strdup(value
);
170 msg
->headers
= g_slist_append(msg
->headers
, element
);
174 * Adds header to separate storage for future merge
176 void sipmsg_add_header(struct sipmsg
*msg
, const gchar
*name
, const gchar
*value
) {
177 struct sipnameval
*element
= g_new0(struct sipnameval
,1);
179 /* SANITY CHECK: the calling code must be fixed if this happens! */
181 SIPE_DEBUG_ERROR("sipmsg_add_header: NULL value for %s", name
);
185 element
->name
= g_strdup(name
);
186 element
->value
= g_strdup(value
);
187 msg
->new_headers
= g_slist_append(msg
->new_headers
, element
);
191 * Removes header if it's not in keepers array
193 void sipmsg_strip_headers(struct sipmsg
*msg
, const gchar
*keepers
[]) {
195 struct sipnameval
*elem
;
197 entry
= msg
->headers
;
200 gboolean keeper
= FALSE
;
204 if (!g_strcasecmp(elem
->name
, keepers
[i
])) {
212 GSList
*to_delete
= entry
;
213 SIPE_DEBUG_INFO("sipmsg_strip_headers: removing %s", elem
->name
);
214 entry
= g_slist_next(entry
);
215 msg
->headers
= g_slist_delete_link(msg
->headers
, to_delete
);
220 entry
= g_slist_next(entry
);
226 * Merges newly added headers to message
228 void sipmsg_merge_new_headers(struct sipmsg
*msg
) {
229 while(msg
->new_headers
) {
230 msg
->headers
= g_slist_append(msg
->headers
, msg
->new_headers
->data
);
231 msg
->new_headers
= g_slist_remove(msg
->new_headers
, msg
->new_headers
->data
);
235 void sipmsg_free(struct sipmsg
*msg
) {
236 sipe_utils_nameval_free(msg
->headers
);
237 sipe_utils_nameval_free(msg
->new_headers
);
238 g_free(msg
->signature
);
247 void sipmsg_remove_header_now(struct sipmsg
*msg
, const gchar
*name
) {
248 struct sipnameval
*elem
;
249 GSList
*tmp
= msg
->headers
;
252 // OCS2005 can send the same header in either all caps or mixed case
253 if (sipe_strcase_equal(elem
->name
, name
)) {
254 msg
->headers
= g_slist_remove(msg
->headers
, elem
);
260 tmp
= g_slist_next(tmp
);
265 const gchar
*sipmsg_find_header(const struct sipmsg
*msg
, const gchar
*name
) {
266 return sipe_utils_nameval_find_instance (msg
->headers
, name
, 0);
269 const gchar
*sipmsg_find_header_instance(const struct sipmsg
*msg
, const gchar
*name
, int which
) {
270 return sipe_utils_nameval_find_instance(msg
->headers
, name
, which
);
273 gchar
*sipmsg_find_part_of_header(const char *hdr
, const char * before
, const char * after
, const char * def
) {
281 //printf("partof %s w/ %s before and %s after\n", hdr, before, after);
283 tmp
= before
== NULL
? hdr
: strstr(hdr
, before
);
285 //printf ("not found, returning null\n");
289 if (before
!= NULL
) {
290 tmp
+= strlen(before
);
291 //printf ("tmp now %s\n", tmp);
294 if (after
!= NULL
&& (tmp2
= strstr(tmp
, after
))) {
295 gchar
* res
= g_strndup(tmp
, tmp2
- tmp
);
296 //printf("returning %s\n", res);
299 res2
= g_strdup(tmp
);
300 //printf("returning %s\n", res2);
305 * Parse EndPoints header from INVITE request
306 * Returns a list of end points: contact URI plus optional epid.
307 * You must free the values and the list.
310 * EndPoints: "alice alisson" <sip:alice@atlanta.local>, <sip:bob@atlanta.local>;epid=ebca82d94d, <sip:carol@atlanta.local>
311 * EndPoints: "alice, alisson" <sip:alice@atlanta.local>, <sip:bob@atlanta.local>
312 * EndPoints: "alice alisson" <sip:alice@atlanta.local>, "Super, Man" <sip:super@atlanta.local>
314 * @param header (in) EndPoints header contents
316 * @return GSList with struct sipendpoint as elements
318 GSList
*sipmsg_parse_endpoints_header(const gchar
*header
)
321 gchar
**parts
= g_strsplit(header
, ",", 0);
325 for (i
= 0; (part
= parts
[i
]) != NULL
; i
++) {
326 /* Does the part contain a URI? */
327 gchar
*contact
= sipmsg_find_part_of_header(part
, "<", ">", NULL
);
329 struct sipendpoint
*end_point
= g_new(struct sipendpoint
, 1);
330 end_point
->contact
= contact
;
331 end_point
->epid
= sipmsg_find_part_of_header(part
, "epid=", NULL
, NULL
);
332 list
= g_slist_append(list
, end_point
);
341 * sipmsg_find_auth_header will return the particular WWW-Authenticate
342 * header specified by *name.
344 * Use this function when you want to look for a specific authentication
345 * method such as NTLM or Kerberos
348 gchar
*sipmsg_find_auth_header(struct sipmsg
*msg
, const gchar
*name
) {
350 struct sipnameval
*elem
;
351 int name_len
= strlen(name
);
355 /* SIPE_DEBUG_INFO("Current header: %s", elem->value); */
356 if (elem
&& elem
->name
&&
357 (sipe_strcase_equal(elem
->name
,"WWW-Authenticate") ||
358 sipe_strcase_equal(elem
->name
,"Authentication-Info")) ) {
359 if (!g_strncasecmp((gchar
*)elem
->value
, name
, name_len
)) {
360 /* SIPE_DEBUG_INFO("elem->value: %s", elem->value); */
364 /* SIPE_DEBUG_INFO_NOFORMAT("moving to next header"); */
365 tmp
= g_slist_next(tmp
);
367 SIPE_DEBUG_INFO("auth header '%s' not found.", name
);
371 gchar
*sipmsg_get_x_mms_im_format(gchar
*msgr
) {
373 gsize msgr_dec64_len
;
378 gchar
*x_mms_im_format
;
381 if (!msgr
) return NULL
;
382 msgr2
= g_strdup(msgr
);
383 while (strlen(msgr2
) % 4 != 0) {
384 gchar
*tmp_msgr2
= msgr2
;
385 msgr2
= g_strdup_printf("%s=", msgr2
);
388 msgr_dec64
= g_base64_decode(msgr2
, &msgr_dec64_len
);
389 msgr_utf8
= g_convert((gchar
*) msgr_dec64
, msgr_dec64_len
, "UTF-8", "UTF-16LE", NULL
, NULL
, NULL
);
392 lines
= g_strsplit(msgr_utf8
,"\r\n\r\n",0);
394 //@TODO: make extraction like parsing of message headers.
395 parts
= g_strsplit(lines
[0],"X-MMS-IM-Format:",0);
396 x_mms_im_format
= g_strdup(parts
[1]);
399 tmp
= x_mms_im_format
;
400 if (x_mms_im_format
) {
401 while(*x_mms_im_format
==' ' || *x_mms_im_format
=='\t') x_mms_im_format
++;
403 x_mms_im_format
= g_strdup(x_mms_im_format
);
405 return x_mms_im_format
;
408 gchar
*sipmsg_get_msgr_string(gchar
*x_mms_im_format
) {
410 gsize msgr_utf16_len
;
416 if (!x_mms_im_format
) return NULL
;
417 msgr_orig
= g_strdup_printf("X-MMS-IM-Format: %s\r\n\r\n", x_mms_im_format
);
418 msgr_utf16
= g_convert(msgr_orig
, -1, "UTF-16LE", "UTF-8", NULL
, &msgr_utf16_len
, NULL
);
420 msgr_enc
= g_base64_encode((guchar
*) msgr_utf16
, msgr_utf16_len
);
422 len
= strlen(msgr_enc
);
423 while (msgr_enc
[len
- 1] == '=') len
--;
424 res
= g_strndup(msgr_enc
, len
);
429 gchar
*sipmsg_apply_x_mms_im_format(const char *x_mms_im_format
, gchar
*body
) {
433 if (!x_mms_im_format
) {
434 return body
? g_strdup(body
) : NULL
;
436 msn_parse_format(x_mms_im_format
, &pre
, &post
);
437 res
= g_strdup_printf("%s%s%s", pre
? pre
: "", body
? body
: "", post
? post
: "");
443 struct html_message_data
{
444 gchar
*ms_text_format
;
449 static void get_html_message_mime_cb(gpointer user_data
,
450 const GSList
*fields
,
454 const gchar
*type
= sipe_utils_nameval_find(fields
, "Content-Type");
455 struct html_message_data
*data
= user_data
;
457 if (!data
->preferred
) {
458 gboolean copy
= FALSE
;
460 /* preferred format */
461 if (g_str_has_prefix(type
, "text/html")) {
463 data
->preferred
= TRUE
;
465 /* fallback format */
466 } else if (g_str_has_prefix(type
, "text/plain")) {
471 g_free(data
->ms_text_format
);
473 data
->ms_text_format
= g_strdup(type
);
474 data
->body
= g_strndup(body
, length
);
479 /* ms-text-format: text/plain; charset=UTF-8;msgr=WAAtAE0...DIADQAKAA0ACgA;ms-body=SGk= */
480 gchar
*get_html_message(const gchar
*ms_text_format_in
, const gchar
*body_in
)
484 gchar
*ms_text_format
= NULL
;
487 if (g_str_has_prefix(ms_text_format_in
, "multipart/related") ||
488 g_str_has_prefix(ms_text_format_in
, "multipart/alternative")) {
489 struct html_message_data data
= { NULL
, NULL
, FALSE
};
491 sipe_mime_parts_foreach(ms_text_format_in
, body_in
,
492 get_html_message_mime_cb
, &data
);
494 ms_text_format
= data
.ms_text_format
;
498 ms_text_format
= g_strdup(ms_text_format_in
);
499 body
= g_strdup(body_in
);
505 gchar
*tmp
= sipmsg_find_part_of_header(ms_text_format
, "ms-body=", NULL
, NULL
);
508 g_free(ms_text_format
);
511 res
= (gchar
*) g_base64_decode(tmp
, &len
);
514 g_free(ms_text_format
);
519 if (!g_str_has_prefix(ms_text_format
, "text/html")) { // NOT html
521 res
= g_markup_escape_text(res
, -1); // as this is not html
525 msgr
= sipmsg_find_part_of_header(ms_text_format
, "msgr=", ";", NULL
);
527 gchar
*x_mms_im_format
= sipmsg_get_x_mms_im_format(msgr
);
530 res
= sipmsg_apply_x_mms_im_format(x_mms_im_format
, res
);
532 g_free(x_mms_im_format
);
535 g_free(ms_text_format
);
544 //------------------------------------------------------------------------------------------
545 //TEMP solution to include it here (copy from purple's msn protocol
546 //How to reuse msn's util methods from sipe?
548 /* from internal.h */
550 #define BUF_LEN MSG_LEN
553 gchar
*sipmsg_uri_unescape(const gchar
*string
)
555 gchar
*unescaped
, *tmp
;
557 if (!string
) return(NULL
);
559 #if GLIB_CHECK_VERSION(2,16,0)
560 unescaped
= g_uri_unescape_string(string
, NULL
);
562 /* loosely based on libpurple/util.c:purple_url_decode() */
565 gsize len
= strlen(string
);
567 unescaped
= g_malloc(len
+ 1);
570 if ((len
>= 2) && (c
== '%')) {
572 strncpy(hex
, string
, 2);
574 c
= strtol(hex
, NULL
, 16);
584 if (!g_utf8_validate(unescaped
, -1, (const gchar
**)&tmp
))
591 msn_parse_format(const char *mime
, char **pre_ret
, char **post_ret
)
594 GString
*pre
= g_string_new(NULL
);
595 GString
*post
= g_string_new(NULL
);
596 unsigned int colors
[3];
598 if (pre_ret
!= NULL
) *pre_ret
= NULL
;
599 if (post_ret
!= NULL
) *post_ret
= NULL
;
601 cur
= strstr(mime
, "FN=");
603 if (cur
&& (*(cur
= cur
+ 3) != ';'))
605 pre
= g_string_append(pre
, "<FONT FACE=\"");
607 while (*cur
&& *cur
!= ';')
609 pre
= g_string_append_c(pre
, *cur
);
613 pre
= g_string_append(pre
, "\">");
614 post
= g_string_prepend(post
, "</FONT>");
617 cur
= strstr(mime
, "EF=");
619 if (cur
&& (*(cur
= cur
+ 3) != ';'))
621 while (*cur
&& *cur
!= ';')
623 pre
= g_string_append_c(pre
, '<');
624 pre
= g_string_append_c(pre
, *cur
);
625 pre
= g_string_append_c(pre
, '>');
626 post
= g_string_prepend_c(post
, '>');
627 post
= g_string_prepend_c(post
, *cur
);
628 post
= g_string_prepend_c(post
, '/');
629 post
= g_string_prepend_c(post
, '<');
634 cur
= strstr(mime
, "CO=");
636 if (cur
&& (*(cur
= cur
+ 3) != ';'))
640 i
= sscanf(cur
, "%02x%02x%02x;", &colors
[0], &colors
[1], &colors
[2]);
653 unsigned int temp
= colors
[0];
655 colors
[0] = colors
[1];
661 unsigned int temp
= colors
[2];
663 colors
[2] = colors
[0];
667 /* hh is undefined in mingw's gcc 4.4
668 * https://sourceforge.net/tracker/index.php?func=detail&aid=2818436&group_id=2435&atid=102435
670 g_snprintf(tag
, sizeof(tag
),
671 "<FONT COLOR=\"#%02x%02x%02x\">",
672 (unsigned char)colors
[0], (unsigned char)colors
[1], (unsigned char)colors
[2]);
674 pre
= g_string_append(pre
, tag
);
675 post
= g_string_prepend(post
, "</FONT>");
679 cur
= strstr(mime
, "RL=");
681 if (cur
&& (*(cur
= cur
+ 3) != ';'))
685 /* RTL text was received */
686 pre
= g_string_append(pre
, "<SPAN style=\"direction:rtl;text-align:right;\">");
687 post
= g_string_prepend(post
, "</SPAN>");
691 cur
= sipmsg_uri_unescape(pre
->str
);
692 g_string_free(pre
, TRUE
);
699 cur
= sipmsg_uri_unescape(post
->str
);
700 g_string_free(post
, TRUE
);
702 if (post_ret
!= NULL
)
709 encode_spaces(const char *str
)
711 static char buf
[BUF_LEN
];
715 g_return_val_if_fail(str
!= NULL
, NULL
);
717 for (c
= str
, d
= buf
; *c
!= '\0'; c
++)
734 msn_import_html(const char *html
, char **attributes
, char **message
)
736 int len
, retcount
= 0;
739 char *fontface
= NULL
;
742 char direction
= '0';
744 gboolean has_bold
= FALSE
;
745 gboolean has_italic
= FALSE
;
746 gboolean has_underline
= FALSE
;
747 gboolean has_strikethrough
= FALSE
;
749 g_return_if_fail(html
!= NULL
);
750 g_return_if_fail(attributes
!= NULL
);
751 g_return_if_fail(message
!= NULL
);
754 msg
= g_malloc0(len
+ 1);
756 memset(fontcolor
, 0, sizeof(fontcolor
));
757 strcat(fontcolor
, "0");
758 memset(fonteffect
, 0, sizeof(fonteffect
));
760 for (c
= html
; *c
!= '\0';)
764 if (!g_ascii_strncasecmp(c
+ 1, "br>", 3))
766 msg
[retcount
++] = '\r';
767 msg
[retcount
++] = '\n';
770 else if (!g_ascii_strncasecmp(c
+ 1, "i>", 2))
774 strcat(fonteffect
, "I");
779 else if (!g_ascii_strncasecmp(c
+ 1, "b>", 2))
783 strcat(fonteffect
, "B");
788 else if (!g_ascii_strncasecmp(c
+ 1, "u>", 2))
792 strcat(fonteffect
, "U");
793 has_underline
= TRUE
;
797 else if (!g_ascii_strncasecmp(c
+ 1, "s>", 2))
799 if (!has_strikethrough
)
801 strcat(fonteffect
, "S");
802 has_strikethrough
= TRUE
;
806 else if (!g_ascii_strncasecmp(c
+ 1, "a href=\"", 8))
810 if (!g_ascii_strncasecmp(c
, "mailto:", 7))
813 while ((*c
!= '\0') && g_ascii_strncasecmp(c
, "\">", 2))
814 msg
[retcount
++] = *c
++;
819 /* ignore descriptive string */
820 while ((*c
!= '\0') && g_ascii_strncasecmp(c
, "</a>", 4))
826 else if (!g_ascii_strncasecmp(c
+ 1, "span", 4))
828 /* Bi-directional text support using CSS properties in span tags */
831 while (*c
!= '\0' && *c
!= '>')
835 if (!g_ascii_strncasecmp(c
, "dir=\"rtl\"", 9))
840 else if (!g_ascii_strncasecmp(c
, "style=\"", 7))
842 /* Parse inline CSS attributes */
845 while (*(c
+ attr_len
) != '\0' && *(c
+ attr_len
) != '"')
847 if (*(c
+ attr_len
) == '"')
849 char *css_attributes
;
851 css_attributes
= g_strndup(c
, attr_len
);
852 attr_dir
= sipe_backend_markup_css_property(css_attributes
, "direction");
853 g_free(css_attributes
);
854 if (attr_dir
&& (!g_ascii_strncasecmp(attr_dir
, "RTL", 3)))
868 else if (!g_ascii_strncasecmp(c
+ 1, "font", 4))
872 while ((*c
!= '\0') && !g_ascii_strncasecmp(c
, " ", 1))
875 if (!g_ascii_strncasecmp(c
, "color=\"#", 7))
879 fontcolor
[0] = *(c
+ 4);
880 fontcolor
[1] = *(c
+ 5);
881 fontcolor
[2] = *(c
+ 2);
882 fontcolor
[3] = *(c
+ 3);
884 fontcolor
[5] = *(c
+ 1);
888 else if (!g_ascii_strncasecmp(c
, "face=\"", 6))
890 const char *end
= NULL
;
891 const char *comma
= NULL
;
892 unsigned int namelen
= 0;
895 end
= strchr(c
, '\"');
896 comma
= strchr(c
, ',');
898 if (comma
== NULL
|| comma
> end
)
899 namelen
= (unsigned int)(end
- c
);
901 namelen
= (unsigned int)(comma
- c
);
904 fontface
= g_strndup(c
, namelen
);
909 /* Drop all unrecognized/misparsed font tags */
910 while ((*c
!= '\0') && g_ascii_strncasecmp(c
, "\">", 2))
919 while ((*c
!= '\0') && (*c
!= '>'))
927 if (!g_ascii_strncasecmp(c
, "<", 4))
929 msg
[retcount
++] = '<';
932 else if (!g_ascii_strncasecmp(c
, ">", 4))
934 msg
[retcount
++] = '>';
937 else if (!g_ascii_strncasecmp(c
, " ", 6))
939 msg
[retcount
++] = ' ';
942 else if (!g_ascii_strncasecmp(c
, """, 6))
944 msg
[retcount
++] = '"';
947 else if (!g_ascii_strncasecmp(c
, "&", 5))
949 msg
[retcount
++] = '&';
952 else if (!g_ascii_strncasecmp(c
, "'", 6))
954 msg
[retcount
++] = '\'';
958 msg
[retcount
++] = *c
++;
961 msg
[retcount
++] = *c
++;
964 if (fontface
== NULL
)
965 fontface
= g_strdup("MS Sans Serif");
967 *attributes
= g_strdup_printf("FN=%s; EF=%s; CO=%s; PF=0; RL=%c",
968 encode_spaces(fontface
),
969 fonteffect
, fontcolor
, direction
);