/*
* $Id$
*
* Copyright (C) 2001-2003 Fhg Fokus
*
* This file is part of ser, a free SIP server.
*
* ser 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
*
* For a license to use the ser software under conditions
* other than those described here, or to purchase support for this
* software, please contact iptel.org by e-mail at the following addresses:
* info@iptel.org
*
* ser 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/*
* History:
* --------
* 2002-11-29 created by andrei
* 2002-12-11 added tcp_send (andrei)
* 2003-01-20 locking fixes, hashtables (andrei)
* 2003-02-20 s/lock_t/gen_lock_t/ to avoid a conflict on solaris (andrei)
* 2003-02-25 Nagle is disabled if -DDISABLE_NAGLE (andrei)
* 2003-03-29 SO_REUSEADDR before calling bind to allow
* server restart, Nagle set on the (hopefuly)
* correct socket (jiri)
* 2003-03-31 always try to find the corresponding tcp listen socket for
* a temp. socket and store in in *->bind_address: added
* find_tcp_si, modified tcpconn_connect (andrei)
* 2003-04-14 set sockopts to TOS low delay (andrei)
*/
#ifdef USE_TCP
#ifndef SHM_MEM
#error "shared memory support needed (add -DSHM_MEM to Makefile.defs)"
#endif
#include <sys/time.h>
#include <sys/types.h>
#include <sys/select.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>
#include <netinet/tcp.h>
#include <sys/uio.h> /* writev*/
#include <netdb.h>
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include "ip_addr.h"
#include "pass_fd.h"
#include "tcp_conn.h"
#include "globals.h"
#include "pt.h"
#include "locking.h"
#include "mem/mem.h"
#include "mem/shm_mem.h"
#include "timer.h"
#include "sr_module.h"
#include "tcp_server.h"
#include "tcp_init.h"
#define local_malloc pkg_malloc
#define local_free pkg_free
#define MAX_TCP_CHILDREN 100
struct tcp_child{
pid_t pid;
int unix_sock; /* unix sock fd, copied from pt*/
int busy;
int n_reqs; /* number of requests serviced so far */
};
/* connection hash table (after ip&port) */
struct tcp_connection** tcpconn_addr_hash=0;
/* connection hash table (after connection id) */
struct tcp_connection** tcpconn_id_hash=0;
gen_lock_t* tcpconn_lock=0;
struct tcp_child tcp_children[MAX_TCP_CHILDREN];
static int connection_id=1; /* unique for each connection, used for
quickly finding the corresponding connection
for a reply */
int unix_tcp_sock;
int tcp_proto_no=-1; /* tcp protocol number as returned by getprotobyname */
struct tcp_connection* tcpconn_new(int sock, union sockaddr_union* su,
struct socket_info* ba)
{
struct tcp_connection *c;
c=(struct tcp_connection*)shm_malloc(sizeof(struct tcp_connection));
if (c==0){
LOG(L_ERR, "ERROR: tcpconn_add: mem. allocation failure\n");
goto error;
}
c->s=sock;
c->fd=-1; /* not initialized */
if (lock_init(&c->write_lock)==0){
LOG(L_ERR, "ERROR: tcpconn_add: init lock failed\n");
goto error;
}
c->rcv.src_su=*su;
c->refcnt=0;
c->bad=0;
su2ip_addr(&c->rcv.src_ip, su);
c->rcv.src_port=su_getport(su);
c->rcv.proto=PROTO_TCP;
c->rcv.bind_address=ba;
if (ba){
c->rcv.dst_ip=ba->address;
c->rcv.dst_port=ba->port_no;
}
init_tcp_req(&c->req);
c->timeout=get_ticks()+TCP_CON_TIMEOUT;
c->id=connection_id++;
c->rcv.proto_reserved1=0; /* this will be filled before receive_message*/
c->rcv.proto_reserved2=0;
return c;
error:
return 0;
}
struct socket_info* find_tcp_si(union sockaddr_union* s)
{
int r;
struct ip_addr ip;
su2ip_addr(&ip, s);
for (r=0; r<sock_no; r++)
if (ip_addr_cmp(&ip, &tcp_info[r].address)){
/* found it, we use first match */
return &tcp_info[r];
}
return 0; /* no match */
}
struct tcp_connection* tcpconn_connect(union sockaddr_union* server)
{
int s;
struct socket_info* si;
union sockaddr_union my_name;
socklen_t my_name_len;
int optval;
#ifdef DISABLE_NAGLE
int flag;
#endif
s=socket(AF2PF(server->s.sa_family), SOCK_STREAM, 0);
if (s<0){
LOG(L_ERR, "ERROR: tcpconn_connect: socket: (%d) %s\n",
errno, strerror(errno));
goto error;
}
#ifdef DISABLE_NAGLE
flag=1;
if ( (tcp_proto_no!=-1) && (setsockopt(s, tcp_proto_no , TCP_NODELAY,
&flag, sizeof(flag))<0) ){
LOG(L_ERR, "ERROR: tcp_connect: could not disable Nagle: %s\n",
strerror(errno));
}
#endif
/* tos*/
optval=IPTOS_LOWDELAY;
if (setsockopt(s, IPPROTO_IP, IP_TOS, (void*)&optval, sizeof(optval)) ==-1){
LOG(L_WARN, "WARNING: tcpconn_connect: setsockopt tos: %s\n",
strerror(errno));
/* continue since this is not critical */
}
if (connect(s, &server->s, sockaddru_len(*server))<0){
LOG(L_ERR, "ERROR: tcpconn_connect: connect: (%d) %s\n",
errno, strerror(errno));
goto error;
}
my_name_len=sizeof(my_name);
if (getsockname(s, &my_name.s, &my_name_len)!=0){
LOG(L_ERR, "ERROR: tcp_connect: getsockname failed: %s(%d)\n",
strerror(errno), errno);
si=0; /* try to go on */
}
si=find_tcp_si(&my_name);
if (si==0){
LOG(L_ERR, "ERROR: tcp_connect: could not find coresponding"
" listening socket, using default...\n");
if (server->s.sa_family==AF_INET) si=sendipv4_tcp;
#ifdef USE_IPV6
else si=sendipv6_tcp;
#endif
}
return tcpconn_new(s, server, si); /*FIXME: set sock idx! */
error:
return 0;
}
struct tcp_connection* tcpconn_add(struct tcp_connection *c)
{
unsigned hash;
if (c){
TCPCONN_LOCK;
/* add it at the begining of the list*/
hash=tcp_addr_hash(&c->rcv.src_ip, c->rcv.src_port);
c->addr_hash=hash;
tcpconn_listadd(tcpconn_addr_hash[hash], c, next, prev);
hash=tcp_id_hash(c->id);
c->id_hash=hash;
tcpconn_listadd(tcpconn_id_hash[hash], c, id_next, id_prev);
TCPCONN_UNLOCK;
DBG("tcpconn_add: hashes: %d, %d\n", c->addr_hash, c->id_hash);
return c;
}else{
LOG(L_CRIT, "tcpconn_add: BUG: null connection pointer\n");
return 0;
}
}
/* unsafe tcpconn_rm version (nolocks) */
void _tcpconn_rm(struct tcp_connection* c)
{
tcpconn_listrm(tcpconn_addr_hash[c->addr_hash], c, next, prev);
tcpconn_listrm(tcpconn_id_hash[c->id_hash], c, id_next, id_prev);
lock_destroy(&c->write_lock);
shm_free(c);
}
void tcpconn_rm(struct tcp_connection* c)
{
TCPCONN_LOCK;
tcpconn_listrm(tcpconn_addr_hash[c->addr_hash], c, next, prev);
tcpconn_listrm(tcpconn_id_hash[c->id_hash], c, id_next, id_prev);
TCPCONN_UNLOCK;
lock_destroy(&c->write_lock);
shm_free(c);
}
/* finds a connection, if id=0 uses the ip addr & port (host byte order)
* WARNING: unprotected (locks) use tcpconn_get unless you really
* know what you are doing */
struct tcp_connection* _tcpconn_find(int id, struct ip_addr* ip, int port)
{
struct tcp_connection *c;
unsigned hash;
#ifdef EXTRA_DEBUG
DBG("tcpconn_find: %d ",id ); print_ip(ip); DBG(" %d\n", port);
#endif
if (id){
hash=tcp_id_hash(id);
for (c=tcpconn_id_hash[hash]; c; c=c->id_next){
#ifdef EXTRA_DEBUG
DBG("c=%p, c->id=%d, ip=",c, c->id);
print_ip(&c->rcv.src_ip);
DBG(" port=%d\n", c->rcv.src_port);
#endif
if ((id==c->id)&&(!c->bad)) return c;
}
}else if (ip){
hash=tcp_addr_hash(ip, port);
for (c=tcpconn_addr_hash[hash]; c; c=c->next){
#ifdef EXTRA_DEBUG
DBG("c=%p, c->id=%d, ip=",c, c->id);
print_ip(&c->rcv.src_ip);
DBG(" port=%d\n", c->rcv.src_port);
#endif
if ( (!c->bad) && (port==c->rcv.src_port) &&
(ip_addr_cmp(ip, &c->rcv.src_ip)) )
return c;
}
}
return 0;
}
/* _tcpconn_find with locks and timeout */
struct tcp_connection* tcpconn_get(int id, struct ip_addr* ip, int port,
int timeout)
{
struct tcp_connection* c;
TCPCONN_LOCK;
c=_tcpconn_find(id, ip, port);
if (c){
c->refcnt++;
c->timeout=get_ticks()+timeout;
}
TCPCONN_UNLOCK;
return c;
}
void tcpconn_put(struct tcp_connection* c)
{
c->refcnt--; /* FIXME: atomic_dec */
}
/* finds a tcpconn & sends on it */
int tcp_send(char* buf, unsigned len, union sockaddr_union* to, int id)
{
struct tcp_connection *c;
struct ip_addr ip;
int port;
int fd;
long response[2];
int n;
port=0;
if (to){
su2ip_addr(&ip, to);
port=su_getport(to);
c=tcpconn_get(id, &ip, port, TCP_CON_SEND_TIMEOUT);
}else if (id){
c=tcpconn_get(id, 0, 0, TCP_CON_SEND_TIMEOUT);
}else{
LOG(L_CRIT, "BUG: tcp_send called with null id & to\n");
return -1;
}
if (id){
if (c==0) {
if (to){
/* try again w/o id */
c=tcpconn_get(0, &ip, port, TCP_CON_SEND_TIMEOUT);
goto no_id;
}else{
LOG(L_ERR, "ERROR: tcp_send: id %d not found, dropping\n",
id);
return -1;
}
}else goto get_fd;
}
no_id:
if (c==0){
DBG("tcp_send: no open tcp connection found, opening new one\n");
/* create tcp connection */
if ((c=tcpconn_connect(to))==0){
LOG(L_ERR, "ERROR: tcp_send: connect failed\n");
return -1;
}
c->refcnt++;
fd=c->s;
/* send the new tcpconn to "tcp main" */
response[0]=(long)c;
response[1]=CONN_NEW;
n=write(unix_tcp_sock, response, sizeof(response));
if (n<0){
LOG(L_ERR, "BUG: tcp_send: failed write: %s (%d)\n",
strerror(errno), errno);
goto end;
}
n=send_fd(unix_tcp_sock, &c, sizeof(c), c->s);
if (n<0){
LOG(L_ERR, "BUG: tcp_send: failed send_fd: %s (%d)\n",
strerror(errno), errno);
goto end;
}
goto send_it;
}
get_fd:
/* todo: see if this is not the same process holding
* c and if so send directly on c->fd */
DBG("tcp_send: tcp connection found, acquiring fd\n");
/* get the fd */
response[0]=(long)c;
response[1]=CONN_GET_FD;
n=write(unix_tcp_sock, response, sizeof(response));
if (n<0){
LOG(L_ERR, "BUG: tcp_send: failed to get fd(write):%s (%d)\n",
strerror(errno), errno);
goto release_c;
}
DBG("tcp_send, c= %p, n=%d\n", c, n);
n=receive_fd(unix_tcp_sock, &c, sizeof(c), &fd);
if (n<0){
LOG(L_ERR, "BUG: tcp_send: failed to get fd(receive_fd):"
" %s (%d)\n", strerror(errno), errno);
goto release_c;
}
DBG("tcp_send: after receive_fd: c= %p n=%d fd=%d\n",c, n, fd);
send_it:
DBG("tcp_send: sending...\n");
lock_get(&c->write_lock);
n=send(fd, buf, len,
#ifdef HAVE_MSG_NOSIGNAL
MSG_NOSIGNAL
#else
0
#endif
);
lock_release(&c->write_lock);
DBG("tcp_send: after write: c= %p n=%d fd=%d\n",c, n, fd);
DBG("tcp_send: buf=\n%.*s\n", (int)len, buf);
if (n<0){
if (errno==EINTR) goto send_it; /* interrupted write, try again*/
/* keep the lock or lock/unlock again?*/
LOG(L_ERR, "ERROR: tcpsend: failed to send, n=%d: %s (%d)\n",
n, strerror(errno), errno);
/* error on the connection , mark it as bad and set 0 timeout */
c->bad=1;
c->timeout=0;
/* tell "main" it should drop this (optional it will t/o anyway?)*/
response[0]=(long)c;
response[1]=CONN_ERROR;
n=write(unix_tcp_sock, response, sizeof(response));
if (n<0){
LOG(L_ERR, "BUG: tcp_send: failed to get fd(write):%s (%d)\n",
strerror(errno), errno);
goto release_c;
}
}
end:
close(fd);
release_c:
tcpconn_put(c); /* release c (lock; dec refcnt; unlock) */
return n;
}
/* very ineficient for now - FIXME*/
void tcpconn_timeout(fd_set* set)
{
struct tcp_connection *c, *next;
int ticks;
unsigned h;;
ticks=get_ticks();
TCPCONN_LOCK; /* fixme: we can lock only on delete IMO */
for(h=0; h<TCP_ADDR_HASH_SIZE; h++){
c=tcpconn_addr_hash[h];
while(c){
next=c->next;
if ((c->refcnt==0) && (ticks>c->timeout)) {
DBG("tcpconn_timeout: timeout for hash=%d - %p (%d > %d)\n",
h, c, ticks, c->timeout);
if (c->s>0) {
FD_CLR(c->s, set);
close(c->s);
}
_tcpconn_rm(c);
}
c=next;
}
}
TCPCONN_UNLOCK;
}
int tcp_init(struct socket_info* sock_info)
{
union sockaddr_union* addr;
int optval;
#ifdef DISABLE_NAGLE
int flag;
struct protoent* pe;
if (tcp_proto_no==-1){ /* if not already set */
pe=getprotobyname("tcp");
if (pe==0){
LOG(L_ERR, "ERROR: tcp_init: could not get TCP protocol number\n");
tcp_proto_no=-1;
}else{
tcp_proto_no=pe->p_proto;
}
}
#endif
addr=&sock_info->su;
sock_info->proto=PROTO_TCP;
if (init_su(addr, &sock_info->address, sock_info->port_no)<0){
LOG(L_ERR, "ERROR: tcp_init: could no init sockaddr_union\n");
goto error;
}
sock_info->socket=socket(AF2PF(addr->s.sa_family), SOCK_STREAM, 0);
if (sock_info->socket==-1){
LOG(L_ERR, "ERROR: tcp_init: socket: %s\n", strerror(errno));
goto error;
}
#ifdef DISABLE_NAGLE
flag=1;
if ( (tcp_proto_no!=-1) &&
(setsockopt(sock_info->socket, tcp_proto_no , TCP_NODELAY,
&flag, sizeof(flag))<0) ){
LOG(L_ERR, "ERROR: tcp_init: could not disable Nagle: %s\n",
strerror(errno));
}
#endif
#if !defined(TCP_DONT_REUSEADDR)
/* Stevens, "Network Programming", Section 7.5, "Generic Socket
* Options": "...server started,..a child continues..on existing
* connection..listening server is restarted...call to bind fails
* ... ALL TCP servers should specify the SO_REUSEADDRE option
* to allow the server to be restarted in this situation
*
* Indeed, without this option, the server can't restart.
* -jiri
*/
optval=1;
if (setsockopt(sock_info->socket, SOL_SOCKET, SO_REUSEADDR,
(void*)&optval, sizeof(optval))==-1) {
LOG(L_ERR, "ERROR: tcp_init: setsockopt %s\n",
strerror(errno));
goto error;
}
#endif
/* tos */
optval=IPTOS_LOWDELAY;
if (setsockopt(sock_info->socket, IPPROTO_IP, IP_TOS, (void*)&optval,
sizeof(optval)) ==-1){
LOG(L_WARN, "WARNING: tcp_init: setsockopt tos: %s\n", strerror(errno));
/* continue since this is not critical */
}
if (bind(sock_info->socket, &addr->s, sockaddru_len(*addr))==-1){
LOG(L_ERR, "ERROR: tcp_init: bind(%x, %p, %d) on %s: %s\n",
sock_info->socket, &addr->s,
sockaddru_len(*addr),
sock_info->address_str.s,
strerror(errno));
goto error;
}
if (listen(sock_info->socket, 10)==-1){
LOG(L_ERR, "ERROR: tcp_init: listen(%x, %p, %d) on %s: %s\n",
sock_info->socket, &addr->s,
sockaddru_len(*addr),
sock_info->address_str.s,
strerror(errno));
goto error;
}
return 0;
error:
if (sock_info->socket!=-1){
close(sock_info->socket);
sock_info->socket=-1;
}
return -1;
}
static int send2child(struct tcp_connection* tcpconn)
{
int i;
int min_busy;
int idx;
min_busy=tcp_children[0].busy;
idx=0;
for (i=0; i<tcp_children_no; i++){
if (!tcp_children[i].busy){
idx=i;
min_busy=0;
break;
}else if (min_busy>tcp_children[i].busy){
min_busy=tcp_children[i].busy;
idx=i;
}
}
tcp_children[idx].busy++;
tcp_children[idx].n_reqs++;
tcpconn->refcnt++;
if (min_busy){
LOG(L_WARN, "WARNING: send2child:no free tcp receiver, "
" connection passed to the least busy one (%d)\n",
min_busy);
}
DBG("send2child: to child %d, %ld\n", idx, (long)tcpconn);
send_fd(tcp_children[idx].unix_sock, &tcpconn, sizeof(tcpconn),
tcpconn->s);
return 0; /* just to fix a warning*/
}
void tcp_main_loop()
{
int r;
int n;
fd_set master_set;
fd_set sel_set;
int maxfd;
int new_sock;
union sockaddr_union su;
struct tcp_connection* tcpconn;
unsigned h;
long response[2];
int cmd;
int bytes;
socklen_t su_len;
struct timeval timeout;
/*init */
maxfd=0;
FD_ZERO(&master_set);
/* set all the listen addresses */
for (r=0; r<sock_no; r++){
if ((tcp_info[r].proto==PROTO_TCP) &&(tcp_info[r].socket!=-1)){
FD_SET(tcp_info[r].socket, &master_set);
if (tcp_info[r].socket>maxfd) maxfd=tcp_info[r].socket;
}
}
/* set all the unix sockets used for child comm */
for (r=1; r<process_no; r++){
if (pt[r].unix_sock>0){ /* we can't have 0, we never close it!*/
FD_SET(pt[r].unix_sock, &master_set);
if (pt[r].unix_sock>maxfd) maxfd=pt[r].unix_sock;
}
}
/* main loop*/
while(1){
sel_set=master_set;
timeout.tv_sec=TCP_MAIN_SELECT_TIMEOUT;
timeout.tv_usec=0;
n=select(maxfd+1, &sel_set, 0 ,0 , &timeout);
if (n<0){
if (errno==EINTR) continue; /* just a signal */
/* errors */
LOG(L_ERR, "ERROR: tcp_main_loop: select:(%d) %s\n", errno,
strerror(errno));
n=0;
}
for (r=0; r<sock_no && n; r++){
if ((FD_ISSET(tcp_info[r].socket, &sel_set))){
/* got a connection on r */
su_len=sizeof(su);
new_sock=accept(tcp_info[r].socket, &(su.s), &su_len);
n--;
if (new_sock<0){
LOG(L_ERR, "WARNING: tcp_main_loop: error while accepting"
" connection(%d): %s\n", errno, strerror(errno));
continue;
}
/* add socket to list */
tcpconn=tcpconn_new(new_sock, &su, &tcp_info[r]);
if (tcpconn){
tcpconn_add(tcpconn);
DBG("tcp_main_loop: new connection: %p %d\n",
tcpconn, tcpconn->s);
/* pass it to a child */
if(send2child(tcpconn)<0){
LOG(L_ERR,"ERROR: tcp_main_loop: no children "
"available\n");
TCPCONN_LOCK;
if (tcpconn->refcnt==0){
close(tcpconn->s);
_tcpconn_rm(tcpconn);
}else tcpconn->timeout=0; /* force expire */
TCPCONN_UNLOCK;
}
}
}
}
/* check all the read fds (from the tcpconn_addr_hash ) */
for (h=0; h<TCP_ADDR_HASH_SIZE; h++){
for(tcpconn=tcpconn_addr_hash[h]; tcpconn && n;
tcpconn=tcpconn->next){
if ((tcpconn->refcnt==0)&&(FD_ISSET(tcpconn->s, &sel_set))){
/* new data available */
n--;
/* pass it to child, so remove it from select list */
DBG("tcp_main_loop: data available on %p [h:%d] %d\n",
tcpconn, h, tcpconn->s);
FD_CLR(tcpconn->s, &master_set);
if (send2child(tcpconn)<0){
LOG(L_ERR,"ERROR: tcp_main_loop: no "
"children available\n");
TCPCONN_LOCK;
if (tcpconn->refcnt==0){
close(tcpconn->s);
_tcpconn_rm(tcpconn);
}else tcpconn->timeout=0; /* force expire*/
TCPCONN_UNLOCK;
}
}
}
}
/* check unix sockets & listen | destroy connections */
/* start from 1, the "main" process does not transmit anything*/
for (r=1; r<process_no && n; r++){
if ( (pt[r].unix_sock>0) && FD_ISSET(pt[r].unix_sock, &sel_set)){
/* (we can't have a fd==0, 0 i s never closed )*/
n--;
/* errno==EINTR !!! TODO*/
read_again:
bytes=read(pt[r].unix_sock, response, sizeof(response));
if (bytes==0){
/* EOF -> bad, child has died */
LOG(L_CRIT, "BUG: tcp_main_loop: dead child %d\n", r);
/* don't listen on it any more */
FD_CLR(pt[r].unix_sock, &master_set);
/*exit(-1)*/;
}else if (bytes<0){
if (errno==EINTR) goto read_again;
else{
LOG(L_CRIT, "ERROR: tcp_main_loop: read from child: "
" %s\n", strerror(errno));
/* try to continue ? */
}
}
DBG("tcp_main_loop: read response= %lx, %ld from %d (%d)\n",
response[0], response[1], r, pt[r].pid);
cmd=response[1];
switch(cmd){
case CONN_RELEASE:
if (pt[r].idx>=0){
tcp_children[pt[r].idx].busy--;
}else{
LOG(L_CRIT, "BUG: tcp_main_loop: CONN_RELEASE\n");
}
tcpconn=(struct tcp_connection*)response[0];
if (tcpconn){
if (tcpconn->bad) goto tcpconn_destroy;
FD_SET(tcpconn->s, &master_set);
if (maxfd<tcpconn->s) maxfd=tcpconn->s;
/* update the timeout*/
tcpconn->timeout=get_ticks()+TCP_CON_TIMEOUT;
tcpconn_put(tcpconn);
DBG("tcp_main_loop: %p refcnt= %d\n",
tcpconn, tcpconn->refcnt);
}
break;
case CONN_ERROR:
case CONN_DESTROY:
case CONN_EOF:
if (pt[r].idx>=0){
tcp_children[pt[r].idx].busy--;
}else{
LOG(L_CRIT, "BUG: tcp_main_loop: CONN_RELEASE\n");
}
tcpconn=(struct tcp_connection*)response[0];
if (tcpconn){
if (tcpconn->s!=-1)
FD_CLR(tcpconn->s, &master_set);
tcpconn_destroy:
TCPCONN_LOCK; /*avoid races w/ tcp_send*/
tcpconn->refcnt--;
if (tcpconn->refcnt==0){
DBG("tcp_main_loop: destroying connection\n");
close(tcpconn->s);
_tcpconn_rm(tcpconn);
}else{
/* force timeout */
tcpconn->timeout=0;
tcpconn->bad=1;
DBG("tcp_main_loop: delaying ...\n");
}
TCPCONN_UNLOCK;
}
break;
case CONN_GET_FD:
/* send the requested FD */
tcpconn=(struct tcp_connection*)response[0];
/* WARNING: take care of setting refcnt properly to
* avoid race condition */
if (tcpconn){
send_fd(pt[r].unix_sock, &tcpconn,
sizeof(tcpconn), tcpconn->s);
}else{
LOG(L_CRIT, "BUG: tcp_main_loop: null pointer\n");
}
break;
case CONN_NEW:
/* update the fd in the requested tcpconn*/
tcpconn=(struct tcp_connection*)response[0];
/* WARNING: take care of setting refcnt properly to
* avoid race condition */
if (tcpconn){
receive_fd(pt[r].unix_sock, &tcpconn,
sizeof(tcpconn), &tcpconn->s);
/* add tcpconn to the list*/
tcpconn_add(tcpconn);
FD_SET(tcpconn->s, &master_set);
if (maxfd<tcpconn->s) maxfd=tcpconn->s;
/* update the timeout*/
tcpconn->timeout=get_ticks()+TCP_CON_TIMEOUT;
}else{
LOG(L_CRIT, "BUG: tcp_main_loop: null pointer\n");
}
break;
default:
LOG(L_CRIT, "BUG: tcp_main_loop: unknown cmd %d\n",
cmd);
}
}
}
/* remove old connections */
tcpconn_timeout(&master_set);
}
}
int init_tcp()
{
/* init lock */
tcpconn_lock=lock_alloc();
if (tcpconn_lock==0){
LOG(L_CRIT, "ERROR: init_tcp: could not alloc lock\n");
goto error;
}
if (lock_init(tcpconn_lock)==0){
LOG(L_CRIT, "ERROR: init_tcp: could not init lock\n");
lock_dealloc((void*)tcpconn_lock);
tcpconn_lock=0;
goto error;
}
/* alloc hashtables*/
tcpconn_addr_hash=(struct tcp_connection**)shm_malloc(TCP_ADDR_HASH_SIZE*
sizeof(struct tcp_connection*));
if (tcpconn_addr_hash==0){
LOG(L_CRIT, "ERROR: init_tcp: could not alloc address hashtable\n");
lock_destroy(tcpconn_lock);
lock_dealloc((void*)tcpconn_lock);
tcpconn_lock=0;
goto error;
}
tcpconn_id_hash=(struct tcp_connection**)shm_malloc(TCP_ID_HASH_SIZE*
sizeof(struct tcp_connection*));
if (tcpconn_id_hash==0){
LOG(L_CRIT, "ERROR: init_tcp: could not alloc id hashtable\n");
shm_free(tcpconn_addr_hash);
tcpconn_addr_hash=0;
lock_destroy(tcpconn_lock);
lock_dealloc((void*)tcpconn_lock);
tcpconn_lock=0;
goto error;
}
/* init hashtables*/
memset((void*)tcpconn_addr_hash, 0,
TCP_ADDR_HASH_SIZE * sizeof(struct tcp_connection*));
memset((void*)tcpconn_id_hash, 0,
TCP_ID_HASH_SIZE * sizeof(struct tcp_connection*));
return 0;
error:
return -1;
}
/* cleanup before exit */
void destroy_tcp()
{
if (tcpconn_lock){
lock_destroy(tcpconn_lock);
lock_dealloc((void*)tcpconn_lock);
tcpconn_lock=0;
}
if(tcpconn_addr_hash){
shm_free(tcpconn_addr_hash);
tcpconn_addr_hash=0;
}
if(tcpconn_id_hash){
shm_free(tcpconn_id_hash);
tcpconn_id_hash=0;
}
}
/* starts the tcp processes */
int tcp_init_children()
{
int r;
int sockfd[2];
pid_t pid;
/* create the tcp sock_info structures */
/* copy the sockets --moved to main_loop*/
/* fork children & create the socket pairs*/
for(r=0; r<tcp_children_no; r++){
if (socketpair(AF_UNIX, SOCK_STREAM, 0, sockfd)<0){
LOG(L_ERR, "ERROR: tcp_main: socketpair failed: %s\n",
strerror(errno));
goto error;
}
process_no++;
pid=fork();
if (pid<0){
LOG(L_ERR, "ERROR: tcp_main: fork failed: %s\n",
strerror(errno));
goto error;
}else if (pid>0){
/* parent */
close(sockfd[1]);
tcp_children[r].pid=pid;
tcp_children[r].busy=0;
tcp_children[r].n_reqs=0;
tcp_children[r].unix_sock=sockfd[0];
pt[process_no].pid=pid;
pt[process_no].unix_sock=sockfd[0];
pt[process_no].idx=r;
strncpy(pt[process_no].desc, "tcp receiver", MAX_PT_DESC);
}else{
/* child */
close(sockfd[0]);
unix_tcp_sock=sockfd[1];
bind_address=0; /* force a SEGFAULT if someone uses a non-init.
bind address on tcp */
bind_idx=0;
if (init_child(r+children_no+1) < 0) {
LOG(L_ERR, "init_children failed\n");
goto error;
}
tcp_receive_loop(sockfd[1]);
}
}
return 0;
error:
return -1;
}
#endif