/*
* FIXME: Expects IPv4 addresses (excludes IPv6, Appletalk, IRDA and
* whatever) */
int ei_epmd_connect_tmo(struct in_addr *inaddr, unsigned ms)
{
static unsigned int epmd_port = 0;
struct sockaddr_in saddr;
int sd;
int res;
if (epmd_port == 0) {
char* port_str = getenv("ERL_EPMD_PORT");
epmd_port = (port_str != NULL) ? atoi(port_str) : EPMD_PORT;
}
memset(&saddr, 0, sizeof(saddr));
saddr.sin_port = htons(epmd_port);
saddr.sin_family = AF_INET;
if (!inaddr) saddr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
else memmove(&saddr.sin_addr,inaddr,sizeof(saddr.sin_addr));
if (((sd = socket(PF_INET, SOCK_STREAM, 0)) < 0))
{
erl_errno = errno;
return -1;
}
if ((res = ei_connect_t(sd,(struct sockaddr *)&saddr,sizeof(saddr),ms)) < 0)
{
erl_errno = (res == -2) ? ETIMEDOUT : errno;
closesocket(sd);
return -1;
}
return sd;
}
/* connects to port at ip-address ip_addr
* and returns fd to socket
* port has to be in host byte order
*/
static int cnct(uint16 port, struct in_addr *ip_addr, int addr_len, unsigned ms)
{
int s, res;
struct sockaddr_in iserv_addr;
if ((s = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
erl_errno = errno;
return ERL_ERROR;
}
memset((char*)&iserv_addr, 0, sizeof(struct sockaddr_in));
memcpy((char*)&iserv_addr.sin_addr, (char*)ip_addr, addr_len);
iserv_addr.sin_family = AF_INET;
iserv_addr.sin_port = htons(port);
if ((res = ei_connect_t(s, (struct sockaddr*)&iserv_addr,
sizeof(iserv_addr),ms)) < 0) {
erl_errno = (res == -2) ? ETIMEDOUT : EIO;
closesocket(s);
return ERL_ERROR;
}
return s;
} /* cnct */
