2005-09-14 [paul] 1.9.14cvs26
[claws.git] / src / common / socket.c
index e468b183d859247642246912ac7c79474d87d82a..918ab1826457cb60f2b55d1d0409df4aa4ea74fc 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
- * Copyright (C) 1999-2003 Hiroyuki Yamamoto
+ * Copyright (C) 1999-2004 Hiroyuki Yamamoto
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
 #include <glib.h>
 #include <sys/time.h>
 #include <sys/types.h>
-#include <sys/socket.h>
-#include <sys/un.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <netdb.h>
+#ifdef G_OS_WIN32
+#  include <winsock2.h>
+#else
+#  if HAVE_SYS_WAIT_H
+#    include <sys/wait.h>
+#  endif
+#  include <sys/socket.h>
+#  include <sys/stat.h>
+#  include <sys/un.h>
+#  include <netinet/in.h>
+#  include <arpa/inet.h>
+#  include <resolv.h>
+#  include <netdb.h>
+#endif /* G_OS_WIN32 */
 #include <unistd.h>
 #include <stdio.h>
 #include <string.h>
 
 #define BUFFSIZE       8192
 
-guint io_timeout = 60;
+typedef gint (*SockAddrFunc)   (GList          *addr_list,
+                                gpointer        data);
+
+typedef struct _SockConnectData        SockConnectData;
+typedef struct _SockLookupData SockLookupData;
+typedef struct _SockAddrData   SockAddrData;
+typedef struct _SockSource     SockSource;
+
+struct _SockConnectData {
+       gint id;
+       gchar *hostname;
+       gushort port;
+       GList *addr_list;
+       GList *cur_addr;
+       SockLookupData *lookup_data;
+       GIOChannel *channel;
+       guint io_tag;
+       SockConnectFunc func;
+       gpointer data;
+};
+
+struct _SockLookupData {
+       gchar *hostname;
+       pid_t child_pid;
+       GIOChannel *channel;
+       guint io_tag;
+       SockAddrFunc func;
+       gpointer data;
+};
+
+struct _SockAddrData {
+       gint family;
+       gint socktype;
+       gint protocol;
+       gint addr_len;
+       struct sockaddr *addr;
+};
+
+struct _SockSource {
+       GSource parent;
+       SockInfo *sock;
+};
+
+static guint io_timeout = 60;
+
+static GList *sock_connect_data_list = NULL;
+
+static gboolean sock_prepare           (GSource        *source,
+                                        gint           *timeout);
+static gboolean sock_check             (GSource        *source);
+static gboolean sock_dispatch          (GSource        *source,
+                                        GSourceFunc     callback,
+                                        gpointer        user_data);
+
+GSourceFuncs sock_watch_funcs = {
+       sock_prepare,
+       sock_check,
+       sock_dispatch,
+       NULL
+};
 
 static gint sock_connect_with_timeout  (gint                    sock,
                                         const struct sockaddr  *serv_addr,
@@ -73,6 +141,52 @@ static gint sock_connect_by_getaddrinfo     (const gchar    *hostname,
 static SockInfo *sockinfo_from_fd(const gchar *hostname,
                                  gushort port,
                                  gint sock);
+#ifdef G_OS_UNIX
+static void sock_address_list_free             (GList          *addr_list);
+
+static gboolean sock_connect_async_cb          (GIOChannel     *source,
+                                                GIOCondition    condition,
+                                                gpointer        data);
+static gint sock_connect_async_get_address_info_cb
+                                               (GList          *addr_list,
+                                                gpointer        data);
+
+static gint sock_connect_address_list_async    (SockConnectData *conn_data);
+
+static gboolean sock_get_address_info_async_cb (GIOChannel     *source,
+                                                GIOCondition    condition,
+                                                gpointer        data);
+static SockLookupData *sock_get_address_info_async
+                                               (const gchar    *hostname,
+                                                gushort         port,
+                                                SockAddrFunc    func,
+                                                gpointer        data);
+static gint sock_get_address_info_async_cancel (SockLookupData *lookup_data);
+#endif /* G_OS_UNIX */
+
+
+gint sock_init(void)
+{
+#ifdef G_OS_WIN32
+       WSADATA wsadata;
+       gint result;
+
+       result = WSAStartup(MAKEWORD(2, 2), &wsadata);
+       if (result != NO_ERROR) {
+               g_warning("WSAStartup() failed\n");
+               return -1;
+       }
+#endif
+       return 0;
+}
+
+gint sock_cleanup(void)
+{
+#ifdef G_OS_WIN32
+       WSACleanup();
+#endif
+       return 0;
+}
 
 gint sock_set_io_timeout(guint sec)
 {
@@ -80,8 +194,28 @@ gint sock_set_io_timeout(guint sec)
        return 0;
 }
 
+void refresh_resolvers(void)
+{
+       static time_t resolv_conf_changed = (time_t)NULL;
+       struct stat s;
+
+       /* This makes the glibc re-read resolv.conf, if it changed
+        * since our startup. Maybe that should be #ifdef'ed, I don't
+        * know if it'd work on BSDs.
+        * Why doesn't the glibc do it by itself?
+        */
+       if (stat("/etc/resolv.conf", &s) == 0) {
+               if (s.st_mtime > resolv_conf_changed) {
+                       resolv_conf_changed = s.st_mtime;
+                       res_init();
+               }
+       } /* else
+               we'll have bigger problems. */
+}
+
 gint fd_connect_unix(const gchar *path)
 {
+#ifdef G_OS_UNIX
        gint sock;
        struct sockaddr_un addr;
 
@@ -101,10 +235,14 @@ gint fd_connect_unix(const gchar *path)
        }
 
        return sock;
+#else
+       return -1;
+#endif
 }
 
 gint fd_open_unix(const gchar *path)
 {
+#ifdef G_OS_UNIX
        gint sock;
        struct sockaddr_un addr;
 
@@ -132,20 +270,28 @@ gint fd_open_unix(const gchar *path)
        }
 
        return sock;
+#else
+       return -1;
+#endif
 }
 
 gint fd_accept(gint sock)
 {
+#ifdef G_OS_UNIX
        struct sockaddr_in caddr;
-       gint caddr_len;
+       guint caddr_len;
 
        caddr_len = sizeof(caddr);
        return accept(sock, (struct sockaddr *)&caddr, &caddr_len);
+#else
+       return -1;
+#endif
 }
 
 
 static gint set_nonblocking_mode(gint fd, gboolean nonblock)
 {
+#ifdef G_OS_UNIX
        gint flags;
 
        flags = fcntl(fd, F_GETFL, 0);
@@ -160,6 +306,9 @@ static gint set_nonblocking_mode(gint fd, gboolean nonblock)
                flags &= ~O_NONBLOCK;
 
        return fcntl(fd, F_SETFL, flags);
+#else
+       return -1;
+#endif
 }
 
 gint sock_set_nonblocking_mode(SockInfo *sock, gboolean nonblock)
@@ -169,9 +318,9 @@ gint sock_set_nonblocking_mode(SockInfo *sock, gboolean nonblock)
        return set_nonblocking_mode(sock->sock, nonblock);
 }
 
-
 static gboolean is_nonblocking_mode(gint fd)
 {
+#ifdef G_OS_UNIX
        gint flags;
 
        flags = fcntl(fd, F_GETFL, 0);
@@ -181,6 +330,9 @@ static gboolean is_nonblocking_mode(gint fd)
        }
 
        return ((flags & O_NONBLOCK) != 0);
+#else
+       return FALSE;
+#endif
 }
 
 gboolean sock_is_nonblocking_mode(SockInfo *sock)
@@ -190,11 +342,103 @@ gboolean sock_is_nonblocking_mode(SockInfo *sock)
        return is_nonblocking_mode(sock->sock);
 }
 
+
+static gboolean sock_prepare(GSource *source, gint *timeout)
+{
+       *timeout = 1;
+       return FALSE;
+}
+
+static gboolean sock_check(GSource *source)
+{
+       SockInfo *sock = ((SockSource *)source)->sock;
+       struct timeval timeout = {0, 0};
+       fd_set fds;
+       GIOCondition condition = sock->condition;
+
+       if (!sock || !sock->sock)
+               return FALSE;
+
+#if USE_OPENSSL
+       if (sock->ssl) {
+               if (condition & G_IO_IN) {
+                       if (SSL_pending(sock->ssl) > 0)
+                               return TRUE;
+                       if (SSL_want_write(sock->ssl))
+                               condition |= G_IO_OUT;
+               }
+
+               if (condition & G_IO_OUT) {
+                       if (SSL_want_read(sock->ssl))
+                               condition |= G_IO_IN;
+               }
+       }
+#endif
+
+       FD_ZERO(&fds);
+       FD_SET(sock->sock, &fds);
+
+       select(sock->sock + 1,
+              (condition & G_IO_IN)  ? &fds : NULL,
+              (condition & G_IO_OUT) ? &fds : NULL,
+              NULL, &timeout);
+
+       return FD_ISSET(sock->sock, &fds) != 0;
+}
+
+static gboolean sock_dispatch(GSource *source, GSourceFunc callback,
+                             gpointer user_data)
+{
+       SockInfo *sock = ((SockSource *)source)->sock;
+
+       if (!sock || !sock->callback || !sock->data)
+               return FALSE;
+
+       return sock->callback(sock, sock->condition, sock->data);
+}
+
+static gboolean sock_watch_cb(GIOChannel *source, GIOCondition condition,
+                             gpointer data)
+{
+       SockInfo *sock = (SockInfo *)data;
+
+       if ((condition & sock->condition) == 0)
+               return TRUE;
+
+       return sock->callback(sock, sock->condition, sock->data);
+}
+
+guint sock_add_watch(SockInfo *sock, GIOCondition condition, SockFunc func,
+                    gpointer data)
+{
+       sock->callback = func;
+       sock->condition = condition;
+       sock->data = data;
+
+#if USE_OPENSSL
+       if (sock->ssl)
+       {
+               GSource *source = g_source_new(&sock_watch_funcs,
+                                              sizeof(SockSource));
+               ((SockSource *) source)->sock = sock;
+               g_source_set_priority(source, G_PRIORITY_DEFAULT);
+               g_source_set_can_recurse(source, FALSE);
+               sock->g_source = g_source_attach(source, NULL);
+               return sock->g_source;
+       }
+#endif
+
+       return g_io_add_watch(sock->sock_ch, condition, sock_watch_cb, sock);
+}
+
 static gint fd_check_io(gint fd, GIOCondition cond)
 {
        struct timeval timeout;
        fd_set fds;
 
+       if (is_nonblocking_mode(fd))
+               return 0;
+
        timeout.tv_sec  = io_timeout;
        timeout.tv_usec = 0;
 
@@ -217,12 +461,14 @@ static gint fd_check_io(gint fd, GIOCondition cond)
        }
 }
 
+#ifdef G_OS_UNIX
 static sigjmp_buf jmpenv;
 
 static void timeout_handler(gint sig)
 {
        siglongjmp(jmpenv, 1);
 }
+#endif
 
 static gint sock_connect_with_timeout(gint sock,
                                      const struct sockaddr *serv_addr,
@@ -230,8 +476,9 @@ static gint sock_connect_with_timeout(gint sock,
                                      guint timeout_secs)
 {
        gint ret;
+#ifdef G_OS_UNIX
        void (*prev_handler)(gint);
-
+       
        alarm(0);
        prev_handler = signal(SIGALRM, timeout_handler);
        if (sigsetjmp(jmpenv, 1)) {
@@ -241,11 +488,14 @@ static gint sock_connect_with_timeout(gint sock,
                return -1;
        }
        alarm(timeout_secs);
+#endif
 
        ret = connect(sock, serv_addr, addrlen);
 
+#ifdef G_OS_UNIX
        alarm(0);
        signal(SIGALRM, prev_handler);
+#endif
 
        return ret;
 }
@@ -253,8 +503,9 @@ static gint sock_connect_with_timeout(gint sock,
 struct hostent *my_gethostbyname(const gchar *hostname)
 {
        struct hostent *hp;
+#ifdef G_OS_UNIX
        void (*prev_handler)(gint);
-
+       
        alarm(0);
        prev_handler = signal(SIGALRM, timeout_handler);
        if (sigsetjmp(jmpenv, 1)) {
@@ -265,17 +516,22 @@ struct hostent *my_gethostbyname(const gchar *hostname)
                return NULL;
        }
        alarm(io_timeout);
+#endif
 
        if ((hp = gethostbyname(hostname)) == NULL) {
+#ifdef G_OS_UNIX
                alarm(0);
                signal(SIGALRM, prev_handler);
+#endif
                fprintf(stderr, "%s: unknown host.\n", hostname);
                errno = 0;
                return NULL;
        }
 
+#ifdef G_OS_UNIX
        alarm(0);
        signal(SIGALRM, prev_handler);
+#endif
 
        return hp;
 }
@@ -311,6 +567,8 @@ static gint sock_connect_by_hostname(gint sock, const gchar *hostname,
        ad.sin_family = AF_INET;
        ad.sin_port = htons(port);
 
+       refresh_resolvers();
+
        if (!my_inet_aton(hostname, &ad.sin_addr)) {
                if ((hp = my_gethostbyname(hostname)) == NULL) {
                        fprintf(stderr, "%s: unknown host.\n", hostname);
@@ -338,6 +596,8 @@ static gint sock_connect_by_getaddrinfo(const gchar *hostname, gushort      port)
        struct addrinfo hints, *res, *ai;
        gchar port_str[6];
 
+       refresh_resolvers();
+
        memset(&hints, 0, sizeof(hints));
        /* hints.ai_flags = AI_CANONNAME; */
        hints.ai_family = AF_UNSPEC;
@@ -406,14 +666,23 @@ SockInfo *sock_connect_cmd(const gchar *hostname, const gchar *tunnelcmd)
 
 SockInfo *sock_connect(const gchar *hostname, gushort port)
 {
+#ifdef G_OS_WIN32
+       SOCKET sock;
+#else
        gint sock;
+#endif
 
 #ifdef INET6
        if ((sock = sock_connect_by_getaddrinfo(hostname, port)) < 0)
                return NULL;
+#else
+#ifdef G_OS_WIN32
+       if ((sock = socket(AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) {
+               g_warning("socket() failed: %ld\n", WSAGetLastError());
 #else
        if ((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
                perror("socket");
+#endif /* G_OS_WIN32 */
                return NULL;
        }
 
@@ -427,6 +696,407 @@ SockInfo *sock_connect(const gchar *hostname, gushort port)
        return sockinfo_from_fd(hostname, port, sock);
 }
 
+#ifdef G_OS_UNIX
+static void sock_address_list_free(GList *addr_list)
+{
+       GList *cur;
+
+       for (cur = addr_list; cur != NULL; cur = cur->next) {
+               SockAddrData *addr_data = (SockAddrData *)cur->data;
+               g_free(addr_data->addr);
+               g_free(addr_data);
+       }
+
+       g_list_free(addr_list);
+}
+
+/* asynchronous TCP connection */
+
+static gboolean sock_connect_async_cb(GIOChannel *source,
+                                     GIOCondition condition, gpointer data)
+{
+       SockConnectData *conn_data = (SockConnectData *)data;
+       gint fd;
+       gint val;
+       guint len;
+       SockInfo *sockinfo;
+
+       if (conn_data->io_tag == 0 && conn_data->channel == NULL)
+               return FALSE;
+
+       fd = g_io_channel_unix_get_fd(source);
+
+       conn_data->io_tag = 0;
+       conn_data->channel = NULL;
+       g_io_channel_unref(source);
+
+       len = sizeof(val);
+       if (getsockopt(fd, SOL_SOCKET, SO_ERROR, &val, &len) < 0) {
+               perror("getsockopt");
+               close(fd);
+               sock_connect_address_list_async(conn_data);
+               return FALSE;
+       }
+
+       if (val != 0) {
+               close(fd);
+               sock_connect_address_list_async(conn_data);
+               return FALSE;
+       }
+
+       sockinfo = g_new0(SockInfo, 1);
+       sockinfo->sock = fd;
+       sockinfo->sock_ch = g_io_channel_unix_new(fd);
+       sockinfo->hostname = g_strdup(conn_data->hostname);
+       sockinfo->port = conn_data->port;
+       sockinfo->state = CONN_ESTABLISHED;
+
+       conn_data->func(sockinfo, conn_data->data);
+
+       sock_connect_async_cancel(conn_data->id);
+
+       return FALSE;
+}
+
+static gint sock_connect_async_get_address_info_cb(GList *addr_list,
+                                                  gpointer data)
+{
+       SockConnectData *conn_data = (SockConnectData *)data;
+
+       conn_data->addr_list = addr_list;
+       conn_data->cur_addr = addr_list;
+       conn_data->lookup_data = NULL;
+
+       return sock_connect_address_list_async(conn_data);
+}
+
+gint sock_connect_async(const gchar *hostname, gushort port,
+                       SockConnectFunc func, gpointer data)
+{
+       static gint id = 1;
+       SockConnectData *conn_data;
+
+       conn_data = g_new0(SockConnectData, 1);
+       conn_data->id = id++;
+       conn_data->hostname = g_strdup(hostname);
+       conn_data->port = port;
+       conn_data->addr_list = NULL;
+       conn_data->cur_addr = NULL;
+       conn_data->io_tag = 0;
+       conn_data->func = func;
+       conn_data->data = data;
+
+       conn_data->lookup_data = sock_get_address_info_async
+               (hostname, port, sock_connect_async_get_address_info_cb,
+                conn_data);
+
+       if (conn_data->lookup_data == NULL) {
+               g_free(conn_data->hostname);
+               g_free(conn_data);
+               return -1;
+       }
+
+       sock_connect_data_list = g_list_append(sock_connect_data_list,
+                                              conn_data);
+
+       return conn_data->id;
+}
+
+gint sock_connect_async_cancel(gint id)
+{
+       SockConnectData *conn_data = NULL;
+       GList *cur;
+
+       for (cur = sock_connect_data_list; cur != NULL; cur = cur->next) {
+               if (((SockConnectData *)cur->data)->id == id) {
+                       conn_data = (SockConnectData *)cur->data;
+                       break;
+               }
+       }
+
+       if (conn_data) {
+               sock_connect_data_list = g_list_remove(sock_connect_data_list,
+                                                      conn_data);
+
+               if (conn_data->lookup_data)
+                       sock_get_address_info_async_cancel
+                               (conn_data->lookup_data);
+
+               if (conn_data->io_tag > 0)
+                       g_source_remove(conn_data->io_tag);
+               if (conn_data->channel) {
+                       g_io_channel_close(conn_data->channel);
+                       g_io_channel_unref(conn_data->channel);
+               }
+
+               sock_address_list_free(conn_data->addr_list);
+               g_free(conn_data->hostname);
+               g_free(conn_data);
+       } else {
+               g_warning("sock_connect_async_cancel: id %d not found.\n", id);
+               return -1;
+       }
+
+       return 0;
+}
+
+static gint sock_connect_address_list_async(SockConnectData *conn_data)
+{
+       SockAddrData *addr_data;
+       gint sock = -1;
+
+       for (; conn_data->cur_addr != NULL;
+            conn_data->cur_addr = conn_data->cur_addr->next) {
+               addr_data = (SockAddrData *)conn_data->cur_addr->data;
+
+               if ((sock = socket(addr_data->family, addr_data->socktype,
+                                  addr_data->protocol)) < 0) {
+                       perror("socket");
+                       continue;
+               }
+
+               set_nonblocking_mode(sock, TRUE);
+
+               if (connect(sock, addr_data->addr, addr_data->addr_len) < 0) {
+                       if (EINPROGRESS == errno) {
+                               break;
+                       } else {
+                               perror("connect");
+                               close(sock);
+                       }
+               } else
+                       break;
+       }
+
+       if (conn_data->cur_addr == NULL) {
+               g_warning("sock_connect_address_list_async: "
+                         "connection to %s:%d failed\n",
+                         conn_data->hostname, conn_data->port);
+               conn_data->func(NULL, conn_data->data);
+               sock_connect_async_cancel(conn_data->id);
+               return -1;
+       }
+
+       conn_data->cur_addr = conn_data->cur_addr->next;
+
+       conn_data->channel = g_io_channel_unix_new(sock);
+       conn_data->io_tag = g_io_add_watch(conn_data->channel, G_IO_IN|G_IO_OUT,
+                                          sock_connect_async_cb, conn_data);
+
+       return 0;
+}
+
+/* asynchronous DNS lookup */
+
+static gboolean sock_get_address_info_async_cb(GIOChannel *source,
+                                              GIOCondition condition,
+                                              gpointer data)
+{
+       SockLookupData *lookup_data = (SockLookupData *)data;
+       GList *addr_list = NULL;
+       SockAddrData *addr_data;
+       gsize bytes_read;
+       gint ai_member[4];
+       struct sockaddr *addr;
+
+       for (;;) {
+               if (g_io_channel_read(source, (gchar *)ai_member,
+                                     sizeof(ai_member), &bytes_read)
+                   != G_IO_ERROR_NONE) {
+                       g_warning("sock_get_address_info_async_cb: "
+                                 "address length read error\n");
+                       break;
+               }
+
+               if (bytes_read == 0 || bytes_read != sizeof(ai_member))
+                       break;
+
+               if (ai_member[0] == AF_UNSPEC) {
+                       g_warning("DNS lookup failed\n");
+                       break;
+               }
+
+               addr = g_malloc(ai_member[3]);
+               if (g_io_channel_read(source, (gchar *)addr, ai_member[3],
+                                     &bytes_read)
+                   != G_IO_ERROR_NONE) {
+                       g_warning("sock_get_address_info_async_cb: "
+                                 "address data read error\n");
+                       g_free(addr);
+                       break;
+               }
+
+               if (bytes_read != ai_member[3]) {
+                       g_warning("sock_get_address_info_async_cb: "
+                                 "incomplete address data\n");
+                       g_free(addr);
+                       break;
+               }
+
+               addr_data = g_new0(SockAddrData, 1);
+               addr_data->family = ai_member[0];
+               addr_data->socktype = ai_member[1];
+               addr_data->protocol = ai_member[2];
+               addr_data->addr_len = ai_member[3];
+               addr_data->addr = addr;
+
+               addr_list = g_list_append(addr_list, addr_data);
+       }
+
+       g_io_channel_close(source);
+       g_io_channel_unref(source);
+
+       kill(lookup_data->child_pid, SIGKILL);
+       waitpid(lookup_data->child_pid, NULL, 0);
+
+       lookup_data->func(addr_list, lookup_data->data);
+
+       g_free(lookup_data->hostname);
+       g_free(lookup_data);
+
+       return FALSE;
+}
+
+static SockLookupData *sock_get_address_info_async(const gchar *hostname,
+                                                  gushort port,
+                                                  SockAddrFunc func,
+                                                  gpointer data)
+{
+       SockLookupData *lookup_data = NULL;
+       gint pipe_fds[2];
+       pid_t pid;
+       
+       refresh_resolvers();
+
+       if (pipe(pipe_fds) < 0) {
+               perror("pipe");
+               func(NULL, data);
+               return NULL;
+       }
+
+       if ((pid = fork()) < 0) {
+               perror("fork");
+               func(NULL, data);
+               return NULL;
+       }
+
+       /* child process */
+       if (pid == 0) {
+#ifdef INET6
+               gint gai_err;
+               struct addrinfo hints, *res, *ai;
+               gchar port_str[6];
+#else /* !INET6 */
+               struct hostent *hp;
+               gchar **addr_list_p;
+               struct sockaddr_in ad;
+#endif /* INET6 */
+               gint ai_member[4] = {AF_UNSPEC, 0, 0, 0};
+
+               close(pipe_fds[0]);
+
+#ifdef INET6
+               memset(&hints, 0, sizeof(hints));
+               /* hints.ai_flags = AI_CANONNAME; */
+               hints.ai_family = AF_UNSPEC;
+               hints.ai_socktype = SOCK_STREAM;
+               hints.ai_protocol = IPPROTO_TCP;
+
+               g_snprintf(port_str, sizeof(port_str), "%d", port);
+
+               gai_err = getaddrinfo(hostname, port_str, &hints, &res);
+               if (gai_err != 0) {
+                       g_warning("getaddrinfo for %s:%s failed: %s\n",
+                                 hostname, port_str, gai_strerror(gai_err));
+                       fd_write_all(pipe_fds[1], (gchar *)ai_member,
+                                    sizeof(ai_member));
+                       close(pipe_fds[1]);
+                       _exit(1);
+               }
+
+               for (ai = res; ai != NULL; ai = ai->ai_next) {
+                       ai_member[0] = ai->ai_family;
+                       ai_member[1] = ai->ai_socktype;
+                       ai_member[2] = ai->ai_protocol;
+                       ai_member[3] = ai->ai_addrlen;
+
+                       fd_write_all(pipe_fds[1], (gchar *)ai_member,
+                                    sizeof(ai_member));
+                       fd_write_all(pipe_fds[1], (gchar *)ai->ai_addr,
+                                    ai->ai_addrlen);
+               }
+
+               if (res != NULL)
+                       freeaddrinfo(res);
+#else /* !INET6 */
+               hp = my_gethostbyname(hostname);
+               if (hp == NULL || hp->h_addrtype != AF_INET) {
+                       fd_write_all(pipe_fds[1], (gchar *)ai_member,
+                                    sizeof(ai_member));
+                       close(pipe_fds[1]);
+                       _exit(1);
+               }
+
+               ai_member[0] = AF_INET;
+               ai_member[1] = SOCK_STREAM;
+               ai_member[2] = IPPROTO_TCP;
+               ai_member[3] = sizeof(ad);
+
+               memset(&ad, 0, sizeof(ad));
+               ad.sin_family = AF_INET;
+               ad.sin_port = htons(port);
+
+               for (addr_list_p = hp->h_addr_list; *addr_list_p != NULL;
+                    addr_list_p++) {
+                       memcpy(&ad.sin_addr, *addr_list_p, hp->h_length);
+                       fd_write_all(pipe_fds[1], (gchar *)ai_member,
+                                    sizeof(ai_member));
+                       fd_write_all(pipe_fds[1], (gchar *)&ad, sizeof(ad));
+               }
+#endif /* INET6 */
+
+               close(pipe_fds[1]);
+
+               _exit(0);
+       } else {
+               close(pipe_fds[1]);
+
+               lookup_data = g_new0(SockLookupData, 1);
+               lookup_data->hostname = g_strdup(hostname);
+               lookup_data->child_pid = pid;
+               lookup_data->func = func;
+               lookup_data->data = data;
+
+               lookup_data->channel = g_io_channel_unix_new(pipe_fds[0]);
+               lookup_data->io_tag = g_io_add_watch
+                       (lookup_data->channel, G_IO_IN,
+                        sock_get_address_info_async_cb, lookup_data);
+       }
+
+       return lookup_data;
+}
+
+static gint sock_get_address_info_async_cancel(SockLookupData *lookup_data)
+{
+       if (lookup_data->io_tag > 0)
+               g_source_remove(lookup_data->io_tag);
+       if (lookup_data->channel) {
+               g_io_channel_close(lookup_data->channel);
+               g_io_channel_unref(lookup_data->channel);
+       }
+
+       if (lookup_data->child_pid > 0) {
+               kill(lookup_data->child_pid, SIGKILL);
+               waitpid(lookup_data->child_pid, NULL, 0);
+       }
+
+       g_free(lookup_data->hostname);
+       g_free(lookup_data);
+
+       return 0;
+}
+#endif /* G_OS_UNIX */
+
 
 static SockInfo *sockinfo_from_fd(const gchar *hostname,
                                  gushort port,
@@ -436,12 +1106,11 @@ static SockInfo *sockinfo_from_fd(const gchar *hostname,
 
        sockinfo = g_new0(SockInfo, 1);
        sockinfo->sock = sock;
+       sockinfo->sock_ch = g_io_channel_unix_new(sock);
        sockinfo->hostname = g_strdup(hostname);
        sockinfo->port = port;
        sockinfo->state = CONN_ESTABLISHED;
 
-       usleep(100000);
-
        return sockinfo;
 }
 
@@ -462,13 +1131,40 @@ gint fd_read(gint fd, gchar *buf, gint len)
        if (fd_check_io(fd, G_IO_IN) < 0)
                return -1;
 
+#ifdef G_OS_WIN32
+       return recv(fd, buf, len, 0);
+#else
        return read(fd, buf, len);
+#endif
 }
 
 #if USE_OPENSSL
 gint ssl_read(SSL *ssl, gchar *buf, gint len)
 {
-       return SSL_read(ssl, buf, len);
+       gint err, ret;
+
+       if (SSL_pending(ssl) == 0) {
+               if (fd_check_io(SSL_get_rfd(ssl), G_IO_IN) < 0)
+                       return -1;
+       }
+
+       ret = SSL_read(ssl, buf, len);
+
+       switch ((err = SSL_get_error(ssl, ret))) {
+       case SSL_ERROR_NONE:
+               return ret;
+       case SSL_ERROR_WANT_READ:
+       case SSL_ERROR_WANT_WRITE:
+               errno = EAGAIN;
+               return -1;
+       case SSL_ERROR_ZERO_RETURN:
+               return 0;
+       default:
+               g_warning("SSL_read() returned error %d, ret = %d\n", err, ret);
+               if (ret == 0)
+                       return 0;
+               return -1;
+       }
 }
 #endif
 
@@ -495,13 +1191,30 @@ gint fd_write(gint fd, const gchar *buf, gint len)
        if (fd_check_io(fd, G_IO_OUT) < 0)
                return -1;
 
+#ifdef G_OS_WIN32
+       return send(fd, buf, len, 0);
+#else
        return write(fd, buf, len);
+#endif
 }
 
 #if USE_OPENSSL
 gint ssl_write(SSL *ssl, const gchar *buf, gint len)
 {
-       return SSL_write(ssl, buf, len);
+       gint ret;
+
+       ret = SSL_write(ssl, buf, len);
+
+       switch (SSL_get_error(ssl, ret)) {
+       case SSL_ERROR_NONE:
+               return ret;
+       case SSL_ERROR_WANT_READ:
+       case SSL_ERROR_WANT_WRITE:
+               errno = EAGAIN;
+               return -1;
+       default:
+               return -1;
+       }
 }
 #endif
 
@@ -550,7 +1263,7 @@ gint ssl_write_all(SSL *ssl, const gchar *buf, gint len)
        gint n, wrlen = 0;
 
        while (len) {
-               n = SSL_write(ssl, buf, len);
+               n = ssl_write(ssl, buf, len);
                if (n <= 0)
                        return -1;
                len -= n;
@@ -619,11 +1332,11 @@ gint ssl_gets(SSL *ssl, gchar *buf, gint len)
        if (--len < 1)
                return -1;
        do {
-               if ((n = SSL_peek(ssl, bp, len)) <= 0)
+               if ((n = ssl_peek(ssl, bp, len)) <= 0)
                        return -1;
                if ((newline = memchr(bp, '\n', n)) != NULL)
                        n = newline - bp + 1;
-               if ((n = SSL_read(ssl, bp, n)) < 0)
+               if ((n = ssl_read(ssl, bp, n)) < 0)
                        return -1;
                bp += n;
                len -= n;
@@ -728,33 +1441,49 @@ gint sock_puts(SockInfo *sock, const gchar *buf)
        return sock_write_all(sock, "\r\n", 2);
 }
 
-/* peek at the next socket character without actually reading it */
-gint sock_peek(SockInfo *sock)
+/* peek at the socket data without actually reading it */
+#if USE_OPENSSL
+gint ssl_peek(SSL *ssl, gchar *buf, gint len)
 {
-       gint ret, n;
-       gchar ch;
+       gint err, ret;
 
-       g_return_val_if_fail(sock != NULL, -1);
+       if (SSL_pending(ssl) == 0) {
+               if (fd_check_io(SSL_get_rfd(ssl), G_IO_IN) < 0)
+                       return -1;
+       }
 
-#if USE_OPENSSL
-       if (sock->ssl) {
-               if ((n = SSL_peek(sock->ssl, &ch, 1)) < 0)
-                       ret = -1;
-               else
-                       ret = ch;
-       } else {
-#endif
-               if ((n = recv(sock->sock, &ch, 1, MSG_PEEK)) < 0)
-                       ret = -1;
-               else
-                       ret = ch;
-#if USE_OPENSSL
+       ret = SSL_peek(ssl, buf, len);
+
+       switch ((err = SSL_get_error(ssl, ret))) {
+       case SSL_ERROR_NONE:
+               return ret;
+       case SSL_ERROR_WANT_READ:
+       case SSL_ERROR_WANT_WRITE:
+               errno = EAGAIN;
+               return -1;
+       case SSL_ERROR_ZERO_RETURN:
+               return 0;
+       case SSL_ERROR_SYSCALL:
+               g_warning("SSL_peek() returned syscall error. errno=%d\n", errno);
+               return -1;
+       default:
+               g_warning("SSL_peek() returned error %d, ret = %d\n", err, ret);
+               if (ret == 0)
+                       return 0;
+               return -1;
        }
+}
 #endif
 
-       if (ret < 0)
-               sock->state = CONN_DISCONNECTED;
-       return ret;
+gint sock_peek(SockInfo *sock, gchar *buf, gint len)
+{
+       g_return_val_if_fail(sock != NULL, -1);
+
+#if USE_OPENSSL
+       if (sock->ssl)
+               return ssl_peek(sock->ssl, buf, len);
+#endif
+       return fd_recv(sock->sock, buf, len, MSG_PEEK);
 }
 
 gint sock_close(SockInfo *sock)
@@ -764,9 +1493,15 @@ gint sock_close(SockInfo *sock)
        if (!sock)
                return 0;
 
+       if (sock->sock_ch)
+               g_io_channel_unref(sock->sock_ch);
+
 #if USE_OPENSSL
        if (sock->ssl)
                ssl_done_socket(sock);
+       if (sock->g_source != 0)
+               g_source_remove(sock->g_source);
+       sock->g_source = 0;
 #endif
        ret = fd_close(sock->sock); 
        g_free(sock->hostname);