deleted file mode 100644

@@ -1,2060 +0,0 @@

-

-/* 

- * find & manage listen addresses 

- *

- * Copyright (C) 2001-2003 FhG Fokus

- *

- * This file is part of Kamailio, a free SIP server.

- *

- * Kamailio is free software; you can redistribute it and/or modify

- * it under the terms of the GNU General Public License as published by

- * the Free Software Foundation; either version 2 of the License, or

- * (at your option) any later version

- *

- * Kamailio 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 General Public License for more details.

- *

- * You should have received a copy of the GNU General Public License 

- * along with this program; if not, write to the Free Software 

- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

- */

-

-/*!

- * \file

- * \brief Kamailio core :: find & manage listen addresses 

- *

- * This file contains code that initializes and handles Kamailio listen addresses

- * lists (struct socket_info). It is used mainly on startup.

- * \ingroup core

- * Module: \ref core

- */

-

-#include <string.h>

-#include <errno.h>

-#include <unistd.h>

-#include <sys/types.h>

-#include <sys/socket.h>

-#include <sys/utsname.h>

-#include <stdio.h>

-

-#include <sys/ioctl.h>

-#include <net/if.h>

-#include <ifaddrs.h>

-#ifdef HAVE_SYS_SOCKIO_H

-#include <sys/sockio.h>

-#endif

-

-#include "globals.h"

-#include "socket_info.h"

-#include "dprint.h"

-#include "mem/mem.h"

-#include "ut.h"

-#include "resolve.h"

-#include "name_alias.h"

-

-

-

-/* list manip. functions (internal use only) */

-

-

-/* append */

-#define sock_listadd(head, el) \

-	do{\

-		if (*(head)==0) *(head)=(el); \

-		else{ \

-			for((el)->next=*(head); (el)->next->next;\

-					(el)->next=(el)->next->next); \

-			(el)->next->next=(el); \

-			(el)->prev=(el)->next; \

-			(el)->next=0; \

-		}\

-	}while(0)

-

-

-/* insert after "after" */

-#define sock_listins(el, after) \

-	do{ \

-		if ((after)){\

-			(el)->next=(after)->next; \

-			if ((after)->next) (after)->next->prev=(el); \

-			(after)->next=(el); \

-			(el)->prev=(after); \

-		}else{ /* after==0 = list head */ \

-			(after)=(el); \

-			(el)->next=(el)->prev=0; \

-		}\

-	}while(0)

-

-

-#define sock_listrm(head, el) \

-	do {\

-		if (*(head)==(el)) *(head)=(el)->next; \

-		if ((el)->next) (el)->next->prev=(el)->prev; \

-		if ((el)->prev) (el)->prev->next=(el)->next; \

-	}while(0)

-

-

-#define addr_info_listadd sock_listadd

-#define addr_info_listins sock_listins

-#define addr_info_listrm sock_listrm

-

-inline static void addr_info_list_ins_lst(struct addr_info* lst,

-										struct addr_info* after)

-{

-	struct addr_info* l;

-	struct addr_info* n;

-	

-	if (lst){

-		n=after->next;

-		after->next=lst;

-		lst->prev=after;

-		if (n){

-			for(l=lst; l->next; l=l->next);

-			l->next=n;

-			n->prev=l;

-		}

-	}

-}

-

-

-/* protocol order, filled by init_proto_order() */

-enum sip_protos nxt_proto[PROTO_LAST+1]=

-{ PROTO_UDP, PROTO_TCP, PROTO_TLS, PROTO_SCTP, 0 };

-/* Deliberately left PROTO_WS and PROTO_WSS out of this as they are just

-   upgraded TCP and TLS connections */

-

-

-

-/* another helper function, it just fills a struct addr_info

- * returns: 0 on success, -1 on error*/

-static int init_addr_info(struct addr_info* a,

-								char* name, enum si_flags flags)

-{

-

-	memset(a, 0, sizeof(*a));

-	a->name.len=strlen(name);

-	a->name.s=pkg_malloc(a->name.len+1); /* include \0 */

-	if (a->name.s==0) goto error;

-	memcpy(a->name.s, name, a->name.len+1);

-	a->flags=flags;

-	return 0;

-error:

-	LM_ERR("memory allocation error\n");

-	return -1;

-}

-

-

-

-/* returns 0 on error, new addr_info_lst element on success */

-static inline struct addr_info* new_addr_info(char* name, 

-													enum si_flags gf)

-{

-	struct addr_info* al;

-	

-	al=pkg_malloc(sizeof(*al));

-	if (al==0) goto error;

-	al->next=0;

-	al->prev=0;

-	if (init_addr_info(al, name, gf)!=0) goto error;

-	return al;

-error:

-	LM_ERR("memory allocation error\n");

-	if (al){

-		if (al->name.s) pkg_free(al->name.s);

-		pkg_free(al);

-	}

-	return 0;

-}

-

-

-

-static inline void free_addr_info(struct addr_info* a)

-{

-	if (a){

-		if (a->name.s){

-			pkg_free(a->name.s);

-			a->name.s=0;

-		}

-		pkg_free(a);

-	}

-}

-

-

-

-static inline void free_addr_info_lst(struct addr_info** lst)

-{

-	struct addr_info* a;

-	struct addr_info* tmp;

-	

-	a=*lst;

-	while(a){

-		tmp=a;

-		a=a->next;

-		free_addr_info(tmp);

-	}

-}

-

-

-

-/* adds a new add_info_lst element to the corresponding list

- * returns 0 on success, -1 on error */

-static int new_addr_info2list(char* name, enum si_flags f,

-								struct addr_info** l)

-{

-	struct addr_info * al;

-	

-	al=new_addr_info(name, f);

-	if (al==0) goto error;

-	addr_info_listadd(l, al);

-	return 0;

-error:

-	return -1;

-}

-

-

-

-/* another helper function, it just creates a socket_info struct */

-static inline struct socket_info* new_sock_info(	char* name,

-								struct name_lst* addr_l,

-								unsigned short port, unsigned short proto,

-								char *usename, unsigned short useport,

-								enum si_flags flags)

-{

-	struct socket_info* si;

-	struct name_lst* n;

-	struct hostent* he;

-	char *p;

-	

-	si=(struct socket_info*) pkg_malloc(sizeof(struct socket_info));

-	if (si==0) goto error;

-	memset(si, 0, sizeof(struct socket_info));

-	si->socket=-1;

-	si->name.len=strlen(name);

-	si->name.s=(char*)pkg_malloc(si->name.len+1); /* include \0 */

-	if (si->name.s==0) goto error;

-	memcpy(si->name.s, name, si->name.len+1);

-	/* set port & proto */

-	si->port_no=port;

-	si->proto=proto;

-	si->flags=flags;

-	si->addr_info_lst=0;

-	for (n=addr_l; n; n=n->next){

-		if (new_addr_info2list(n->name, n->flags, &si->addr_info_lst)!=0){

-			LM_ERR("new_addr_info2list failed\n");

-			goto error;

-		}

-	}

-	if(usename!=NULL)

-	{

-		si->useinfo.name.len=strlen(usename);

-		si->useinfo.name.s=(char*)pkg_malloc(si->useinfo.name.len+1);

-		if (si->useinfo.name.s==0)

-			goto error;

-		strcpy(si->useinfo.name.s, usename);

-		if(usename[0]=='[' && usename[si->useinfo.name.len-1]==']')

-		{

-			si->useinfo.address_str.len = si->useinfo.name.len - 2;

-			p = si->useinfo.name.s + 1;

-		} else {

-			si->useinfo.address_str.len = si->useinfo.name.len;

-			p = si->useinfo.name.s;

-		}

-		si->useinfo.address_str.s=(char*)pkg_malloc(si->useinfo.address_str.len+1);

-		if(si->useinfo.address_str.s==NULL)

-			goto error;

-		strncpy(si->useinfo.address_str.s, p, si->useinfo.address_str.len);

-		si->useinfo.address_str.s[si->useinfo.address_str.len] = '\0';

-

-		p = int2str(useport, &si->useinfo.port_no_str.len);

-		if(p==NULL)

-			goto error;

-		si->useinfo.port_no_str.s=(char*)pkg_malloc(si->useinfo.port_no_str.len+1);

-		if(si->useinfo.port_no_str.s==NULL)

-			goto error;

-		strcpy(si->useinfo.port_no_str.s, p);

-		si->useinfo.port_no = useport;

-

-		he=resolvehost(si->useinfo.name.s);

-		if (he==0){

-			LM_ERR("unable to resolve advertised name %s\n", si->useinfo.name.s);

-			goto error;

-		}

-		hostent2ip_addr(&si->useinfo.address, he, 0);

-	}

-	return si;

-error:

-	LM_ERR("memory allocation error\n");

-	if (si) {

-		if(si->name.s)

-			pkg_free(si->name.s);

-		pkg_free(si);

-	}

-	return 0;

-}

-

-

-

-/*  delete a socket_info struct */

-static void free_sock_info(struct socket_info* si)

-{

-	if(si){

-		if(si->name.s) pkg_free(si->name.s);

-		if(si->address_str.s) pkg_free(si->address_str.s);

-		if(si->port_no_str.s) pkg_free(si->port_no_str.s);

-		if(si->addr_info_lst) free_addr_info_lst(&si->addr_info_lst);

-		if(si->sock_str.s) pkg_free(si->sock_str.s);

-		if(si->useinfo.name.s) pkg_free(si->useinfo.name.s);

-		if(si->useinfo.port_no_str.s) pkg_free(si->useinfo.port_no_str.s);

-		if(si->useinfo.sock_str.s) pkg_free(si->useinfo.sock_str.s);

-	}

-}

-

-

-

-char* get_valid_proto_name(unsigned short proto)

-{

-	switch(proto){

-		case PROTO_NONE:

-			return "*";

-		case PROTO_UDP:

-			return "udp";

-#ifdef USE_TCP

-		case PROTO_TCP:

-			return "tcp";

-#endif

-#ifdef USE_TLS

-		case PROTO_TLS:

-			return "tls";

-#endif

-#ifdef USE_SCTP

-		case PROTO_SCTP:

-			return "sctp";

-#endif

-		default:

-			return "unknown";

-	}

-}

-

-/** Convert socket to its textual representation.

- *

- * This function converts the transport protocol, the IP address and the port

- * number in a comma delimited string of form proto:ip:port. The resulting

- * string is NOT zero terminated

- *

- * @param s is a pointer to the destination memory buffer

- * @param len is a pointer to an integer variable. Initially the variable

- *        should contain the size of the buffer in s. The value of the variable

- *        will be changed to the length of the resulting string on success and

- *        to the desired size of the destination buffer if it is too small

- * @param si is a pointer to the socket_info structure to be printed

- * @return -1 on error and 0 on success

- */

-int socket2str(char* s, int* len, struct socket_info* si)

-{

-	return socketinfo2str(s, len, si, 0);

-}

-

-int socketinfo2str(char* s, int* len, struct socket_info* si, int mode)

-{

-	str proto;

-	int l;

-	

-	proto.s = get_valid_proto_name(si->proto);

-	proto.len = strlen(proto.s);

-	

-	if(mode==1)

-		l = proto.len + si->useinfo.name.len + si->useinfo.port_no_str.len + 2;

-	else

-		l = proto.len + si->address_str.len + si->port_no_str.len + 2;

-

-	if(si->address.af==AF_INET6)

-		l += 2;

-	

-	if (*len < l) {

-		LM_ERR("Destionation buffer too short\n");

-		*len = l;

-		return -1;

-	}

-	

-	memcpy(s, proto.s, proto.len);

-	s += proto.len;

-	*s = ':'; s++;

-	if(mode==1){

-		memcpy(s, si->useinfo.name.s, si->useinfo.name.len);

-		s += si->useinfo.name.len;

-		*s = ':'; s++;

-		memcpy(s, si->useinfo.port_no_str.s, si->useinfo.port_no_str.len);

-		s += si->useinfo.port_no_str.len;

-	} else {

-		if(si->address.af==AF_INET6) {

-			*s = '['; s++;

-		}

-		memcpy(s, si->address_str.s, si->address_str.len);

-		s += si->address_str.len;

-		if(si->address.af==AF_INET6) {

-			*s = ']'; s++;

-		}

-		*s = ':'; s++;

-		memcpy(s, si->port_no_str.s, si->port_no_str.len);

-		s += si->port_no_str.len;

-	}

-

-	*len = l;

-	return 0;

-}

-

-

-

-/* Fill si->sock_str with string representing the socket_info structure,

- * format of the string is 'proto:address:port'. Returns 0 on success and

- * negative number on failure.

- */

-static int fix_sock_str(struct socket_info* si)

-{

-	int len = MAX_SOCKET_STR;

-

-	if (si->sock_str.s) pkg_free(si->sock_str.s);

-	

-	si->sock_str.s = pkg_malloc(len + 1);

-	if (si->sock_str.s == NULL) {

-		LM_ERR("No memory left\n");

-		return -1;

-	}

-	if (socketinfo2str(si->sock_str.s, &len, si, 0) < 0) {

-		BUG("fix_sock_str: Error in socket to str\n");

-		return -1;

-	}

-	si->sock_str.s[len] = '\0';

-	si->sock_str.len = len;

-	if(si->useinfo.name.s!=NULL)

-	{

-		len = MAX_SOCKET_STR;

-

-		if (si->useinfo.sock_str.s) pkg_free(si->useinfo.sock_str.s);

-

-		si->useinfo.sock_str.s = pkg_malloc(len + 1);

-		if (si->useinfo.sock_str.s == NULL) {

-			LM_ERR("No memory left\n");

-			return -1;

-		}

-		if (socketinfo2str(si->useinfo.sock_str.s, &len, si, 1) < 0) {

-			BUG("fix_sock_str: Error in socket to str\n");

-			return -1;

-		}

-		si->useinfo.sock_str.s[len] = '\0';

-		si->useinfo.sock_str.len = len;

-	}

-	return 0;

-}

-

-

-/* returns 0 if support for the protocol is not compiled or if proto is 

-   invalid */

-struct socket_info** get_sock_info_list(unsigned short proto)

-{

-	

-	switch(proto){

-		case PROTO_UDP:

-			return &udp_listen;

-			break;

-		case PROTO_TCP:

-		case PROTO_WS:

-#ifdef USE_TCP

-			return &tcp_listen;

-#endif

-			break;

-		case PROTO_TLS:

-		case PROTO_WSS:

-#ifdef USE_TLS

-			return &tls_listen;

-#endif

-			break;

-		case PROTO_SCTP:

-#ifdef USE_SCTP

-			return &sctp_listen;

-#endif

-			break;

-		default:

-			LM_CRIT("invalid proto %d\n", proto);

-	}

-	return 0;

-}

-

-

-/* helper function for grep_sock_info

- * params:

- *  host - hostname to compare with

- *  name - official name

- *  addr_str - name's resolved ip address converted to string

- *  ip_addr - name's ip address 

- *  flags - set to SI_IS_IP if name contains an IP

- *

- * returns 0 if host matches, -1 if not */

-inline static int si_hname_cmp(str* host, str* name, str* addr_str, 

-								struct ip_addr* ip_addr, int flags)

-{

-	struct ip_addr* ip6;

-	

-	if ( (host->len==name->len) && 

-		(strncasecmp(host->s, name->s, name->len)==0) /*slower*/)

-		/* comp. must be case insensitive, host names

-		 * can be written in mixed case, it will also match

-		 * ipv6 addresses if we are lucky*/

-		goto found;

-	/* check if host == ip address */

-	/* ipv6 case is uglier, host can be [3ffe::1] */

-	ip6=str2ip6(host);

-	if (ip6){

-		if (ip_addr_cmp(ip6, ip_addr))

-			goto found; /* match */

-		else

-			return -1; /* no match, but this is an ipv6 address

-						 so no point in trying ipv4 */

-	}

-	/* ipv4 */

-	if ( (!(flags&SI_IS_IP)) && (host->len==addr_str->len) && 

-			(memcmp(host->s, addr_str->s, addr_str->len)==0) )

-		goto found;

-	return -1;

-found:

-	return 0;

-}

-

-

-/* checks if the proto: host:port is one of the address we listen on

- * and returns the corresponding socket_info structure.

- * if port==0, the  port number is ignored

- * if proto==0 (PROTO_NONE) the protocol is ignored

- * returns  0 if not found

- * WARNING: uses str2ip6 so it will overwrite any previous

- *  unsaved result of this function (static buffer)

- */

-struct socket_info* grep_sock_info(str* host, unsigned short port,

-												unsigned short proto)

-{

-	str hname;

-	struct socket_info* si;

-	struct socket_info** list;

-	struct addr_info* ai;

-	unsigned short c_proto;

-	

-	hname=*host;

-	if ((hname.len>2)&&((*hname.s)=='[')&&(hname.s[hname.len-1]==']')){

-		/* ipv6 reference, skip [] */

-		hname.s++;

-		hname.len-=2;

-	}

-

-	c_proto=(proto!=PROTO_NONE)?proto:PROTO_UDP;

-retry:

-	do{

-		/* get the proper sock_list */

-		list=get_sock_info_list(c_proto);

-	

-		if (list==0) /* disabled or unknown protocol */

-			continue;

-		for (si=*list; si; si=si->next){

-			LM_DBG("checking if host==us: %d==%d && [%.*s] == [%.*s]\n",

-						hname.len,

-						si->name.len,

-						hname.len, hname.s,

-						si->name.len, si->name.s

-				);

-			if (port) {

-				LM_DBG("checking if port %d (advertise %d) matches port %d\n",

-						si->port_no, si->useinfo.port_no, port);

-				if (si->port_no!=port && si->useinfo.port_no!=port) {

-					continue;

-				}

-			}

-			if (si_hname_cmp(&hname, &si->name, &si->address_str, 

-								&si->address, si->flags)==0)

-				goto found;

-			if(si->useinfo.name.s!=NULL)

-			{

-				LM_DBG("checking advertise if host==us:"

-						" %d==%d && [%.*s] == [%.*s]\n",

-						hname.len,

-						si->useinfo.name.len,

-						hname.len, hname.s,

-						si->useinfo.name.len, si->useinfo.name.s

-				);

-				if (si_hname_cmp(&hname, &si->useinfo.name,

-							&si->useinfo.address_str, &si->useinfo.address,

-							si->flags)==0)

-					goto found;

-			}

-			/* try among the extra addresses */

-			for (ai=si->addr_info_lst; ai; ai=ai->next)

-				if (si_hname_cmp(&hname, &ai->name, &ai->address_str, 

-									&ai->address, ai->flags)==0)

-					goto found;

-		}

-

-	}while( (proto==0) && (c_proto=next_proto(c_proto)) );

-

-#ifdef USE_TLS

-	if (unlikely(c_proto == PROTO_WS)) {

-		c_proto = PROTO_WSS;

-		goto retry;

-	}

-#endif

-/* not_found: */

-	return 0;

-found:

-	return si;

-}

-

-/* checks if the proto:port is one of the ports we listen on

- * and returns the corresponding socket_info structure.

- * if proto==0 (PROTO_NONE) the protocol is ignored

- * returns  0 if not found

- */

-struct socket_info* grep_sock_info_by_port(unsigned short port, 

-											unsigned short proto)

-{

-	struct socket_info* si;

-	struct socket_info** list;

-	unsigned short c_proto;

-

-	if (!port) {

-		goto not_found;

-	}

-	c_proto=(proto!=PROTO_NONE)?proto:PROTO_UDP;

-	do{

-		/* get the proper sock_list */

-		list=get_sock_info_list(c_proto);

-	

-		if (list==0) /* disabled or unknown protocol */

-			continue;

-		

-		for (si=*list; si; si=si->next){

-			LM_DBG("checking if port %d matches port %d\n", si->port_no, port);

-			if (si->port_no==port) {

-				goto found;

-			}

-		}

-	}while( (proto==0) && (c_proto=next_proto(c_proto)) );

-not_found:

-	return 0;

-found:

-	return si;

-}

-

-

-

-/* checks if the proto: ip:port is one of the address we listen on

- * and returns the corresponding socket_info structure.

- * (same as grep_socket_info, but use ip addr instead)

- * if port==0, the  port number is ignored

- * if proto==0 (PROTO_NONE) the protocol is ignored

- * returns  0 if not found

- * WARNING: uses str2ip6 so it will overwrite any previous

- *  unsaved result of this function (static buffer)

- */

-struct socket_info* find_si(struct ip_addr* ip, unsigned short port,

-												unsigned short proto)

-{

-	struct socket_info* si;

-	struct socket_info** list;

-	struct addr_info* ai;

-	unsigned short c_proto;

-	

-	c_proto=(proto!=PROTO_NONE)?proto:PROTO_UDP;

-	do{

-		/* get the proper sock_list */

-		list=get_sock_info_list(c_proto);

-	

-		if (list==0) /* disabled or unknown protocol */

-			continue;

-		

-		for (si=*list; si; si=si->next){

-			if (port) {

-				if (si->port_no!=port) {

-					continue;

-				}

-			}

-			if (ip_addr_cmp(ip, &si->address)

-					|| ip_addr_cmp(ip, &si->useinfo.address))

-				goto found;

-			for (ai=si->addr_info_lst; ai; ai=ai->next)

-				if (ip_addr_cmp(ip, &ai->address))

-					goto found;

-		}

-	}while( (proto==0) && (c_proto=next_proto(c_proto)) );

-/* not_found: */

-	return 0;

-found:

-	return si;

-}

-

-

-

-/* append a new sock_info structure to the corresponding list

- * return  new sock info on success, 0 on error */

-static struct socket_info* new_sock2list(char* name, struct name_lst* addr_l,

-									unsigned short port,

-									unsigned short proto,

-									char *usename, unsigned short useport,

-									enum si_flags flags,

-									struct socket_info** list)

-{

-	struct socket_info* si;

-	

-	si=new_sock_info(name, addr_l, port, proto, usename, useport, flags);

-	if (si==0){

-		LM_ERR("new_sock_info failed\n");

-		goto error;

-	}

-	if(socket_workers>0) {

-		si->workers = socket_workers;

-		socket_workers = 0;

-	}

-#ifdef USE_MCAST

-	if (mcast!=0) {

-		si->mcast.len=strlen(mcast);

-		si->mcast.s=(char*)pkg_malloc(si->mcast.len+1);

-		strcpy(si->mcast.s, mcast);

-		mcast = 0;

-	}

-#endif /* USE_MCAST */

-	sock_listadd(list, si);

-	return si;

-error:

-	return 0;

-}

-

-

-

-/* adds a new sock_info structure immediately after "after"

- * return  new sock info on success, 0 on error */

-static struct socket_info* new_sock2list_after(char* name,

-									struct name_lst* addr_l,

-									unsigned short port,

-									unsigned short proto,

-									char *usename,

-									unsigned short useport,

-									enum si_flags flags,

-									struct socket_info* after)

-{

-	struct socket_info* si;

-	

-	si=new_sock_info(name, addr_l, port, proto, usename, useport, flags);

-	if (si==0){

-		LM_ERR("new_sock_info failed\n");

-		goto error;

-	}

-	sock_listins(si, after);

-	return si;

-error:

-	return 0;

-}

-

-

-

-/* adds a sock_info structure to the corresponding proto list

- * return  0 on success, -1 on error */

-int add_listen_advertise_iface(char* name, struct name_lst* addr_l,

-						unsigned short port, unsigned short proto,

-						char *usename, unsigned short useport,

-						enum si_flags flags)

-{

-	struct socket_info** list;

-	unsigned short c_proto;

-	struct name_lst* a_l;

-	unsigned short c_port;

-	

-	c_proto=(proto!=PROTO_NONE)?proto:PROTO_UDP;

-	do{

-		list=get_sock_info_list(c_proto);

-		if (list==0) /* disabled or unknown protocol */

-			continue;

-		

-		if (port==0){ /* use default port */

-			c_port=

-#ifdef USE_TLS

-				((c_proto)==PROTO_TLS)?tls_port_no:

-#endif

-				port_no;

-		}

-#ifdef USE_TLS

-		else if ((c_proto==PROTO_TLS) && (proto==0)){

-			/* -l  ip:port => on udp:ip:port; tcp:ip:port and tls:ip:port+1?*/

-			c_port=port+1;

-		}

-#endif

-		else{

-			c_port=port;

-		}

-		if (c_proto!=PROTO_SCTP){

-			if (new_sock2list(name, 0, c_port, c_proto, usename, useport,

-								flags & ~SI_IS_MHOMED, list)==0){

-				LM_ERR("new_sock2list failed\n");

-				goto error;

-			}

-			/* add the other addresses in the list as separate sockets

-			 * since only SCTP can bind to multiple addresses */

-			for (a_l=addr_l; a_l; a_l=a_l->next){

-				if (new_sock2list(a_l->name, 0, c_port, 

-									c_proto, usename, useport,

-									flags & ~SI_IS_MHOMED, list)==0){

-					LM_ERR("new_sock2list failed\n");

-					goto error;

-				}

-			}

-		}else{

-			if (new_sock2list(name, addr_l, c_port, c_proto, usename, useport,

-						flags, list)==0){

-				LM_ERR("new_sock2list failed\n");

-				goto error;

-			}

-		}

-	}while( (proto==0) && (c_proto=next_proto(c_proto)));

-	return 0;

-error:

-	return -1;

-}

-

-/* adds a sock_info structure to the corresponding proto list

- * return  0 on success, -1 on error */

-int add_listen_iface(char* name, struct name_lst* addr_l,

-						unsigned short port, unsigned short proto,

-						enum si_flags flags)

-{

-	return add_listen_advertise_iface(name, addr_l, port, proto, 0, 0, flags);

-}

-#ifdef __OS_linux

-

-#include "linux/types.h"

-#include "linux/netlink.h"

-#include "linux/rtnetlink.h"

-#include "arpa/inet.h"

-

-

-#define MAX_IF_LEN 64

-struct idx

-{

-	struct idx * 	next;

-	int 		family;

-	unsigned	ifa_flags;

-	char		addr[MAX_IF_LEN];

-

-};

-

-struct idxlist{

-	struct idx* 	addresses;

-	int 		index;

-	char 		name[MAX_IF_LEN];

-	unsigned 	flags;

-};

-

-#define MAX_IFACE_NO 32

-

-static struct idxlist *ifaces = NULL;

-static int seq = 0;

-

-#define SADDR(s) ((struct sockaddr_in*)s)->sin_addr.s_addr

-

-#define NLMSG_TAIL(nmsg) \

-	((struct rtattr *) (((void *) (nmsg)) + NLMSG_ALIGN((nmsg)->nlmsg_len)))

-

-int addattr_l(struct nlmsghdr *n, int maxlen, int type, const void *data,

-	      int alen)

-{

-	int len = RTA_LENGTH(alen);

-	struct rtattr *rta;

-

-	if (NLMSG_ALIGN(n->nlmsg_len) + RTA_ALIGN(len) > maxlen) {

-		fprintf(stderr, "addattr_l ERROR: message exceeded bound of %d\n",maxlen);

-		return -1;

-	}

-	rta = NLMSG_TAIL(n);

-	rta->rta_type = type;

-	rta->rta_len = len;

-	memcpy(RTA_DATA(rta), data, alen);

-	n->nlmsg_len = NLMSG_ALIGN(n->nlmsg_len) + RTA_ALIGN(len);

-	return 0;

-}