424 lines
15 KiB
C
424 lines
15 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2010 Fidelity Information Services, Inc *
|
|
* *
|
|
* This source code contains the intellectual property *
|
|
* of its copyright holder(s), and is made available *
|
|
* under a license. If you do not know the terms of *
|
|
* the license, please stop and do not read further. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
/* iosocket_connect.c */
|
|
#include "mdef.h"
|
|
#include <errno.h>
|
|
#include "gtm_time.h"
|
|
#include "gtm_socket.h"
|
|
#include "gtm_inet.h"
|
|
#include <netinet/tcp.h>
|
|
#include "gtm_stdio.h"
|
|
#include "gtm_string.h"
|
|
#include "stringpool.h"
|
|
#include "gt_timer.h"
|
|
#include "io.h"
|
|
#include "iotimer.h"
|
|
#include "iotcpdef.h"
|
|
#include "iosocketdef.h"
|
|
#include "iotcproutine.h"
|
|
#include "rtnhdr.h"
|
|
#include "stack_frame.h"
|
|
#include "mv_stent.h"
|
|
#include "outofband.h"
|
|
|
|
#define ESTABLISHED "ESTABLISHED"
|
|
|
|
GBLREF tcp_library_struct tcp_routines;
|
|
GBLREF volatile int4 outofband;
|
|
GBLREF boolean_t dollar_zininterrupt;
|
|
GBLREF stack_frame *frame_pointer;
|
|
GBLREF unsigned char *stackbase, *stacktop, *msp, *stackwarn;
|
|
GBLREF mv_stent *mv_chain;
|
|
GBLREF int socketus_interruptus;
|
|
GBLREF d_socket_struct *newdsocket; /* in case jobinterrupt */
|
|
GBLREF int4 gtm_max_sockets;
|
|
|
|
|
|
boolean_t iosocket_connect(socket_struct *socketptr, int4 timepar, boolean_t update_bufsiz)
|
|
{
|
|
int temp_1;
|
|
char *errptr;
|
|
int4 errlen, msec_timeout, save_errno, last_errno;
|
|
int d_socket_struct_len, res, nfds, sockerror;
|
|
fd_set writefds;
|
|
boolean_t no_time_left = FALSE;
|
|
boolean_t need_connect, need_socket, need_select;
|
|
short len;
|
|
io_desc *iod;
|
|
d_socket_struct *dsocketptr, *real_dsocketptr;
|
|
socket_interrupt *sockintr, *real_sockintr;
|
|
ABS_TIME cur_time, end_time;
|
|
struct timeval *sel_time;
|
|
mv_stent *mv_zintdev;
|
|
GTM_SOCKLEN_TYPE sockbuflen;
|
|
|
|
error_def(ERR_SOCKINIT);
|
|
error_def(ERR_OPENCONN);
|
|
error_def(ERR_TEXT);
|
|
error_def(ERR_GETSOCKOPTERR);
|
|
error_def(ERR_SETSOCKOPTERR);
|
|
error_def(ERR_ZINTRECURSEIO);
|
|
error_def(ERR_STACKCRIT);
|
|
error_def(ERR_STACKOFLOW);
|
|
|
|
SOCKET_DEBUG(PRINTF("socconn: ************* Entering socconn - timepar: %d\n",timepar); DEBUGSOCKFLUSH);
|
|
/* check for validity */
|
|
dsocketptr = socketptr->dev;
|
|
assert(NULL != dsocketptr);
|
|
sockintr = &dsocketptr->sock_save_state;
|
|
iod = dsocketptr->iod;
|
|
real_dsocketptr = (d_socket_struct *)iod->dev_sp; /* not newdsocket which is not saved on error */
|
|
real_sockintr = &real_dsocketptr->sock_save_state;
|
|
|
|
dsocketptr->dollar_key[0] = '\0';
|
|
real_dsocketptr->dollar_key[0] = '\0';
|
|
need_socket = need_connect = TRUE;
|
|
need_select = FALSE;
|
|
|
|
/* Check for restart */
|
|
if (dsocketptr->mupintr)
|
|
{ /* We have a pending read restart of some sort - check we aren't recursing on this device */
|
|
if (sockwhich_invalid == sockintr->who_saved)
|
|
GTMASSERT; /* Interrupt should never have an invalid save state */
|
|
if (dollar_zininterrupt)
|
|
rts_error(VARLSTCNT(1) ERR_ZINTRECURSEIO);
|
|
if (sockwhich_connect != sockintr->who_saved)
|
|
GTMASSERT; /* ZINTRECURSEIO should have caught */
|
|
SOCKET_DEBUG(PRINTF("socconn: *#*#*#*#*#*#*# Restarted interrupted connect\n"); DEBUGSOCKFLUSH);
|
|
mv_zintdev = io_find_mvstent(iod, FALSE);
|
|
if (mv_zintdev)
|
|
{
|
|
if (sockintr->end_time_valid)
|
|
/* Restore end_time for timeout */
|
|
end_time = sockintr->end_time;
|
|
if (socket_connect_inprogress == socketptr->state && FD_INVALID != socketptr->sd)
|
|
{
|
|
need_select = TRUE;
|
|
need_socket = need_connect = FALSE; /* sd still good */
|
|
}
|
|
|
|
/* Done with this mv_stent. Pop it off if we can, else mark it inactive. */
|
|
if (mv_chain == mv_zintdev)
|
|
POP_MV_STENT(); /* pop if top of stack */
|
|
else
|
|
{ /* else mark it unused, see iosocket_open for use */
|
|
mv_zintdev->mv_st_cont.mvs_zintdev.buffer_valid = FALSE;
|
|
mv_zintdev->mv_st_cont.mvs_zintdev.io_ptr = NULL;
|
|
}
|
|
SOCKET_DEBUG(PRINTF("socconn: mv_stent found - endtime: %d/%d\n", end_time.at_sec, end_time.at_usec);
|
|
DEBUGSOCKFLUSH);
|
|
} else
|
|
SOCKET_DEBUG(PRINTF("socconn: no mv_stent found !!\n"); DEBUGSOCKFLUSH);
|
|
real_dsocketptr->mupintr = dsocketptr->mupintr = FALSE;
|
|
real_sockintr->who_saved = sockintr->who_saved = sockwhich_invalid;
|
|
} else if (timepar != NO_M_TIMEOUT)
|
|
{
|
|
msec_timeout = timeout2msec(timepar);
|
|
sys_get_curr_time(&cur_time);
|
|
add_int_to_abs_time(&cur_time, msec_timeout, &end_time);
|
|
}
|
|
real_sockintr->end_time_valid = sockintr->end_time_valid = FALSE;
|
|
last_errno = 0;
|
|
|
|
do
|
|
{
|
|
if (need_socket && FD_INVALID != socketptr->sd)
|
|
{
|
|
tcp_routines.aa_close(socketptr->sd);
|
|
socketptr->sd = FD_INVALID;
|
|
}
|
|
assert(FD_INVALID == -1);
|
|
if (need_socket)
|
|
{
|
|
if (-1 == (socketptr->sd = tcp_routines.aa_socket(AF_INET, SOCK_STREAM, 0)))
|
|
{
|
|
errptr = (char *)STRERROR(errno);
|
|
errlen = STRLEN(errptr);
|
|
rts_error(VARLSTCNT(5) ERR_SOCKINIT, 3, errno, errlen, errptr);
|
|
return FALSE;
|
|
}
|
|
need_socket = FALSE;
|
|
temp_1 = 1;
|
|
if (-1 == tcp_routines.aa_setsockopt(socketptr->sd, SOL_SOCKET, SO_REUSEADDR, &temp_1, SIZEOF(temp_1)))
|
|
{
|
|
save_errno = errno;
|
|
errptr = (char *)STRERROR(save_errno);
|
|
errlen = STRLEN(errptr);
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
rts_error(VARLSTCNT(7) ERR_SETSOCKOPTERR, 5,
|
|
RTS_ERROR_LITERAL("SO_REUSEADDR"), save_errno, errlen, errptr);
|
|
return FALSE;
|
|
}
|
|
#ifdef TCP_NODELAY
|
|
temp_1 = socketptr->nodelay ? 1 : 0;
|
|
if (-1 == tcp_routines.aa_setsockopt(socketptr->sd,
|
|
IPPROTO_TCP, TCP_NODELAY, &temp_1, SIZEOF(temp_1)))
|
|
{
|
|
save_errno = errno;
|
|
errptr = (char *)STRERROR(save_errno);
|
|
errlen = STRLEN(errptr);
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
rts_error(VARLSTCNT(7) ERR_SETSOCKOPTERR, 5,
|
|
RTS_ERROR_LITERAL("TCP_NODELAY"), save_errno, errlen, errptr);
|
|
return FALSE;
|
|
}
|
|
#endif
|
|
if (update_bufsiz)
|
|
{
|
|
if (-1 == tcp_routines.aa_setsockopt(socketptr->sd,
|
|
SOL_SOCKET, SO_RCVBUF, &socketptr->bufsiz, SIZEOF(socketptr->bufsiz)))
|
|
{
|
|
save_errno = errno;
|
|
errptr = (char *)STRERROR(save_errno);
|
|
errlen = STRLEN(errptr);
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
rts_error(VARLSTCNT(7) ERR_SETSOCKOPTERR, 5,
|
|
RTS_ERROR_LITERAL("SO_RCVBUF"), save_errno, errlen, errptr);
|
|
return FALSE;
|
|
}
|
|
} else
|
|
{
|
|
sockbuflen = SIZEOF(socketptr->bufsiz);
|
|
if (-1 == tcp_routines.aa_getsockopt(socketptr->sd,
|
|
SOL_SOCKET, SO_RCVBUF, &socketptr->bufsiz, &sockbuflen))
|
|
{
|
|
save_errno = errno;
|
|
errptr = (char *)STRERROR(save_errno);
|
|
errlen = STRLEN(errptr);
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
rts_error(VARLSTCNT(7) ERR_GETSOCKOPTERR, 5,
|
|
RTS_ERROR_LITERAL("SO_RCVBUF"), save_errno, errlen, errptr);
|
|
return FALSE;
|
|
}
|
|
}
|
|
}
|
|
save_errno = res = 0;
|
|
if (need_connect)
|
|
{
|
|
/* Use plain connect to allow jobinterrupt */
|
|
assert(FD_INVALID != socketptr->sd);
|
|
res = connect(socketptr->sd, (struct sockaddr *)&socketptr->remote.sin, SIZEOF(socketptr->remote.sin));
|
|
if (res < 0)
|
|
{
|
|
save_errno = errno;
|
|
no_time_left = FALSE;
|
|
need_connect = TRUE;
|
|
switch (save_errno)
|
|
{
|
|
case EISCONN:
|
|
save_errno = 0;
|
|
res = 0; /* since it is connected already, treat as if success */
|
|
need_connect = FALSE;
|
|
break;
|
|
case EINTR:
|
|
if (outofband && 0 != timepar)
|
|
{ /* handle outofband unless zero timeout */
|
|
save_errno = 0;
|
|
need_socket = need_connect = FALSE;
|
|
break;
|
|
} /* else fall through */
|
|
case EINPROGRESS:
|
|
case EALREADY:
|
|
# if (defined(__osf__) && defined(__alpha)) || defined(__sun) || defined(__vms)
|
|
case EWOULDBLOCK:
|
|
# endif
|
|
need_socket = need_connect = FALSE;
|
|
if (0 != timepar)
|
|
need_select = TRUE;
|
|
/* fall through */
|
|
case ETIMEDOUT: /* the other side bound but not listening */
|
|
case ECONNREFUSED:
|
|
if (!no_time_left && 0 != timepar && NO_M_TIMEOUT != timepar)
|
|
{
|
|
sys_get_curr_time(&cur_time);
|
|
cur_time = sub_abs_time(&end_time, &cur_time);
|
|
if (cur_time.at_sec <= 0)
|
|
no_time_left = TRUE;
|
|
}
|
|
if (0 == timepar)
|
|
no_time_left = TRUE;
|
|
else if (!no_time_left)
|
|
{
|
|
if (ETIMEDOUT == save_errno || ECONNREFUSED == save_errno)
|
|
need_connect = need_socket = TRUE;
|
|
save_errno = 0;
|
|
res = -1; /* do the outer loop again */
|
|
}
|
|
if (no_time_left)
|
|
save_errno = 0;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
} /* if connect failed */
|
|
}
|
|
if (need_select)
|
|
{
|
|
sockerror = 0;
|
|
do
|
|
{ /* unless outofband loop on select if connection continuing */
|
|
if (NO_M_TIMEOUT == timepar)
|
|
sel_time = NULL;
|
|
else
|
|
{
|
|
sys_get_curr_time(&cur_time);
|
|
cur_time = sub_abs_time(&end_time, &cur_time);
|
|
if (cur_time.at_sec > 0)
|
|
sel_time = (struct timeval *)&cur_time;
|
|
else
|
|
{ /* timed out so done */
|
|
save_errno = res = 0;
|
|
no_time_left = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
FD_ZERO(&writefds);
|
|
FD_SET(socketptr->sd, &writefds);
|
|
res = select(socketptr->sd + 1, NULL, &writefds, NULL, sel_time);
|
|
if (0 < res)
|
|
{ /* check for socket error */
|
|
sockbuflen = SIZEOF(sockerror);
|
|
res = getsockopt(socketptr->sd, SOL_SOCKET, SO_ERROR,
|
|
&sockerror, &sockbuflen);
|
|
if (0 == res && 0 == sockerror)
|
|
{ /* got it */
|
|
save_errno = 0;
|
|
break;
|
|
} else if (0 == res && 0 != sockerror)
|
|
{
|
|
if (EINTR == sockerror)
|
|
{ /* loop on select */
|
|
save_errno = 0;
|
|
continue;
|
|
} else
|
|
{ /* return socket error */
|
|
if (ECONNREFUSED == sockerror || ETIMEDOUT == sockerror)
|
|
{ /* try until timeout */
|
|
last_errno = sockerror;
|
|
save_errno = 0;
|
|
need_socket = need_connect = TRUE;
|
|
need_select = FALSE;
|
|
res = -1;
|
|
} else
|
|
save_errno = sockerror;
|
|
break;
|
|
}
|
|
} else
|
|
{
|
|
save_errno = errno; /* error on getsockopt */
|
|
break;
|
|
}
|
|
} else if (0 == res)
|
|
{ /* select timed out */
|
|
save_errno = 0;
|
|
no_time_left = TRUE;
|
|
break;
|
|
} else if (EINTR != errno)
|
|
{
|
|
save_errno = errno;
|
|
break;
|
|
} else if (outofband)
|
|
{
|
|
save_errno = 0;
|
|
break;
|
|
}
|
|
} while (TRUE); /* do select */
|
|
}
|
|
if (save_errno)
|
|
{
|
|
if (FD_INVALID != socketptr->sd)
|
|
{
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
}
|
|
errptr = (char *)STRERROR(save_errno);
|
|
errlen = STRLEN(errptr);
|
|
if (dev_open == iod->state)
|
|
{
|
|
iod->dollar.za = 9;
|
|
memcpy(real_dsocketptr->dollar_device, ONE_COMMA, SIZEOF(ONE_COMMA));
|
|
memcpy(&real_dsocketptr->dollar_device[SIZEOF(ONE_COMMA) - 1],
|
|
errptr, errlen + 1); /* + 1 for null */
|
|
}
|
|
if (socketptr->ioerror)
|
|
rts_error(VARLSTCNT(6) ERR_OPENCONN, 0, ERR_TEXT, 2, errlen, errptr);
|
|
errno = save_errno;
|
|
return FALSE;
|
|
}
|
|
if (no_time_left)
|
|
return FALSE; /* caller will close socket */
|
|
if (res < 0 && outofband) /* if connected delay outofband */
|
|
{
|
|
SOCKET_DEBUG(PRINTF("socconn: outofband interrupt received (%d) -- "
|
|
"queueing mv_stent for wait intr\n", outofband); DEBUGSOCKFLUSH);
|
|
if (need_connect)
|
|
{ /* no connect in progress */
|
|
tcp_routines.aa_close(socketptr->sd); /* Don't leave a dangling socket around */
|
|
socketptr->sd = FD_INVALID;
|
|
socketptr->state = socket_created;
|
|
} else
|
|
socketptr->state = socket_connect_inprogress;
|
|
real_sockintr->who_saved = sockintr->who_saved = sockwhich_connect;
|
|
if (NO_M_TIMEOUT != timepar)
|
|
{
|
|
real_sockintr->end_time = sockintr->end_time = end_time;
|
|
real_sockintr->end_time_valid = sockintr->end_time_valid = TRUE;
|
|
} else
|
|
real_sockintr->end_time_valid = sockintr->end_time_valid = FALSE;
|
|
real_sockintr->newdsocket = sockintr->newdsocket = newdsocket;
|
|
real_dsocketptr->mupintr = dsocketptr->mupintr = TRUE;
|
|
d_socket_struct_len = SIZEOF(d_socket_struct) +
|
|
(SIZEOF(socket_struct) * (gtm_max_sockets - 1));
|
|
ENSURE_STP_FREE_SPACE(d_socket_struct_len);
|
|
PUSH_MV_STENT(MVST_ZINTDEV);
|
|
mv_chain->mv_st_cont.mvs_zintdev.buffer_valid = FALSE;
|
|
mv_chain->mv_st_cont.mvs_zintdev.io_ptr = NULL;
|
|
mv_chain->mv_st_cont.mvs_zintdev.socketptr = socketptr; /* for sd and to free structure */
|
|
mv_chain->mv_st_cont.mvs_zintdev.curr_sp_buffer.len = d_socket_struct_len;
|
|
mv_chain->mv_st_cont.mvs_zintdev.curr_sp_buffer.addr = (char *)stringpool.free;
|
|
memcpy (stringpool.free, (unsigned char *)newdsocket, d_socket_struct_len);
|
|
stringpool.free += d_socket_struct_len;
|
|
mv_chain->mv_st_cont.mvs_zintdev.io_ptr = iod;
|
|
mv_chain->mv_st_cont.mvs_zintdev.buffer_valid = TRUE;
|
|
socketus_interruptus++;
|
|
SOCKET_DEBUG(PRINTF("socconn: mv_stent queued - endtime: %d/%d interrupts: %d\n",
|
|
end_time.at_sec, end_time.at_usec, socketus_interruptus);
|
|
DEBUGSOCKFLUSH);
|
|
outofband_action(FALSE);
|
|
GTMASSERT; /* Should *never* return from outofband_action */
|
|
return FALSE; /* For the compiler.. */
|
|
}
|
|
hiber_start(100);
|
|
} while (res < 0);
|
|
|
|
/* handle the local information later.
|
|
SPRINTF(socketptr->local.saddr_ip, "%s", tcp_routines.aa_inet_ntoa(socketptr->remote.sin.sin_addr));
|
|
socketptr->local.port = GTM_NTOHS(socketptr->remote.sin.sin_port);
|
|
*/
|
|
socketptr->state = socket_connected;
|
|
socketptr->first_read = socketptr->first_write = TRUE;
|
|
/* update dollar_key */
|
|
len = SIZEOF(ESTABLISHED) - 1;
|
|
memcpy(&dsocketptr->dollar_key[0], ESTABLISHED, len);
|
|
dsocketptr->dollar_key[len++] = '|';
|
|
memcpy(&dsocketptr->dollar_key[len], socketptr->handle, socketptr->handle_len);
|
|
len += socketptr->handle_len;
|
|
dsocketptr->dollar_key[len++] = '|';
|
|
strcpy(&dsocketptr->dollar_key[len], socketptr->remote.saddr_ip); /* Also copies in trailing null */
|
|
|
|
return TRUE;
|
|
}
|