/*  The oSIP library implements the Session Initiation Protocol (SIP -rfc3261-)  Copyright (C) 2001,2002,2003  Aymeric MOIZARD jack@atosc.org    This library is free software; you can redistribute it and/or  modify it under the terms of the GNU Lesser General Public  License as published by the Free Software Foundation; either  version 2.1 of the License, or (at your option) any later version.    This library is distributed in the hope that it will be useful,  but WITHOUT ANY WARRANTY; without even the implied warranty of  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  Lesser General Public License for more details.    You should have received a copy of the GNU Lesser General Public  License along with this library; if not, write to the Free Software  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA*/#include <osipparser2/osip_port.h>#include <osipparser2/osip_message.h>#include <stdlib.h>#include <stdio.h>/* allocate a new url structure *//* OUTPUT: osip_uri_t *url | structure to save results.   *//* OUTPUT: err_t *err | structure to store error.   *//* return -1 on error */intosip_uri_init (osip_uri_t ** url){  *url = (osip_uri_t *) osip_malloc (sizeof (osip_uri_t));  if (*url == NULL)    return -1;  (*url)->scheme = NULL;  (*url)->username = NULL;  (*url)->password = NULL;  (*url)->host = NULL;  (*url)->port = NULL;  (*url)->url_params = (osip_list_t *) osip_malloc (sizeof (osip_list_t));  if ((*url)->url_params == NULL)    {      osip_free (*url);      *url = NULL;      return -1;    }  osip_list_init ((*url)->url_params);  (*url)->url_headers = (osip_list_t *) osip_malloc (sizeof (osip_list_t));  if ((*url)->url_headers == NULL)    {      osip_free ((*url)->url_params);      osip_free (*url);      *url = NULL;      return -1;    }  osip_list_init ((*url)->url_headers);  (*url)->string = NULL;  return 0;}/* examples:   sip:j.doe@big.com;maddr=239.255.255.1;ttl=15   sip:j.doe@big.com   sip:j.doe:secret@big.com;transport=tcp   sip:j.doe@big.com?subject=project   sip:+1-212-555-1212:1234@gateway.com;user=phone   sip:1212@gateway.com   sip:alice@10.1.2.3   sip:alice@example.com   sip:alice@registrar.com;method=REGISTER   NOT EQUIVALENT:   SIP:JUSER@ExAmPlE.CoM;Transport=udp   sip:juser@ExAmPlE.CoM;Transport=UDP*//* this method search for the separator and   *//* return it only if it is located before the *//* second separator. */char *next_separator (const char *ch, int separator_osip_to_find, int before_separator){  char *ind;  char *tmp;  ind = strchr (ch, separator_osip_to_find);  if (ind == NULL)    return NULL;  tmp = NULL;  if (before_separator != 0)    tmp = strchr (ch, before_separator);  if (tmp != NULL)    {      if (ind < tmp)	return ind;    }  else    return ind;  return NULL;}/* parse the sip url.                                *//* INPUT : char *buf | url to be parsed.*//* OUTPUT: osip_uri_t *url | structure to save results.   *//* OUTPUT: err_t *err | structure to store error.   *//* return -1 on error */intosip_uri_parse (osip_uri_t * url, const char *buf){  char *username;  char *password;  char *host;  const char *port;  const char *params;  const char *headers;  const char *tmp;  /* basic tests */  if (buf == NULL || buf[0]=='\0')    return -1;  tmp = strchr (buf, ':');  if (tmp == NULL)    return -1;  if (tmp - buf < 2)    return -1;  url->scheme = (char *) osip_malloc (tmp - buf + 1);  if (url->scheme == NULL)    return -1;  osip_strncpy (url->scheme, buf, tmp - buf);  if (strlen (url->scheme) < 3 ||      (0 != osip_strncasecmp (url->scheme, "sip", 3)       && 0 != osip_strncasecmp (url->scheme, "sips", 4)))    {				/* Is not a sipurl ! */      int i = strlen (tmp + 1);      if (i < 2)	return -1;      url->string = (char *) osip_malloc (i + 1);      if (url->string == NULL)	return -1;      osip_strncpy (url->string, tmp + 1, i);      return 0;    }  /*  law number 1:     if ('?' exists && is_located_after '@')     or   if ('?' exists && '@' is not there -no username-)     =====>  HEADER_PARAM EXIST     =====>  start at index(?)     =====>  end at the end of url   */  /* find the beginning of host */  username = strchr (buf, ':');  /* if ':' does not exist, the url is not valid */  if (username == NULL)    return -1;  host = strchr (buf, '@');  if (host == NULL)    host = username;  else    /* username exists */    {      password = next_separator (username + 1, ':', '@');      if (password == NULL)	password = host;      else	/* password exists */	{	  if (host - password < 2)	    return -1;	  url->password = (char *) osip_malloc (host - password);	  if (url->password == NULL)	    return -1;	  osip_strncpy (url->password, password + 1, host - password - 1);	  __osip_uri_unescape (url->password);	}      if (password - username < 2)	return -1;      {	url->username = (char *) osip_malloc (password - username);	if (url->username == NULL)	  return -1;	osip_strncpy (url->username, username + 1, password - username - 1);	__osip_uri_unescape (url->username);      }    }  /* search for header after host */  headers = strchr (host, '?');  if (headers == NULL)    headers = buf + strlen (buf);  else    /* headers exist */    osip_uri_parse_headers (url, headers);  /* search for params after host */  params = strchr (host, ';');	/* search for params after host */  if (params == NULL)    params = headers;  else    /* params exist */    {      char *tmpbuf;      if (headers - params + 1 < 2)	return -1;      tmpbuf = osip_malloc (headers - params + 1);      if (tmpbuf == NULL)	return -1;      tmpbuf = osip_strncpy (tmpbuf, params, headers - params);      osip_uri_parse_params (url, tmpbuf);      osip_free (tmpbuf);    }  port = params - 1;  while (port > host && *port != ']' && *port != ':')    port--;  if (*port == ':')    {      if (host == port)	port = params;      else	{	  if ((params - port < 2) || (params - port > 8))	    return -1;		/* error cases */	  url->port = (char *) osip_malloc (params - port);	  if (url->port == NULL)	    return -1;	  osip_strncpy (url->port, port + 1, params - port - 1);	  osip_clrspace (url->port);	}    }  else    port = params;  /* adjust port for ipv6 address */  tmp = port;  while (tmp > host && *tmp != ']')    tmp--;  if (*tmp == ']')    {      port = tmp;      while (host < port && *host != '[')	host++;      if (host >= port)	return -1;    }  if (port - host < 2)    return -1;  url->host = (char *) osip_malloc (port - host);  if (url->host == NULL)    return -1;  osip_strncpy (url->host, host + 1, port - host - 1);  osip_clrspace (url->host);  return 0;}voidosip_uri_set_scheme (osip_uri_t * url, char *scheme){  url->scheme = scheme;}char *osip_uri_get_scheme (osip_uri_t * url){  if (url == NULL)    return NULL;  return url->scheme;}voidosip_uri_set_username (osip_uri_t * url, char *username){  url->username = username;}char *osip_uri_get_username (osip_uri_t * url){  if (url == NULL)    return NULL;  return url->username;}voidosip_uri_set_password (osip_uri_t * url, char *password){  url->password = password;}char *osip_uri_get_password (osip_uri_t * url){  if (url == NULL)    return NULL;  return url->password;}voidosip_uri_set_host (osip_uri_t * url, char *host){  url->host = host;}char *osip_uri_get_host (osip_uri_t * url){  if (url == NULL)    return NULL;  return url->host;}voidosip_uri_set_port (osip_uri_t * url, char *port){  url->port = port;}char *osip_uri_get_port (osip_uri_t * url){  if (url == NULL)    return NULL;  return url->port;}intosip_uri_parse_headers (osip_uri_t * url, const char *headers){  char *and;  char *equal;  /* find '=' wich is the separator for one header */  /* find ';' wich is the separator for multiple headers */  equal = strchr (headers, '=');  and = strchr (headers + 1, '&');  if (equal == NULL)		/* each header MUST have a value */    return -1;  do    {      char *hname;      char *hvalue;      hname = (char *) osip_malloc (equal - headers);      if (hname == NULL)	return -1;      osip_strncpy (hname, headers + 1, equal - headers - 1);      __osip_uri_unescape (hname);      if (and != NULL)	{	  if (and - equal < 2)	    {	      osip_free (hname);	      return -1;	    }	  hvalue = (char *) osip_malloc (and - equal);	  if (hvalue == NULL)	    {	      osip_free (hname);	      return -1;	    }	  osip_strncpy (hvalue, equal + 1, and - equal - 1);	  __osip_uri_unescape (hvalue);	}      else	{			/* this is for the last header (no and...) */	  if (headers + strlen (headers) - equal + 1 < 2)	    {	      osip_free (hname);	      return -1;	    }	  hvalue = (char *) osip_malloc (headers + strlen (headers) - equal + 1);	  if (hvalue == NULL)	    {	      osip_free (hname);	      return -1;	    }	  osip_strncpy (hvalue, equal + 1, headers + strlen (headers) - equal);	  __osip_uri_unescape (hvalue);	}      osip_uri_uheader_add (url, hname, hvalue);      if (and == NULL)		/* we just set the last header */	equal = NULL;      else			/* continue on next header */	{	  headers = and;	  equal = strchr (headers, '=');	  and = strchr (headers + 1, '&');	  if (equal == NULL)	/* each header MUST have a value */	    return -1;	}    }  while (equal != NULL);  return 0;}intosip_uri_parse_params (osip_uri_t * url, const char *params){  char *pname;  char *pvalue;  const char *comma;  const char *equal;  /* find '=' wich is the separator for one param */  /* find ';' wich is the separator for multiple params */  equal = next_separator (params + 1, '=', ';');  comma = strchr (params + 1, ';');  while (comma != NULL)    {      if (equal == NULL)	{	  equal = comma;	  pvalue = NULL;	}      else	{	  if (comma - equal < 2)	    return -1;	  pvalue = (char *) osip_malloc (comma - equal);	  if (pvalue == NULL)	    return -1;	  osip_strncpy (pvalue, equal + 1, comma - equal - 1);	  __osip_uri_unescape (pvalue);	}      if (equal - params < 2)	{	  osip_free (pvalue);	  return -1;	}      pname = (char *) osip_malloc (equal - params);      if (pname == NULL)	{	  osip_free (pvalue);	  return -1;	}      osip_strncpy (pname, params + 1, equal - params - 1);      __osip_uri_unescape (pname);      osip_uri_uparam_add (url, pname, pvalue);      params = comma;      equal = next_separator (params + 1, '=', ';');      comma = strchr (params + 1, ';');    }  /* this is the last header (comma==NULL) */  comma = params + strlen (params);  if (equal == NULL)    {      equal = comma;		/* at the end */      pvalue = NULL;    }  else    {      if (comma - equal < 2)	return -1;      pvalue = (char *) osip_malloc (comma - equal);      if (pvalue == NULL)	return -1;      osip_strncpy (pvalue, equal + 1, comma - equal - 1);    }  if (equal - params < 2)    {      osip_free (pvalue);      return -1;    }  pname = (char *) osip_malloc (equal - params);  if (pname == NULL)    {      osip_free (pvalue);      return -1;    }  osip_strncpy (pname, params + 1, equal - params - 1);  osip_uri_uparam_add (url, pname, pvalue);  return 0;}intosip_uri_to_str (const osip_uri_t * url, char **dest){  char *buf;  int len;  int plen;  char *tmp;