/src/opensips/socket_info.c

Source
/*
 * Copyright (C) 2001-2003 FhG Fokus
 *
 * This file is part of opensips, a free SIP server.
 *
 * opensips 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
 *
 * opensips 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
 *
 *
 * This file contains code that initializes and handles ser listen addresses
 * lists (struct socket_info). It is used mainly on startup.
 *
 * History:
 * --------
 *  2003-10-22  created by andrei
 *  2004-10-10  added grep_sock_info (andrei)
 *  2004-11-08  added find_si (andrei)
 *  2007-01-11  auto_aliases option added (bogdan)
 */

/*!
 * \file
 * \brief Find & manage listen addresses
 */


#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>
#ifdef HAVE_SYS_SOCKIO_H
#include <sys/sockio.h>
#endif

#include "str.h"
#include "globals.h"
#include "socket_info.h"
#include "dprint.h"
#include "mem/mem.h"
#include "ut.h"
#include "pt_scaling.h"
#include "resolve.h"
#include "name_alias.h"
#include "net/trans.h"

#ifdef __OS_linux
#include <features.h>     /* for GLIBC version testing */
#if defined(__GLIBC_PREREQ)
#if __GLIBC_PREREQ(2, 4)
#include <ifaddrs.h>
#define HAVE_IFADDRS
#endif
#endif
#endif

#define MAX_PROC_BUFFER 256

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

/* list with BOND sockets only - this is pretty static right now */
static struct socket_info_full *bond_sockets;

/* 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)


/* another helper function, it just creates a socket_info struct */
struct socket_info_full* new_sock_info(struct socket_id *sid, str *orig_name)
{
  struct socket_info_full *sif;
  struct socket_info *si;

  sif=(struct socket_info_full*) pkg_malloc(sizeof(*sif));
  if (sif==NULL) goto error;
  memset(sif, 0, sizeof(*sif));
  si = &sif->socket_info;
  si->socket=-1;
  si->last_real_ports = &sif->last_real_ports;

  if (sid->name) {
    si->name.len=strlen(sid->name);
    si->name.s=(char*)pkg_malloc(si->name.len+1); /* include \0 */
    if (si->name.s==0) goto error;
    memcpy(si->name.s, sid->name, si->name.len+1);
  }

  if (orig_name && orig_name->s && orig_name->len) {
    si->orig_name.s = pkg_malloc(orig_name->len + 1);
    if (si->orig_name.s == 0) {
      LM_ERR("pkg memory allocation failure\n");
      goto error;
    }
    memcpy(si->orig_name.s, orig_name->s, orig_name->len);
    si->orig_name.s[orig_name->len] = '\0';
    si->orig_name.len = orig_name->len;
  }

  /* set port & proto */
  si->port_no=sid->port;
  si->proto=sid->proto;
  si->flags=sid->flags;

  /* advertised socket information */
  /* Make sure the adv_sock_string is initialized, because if there is
   * no adv_sock_name, no other code will initialize it!
   */
  si->adv_sock_str.s=NULL;
  si->adv_sock_str.len=0;
  si->adv_port = 0; /* Here to help grep_sock_info along. */
  if(sid->adv_name) {
    si->adv_name_str.len=strlen(sid->adv_name);
    si->adv_name_str.s=(char *)pkg_malloc(si->adv_name_str.len+1);
    if (si->adv_name_str.s==0) goto error;
    memcpy(si->adv_name_str.s, sid->adv_name, si->adv_name_str.len+1);
    if (!sid->adv_port) sid->adv_port=si->port_no ;
    si->adv_port_str.s=pkg_malloc(10);
    if (si->adv_port_str.s==0) goto error;
    si->adv_port_str.len=snprintf(si->adv_port_str.s, 10, "%hu",
      (unsigned short)sid->adv_port);
    si->adv_port = sid->adv_port;
  }

  /* store the tag info too */
  if (sid->tag) {
    si->tag.len = strlen(sid->tag);
    si->tag.s=(char*)pkg_malloc(si->tag.len+1); /* include \0 */
    if (si->tag.s==0) goto error;
    memcpy(si->tag.s, sid->tag, si->tag.len+1);
  }

  if (si->proto!=PROTO_UDP && si->proto!=PROTO_SCTP &&
          si->proto!=PROTO_HEP_UDP) {
    if (sid->workers)
      LM_WARN("number of workers per non UDP-based <%.*s> listener not "
        "supported -> ignoring...\n", si->name.len, si->name.s);
    if (sid->auto_scaling_profile)
      LM_WARN("auto-scaling for non UDP-based <%.*s> listener not "
        "supported -> ignoring...\n", si->name.len, si->name.s);
  } else {
    if (sid->workers)
      si->workers = sid->workers;
    si->tos = sid->tos;
    if (sid->auto_scaling_profile) {
      si->s_profile = get_scaling_profile(sid->auto_scaling_profile);
      if (si->s_profile==NULL) {
        LM_WARN("scaling profile <%s> in listener <%.*s> not defined "
          "-> ignoring it...\n", sid->auto_scaling_profile,
          si->name.len, si->name.s);
      } else {
        auto_scaling_enabled = 1;
      }
    } else if (udp_auto_scaling_profile) {
      si->s_profile = get_scaling_profile(udp_auto_scaling_profile);
      if (si->s_profile==NULL) {
        LM_WARN("scaling profile <%s> in udp_workers not defined "
          "-> ignoring it...\n", udp_auto_scaling_profile);
      } else {
        auto_scaling_enabled = 1;
      }
    }
  }
  return sif;
error:
  LM_ERR("pkg memory allocation error\n");
  if (sif) {
    free_sock_info(sif);
    pkg_free(sif);
  }
  return 0;
}



/*  delete a socket_info struct */
void free_sock_info(struct socket_info_full* sif)
{
  if(sif){
    struct socket_info_ref *bond_si, *next_bond_si;
    struct socket_info *si = &sif->socket_info;
    if(si->name.s) pkg_free(si->name.s);
    if(si->orig_name.s) pkg_free(si->orig_name.s);
    if(si->tag.s) pkg_free(si->tag.s);
    if(si->sock_str.s) pkg_free(si->sock_str.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->adv_name_str.s) pkg_free(si->adv_name_str.s);
    if(si->adv_port_str.s) pkg_free(si->adv_port_str.s);
    if(si->adv_sock_str.s) pkg_free(si->adv_sock_str.s);
    if(si->tag_sock_str.s) pkg_free(si->tag_sock_str.s);
    for (bond_si = si->bond_sis; bond_si; bond_si = next_bond_si) {
      next_bond_si = bond_si->next;
      pkg_free(bond_si);
    }
  }
}


static void free_socket_id_list(struct socket_id *list)
{
  struct socket_id *sid, *next_sid;
  struct socket_bond_elem *be, *next_be;

  for (sid = list; sid; sid = next_sid) {
    next_sid = sid->next;
    for (be = sid->bond_list; be; be = next_be) {
      next_be = be->next;
      if (be->name)
        pkg_free(be->name);
      pkg_free(be);
    }
    pkg_free(sid);
  }
}


int fix_bond_socket_list(struct socket_id *list)
{
  struct socket_id *sid;
  struct socket_id *next_sid;
  struct socket_bond_elem *be;
  struct socket_info_full *sif = NULL;
  struct socket_info_full *orig_sif;
  struct socket_info_ref *ref;
  const struct socket_info *bond_si;
  str bond_spec, host;
  int port, proto, found_any;

  for (sid = list; sid; sid = next_sid) {

    next_sid = sid->next;

    if (sid->proto!=PROTO_BOND) {
      LM_BUG("non-bond socket found in the list\n");
      goto error;
    }

    sif = new_sock_info(sid, NULL);
    if (!sif) {
      LM_ERR("failed to build socket info for bond <%s>\n", sid->name);
      goto error;
    }

    for (be = sid->bond_list; be; be = be->next) {
      bond_spec.s = be->name;
      bond_spec.len = strlen(be->name);
      found_any = 0;
      if (parse_phostport(bond_spec.s, bond_spec.len, &host.s, &host.len,
          &port, &proto) != 0) {
        LM_WARN("failed to parse bond member <%s> for bond <%s>\n",
          be->name, sid->name);
        continue;
      }

      bond_si = grep_internal_sock_info(&host, (unsigned short)port,
        (unsigned short)proto);
      if (bond_si) {
        ref = pkg_malloc(sizeof(*ref));
        if (!ref) {
          LM_ERR("pkg memory allocation failed while building "
            "bond <%s>\n", sid->name);
          goto error;
        }
        ref->si = bond_si;
        ref->next = sif->socket_info.bond_sis;
        sif->socket_info.bond_sis = ref;

        LM_DBG("bond socket [%.*s] including real socket [%.*s]\n",
          sif->socket_info.name.len, sif->socket_info.name.s,
          bond_si->sock_str.len, bond_si->sock_str.s);
        continue;
      }

      orig_sif = NULL;
      while ((orig_sif = grep_sock_by_orig_name((unsigned short)proto,
          &host, (unsigned short)port, orig_sif))) {
        bond_si = &orig_sif->socket_info;

        ref = pkg_malloc(sizeof(*ref));
        if (!ref) {
          LM_ERR("pkg memory allocation failed while building "
            "bond <%s>\n", sid->name);
          goto error;
        }
        ref->si = bond_si;
        ref->next = sif->socket_info.bond_sis;
        sif->socket_info.bond_sis = ref;
        found_any = 1;

        LM_DBG("bond socket [%.*s] including real socket [%.*s] by "
          "orig_name\n",
          sif->socket_info.name.len, sif->socket_info.name.s,
          bond_si->sock_str.len, bond_si->sock_str.s);
      }

      if (!found_any) {
        LM_WARN("failed to resolve bond member <%s> for bond <%s>\n",
          be->name, sid->name);
      }
    }

    if (!sif->socket_info.bond_sis) {
      LM_ERR("bond socket <%s> has no valid members\n", sid->name);
      goto error;
    }

    /* double linked list */
    sif->next = bond_sockets;
    if (bond_sockets)
      bond_sockets->prev = sif;
    bond_sockets = sif;

    /* free current element */
    sid->next = NULL;
    free_socket_id_list(sid);
  }

  return 0;
error:
  if (sif) {
    free_sock_info(sif);
    pkg_free(sif);
  }
  free_socket_id_list(sid);
  return -1;
}


/* 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)
 */
const struct socket_info* grep_sock_info_ext(str* host, unsigned short port,
                    unsigned short proto, int check_tags)
{
  char* hname;
  int h_len;
  const struct socket_info* si = NULL;
  struct socket_info_full* sif;
  struct socket_info_full ** list;
  unsigned short c_proto;
  struct ip_addr* ip6;

  h_len=host->len;
  hname=host->s;

  if (proto == PROTO_BOND) {
    if (!check_tags)
      goto not_found;
    for (sif = bond_sockets; sif; sif = sif->next) {
      si = &sif->socket_info;
      if (h_len == si->name.len &&
      strncasecmp(hname, si->name.s, si->name.len) == 0)
        goto found;
    }
    goto not_found;
  }

  if ((h_len>2)&&((*hname)=='[')&&(hname[h_len-1]==']')){
    /* ipv6 reference, skip [] */
    hname++;
    h_len-=2;
  }

  c_proto=proto?proto:PROTO_UDP;
  do{
    /* "proto" is all the time valid here */
    list=get_sock_info_list(c_proto);

    if (list==0){
      LM_WARN("unknown proto %d\n", c_proto);
      goto not_found; /* false */
    }
    for (sif=*list; sif; sif=sif->next){
      si = &sif->socket_info;
      LM_DBG("checking if host==us: %d==%d && "
          " [%.*s] == [%.*s]\n",
            h_len,
            si->name.len,
            h_len, hname,
            si->name.len, si->name.s
        );

      if (check_tags && port==0 && si->tag.s && h_len==si->tag.len &&
      strncasecmp(hname, si->tag.s, si->tag.len)==0 )
        goto found;

      if (port) {
        LM_DBG("checking if port %d matches port %d\n",
            si->port_no, port);
        if ((si->port_no != 0 || protos[c_proto].default_port != port) &&
            (si->port_no == 0 || si->port_no != port) &&
            si->adv_port!=port) {
          continue;
        }
      }
      if ( (h_len==si->name.len) &&
        (strncasecmp(hname, si->name.s,
             si->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 the adv. name of this socket matches */
      if ( (h_len==si->adv_name_str.len) &&
        (strncasecmp(hname, si->adv_name_str.s,
          si->adv_name_str.len)==0) /*slower*/)
        /* comp. must be case insensitive, host names
        * can be in mixed case, it will also match
        * ipv6 addresses if we are lucky*/
        goto found;
      /* if no advertised is specified on the interface, we should check
       * if it is the global address */
      if (!si->adv_name_str.len && default_global_address->s &&
        h_len == default_global_address->len &&
        (strncasecmp(hname, default_global_address->s,
          default_global_address->len)==0) /*slower*/)
        /* this might match sockets that are not supposed to
         * match, when using multiple listeners for the same
         * protocol; but in that case the default_global_address
         * concept is broken, since there is no way to choose
         * the right socket */
        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, &si->address))
          goto found; /* match */
        else
        if (si->adv_name_str.len && ip_addr_cmp(ip6,&si->adv_address))
          goto found;
        else
          continue; /* no match, but this is an ipv6 address
                 so no point in trying ipv4 */
      }
      /* ipv4 */
      if (  (!(si->flags&SI_IS_IP)) &&
          (h_len==si->address_str.len) &&
        (memcmp(hname, si->address_str.s,
                  si->address_str.len)==0)
        )
        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)
 */
const struct socket_info* find_si(const struct ip_addr* ip, unsigned short port,
                        unsigned short proto)
{
  const struct socket_info* si = NULL;
  struct socket_info_full* sif;
  struct socket_info_full** list;
  unsigned short c_proto;

  c_proto=proto?proto:PROTO_UDP;
  do{
    /* get the proper sock_list */
    list=get_sock_info_list(c_proto);

    if (list==0){
      LM_WARN("unknown proto %d\n", c_proto);
      goto not_found; /* false */
    }
    for (sif=*list; sif; sif=sif->next){
      si = &sif->socket_info;
      if (port) {
        if (si->port_no!=port) {
          continue;
        }
      }
      if (ip_addr_cmp(ip, &si->address) || ip_addr_cmp(ip, &si->adv_address))
        goto found;
    }
  }while( (proto==0) && (c_proto=next_proto(c_proto)) );
not_found:
  return 0;
found:
  return si;
}


/* parses the specified `spec` and returns an associated
 * socket_info*, if it could be found */
const struct socket_info* parse_sock_info(str *addr)
{
  int port, proto;
  str host;

  if (!addr || !addr->s)
    return NULL;

  if (parse_phostport(addr->s, addr->len, &host.s, &host.len,
    &port, &proto) != 0) {
    return NULL;
  }

  return grep_internal_sock_info(&host, (unsigned short) port,
    (unsigned short) proto);
}

struct socket_info_full* grep_sock_by_orig_name(unsigned short proto, str *host,
    unsigned short port, struct socket_info_full *resume)
{
  struct socket_info_full *sif, **list;
  str *name;

  if (!host || !host->s)
    return NULL;

  if (proto == PROTO_NONE)
    proto = PROTO_UDP;
  if (proto >= PROTO_LAST || protos[proto].id == PROTO_NONE)
    return NULL;

  if (resume)
    sif = resume->next;
  else {
    list = get_sock_info_list(proto);
    if (!list || !*list)
      return NULL;
    sif = *list;
  }

  for (; sif; sif = sif->next) {
    name = &sif->socket_info.orig_name;
    if (!name->s)
      continue;
    if (name->len != host->len ||
        memcmp(name->s, host->s, name->len) != 0)
      continue;

    if (port && (sif->socket_info.port_no != 0 ||
        protos[proto].default_port != port) &&
        (sif->socket_info.port_no == 0 ||
        sif->socket_info.port_no != port) &&
        sif->socket_info.adv_port != port)
      continue;

    return sif;
  }

  return NULL;
}


/* adds a new sock_info structure to the corresponding list
 * return  0 on success, -1 on error */
int new_sock2list(struct socket_id *sid, str *orig_name,
    struct socket_info_full** list)
{
  struct socket_info_full* si;

  si = new_sock_info(sid, orig_name);
  if (si==0){
    LM_ERR("new_sock_info failed\n");
    goto error;
  }

  sock_listadd(list, si);
  return 0;
error:
  return -1;
}

void push_sock2list(struct socket_info_full *si)
{
  sock_listadd(&protos[si->socket_info.proto].listeners, si);
}

void pop_sock2list(struct socket_info_full *si)
{
  sock_listrm(&protos[si->socket_info.proto].listeners, si);
}

int update_default_socket_info(struct socket_info *si)
{
  switch (si->address.af) {
    case AF_INET:
      if (protos[si->proto].sendipv4 &&
          (protos[si->proto].sendipv4->flags&SI_IS_LO) == 0)
        return 0;
      protos[si->proto].sendipv4 = si;
      return 1;
    case AF_INET6:
      if (protos[si->proto].sendipv6 &&
          (protos[si->proto].sendipv6->flags&SI_IS_LO) == 0)
        return 0;
      protos[si->proto].sendipv6 = si;
      return 1;
    default:
      /* do nothing */
      return 0;
  }
}

void remove_default_socket_info(struct socket_info *si)
{
  struct socket_info_full *sif;
  switch (si->address.af) {
    case AF_INET:
      if (si != protos[si->proto].sendipv4)
        return;
      protos[si->proto].sendipv4 = NULL;
      break;
    case AF_INET6:
      if (si != protos[si->proto].sendipv6)
        return;
      protos[si->proto].sendipv6 = NULL;
      break;
    default:
      /* do nothing */
      return;
  }
  for (sif = protos[si->proto].listeners; sif; sif = sif->next)
    if (update_default_socket_info(&sif->socket_info))
      return;
}

/* add all family type addresses of interface if_name to the socket_info array
 * WARNING: it only works with ipv6 addresses on FreeBSD
 * return: -1 on error, 0 on success
 */
static int expand_interface(const struct socket_info *si, struct socket_info_full** list)
{
  int ret = -1;
  struct ip_addr addr;
  struct socket_id sid;
  str orig_name = si->name;

  sid.port = si->port_no;
  sid.proto = si->proto;
  sid.workers = si->workers;
  sid.tos = si->tos;
  sid.auto_scaling_profile = si->s_profile?si->s_profile->name:NULL;
  sid.adv_port = si->adv_port;
  sid.adv_name = si->adv_name_str.s; /* it is NULL terminated */
  sid.tag = si->tag.s; /* it is NULL terminated */
#ifdef HAVE_IFADDRS
  /* use the getifaddrs interface to get all the interfaces */
  struct ifaddrs *addrs;
  struct ifaddrs *it;

  if (getifaddrs(&addrs) != 0) {
    LM_ERR("cannot get interfaces list: %s(%d)\n", strerror(errno), errno);
    return -1;
  }

  for (it = addrs; it; it = it->ifa_next) {
    if (!it->ifa_addr)
      continue;

    if (si->name.len == 0 || (strcmp(si->name.s, it->ifa_name) == 0)) {
      if (it->ifa_addr->sa_family != AF_INET &&
          it->ifa_addr->sa_family != AF_INET6)
        continue;
      /*
       * if it is ipv6, and there was no explicit interface specified,
       * make sure we don't add any "scoped" interface
       */
      if (it->ifa_addr->sa_family == AF_INET6 &&
          (((struct sockaddr_in6 *)(void *)it->ifa_addr)->sin6_scope_id != 0))

        continue;
      sockaddr2ip_addr(&addr, it->ifa_addr);
      if ((sid.name = ip_addr2a(&addr)) == 0)
        goto end;
      sid.flags = si->flags;
      if (it->ifa_flags & IFF_LOOPBACK)
        sid.flags |= SI_IS_LO;
      if (new_sock2list(&sid, &orig_name, list) != 0) {
        LM_ERR("clone_sock2list failed\n");
        goto end;
      }
      ret = 0;
    }
  }
end:
  freeifaddrs(addrs);
  return ret;
#else
  struct ifconf ifc;
  struct ifreq ifr;
  struct ifreq ifrcopy;
  char*  last;
  char* p;
  int size;
  int lastlen;
  int s;

#ifdef HAVE_SOCKADDR_SA_LEN
  #ifndef MAX
    #define MAX(a,b) ( ((a)>(b))?(a):(b))
  #endif
#endif
  /* ipv4 or ipv6 only*/
  s=socket(AF_INET, SOCK_DGRAM, 0);
  lastlen=0;
  ifc.ifc_req=0;
  for (size=100; ; size*=2){
    ifc.ifc_len=size*sizeof(struct ifreq);
    ifc.ifc_req=(struct ifreq*) pkg_malloc(size*sizeof(struct ifreq));
    if (ifc.ifc_req==0){
      LM_ERR("memory allocation failure\n");
      goto error;
    }
    if (ioctl(s, SIOCGIFCONF, &ifc)==-1){
      if(errno==EBADF) goto error; /* invalid descriptor => no such ifs*/
      LM_ERR("ioctl failed: %s\n", strerror(errno));
      goto error;
    }
    if  ((lastlen) && (ifc.ifc_len==lastlen)) break; /*success,
                               len not changed*/
    lastlen=ifc.ifc_len;
    /* try a bigger array*/
    pkg_free(ifc.ifc_req);
  }

  last=(char*)ifc.ifc_req+ifc.ifc_len;
  for(p=(char*)ifc.ifc_req; p<last;
      p+=
      #ifdef __OS_linux
        sizeof(ifr) /* works on x86_64 too */
      #else
        (sizeof(ifr.ifr_name)+
        #ifdef  HAVE_SOCKADDR_SA_LEN
          MAX(ifr.ifr_addr.sa_len, sizeof(struct sockaddr))
        #else
          ( (ifr.ifr_addr.sa_family==AF_INET)?
            sizeof(struct sockaddr_in):
            ((ifr.ifr_addr.sa_family==AF_INET6)?
            sizeof(struct sockaddr_in6):sizeof(struct sockaddr)) )
        #endif
        )
      #endif
    )
  {
    /* copy contents into ifr structure
     * warning: it might be longer (e.g. ipv6 address) */
    memcpy(&ifr, p, sizeof(ifr));
    if (ifr.ifr_addr.sa_family!=AF_INET){
      /*printf("strange family %d skipping...\n",
          ifr->ifr_addr.sa_family);*/
      continue;
    }

    /*get flags*/
    ifrcopy=ifr;
    if (ioctl(s, SIOCGIFFLAGS,  &ifrcopy)!=-1){ /* ignore errors */
      /* ignore down ifs only if listening on all of them*/
      if (si->name.len==0){
        /* if if not up, skip it*/
        if (!(ifrcopy.ifr_flags & IFF_UP)) continue;
      }
    }

    if (si->name.len == 0 ||
      strncmp(si->name.s, ifr.ifr_name, sizeof(ifr.ifr_name))==0){

      /*add address*/
      sockaddr2ip_addr(&addr,
          (struct sockaddr*)(p+(long)&((struct ifreq*)0)->ifr_addr));
      if ((sid.name=ip_addr2a(&addr))==0) goto error;
      sid.flags = si->flags;
      /* check if loopback */
      if (ifrcopy.ifr_flags & IFF_LOOPBACK)
        sid.flags|=SI_IS_LO;
      /* add it to one of the lists */
      if (new_sock2list(&sid, &orig_name, list) != 0) {
        LM_ERR("clone_sock2list failed\n");
        goto error;
      }
      ret=0;
    }
      /*
      printf("%s:\n", ifr->ifr_name);
      printf("        ");
      print_sockaddr(&(ifr->ifr_addr));
      printf("        ");
      ls_ifflags(ifr->ifr_name, family, options);
      printf("\n");*/
  }
  pkg_free(ifc.ifc_req); /*clean up*/
  close(s);
  return  ret;
error:
  if (ifc.ifc_req) pkg_free(ifc.ifc_req);
  if (s >= 0)
    close(s);
  return -1;
#endif
}


#define STR_IMATCH(str, buf) ((str).len==strlen(buf) && strncasecmp(buf, (str).s, (str).len)==0)
#define ACCEPT_SUBDOMAIN_ALIAS(flags) flags & SI_ACCEPT_SUBDOMAIN_ALIAS

int is_localhost(struct socket_info *si)
{
  return (STR_IMATCH(si->name, "localhost") ||
      STR_IMATCH(si->name, "127.0.0.1") ||
      STR_IMATCH(si->name, "0:0:0:0:0:0:0:1") || STR_IMATCH(si->name, "::1"));
}

int fix_socket(struct socket_info_full *sif, int add_aliases)
{
  char** h;
  char* tmp;
  int len;
  struct hostent* he;
  struct socket_info *si = &sif->socket_info;

  /* fix the number of processes per interface */
  if (!si->workers && is_udp_based_proto(si->proto))
    si->workers = udp_workers_no;
  if (si->port_no==0)
    si->port_no= protos[si->proto].default_port;

  tmp=int2str(si->port_no, &len);
  if (len>=MAX_PORT_LEN){
    LM_ERR("bad port number: %d\n", si->port_no);
    return -1;
  }

  si->port_no_str.s=(char*)pkg_malloc(len+1);
  if (si->port_no_str.s==0){
    LM_ERR("out of pkg memory.\n");
    goto error;
  }
  memcpy(si->port_no_str.s, tmp, len+1);
  si->port_no_str.len=len;
  /* get "official hostnames", all the aliases etc. */
  he=resolvehost(si->name.s,0);
  if (he==0){
    LM_ERR("could not resolve %s\n", si->name.s);
    goto error;
  }
  /* check if we got the official name */
  if (strcasecmp(he->h_name, si->name.s)!=0){
    if (add_aliases && add_alias(si->name.s, si->name.len,
        si->port_no, si->proto, ACCEPT_SUBDOMAIN_ALIAS(si->flags))<0){
      LM_ERR("add_alias failed\n");
    }
    /* change the official name */
    pkg_free(si->name.s);
    si->name.s=(char*)pkg_malloc(strlen(he->h_name)+1);
    if (si->name.s==0){
      LM_ERR("out of pkg memory.\n");
      goto error;
    }
    si->name.len=strlen(he->h_name);
    memcpy(si->name.s, he->h_name, si->name.len+1);
  }
  /* add the aliases*/
  if (add_aliases) {
    for(h=he->h_aliases; h && *h; h++)
      if (add_alias(*h, strlen(*h), si->port_no, si->proto,
              ACCEPT_SUBDOMAIN_ALIAS(si->flags))<0){
        LM_ERR("add_alias failed\n");
      }
  }
  hostent2ip_addr(&si->address, he, 0); /*convert to ip_addr
                           format*/
  if ((tmp=ip_addr2a(&si->address))==0) goto error;
  if (si->address.af == AF_INET6) {
    si->address_str.s=(char*)pkg_malloc(strlen(tmp)+1+2);
    if (si->address_str.s==0){
      LM_ERR("out of pkg memory.\n");
      goto error;
    }
    si->address_str.s[0] = '[';
    memcpy( si->address_str.s+1 , tmp, strlen(tmp));
    si->address_str.s[1+strlen(tmp)] = ']';
    si->address_str.s[2+strlen(tmp)] = '\0';
    si->address_str.len=strlen(tmp) + 2;
  } else {
    si->address_str.s=(char*)pkg_malloc(strlen(tmp)+1);
    if (si->address_str.s==0){
      LM_ERR("out of pkg memory.\n");
      goto error;
    }
    memcpy(si->address_str.s, tmp, strlen(tmp)+1);
    si->address_str.len=strlen(tmp);
  }
  /* set is_ip (1 if name is an ip address, 0 otherwise) */
  if ( auto_aliases && (si->address_str.len==si->name.len) &&
      (strncasecmp(si->address_str.s, si->name.s,
              si->address_str.len)==0)
    ){
      si->flags|=SI_IS_IP;
      /* do rev. DNS on it (for aliases)*/
      he=rev_resolvehost(&si->address);
      if (he==0){
        LM_WARN("could not rev. resolve %s\n", si->name.s);
      }else{
        /* add the aliases*/
        if (add_alias(he->h_name, strlen(he->h_name),
          si->port_no, si->proto, ACCEPT_SUBDOMAIN_ALIAS(si->flags))<0){
          LM_ERR("add_alias failed\n");
        }
        for(h=he->h_aliases; h && *h; h++)
          if (add_alias(*h,strlen(*h),si->port_no,si->proto,
            ACCEPT_SUBDOMAIN_ALIAS(si->flags))<0){
            LM_ERR(" add_alias failed\n");
          }
      }
  }

  /* Now build an ip_addr structure for the adv_name, if there is one
   * so that find_si can find it later easily.  Doing this so that
   * we can force_send_socket() on an advertised name.  Generally there
   * is little interest in dealing with an advertised name as anything
   * other than an opaque string that we blindly put into the SIP
   * message.
   */
    if(si->adv_name_str.len) {
    /* If adv_name_str is already an IP, this is kinda foolish cus it
     * converts it to ip_addr, then to he, then here we go back to
     * ip_addr, but it's either that, or we duplicate the logic to
     * check for an ip address here, and still we might have to call
     * resolvehost().
     */
    he=resolvehost(si->adv_name_str.s,0);
    if (he==0){
      LM_ERR("ERROR: fix_socket_list: could not resolve "
          "advertised name %s\n", si->adv_name_str.s);
      goto error;
    }
    hostent2ip_addr(&si->adv_address, he, 0); /*convert to ip_addr */

    if (si->adv_address.af == AF_INET6 /* translates to IPv6 */
    && str2ip6(&si->adv_name_str)!=NULL /* it's an actual IP */
    && si->adv_name_str.s[0]!='['  )    /* not enclosed */
    {
      tmp = pkg_malloc( si->adv_name_str.len +2 );
      if (tmp==NULL) {
        LM_ERR("failed to convert advertized IPv6 "
          "to enclosed format\n");
        goto error;
      }
      tmp[0] = '[';
      memcpy( tmp+1, si->adv_name_str.s, si->adv_name_str.len);
      tmp[si->adv_name_str.len+1] = ']';
      pkg_free(si->adv_name_str.s);
      si->adv_name_str.s = tmp;
      si->adv_name_str.len += 2;
    }

    /* build and set string encoding for the adv socket info
     * This is usefful for the usrloc module when it's generating
     * or updating the socket on a location record, so we'll generate
     * it up front just like the regular sock_str so we don't have
     * to worry about it later.
     */
    tmp = socket2str( si, 0, &si->adv_sock_str.len, 1);
    if (tmp==0) {
      LM_ERR("ERROR: fix_socket_list: failed to convert "
            "socket to string (adv)\n");
      goto error;
    }
    si->adv_sock_str.s=(char*)pkg_malloc(si->adv_sock_str.len);
    if (si->adv_sock_str.s==0) {
      LM_ERR("ERROR: fix_socket_list: out of memory.\n");
      goto error;
    }
    memcpy(si->adv_sock_str.s, tmp, si->adv_sock_str.len);
  }

  if (si->tag.len) {
    /* build and set string encoding for the tagged socket info */
    tmp = socket2str( si, 0, &si->tag_sock_str.len, 2);
    if (tmp==0) {
      LM_ERR("failed to convert tag socket to string\n");
      goto error;
    }
    si->tag_sock_str.s=(char*)pkg_malloc(si->tag_sock_str.len);
    if (si->tag_sock_str.s==0) {
      LM_ERR("out of pkg memory.\n");
      goto error;
    }
    memcpy(si->tag_sock_str.s, tmp, si->tag_sock_str.len);
  }

  /* build and set string encoding for the real socket info */
  tmp = socket2str( si, 0, &si->sock_str.len, 0);
  if (tmp==0) {
    LM_ERR("failed to convert socket to string\n");
    goto error;
  }
  si->sock_str.s=(char*)pkg_malloc(si->sock_str.len);
  if (si->sock_str.s==0) {
    LM_ERR("out of pkg memory.\n");
    goto error;
  }
  memcpy(si->sock_str.s, tmp, si->sock_str.len);

#ifdef USE_MCAST
  /* Check if it is an multicast address and
   * set the flag if so
   */
  if (is_mcast(&si->address)) {
    si->flags |= SI_IS_MCAST;
  }
#endif /* USE_MCAST */

#ifdef EXTRA_DEBUG
  printf("              %.*s [%s]:%s%s%s\n", si->name.len,
    si->name.s, si->address_str.s, si->port_no_str.s,
                  si->flags & SI_IS_MCAST ? " mcast" : "",
                  is_anycast(si) ? " anycast" : "");
#endif
  return 0;
error:
  return -1;
}

/* fixes a socket list => resolve addresses,
 * interface names, fills missing members, remove duplicates */
int fix_socket_list(struct socket_info_full **list)
{
  struct socket_info_full* sif;
  struct socket_info* si;
  struct socket_info_full* l;
  struct socket_info_full* next;

  /* try to change all the interface names into addresses
   *  --ugly hack */

  for (sif=*list;sif;){
    next=sif->next;
    si = &sif->socket_info;
    // fix the SI_IS_LO flag for sockets specified by IP/hostname as expand_interface
    // below will only do it for sockets specified using the network interface name
    if (is_localhost(si))
      si->flags |= SI_IS_LO;
    if (expand_interface(si, list)!=-1){
      /* success => remove current entry (shift the entire array)*/
      sock_listrm(list, sif);
      free_sock_info(sif);
    }
    sif=next;
  }
  /* get ips & fill the port numbers*/
#ifdef EXTRA_DEBUG
  LM_DBG("listening on \n");
#endif
  for (sif=*list;sif;sif=sif->next){
    si = &sif->socket_info;
    if (fix_socket(sif, auto_aliases) < 0) {
      sock_listrm(list, sif);
      free_sock_info(sif);
    }
  }
  /* removing duplicate addresses*/
  for (sif=*list;sif; sif=sif->next){
    for (l=sif->next;l;){
      next=l->next;
      si = &sif->socket_info;
      const struct socket_info *sl = &l->socket_info;
      if ((si->port_no==sl->port_no) &&
        (si->address.af==sl->address.af) &&
        (memcmp(si->address.u.addr, sl->address.u.addr, si->address.len)
          == 0)
        ){
#ifdef EXTRA_DEBUG
        printf("removing duplicate %s [%s] ==  %s [%s]\n",
            si->name.s, si->address_str.s,
             sl->name.s, sl->address_str.s);
#endif
        /* add the name to the alias list*/
        if ((!(sl->flags& SI_IS_IP)) && (
            (sl->name.len!=si->name.len)||
            (strncmp(sl->name.s, si->name.s, si->name.len)!=0))
          )
          if (add_alias(sl->name.s,sl->name.len,sl->port_no,sl->proto,
              ACCEPT_SUBDOMAIN_ALIAS(sl->flags))<0)
            LM_ERR(" add_alias failed\n");

        /* remove l*/
        sock_listrm(list, l);
        free_sock_info(l);
      }
      l=next;
    }
  }

#ifdef USE_MCAST
       /* Remove invalid multicast entries */
  sif=*list;
  while(sif){
    si = &sif->socket_info;
    if ((si->flags & SI_IS_MCAST) &&
        (si->proto != PROTO_UDP)
       ){
      LM_WARN("removing entry %s:%s [%s]:%s\n",
          get_proto_name(si->proto), si->name.s,
          si->address_str.s, si->port_no_str.s);
      l = sif;
      sif=sif->next;
      sock_listrm(list, l);
      free_sock_info(l);
    } else {
      sif=sif->next;
    }
  }
#endif /* USE_MCAST */

  return 0;
}





/*
 * This function will retrieve a list of all ip addresses and ports that
 * OpenSIPS is listening on, with respect to the transport protocol specified
 * with 'protocol'.
 *
 * The first parameter, ipList, is a pointer to a pointer. It will be assigned
 * a new block of memory holding the IP Addresses and ports being listened to 
 * with respect to 'protocol'.  The array maps a 2D array into a 1 dimensional 
 * space, and is layed out as follows:
 *
 * The first NUM_IP_OCTETS indices will be the IP address, and the next index
 * the port.  So if NUM_IP_OCTETS is equal to 4 and there are two IP addresses
 * found, then:
 *
 *  - ipList[0] will be the first octet of the first ip address
 *  - ipList[3] will be the last octet of the first ip address.
 *  - iplist[4] will be the port of the first ip address
 *  -
 *  - iplist[5] will be the first octet of the first ip address,
 *  - and so on.
 *
 * The function will return the number of sockets which were found.  This can
 * be used to index into ipList.
 *
 * NOTE: This function assigns a block of memory equal to:
 *
 *            returnedValue * (NUM_IP_OCTETS + 1) * sizeof(int);
 *
 *       Therefore it is CRUCIAL that you free ipList when you are done with
 *       its contents, to avoid a nasty memory leak.
 */
int get_socket_list_from_proto(unsigned int **ipList, int protocol) {

  struct socket_info_full  *sif;
  struct socket_info_full ** list;

  int num_ip_octets   = 4;
  int numberOfSockets = 0;
  int currentRow      = 0;

  /* I hate to use #ifdefs, but this is necessary because of the way
   * get_sock_info_list() is defined.  */
  if (protocol == PROTO_TCP)
  {
    return 0;
  }

  if (protocol == PROTO_TLS)
  {
    return 0;
  }

  /* Retrieve the list of sockets with respect to the given protocol. */
  list=get_sock_info_list(protocol);

  /* Find out how many sockets are in the list.  We need to know this so
   * we can malloc an array to assign to ipList. */
  for(sif=list?*list:0; sif; sif=sif->next){
    /* We only support IPV4 at this point. */
    if (sif->socket_info.address.af == AF_INET) {
      numberOfSockets++;
    }
  }

  /* There are no open sockets with respect to the given protocol. */
  if (numberOfSockets == 0)
  {
    return 0;
  }

  *ipList = pkg_malloc(numberOfSockets *
      (num_ip_octets + 1) * (int)sizeof(int));

  /* We couldn't allocate memory for the IP List.  So all we can do is
   * fail. */
  if (*ipList == NULL) {
    LM_ERR("no more pkg memory");
    return 0;
  }


  /* We need to search the list again.  So find the front of the list. */
  list=get_sock_info_list(protocol);

  /* Extract out the IP Addresses and ports.  */
  for(sif=list?*list:0; sif; sif=sif->next){
    const struct socket_info *si = &sif->socket_info;

    /* We currently only support IPV4. */
    if (si->address.af != AF_INET) {
      continue;
    }

    (*ipList)[currentRow*(num_ip_octets + 1)  ] =
      si->address.u.addr[0];
    (*ipList)[currentRow*(num_ip_octets + 1)+1] =
      si->address.u.addr[1];
    (*ipList)[currentRow*(num_ip_octets + 1)+2] =
      si->address.u.addr[2];
    (*ipList)[currentRow*(num_ip_octets + 1)+3] =
      si->address.u.addr[3];
    (*ipList)[currentRow*(num_ip_octets + 1)+4] =
      si->port_no;

    currentRow++;
  }

  return numberOfSockets;
}

/*
 * Takes a 'line' (from the proc file system), parses out the ipAddress,
 * address, and stores the number of bytes waiting in 'rx_queue'
 *
 * Returns 1 on success, and 0 on a failed parse.
 *
 * Note: The format of ipAddress is as defined in the comments of
 * get_socket_list_from_proto() in this file.
 *
 */
static int parse_proc_net_line(char *line, unsigned int *ipAddress, int *rx_queue)
{
  int i;

  unsigned int ipOctetExtractionMask = 0xFF;

  char *currColonLocation;
  char *nextNonNumericalChar;
  char *currentLocationInLine = line;

  unsigned int parsedInteger[4];

  /* Example line from /proc/net/tcp or /proc/net/udp:
   *
   *  sl  local_address rem_address   st tx_queue rx_queue
   *  21: 5A0A0B0A:CAC7 1C016E0A:0016 01 00000000:00000000
   *
   * Algorithm:
   *
   *  1) Find the location of the first  ':'
   *  2) Parse out the IP Address into an integer
   *  3) Find the location of the second ':'
   *  4) Parse out the port number.
   *  5) Find the location of the fourth ':'
   *  6) Parse out the rx_queue.
   */

  for (i = 0; i < 4; i++) {

    currColonLocation = strchr(currentLocationInLine, ':');

    /* We didn't find all the needed ':', so fail. */
    if (currColonLocation == NULL) {
      return 0;
    }

    /* Parse out the integer, keeping the location of the next
     * non-numerical character.  */
    parsedInteger[i] =
      (int) strtol(++currColonLocation, &nextNonNumericalChar,
          16);

    /* strtol()'s specifications specify that the second parameter
     * is set to the first parameter when a number couldn't be
     * parsed out.  This means the parse was unsuccesful.  */
    if (nextNonNumericalChar == currColonLocation) {
      return 0;
    }

    /* Reset the currentLocationInLine to the last non-numerical
     * character, so that next iteration of this loop, we can find
     * the next colon location. */
    currentLocationInLine = nextNonNumericalChar;

  }

  /* Extract out the segments of the IP Address.  They are stored in
   * reverse network byte order. */
  for (i = 0; i < NUM_IP_OCTETS; i++) {

    ipAddress[i] =
      parsedInteger[0] & (ipOctetExtractionMask << i*8);

    ipAddress[i] >>= i*8;

  }

  ipAddress[NUM_IP_OCTETS] = parsedInteger[1];

  *rx_queue = parsedInteger[3];

  return 1;

}


/*
 * Returns 1 if ipOne was found in ipArray, and 0 otherwise.
 *
 * The format of ipOne and ipArray are described in the comments of
 * get_socket_list_from_proto() in this file.
 *
 * */
static int match_ip_and_port(unsigned int *ipOne, unsigned int *ipArray, int sizeOf_ipArray)
{
  int curIPAddrIdx;
  int curOctetIdx;
  int ipArrayIndex;

  /* Loop over every IP Address */
  for (curIPAddrIdx = 0; curIPAddrIdx < sizeOf_ipArray; curIPAddrIdx++) {

    /* Check for octets that don't match.  If one is found, skip the
     * rest.  */
    for (curOctetIdx = 0; curOctetIdx < NUM_IP_OCTETS + 1; curOctetIdx++) {

      /* We've encoded a 2D array as a 1D array.  So find out
       * our position in the 1D array. */
      ipArrayIndex =
        curIPAddrIdx * (NUM_IP_OCTETS + 1) + curOctetIdx;

      if (ipOne[curOctetIdx] != ipArray[ipArrayIndex]) {
        break;
      }
    }

    /* If the index from the inner loop is equal to NUM_IP_OCTETS
     * + 1, then that means that every octet (and the port with the
     * + 1) matched. */
    if (curOctetIdx == NUM_IP_OCTETS + 1) {
      return 1;
    }

  }

  return 0;
}


/*
 * Returns the number of bytes waiting to be consumed on the network interfaces
 * assigned the IP Addresses specified in interfaceList.  The check will be
 * limited to the TCP or UDP transport exclusively.  Specifically:
 *
 * - If forTCP is non-zero, the check involves only the TCP transport.
 * - if forTCP is zero, the check involves only the UDP transport.
 *
 * Note: This only works on linux systems supporting the /proc/net/[tcp|udp]
 *       interface.  On other systems, zero will always be returned.
 */
static int get_used_waiting_queue(
    int forTCP, unsigned int *interfaceList, int listSize)
{
  FILE *fp;
  char *fileToOpen;

  char lineBuffer[MAX_PROC_BUFFER];
  unsigned int  ipAddress[NUM_IP_OCTETS+1];
  int  rx_queue;
  int  waitingQueueSize = 0;

  if (listSize==0 || interfaceList==NULL)
    return 0;

  /* Set up the file we want to open. */
  if (forTCP) {
    fileToOpen = "/proc/net/tcp";
  } else {
    fileToOpen = "/proc/net/udp";
  }

  fp = fopen(fileToOpen, "r");

  if (fp == NULL) {
    LM_DBG("Could not open %s. openserMsgQueu eDepth and its related"
        " alarms will not be available.\n", fileToOpen);
    return 0;
  }

  /* Read in every line of the file, parse out the ip address, port, and
   * rx_queue, and compare to our list of interfaces we are listening on.
   * Add up rx_queue for those lines which match our known interfaces. */
  while (fgets(lineBuffer, MAX_PROC_BUFFER, fp)!=NULL) {

    /* Parse out the ip address, port, and rx_queue. */
    if(parse_proc_net_line(lineBuffer, ipAddress, &rx_queue)) {

      /* Only add rx_queue if the line just parsed corresponds
       * to an interface we are listening on.  We do this
       * check because it is possible that this system has
       * other network interfaces that OpenSER has been told
       * to ignore. */
      if (match_ip_and_port(ipAddress, interfaceList, listSize)) {
        waitingQueueSize += rx_queue;
      }
    }
  }

  fclose(fp);

  return waitingQueueSize;
}

/*
 * Returns the sum of the number of bytes waiting to be consumed on all network
 * interfaces and transports that OpenSIPS is listening on.
 *
 * Note: This currently only works on systems supporting the /proc/net/[tcp|udp]
 *       interface.  On other systems, zero will always be returned.  To change
 *       this in the future, add an equivalent for get_used_waiting_queue().
 */
int get_total_bytes_waiting(int only_proto)
{
  static unsigned int *UDPList  = NULL;
  static unsigned int *TCPList  = NULL;
  static unsigned int *TLSList  = NULL;

  static int numUDPSockets  = -1;
  static int numTCPSockets  = -1;
  static int numTLSSockets  = -1;

  int bytesWaiting = 0;

  /* Extract out the IP address address for UDP, TCP, and TLS, keeping
   * track of the number of IP addresses from each transport  */
  if (numUDPSockets==-1)
    numUDPSockets  = get_socket_list_from_proto(&UDPList,  PROTO_UDP);
  if (numTCPSockets==-1)
    numTCPSockets  = get_socket_list_from_proto(&TCPList,  PROTO_TCP);
  if (numTLSSockets==-1)
    numTLSSockets  = get_socket_list_from_proto(&TLSList,  PROTO_TLS);

  /* Find out the number of bytes waiting on our interface list over all
   * UDP and TCP transports. */
  if (only_proto==PROTO_NONE) {
    bytesWaiting  += get_used_waiting_queue(0, UDPList,  numUDPSockets);
    bytesWaiting  += get_used_waiting_queue(1, TCPList,  numTCPSockets);
    bytesWaiting  += get_used_waiting_queue(1, TLSList,  numTLSSockets);
  } else if (only_proto==PROTO_UDP) {
    bytesWaiting  += get_used_waiting_queue(0, UDPList,  numUDPSockets);
  } else if (only_proto==PROTO_TCP) {
    bytesWaiting  += get_used_waiting_queue(1, TCPList,  numTCPSockets);
  } else if (only_proto==PROTO_TLS) {
    bytesWaiting  += get_used_waiting_queue(1, TLSList,  numTLSSockets);
  }

  return bytesWaiting;
}



void print_aliases(void)
{
  struct host_alias* a;

  for(a=aliases; a; a=a->next)
    if (a->port)
      printf("             %s: %.*s:%d\n", get_proto_name(a->proto),
          a->alias.len, a->alias.s, a->port);
    else
      printf("             %s: %.*s:*\n", get_proto_name(a->proto),
          a->alias.len, a->alias.s);
}

/*
 * Arguments :
 *    sock - socket to have buffer increased
 *    buff_choice - 0 for receive buff, 1 for send buff
 *    buff_max - max size of socket buffer we are looking for
 *    buff_increment - increment nr of bytes after reaching limit
 *
 *  Returns :
 *    0 in case of success
 *    1 in case of failure
*/
int probe_max_sock_buff(int sock,int buff_choice,int buff_max,int buff_increment)
{
  unsigned int optval, ioptval, ioptvallen, foptval, foptvallen, voptval, voptvallen;
  int phase=0;
  int buff_opt;
  char *info;

  if (buff_choice == 0)
  {
    info = "rcv";
    buff_opt = SO_RCVBUF;
  }
  else if (buff_choice == 1)
  {
    info = "snd";
    buff_opt = SO_SNDBUF;
  }
  else
  {
    LM_WARN("Called with unimplemented buff_choice - %d\n",buff_choice);
    return 1;
  }

  /* try to increase buffer size as much as we can */
  ioptvallen=sizeof(ioptval);
  if (getsockopt( sock, SOL_SOCKET, buff_opt, (void*) &ioptval,
        &ioptvallen) == -1 )
  {
    LM_ERR("getsockopt: %s\n", strerror(errno));
    return -1;
  }
  if ( ioptval==0 )
  {
    LM_DBG(" getsockopt: %s initially set to 0; resetting to %d\n",
      info,buff_increment );
    ioptval=buff_increment;
  } else LM_DBG("getsockopt: %s is initially %d\n",info, ioptval );
  for (optval=ioptval; ;  ) {
    /* increase size; double in initial phase, add linearly later */
    if (phase==0) optval <<= 1; else optval+=buff_increment;
    if (optval > maxbuffer){
      if (phase==1) break;
      else { phase=1; optval >>=1; continue; }
    }
    /* LM_DBG("trying : %d\n", optval ); */
    if (setsockopt( sock, SOL_SOCKET, buff_opt,
      (void*)&optval, sizeof(optval)) ==-1){
      /* Solaris returns -1 if asked size too big; Linux ignores */
      LM_DBG("setsockopt: SOL_SOCKET failed"
          " for %d, phase %d: %s\n", optval, phase, strerror(errno));
      /* if setting buffer size failed and still in the aggressive
         phase, try less aggressively; otherwise give up */
      if (phase==0) { phase=1; optval >>=1 ; continue; }
      else break;
    }
    /* verify if change has taken effect */
    /* Linux note -- otherwise I would never know that; funny thing: Linux
       doubles size for which we asked in setsockopt */
    voptvallen=sizeof(voptval);
    if (getsockopt( sock, SOL_SOCKET, buff_opt, (void*) &voptval,
        &voptvallen) == -1 )
    {
      LM_ERR("getsockopt: %s\n", strerror(errno));
      return -1;
    } else {
      /*LM_DBG("setting %s: set=%d,verify=%d\n",info,
        optval, voptval);*/
      if (voptval<optval) {
        LM_DBG("setting %s buf to %d had no effect\n",info,optval);
        /* if setting buffer size failed and still in the aggressive
        phase, try less aggressively; otherwise give up */
        if (phase==0) { phase=1; optval >>=1 ; continue; }
        else break;
      }
    }

  } /* for ... */
  foptvallen=sizeof(foptval);
  if (getsockopt( sock, SOL_SOCKET, buff_opt, (void*) &foptval,
        &foptvallen) == -1 )
  {
    LM_ERR("getsockopt: %s\n", strerror(errno));
    return -1;
  }
  LM_DBG("using %s buffer of %d kb\n",info, (foptval/1024));

  return 0;
}

struct socket_id *socket_info2id(struct socket_info *si)
{
  static struct socket_id sid;

  memset(&sid, 0, sizeof sid);
  sid.name = si->name.s;
  sid.adv_name = si->adv_sock_str.s;
  sid.tag = si->tag.s;
  if (si->s_profile)
    sid.auto_scaling_profile = si->s_profile->name;
  sid.adv_port = si->adv_port;
  sid.proto = si->proto;
  sid.port = si->port_no;
  sid.workers = si->workers;
  return &sid;
}

Coverage Report

Created: 2026-10-28 06:08