/**
* Main loop, forks the children, bind to addresses,
* handle signals.
* \return don't return on sucess, -1 on error
*/
static int main_loop(void)
{
static int chd_rank;
int* startup_done = NULL;
chd_rank=0;
if (init_debug() != 0) {
LM_ERR("failed to init logging levels\n");
goto error;
}
if (dont_fork) {
if (create_status_pipe() < 0) {
LM_ERR("failed to create status pipe\n");
goto error;
}
if (udp_init_nofork() < 0) {
LM_ERR("failed to init UDP for no fork mode\n");
goto error;
}
/* try to drop privileges */
if (do_suid(uid, gid)==-1)
goto error;
if (start_module_procs()!=0) {
LM_ERR("failed to fork module processes\n");
goto error;
}
/* we need another process to act as the timer*/
if (start_timer_processes()!=0) {
LM_CRIT("cannot start timer process(es)\n");
goto error;
}
is_main=1;
udp_start_nofork();
/* udp_start_nofork() returns only if error */
/* in case of failed startup, behave as "attendant" to trigger
* proper cleanup sequance (and proper signal handler !!!).
* So, reset the dont_fork (as it will force inline signal handling)*/
dont_fork = 0;
return -1;
} else { /* don't fork */
if (trans_init_all_listeners()<0) {
LM_ERR("failed to init all SIP listeners, aborting\n");
goto error;
}
/* all processes should have access to all the sockets (for sending)
* so we open all first*/
if (do_suid(uid, gid)==-1) goto error; /* try to drop privileges */
if (start_module_procs()!=0) {
LM_ERR("failed to fork module processes\n");
goto error;
}
if(startup_rlist.a) {/* if a startup route was defined */
startup_done = (int*)shm_malloc(sizeof(int));
if(startup_done == NULL) {
LM_ERR("No more shared memory\n");
goto error;
}
*startup_done = 0;
}
if (fix_socket_list(&bin) != 0) {
LM_ERR("failed to initialize binary interface socket list!\n");
goto error;
}
/* OpenSIPS <--> OpenSIPS communication interface */
if (bin && start_bin_receivers() != 0) {
LM_CRIT("cannot start binary interface receiver processes!\n");
goto error;
}
/* fork for the timer process*/
if (start_timer_processes()!=0) {
LM_CRIT("cannot start timer process(es)\n");
goto error;
}
/* fork all processes required by UDP network layer */
if (udp_start_processes( &chd_rank, startup_done)<0) {
LM_CRIT("cannot start TCP processes\n");
goto error;
}
/* fork all processes required by TCP network layer */
if (tcp_start_processes( &chd_rank, startup_done)<0) {
LM_CRIT("cannot start TCP processes\n");
goto error;
}
}
/* this is the main process -> it shouldn't send anything */
bind_address=0;
if (startup_done) {
if (*startup_done==0)
LM_CRIT("BUG: startup route defined, but not run :( \n");
shm_free(startup_done);
}
/* main process left */
is_main=1;
set_proc_attrs("attendant");
if (init_child(PROC_MAIN) < 0) {
LM_ERR("error in init_child for PROC_MAIN\n");
report_failure_status();
goto error;
}
report_conditional_status( (!no_daemon_mode), 0);
for(;;) {
handle_sigs();
pause();
}
/*return 0; */
error:
is_main=1; /* if we are here, we are the "main process",
any forked children should exit with exit(-1) and not
ever use return */
report_conditional_status( (!dont_fork), -1);
return -1;
}
/**
* Main loop, forks the children, bind to addresses,
* handle signals.
* \return don't return on sucess, -1 on error
*/
static int main_loop(void)
{
static int chd_rank;
int i,rc;
pid_t pid;
struct socket_info* si;
int* startup_done = NULL;
stat_var *load_p = NULL;
chd_rank=0;
if (init_debug() != 0) {
LM_ERR("failed to init logging levels\n");
goto error;
}
if (dont_fork){
if (create_status_pipe() < 0) {
LM_ERR("failed to create status pipe");
goto error;
}
if (udp_listen==0){
LM_ERR("no fork mode requires at least one"
" udp listen address, exiting...\n");
goto error;
}
/* only one address, we ignore all the others */
if (udp_init(udp_listen)==-1) goto error;
bind_address=udp_listen;
sendipv4=bind_address;
sendipv6=bind_address; /*FIXME*/
if (udp_listen->next){
LM_WARN("using only the first listen address (no fork)\n");
}
/* try to drop privileges */
if (do_suid(uid, gid)==-1)
goto error;
if (start_module_procs()!=0) {
LM_ERR("failed to fork module processes\n");
goto error;
}
/* we need another process to act as the timer*/
if (start_timer_processes()!=0) {
LM_CRIT("cannot start timer process(es)\n");
goto error;
}
/* main process, receive loop */
set_proc_attrs("stand-alone SIP receiver %.*s",
bind_address->sock_str.len, bind_address->sock_str.s );
/* We will call child_init even if we
* do not fork - and it will be called with rank 1 because
* in fact we behave like a child, not like main process */
if (init_child(1) < 0) {
LM_ERR("init_child failed in don't fork\n");
goto error;
}
if (startup_rlist.a)
run_startup_route();
is_main=1;
if (register_udp_load_stat(&udp_listen->sock_str,
&pt[process_no].load, 1)!=0) {
LM_ERR("failed to init udp load statistics\n");
goto error;
}
clean_write_pipeend();
LM_DBG("waiting for status code from children\n");
rc = wait_for_all_children();
if (rc < 0) {
LM_ERR("failed to succesfully init children\n");
return rc;
}
return udp_rcv_loop();
} else { /* don't fork */
for(si=udp_listen;si;si=si->next){
/* create the listening socket (for each address)*/
/* udp */
if (udp_init(si)==-1) goto error;
/* get first ipv4/ipv6 socket*/
if ((si->address.af==AF_INET)&&
((sendipv4==0)||(sendipv4->flags&SI_IS_LO)))
sendipv4=si;
#ifdef USE_IPV6
if((sendipv6==0)&&(si->address.af==AF_INET6))
sendipv6=si;
#endif
}
#ifdef USE_TCP
if (!tcp_disable){
for(si=tcp_listen; si; si=si->next){
/* same thing for tcp */
if (tcp_init(si)==-1) goto error;
/* get first ipv4/ipv6 socket*/
if ((si->address.af==AF_INET)&
((sendipv4_tcp==0)||(sendipv4_tcp->flags&SI_IS_LO)))
sendipv4_tcp=si;
#ifdef USE_IPV6
if((sendipv6_tcp==0)&&(si->address.af==AF_INET6))
sendipv6_tcp=si;
#endif
}
}
#ifdef USE_TLS
if (!tls_disable){
for(si=tls_listen; si; si=si->next){
/* same as for tcp*/
if (tls_init(si)==-1) goto error;
/* get first ipv4/ipv6 socket*/
if ((si->address.af==AF_INET)&&
((sendipv4_tls==0)||(sendipv4_tls->flags&SI_IS_LO)))
sendipv4_tls=si;
#ifdef USE_IPV6
if((sendipv6_tls==0)&&(si->address.af==AF_INET6))
sendipv6_tls=si;
#endif
}
}
#endif /* USE_TLS */
#endif /* USE_TCP */
#ifdef USE_SCTP
if (!sctp_disable){
for(si=sctp_listen; si; si=si->next){
/* same thing for sctp */
if (sctp_server_init(si)==-1) goto error;
/* get first ipv4/ipv6 socket*/
if ((si->address.af==AF_INET)&&
((sendipv4_sctp==0)||(sendipv4_sctp->flags&SI_IS_LO)))
sendipv4_sctp=si;
#ifdef USE_IPV6
if((sendipv6_sctp==0)&&(si->address.af==AF_INET6))
sendipv6_sctp=si;
#endif
}
}
#endif /* USE_SCTP */
/* all processes should have access to all the sockets (for sending)
* so we open all first*/
if (do_suid(uid, gid)==-1) goto error; /* try to drop privileges */
if (start_module_procs()!=0) {
LM_ERR("failed to fork module processes\n");
goto error;
}
if(startup_rlist.a) {/* if a startup route was defined */
startup_done = (int*)shm_malloc(sizeof(int));
if(startup_done == NULL) {
LM_ERR("No more shared memory\n");
goto error;
}
*startup_done = 0;
}
if (fix_socket_list(&bin) != 0) {
LM_ERR("failed to initialize binary interface socket list!\n");
goto error;
}
/* OpenSIPS <--> OpenSIPS communication interface */
if (bin && start_bin_receivers() != 0) {
LM_CRIT("cannot start binary interface receiver processes!\n");
goto error;
}
/* udp processes */
for(si=udp_listen; si; si=si->next){
if(register_udp_load_stat(&si->sock_str,&load_p,si->children)!=0){
LM_ERR("failed to init load statistics\n");
goto error;
}
for(i=0;i<si->children;i++){
chd_rank++;
if ( (pid=internal_fork( "UDP receiver"))<0 ) {
LM_CRIT("cannot fork UDP process\n");
goto error;
} else {
if (pid==0) {
/* new UDP process */
/* set a more detailed description */
set_proc_attrs("SIP receiver %.*s ",
si->sock_str.len, si->sock_str.s);
bind_address=si; /* shortcut */
if (init_child(chd_rank) < 0) {
LM_ERR("init_child failed for UDP listener\n");
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
if (chd_rank == 1 && startup_done)
*startup_done = -1;
exit(-1);
}
/* first UDP proc runs statup_route (if defined) */
if(chd_rank == 1 && startup_done!=NULL) {
LM_DBG("runing startup for first UDP\n");
if(run_startup_route()< 0) {
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
*startup_done = -1;
LM_ERR("Startup route processing failed\n");
exit(-1);
}
*startup_done = 1;
}
if (!no_daemon_mode && send_status_code(0) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
/* all UDP listeners on same interface
* have same SHM load pointer */
pt[process_no].load = load_p;
udp_rcv_loop();
exit(-1);
}
else {
/* wait for first proc to finish the startup route */
if(chd_rank == 1 && startup_done!=NULL)
while( !(*startup_done) ) {usleep(5);handle_sigs();}
}
}
}
/*parent*/
/*close(udp_sock)*/; /*if it's closed=>sendto invalid fd errors?*/
}
}
#ifdef USE_SCTP
if(!sctp_disable){
for(si=sctp_listen; si; si=si->next){
for(i=0;i<si->children;i++){
chd_rank++;
if ( (pid=internal_fork( "SCTP receiver"))<0 ) {
LM_CRIT("cannot fork SCTP process\n");
goto error;
} else if (pid==0){
/* new SCTP process */
/* set a more detailed description */
set_proc_attrs("SIP receiver %.*s ",
si->sock_str.len, si->sock_str.s);
bind_address=si; /* shortcut */
if (init_child(chd_rank) < 0) {
LM_ERR("init_child failed\n");
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
if( (si==sctp_listen && i==0) && startup_done)
*startup_done = -1;
exit(-1);
}
/* was startup route executed so far ? if not, run it only by the
* first SCTP proc (first proc from first interface) */
if( (si==sctp_listen && i==0) && startup_done!=NULL && *startup_done==0) {
LM_DBG("runing startup for first SCTP\n");
if(run_startup_route()< 0) {
LM_ERR("Startup route processing failed\n");
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
*startup_done = -1;
exit(-1);
}
*startup_done = 1;
}
if (!no_daemon_mode && send_status_code(0) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
sctp_server_rcv_loop();
exit(-1);
} else {
/* wait for first proc to finish the startup route */
if( (si==sctp_listen && i==0) && startup_done!=NULL)
while( !(*startup_done) ) {usleep(5);handle_sigs();}
}
}
}
}
#endif /* USE_SCTP */
/* this is the main process -> it shouldn't send anything */
bind_address=0;
/* fork for the timer process*/
if (start_timer_processes()!=0) {
LM_CRIT("cannot start timer process(es)\n");
goto error;
}
#ifdef USE_TCP
if (!tcp_disable){
/* start tcp & tls receivers */
if (tcp_init_children(&chd_rank, startup_done)<0) goto error;
/* wait for the startup route to be executed */
if( startup_done!=NULL)
while( !(*startup_done) ) {usleep(5);handle_sigs();}
/* start tcp+tls master proc */
if ( (pid=internal_fork( "TCP main"))<0 ) {
LM_CRIT("cannot fork tcp main process\n");
goto error;
}else if (pid==0){
/* child */
/* close the TCP inter-process sockets */
close(unix_tcp_sock);
unix_tcp_sock = -1;
close(pt[process_no].unix_sock);
pt[process_no].unix_sock = -1;
/* init modules */
if (init_child(PROC_TCP_MAIN) < 0) {
LM_ERR("error in init_child for tcp main\n");
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
exit(-1);
}
if (!no_daemon_mode && send_status_code(0) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
tcp_main_loop();
exit(-1);
}
}
#endif
if (startup_done) {
if (*startup_done==0)
LM_CRIT("BUG: startup route defined, but not run :( \n");
shm_free(startup_done);
}
/* main process left */
is_main=1;
set_proc_attrs("attendant");
if (init_child(PROC_MAIN) < 0) {
if (send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
LM_ERR("error in init_child for PROC_MAIN\n");
goto error;
}
if (!no_daemon_mode && send_status_code(0) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
for(;;){
handle_sigs();
pause();
}
/*return 0; */
error:
is_main=1; /* if we are here, we are the "main process",
any forked children should exit with exit(-1) and not
ever use return */
if (!dont_fork && send_status_code(-1) < 0)
LM_ERR("failed to send status code\n");
clean_write_pipeend();
return -1;
}
/* fix all 3 socket lists, fills socket_types if non-null
* return 0 on success, -1 on error */
int fix_all_socket_lists(int* socket_types)
{
struct utsname myname;
int flags;
if (socket_types)
*socket_types=0;
if ((udp_listen==0)
#ifdef USE_TCP
&& (tcp_listen==0)
#ifdef USE_TLS
&& (tls_listen==0)
#endif
#endif
){
/* get all listening ipv4 interfaces */
if (add_interfaces(0, AF_INET, 0, PROTO_UDP, &udp_listen)==0){
/* if ok, try to add the others too */
#ifdef USE_TCP
if (!tcp_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TCP, &tcp_listen)!=0)
goto error;
#ifdef USE_TLS
if (!tls_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TLS,
&tls_listen)!=0)
goto error;
}
#endif
}
#endif
}else{
/* if error fall back to get hostname */
/* get our address, only the first one */
if (uname (&myname) <0){
LOG(L_ERR, "ERROR: fix_all_socket_lists: cannot determine"
" hostname, try -l address\n");
goto error;
}
if (add_listen_iface(myname.nodename, 0, 0, 0)!=0){
LOG(L_ERR, "ERROR: fix_all_socket_lists: add_listen_iface "
"failed \n");
goto error;
}
}
}
if (fix_socket_list(&udp_listen, &flags)!=0){
LOG(L_ERR, "ERROR: fix_all_socket_lists: fix_socket_list"
" udp failed\n");
goto error;
}
if (flags && socket_types){
*socket_types|=flags|SOCKET_T_UDP;
}
#ifdef USE_TCP
if (!tcp_disable && (fix_socket_list(&tcp_listen, &flags)!=0)){
LOG(L_ERR, "ERROR: fix_all_socket_lists: fix_socket_list"
" tcp failed\n");
goto error;
}
if (flags && socket_types){
*socket_types|=flags|SOCKET_T_TCP;
}
#ifdef USE_TLS
if (!tls_disable && (fix_socket_list(&tls_listen, &flags)!=0)){
LOG(L_ERR, "ERROR: fix_all_socket_lists: fix_socket_list"
" tls failed\n");
goto error;
}
if (flags && socket_types){
*socket_types|=flags|SOCKET_T_TLS;
}
#endif
#endif
if ((udp_listen==0)
#ifdef USE_TCP
&& (tcp_listen==0)
#ifdef USE_TLS
&& (tls_listen==0)
#endif
#endif
){
LOG(L_ERR, "ERROR: fix_all_socket_lists: no listening sockets\n");
goto error;
}
return 0;
error:
return -1;
}
/*
* return 0 on success, -1 on error */
int fix_all_socket_lists(void)
{
int i;
int found = 0;
static char buf[PROTO_NAME_MAX_SIZE /* currently we shouldn't hardcode that much */];
char *p;
#if 0
/* TODO: decide what to do with this */
struct utsname myname;
if ((udp_listen==0)
&& (tcp_listen==0)
&& (tls_listen==0)
&& (sctp_listen==0)
){
/* get all listening ipv4 interfaces */
if (add_interfaces(0, AF_INET, 0, PROTO_UDP, &udp_listen)==0){
/* if ok, try to add the others too */
if (!tcp_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TCP, &tcp_listen)!=0)
goto error;
if (!tls_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TLS,
&tls_listen)!=0)
goto error;
}
}
if (!sctp_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_SCTP, &sctp_listen)!=0)
goto error;
}
}else{
/* if error fall back to get hostname */
/* get our address, only the first one */
if (uname (&myname) <0){
LM_ERR("cannot determine hostname, try -l address\n");
goto error;
}
if (add_listen_iface(myname.nodename, 0, 0, 0, 0, 0, 0)!=0){
LM_ERR("add_listen_iface failed \n");
goto error;
}
}
}
#endif
for (i = PROTO_FIRST; i < PROTO_LAST; i++) {
if (protos[i].id != PROTO_NONE) {
if (fix_socket_list(&protos[i].listeners)!=0) {
LM_ERR("fix_socket_list for %d failed\n", protos[i].id);
goto error;
}
found++;
} else if (protos[i].listeners) {
p = proto2str(i, buf);
if (p == NULL)
goto error;
*p = '\0';
LM_ERR("listeners found for protocol %s, but no module "
"can handle it, %d, %d \n", buf,i,protos[i].id);
goto error;
}
}
if (!found){
LM_ERR("no listening sockets\n");
goto error;
}
return 0;
error:
return -1;
}
/* fix all 3 socket lists
* return 0 on success, -1 on error */
int fix_all_socket_lists(void)
{
struct utsname myname;
if ((udp_listen==0)
#ifdef USE_TCP
&& (tcp_listen==0)
#ifdef USE_TLS
&& (tls_listen==0)
#endif
#endif
#ifdef USE_SCTP
&& (sctp_listen==0)
#endif
){
/* get all listening ipv4 interfaces */
if (add_interfaces(0, AF_INET, 0, PROTO_UDP, &udp_listen)==0){
/* if ok, try to add the others too */
#ifdef USE_TCP
if (!tcp_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TCP, &tcp_listen)!=0)
goto error;
#ifdef USE_TLS
if (!tls_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_TLS,
&tls_listen)!=0)
goto error;
}
#endif
}
#endif
#ifdef USE_SCTP
if (!sctp_disable){
if (add_interfaces(0, AF_INET, 0, PROTO_SCTP, &sctp_listen)!=0)
goto error;
}
#endif
}else{
/* if error fall back to get hostname */
/* get our address, only the first one */
if (uname (&myname) <0){
LM_ERR("cannot determine hostname, try -l address\n");
goto error;
}
if (add_listen_iface(myname.nodename, 0, 0, 0, 0, 0, 0)!=0){
LM_ERR("add_listen_iface failed \n");
goto error;
}
}
}
if (fix_socket_list(&udp_listen)!=0){
LM_ERR("fix_socket_list udp failed\n");
goto error;
}
#ifdef USE_TCP
if (!tcp_disable && (fix_socket_list(&tcp_listen)!=0)){
LM_ERR("fix_socket_list tcp failed\n");
goto error;
}
#ifdef USE_TLS
if (!tls_disable && (fix_socket_list(&tls_listen)!=0)){
LM_ERR("fix_socket_list tls failed\n");
goto error;
}
#endif
#endif
#ifdef USE_SCTP
if (!sctp_disable && (fix_socket_list(&sctp_listen)!=0)){
LM_ERR("fix_socket_list sctp failed\n");
goto error;
}
#endif
if ((udp_listen==0)
#ifdef USE_TCP
&& (tcp_listen==0)
#ifdef USE_TLS
&& (tls_listen==0)
#endif
#endif
#ifdef USE_SCTP
&& (sctp_listen==0)
#endif
){
LM_ERR("no listening sockets\n");
goto error;
}
return 0;
error:
return -1;
}