Integrate unfix.org's IPv6 patches up to level 10, with rather a lot
[u/mdw/putty] / unix / uxnet.c
index cbe6730..f1ef98b 100644 (file)
 #include <netinet/in.h>
 #include <netinet/tcp.h>
 #include <netdb.h>
+#include <sys/un.h>
 
 #define DEFINE_PLUG_METHOD_MACROS
 #include "putty.h"
 #include "network.h"
 #include "tree234.h"
 
+#ifndef X11_UNIX_PATH
+# define X11_UNIX_PATH "/tmp/.X11-unix/X"
+#endif
+
 #define ipv4_is_loopback(addr) (inet_netof(addr) == IN_LOOPBACKNET)
 
 struct Socket_tag {
@@ -64,7 +69,7 @@ struct SockAddr_tag {
      * in this SockAddr structure.
      */
     int family;
-#ifdef IPV6
+#ifndef NO_IPV6
     struct addrinfo *ai;              /* Address IPv6 style. */
 #else
     unsigned long address;            /* Address IPv4 style. */
@@ -120,10 +125,10 @@ const char *error_string(int error)
     return strerror(error);
 }
 
-SockAddr sk_namelookup(const char *host, char **canonicalname)
+SockAddr sk_namelookup(const char *host, char **canonicalname, int address_family)
 {
     SockAddr ret = snew(struct SockAddr_tag);
-#ifdef IPV6
+#ifndef NO_IPV6
     struct addrinfo hints;
     int err;
 #else
@@ -138,9 +143,9 @@ SockAddr sk_namelookup(const char *host, char **canonicalname)
     *realhost = '\0';
     ret->error = NULL;
 
-#ifdef IPV6
+#ifndef NO_IPV6
     hints.ai_flags = AI_CANONNAME;
-    hints.ai_family = AF_UNSPEC;
+    hints.ai_family = address_family;
     hints.ai_socktype = 0;
     hints.ai_protocol = 0;
     hints.ai_addrlen = 0;
@@ -214,7 +219,7 @@ void sk_getaddr(SockAddr addr, char *buf, int buflen)
        strncpy(buf, addr->hostname, buflen);
        buf[buflen-1] = '\0';
     } else {
-#ifdef IPV6
+#ifndef NO_IPV6
        if (getnameinfo(addr->ai->ai_addr, addr->ai->ai_addrlen, buf, buflen,
                        NULL, 0, NI_NUMERICHOST) != 0) {
            buf[0] = '\0';
@@ -241,7 +246,7 @@ int sk_address_is_local(SockAddr addr)
     if (addr->family == AF_UNSPEC)
        return 0;                      /* we don't know; assume not */
     else {
-#ifdef IPV6
+#ifndef NO_IPV6
        if (addr->family == AF_INET)
            return ipv4_is_loopback(
                ((struct sockaddr_in *)addr->ai->ai_addr)->sin_addr);
@@ -262,7 +267,7 @@ int sk_address_is_local(SockAddr addr)
 int sk_addrtype(SockAddr addr)
 {
     return (addr->family == AF_INET ? ADDRTYPE_IPV4 :
-#ifdef IPV6
+#ifndef NO_IPV6
            addr->family == AF_INET6 ? ADDRTYPE_IPV6 :
 #endif
            ADDRTYPE_NAME);
@@ -271,7 +276,7 @@ int sk_addrtype(SockAddr addr)
 void sk_addrcopy(SockAddr addr, char *buf)
 {
 
-#ifdef IPV6
+#ifndef NO_IPV6
     if (addr->family == AF_INET)
        memcpy(buf, &((struct sockaddr_in *)addr->ai->ai_addr)->sin_addr,
               sizeof(struct in_addr));
@@ -292,7 +297,7 @@ void sk_addrcopy(SockAddr addr, char *buf)
 void sk_addr_free(SockAddr addr)
 {
 
-#ifdef IPV6
+#ifndef NO_IPV6
     if (addr->ai != NULL)
        freeaddrinfo(addr->ai);
 #endif
@@ -373,17 +378,19 @@ Socket sk_register(OSSocket sockfd, Plug plug)
 }
 
 Socket sk_new(SockAddr addr, int port, int privport, int oobinline,
-             int nodelay, Plug plug)
+             int nodelay, int keepalive, Plug plug)
 {
     int s;
-#ifdef IPV6
+#ifndef NO_IPV6
     struct sockaddr_in6 a6;
 #endif
     struct sockaddr_in a;
+    struct sockaddr_un au;
+    const struct sockaddr *sa;
     int err;
     Actual_Socket ret;
     short localport;
-    int fl;
+    int fl, salen;
 
     /*
      * Create Socket structure.
@@ -426,6 +433,11 @@ Socket sk_new(SockAddr addr, int port, int privport, int oobinline,
        setsockopt(s, IPPROTO_TCP, TCP_NODELAY, (void *) &b, sizeof(b));
     }
 
+    if (keepalive) {
+       int b = TRUE;
+       setsockopt(s, SOL_SOCKET, SO_KEEPALIVE, (void *) &b, sizeof(b));
+    }
+
     /*
      * Bind to local address.
      */
@@ -434,77 +446,103 @@ Socket sk_new(SockAddr addr, int port, int privport, int oobinline,
     else
        localport = 0;                 /* just use port 0 (ie kernel picks) */
 
-    /* Loop round trying to bind */
-    while (1) {
-       int retcode;
+    /* BSD IP stacks need sockaddr_in zeroed before filling in */
+    memset(&a,'\0',sizeof(struct sockaddr_in));
+#ifndef NO_IPV6
+    memset(&a6,'\0',sizeof(struct sockaddr_in6));
+#endif
 
-#ifdef IPV6
-       if (addr->family == AF_INET6) {
-           /* XXX use getaddrinfo to get a local address? */
-           a6.sin6_family = AF_INET6;
-           a6.sin6_addr = in6addr_any;
-           a6.sin6_port = htons(localport);
-           retcode = bind(s, (struct sockaddr *) &a6, sizeof(a6));
-       } else
+    /* We don't try to bind to a local address for UNIX domain sockets.  (Why
+     * do we bother doing the bind when localport == 0 anyway?) */
+    if(addr->family != AF_UNIX) {
+       /* Loop round trying to bind */
+       while (1) {
+           int retcode;
+
+#ifndef NO_IPV6
+           if (addr->family == AF_INET6) {
+               /* XXX use getaddrinfo to get a local address? */
+               a6.sin6_family = AF_INET6;
+               a6.sin6_addr = in6addr_any;
+               a6.sin6_port = htons(localport);
+               retcode = bind(s, (struct sockaddr *) &a6, sizeof(a6));
+           } else
 #endif
-       {
-           assert(addr->family == AF_INET);
-           a.sin_family = AF_INET;
-           a.sin_addr.s_addr = htonl(INADDR_ANY);
-           a.sin_port = htons(localport);
-           retcode = bind(s, (struct sockaddr *) &a, sizeof(a));
+           {
+               assert(addr->family == AF_INET);
+               a.sin_family = AF_INET;
+               a.sin_addr.s_addr = htonl(INADDR_ANY);
+               a.sin_port = htons(localport);
+               retcode = bind(s, (struct sockaddr *) &a, sizeof(a));
+           }
+           if (retcode >= 0) {
+               err = 0;
+               break;                 /* done */
+           } else {
+               err = errno;
+               if (err != EADDRINUSE) /* failed, for a bad reason */
+                 break;
+           }
+           
+           if (localport == 0)
+             break;                   /* we're only looping once */
+           localport--;
+           if (localport == 0)
+             break;                   /* we might have got to the end */
        }
-       if (retcode >= 0) {
-           err = 0;
-           break;                     /* done */
-       } else {
-           err = errno;
-           if (err != EADDRINUSE)     /* failed, for a bad reason */
-               break;
+       
+       if (err) {
+           ret->error = error_string(err);
+           return (Socket) ret;
        }
-
-       if (localport == 0)
-           break;                     /* we're only looping once */
-       localport--;
-       if (localport == 0)
-           break;                     /* we might have got to the end */
-    }
-
-    if (err) {
-       ret->error = error_string(err);
-       return (Socket) ret;
     }
 
     /*
      * Connect to remote address.
      */
-#ifdef IPV6
-    /* XXX would be better to have got getaddrinfo() to fill in the port. */
-    if (addr->family == AF_INET)
+    switch(addr->family) {
+#ifndef NO_IPV6
+      case AF_INET:
+       /* XXX would be better to have got getaddrinfo() to fill in the port. */
        ((struct sockaddr_in *)addr->ai->ai_addr)->sin_port =
            htons(port);
-    else {
-       assert(addr->family == AF_INET6);
+       sa = (const struct sockaddr *)addr->ai->ai_addr;
+       salen = addr->ai->ai_addrlen;
+       break;
+      case AF_INET6:
        ((struct sockaddr_in *)addr->ai->ai_addr)->sin_port =
            htons(port);
-    }
+       sa = (const struct sockaddr *)addr->ai->ai_addr;
+       salen = addr->ai->ai_addrlen;
+       break;
 #else
-    a.sin_family = AF_INET;
-    a.sin_addr.s_addr = htonl(addr->address);
-    a.sin_port = htons((short) port);
+      case AF_INET:
+       a.sin_family = AF_INET;
+       a.sin_addr.s_addr = htonl(addr->address);
+       a.sin_port = htons((short) port);
+       sa = (const struct sockaddr *)&a;
+       salen = sizeof a;
+       break;
 #endif
+      case AF_UNIX:
+       assert(port == 0);      /* to catch confused people */
+       assert(strlen(addr->hostname) < sizeof au.sun_path);
+       memset(&au, 0, sizeof au);
+       au.sun_family = AF_UNIX;
+       strcpy(au.sun_path, addr->hostname);
+       sa = (const struct sockaddr *)&au;
+       salen = sizeof au;
+       break;
+
+      default:
+       assert(0 && "unknown address family");
+    }
 
     fl = fcntl(s, F_GETFL);
     if (fl != -1)
        fcntl(s, F_SETFL, fl | O_NONBLOCK);
 
-    if ((
-#ifdef IPV6
-           connect(s, addr->ai->ai_addr, addr->ai->ai_addrlen)
-#else
-           connect(s, (struct sockaddr *) &a, sizeof(a))
-#endif
-       ) < 0) {
+    if ((connect(s, sa, salen)) < 0) {
        if ( errno != EINPROGRESS ) {
            ret->error = error_string(errno);
            return (Socket) ret;
@@ -526,13 +564,10 @@ Socket sk_new(SockAddr addr, int port, int privport, int oobinline,
     return (Socket) ret;
 }
 
-Socket sk_newlistener(char *srcaddr, int port, Plug plug, int local_host_only)
+Socket sk_newlistener(char *srcaddr, int port, Plug plug, int local_host_only, int address_family)
 {
     int s;
-#ifdef IPV6
-#if 0
-    struct sockaddr_in6 a6;
-#endif
+#ifndef NO_IPV6
     struct addrinfo hints, *ai;
     char portstr[6];
 #endif
@@ -560,9 +595,31 @@ Socket sk_newlistener(char *srcaddr, int port, Plug plug, int local_host_only)
     ret->listener = 1;
 
     /*
+     * Translate address_family from platform-independent constants
+     * into local reality.
+     */
+    address_family = (address_family == ADDRTYPE_IPV4 ? AF_INET :
+                     address_family == ADDRTYPE_IPV6 ? AF_INET6 : AF_UNSPEC);
+
+#ifndef NO_IPV6
+    /* Let's default to IPv6.
+     * If the stack doesn't support IPv6, we will fall back to IPv4. */
+    if (address_family == AF_UNSPEC) address_family = AF_INET6;
+#else
+    /* No other choice, default to IPv4 */
+    if (address_family == AF_UNSPEC)  address_family = AF_INET;
+#endif
+
+    /*
      * Open socket.
      */
-    s = socket(AF_INET, SOCK_STREAM, 0);
+    s = socket(address_family, SOCK_STREAM, 0);
+
+    /* If the host doesn't support IPv6 try fallback to IPv4. */
+    if (s < 0 && address_family == AF_INET6) {
+       address_family = AF_INET;
+       s = socket(address_family, SOCK_STREAM, 0);
+    }
     ret->s = s;
 
     if (s < 0) {
@@ -574,9 +631,14 @@ Socket sk_newlistener(char *srcaddr, int port, Plug plug, int local_host_only)
 
     setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (const char *)&on, sizeof(on));
 
-#ifdef IPV6
+    /* BSD IP stacks need sockaddr_in zeroed before filling in */
+    memset(&a,'\0',sizeof(struct sockaddr_in));
+#ifndef NO_IPV6
+#if 0
+    memset(&a6,'\0',sizeof(struct sockaddr_in6));
+#endif
     hints.ai_flags = AI_NUMERICHOST;
-    hints.ai_family = AF_UNSPEC;
+    hints.ai_family = address_family;
     hints.ai_socktype = 0;
     hints.ai_protocol = 0;
     hints.ai_addrlen = 0;
@@ -678,19 +740,28 @@ int sk_getxdmdata(void *sock, unsigned long *ip, int *port)
     if (s->fn != &tcp_fn_table)
        return 0;                      /* failure */
 
-    /*
-     * If we ever implement connecting to a local X server through
-     * a Unix socket, we return 0xFFFFFFFF for the IP address and
-     * our current pid for the port. Bizarre, but such is life.
-     */
-
     addrlen = sizeof(addr);
-    if (getsockname(s->s, (struct sockaddr *)&addr, &addrlen) < 0 ||
-       addr.sin_family != AF_INET)
+    if (getsockname(s->s, (struct sockaddr *)&addr, &addrlen) < 0)
        return 0;
+    switch(addr.sin_family) {
+      case AF_INET:
+       *ip = ntohl(addr.sin_addr.s_addr);
+       *port = ntohs(addr.sin_port);
+       break;
+      case AF_UNIX:
+       /*
+        * For a Unix socket, we return 0xFFFFFFFF for the IP address and
+        * our current pid for the port. Bizarre, but such is life.
+        */
+       *ip = ntohl(0xFFFFFFFF);
+       *port = getpid();
+       break;
 
-    *ip = ntohl(addr.sin_addr.s_addr);
-    *port = ntohs(addr.sin_port);
+       /* XXX IPV6 */
+
+      default:
+       return 0;
+    }
 
     return 1;
 }
@@ -1052,3 +1123,21 @@ int net_service_lookup(char *service)
     else
        return 0;
 }
+
+SockAddr platform_get_x11_unix_address(int displaynum, char **canonicalname)
+{
+    SockAddr ret = snew(struct SockAddr_tag);
+    int n;
+
+    memset(ret, 0, sizeof *ret);
+    ret->family = AF_UNIX;
+    n = snprintf(ret->hostname, sizeof ret->hostname,
+                "%s%d", X11_UNIX_PATH, displaynum);
+    if(n < 0)
+       ret->error = "snprintf failed";
+    else if(n >= sizeof ret->hostname)
+       ret->error = "X11 UNIX name too long";
+    else
+       *canonicalname = dupstr(ret->hostname);
+    return ret;
+}