Call bind() with the right ai_addr/ai_addrlen info.
[rsync/rsync.git] / socket.c
index 5e03760..7298351 100644 (file)
--- a/socket.c
+++ b/socket.c
@@ -1,46 +1,56 @@
 /* -*- c-file-style: "linux" -*-
-   
+
+   rsync -- fast file replication program
+
    Copyright (C) 1992-2001 by Andrew Tridgell <tridge@samba.org>
-   Copyright (C) 2001 by Martin Pool <mbp@samba.org>
-   
+   Copyright (C) 2001, 2002 by Martin Pool <mbp@samba.org>
+
    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
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
-   
+
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
-   
+
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
-/*
-  socket functions used in rsync 
-
-  */
+/**
+ * @file socket.c
+ *
+ * Socket functions used in rsync.
+ *
+ * This file is now converted to use the new-style getaddrinfo()
+ * interface, which supports IPv6 but is also supported on recent
+ * IPv4-only machines.  On systems that don't have that interface, we
+ * emulate it using the KAME implementation.
+ **/
 
 #include "rsync.h"
 
 
-/* Establish a proxy connection on an open socket to a web roxy by
- * using the CONNECT method. */
+/**
+ * Establish a proxy connection on an open socket to a web proxy by
+ * using the HTTP CONNECT method.
+ **/
 static int establish_proxy_connection(int fd, char *host, int port)
 {
        char buffer[1024];
        char *cp;
 
        snprintf(buffer, sizeof(buffer), "CONNECT %s:%d HTTP/1.0\r\n\r\n", host, port);
-       if (write(fd, buffer, strlen(buffer)) != strlen(buffer)) {
+       if (write(fd, buffer, strlen(buffer)) != (int)strlen(buffer)) {
                rprintf(FERROR, "failed to write to proxy: %s\n",
                        strerror(errno));
                return -1;
        }
 
-       for (cp = buffer; cp < &buffer[sizeof(buffer) - 1]; cp++) {
+       for (cp = buffer; cp < &buffer[sizeof (buffer) - 1]; cp++) {
                if (read(fd, cp, 1) != 1) {
                        rprintf(FERROR, "failed to read from proxy: %s\n",
                                strerror(errno));
@@ -60,8 +70,7 @@ static int establish_proxy_connection(int fd, char *host, int port)
                        buffer);
                return -1;
        }
-       for (cp = &buffer[5]; isdigit(*cp) || (*cp == '.'); cp++)
-               ;
+       for (cp = &buffer[5]; isdigit(*(uchar*)cp) || *cp == '.'; cp++) {}
        while (*cp == ' ')
                cp++;
        if (*cp != '2') {
@@ -71,8 +80,7 @@ static int establish_proxy_connection(int fd, char *host, int port)
        }
        /* throw away the rest of the HTTP header */
        while (1) {
-               for (cp = buffer; cp < &buffer[sizeof(buffer) - 1];
-                    cp++) {
+               for (cp = buffer; cp < &buffer[sizeof (buffer) - 1]; cp++) {
                        if (read(fd, cp, 1) != 1) {
                                rprintf(FERROR, "failed to read from proxy: %s\n",
                                        strerror(errno));
@@ -81,30 +89,79 @@ static int establish_proxy_connection(int fd, char *host, int port)
                        if (*cp == '\n')
                                break;
                }
-               if ((cp > buffer) && (*cp == '\n'))
+               if (cp > buffer && *cp == '\n')
                        cp--;
-               if ((cp == buffer) && ((*cp == '\n') || (*cp == '\r')))
+               if (cp == buffer && (*cp == '\n' || *cp == '\r'))
                        break;
        }
        return 0;
 }
 
 
+/**
+ * Try to set the local address for a newly-created socket.  Return -1
+ * if this fails.
+ **/
+int try_bind_local(int s, int ai_family, int ai_socktype,
+                  const char *bind_address)
+{
+       int error;
+       struct addrinfo bhints, *bres_all, *r;
+
+       memset(&bhints, 0, sizeof(bhints));
+       bhints.ai_family = ai_family;
+       bhints.ai_socktype = ai_socktype;
+       bhints.ai_flags = AI_PASSIVE;
+       if ((error = getaddrinfo(bind_address, NULL, &bhints, &bres_all))) {
+               rprintf(FERROR, RSYNC_NAME ": getaddrinfo %s: %s\n",
+                       bind_address, gai_strerror(error));
+               return -1;
+       }
+
+       for (r = bres_all; r; r = r->ai_next) {
+               if (bind(s, r->ai_addr, r->ai_addrlen) == -1)
+                       continue;
+               freeaddrinfo(bres_all);
+               return s;
+       }
+
+       /* no error message; there might be some problem that allows
+        * creation of the socket but not binding, perhaps if the
+        * machine has no ipv6 address of this name. */
+       freeaddrinfo(bres_all);
+       return -1;
+}
+
 
-/* open a socket to a tcp remote host with the specified port 
-   based on code from Warren
-   proxy support by Stephen Rothwell */
-static int open_socket_out (char *host,
-                           int port,
-                           struct in_addr *address)
+/**
+ * Open a socket to a tcp remote host with the specified port .
+ *
+ * Based on code from Warren.  Proxy support by Stephen Rothwell.
+ * getaddrinfo() rewrite contributed by KAME.net.
+ *
+ * Now that we support IPv6 we need to look up the remote machine's
+ * address first, using @p af_hint to set a preference for the type
+ * of address.  Then depending on whether it has v4 or v6 addresses we
+ * try to open a connection.
+ *
+ * The loop allows for machines with some addresses which may not be
+ * reachable, perhaps because we can't e.g. route ipv6 to that network
+ * but we can get ip4 packets through.
+ *
+ * @param bind_address Local address to use.  Normally NULL to bind
+ * the wildcard address.
+ *
+ * @param af_hint Address family, e.g. AF_INET or AF_INET6.
+ **/
+int open_socket_out(char *host, int port, const char *bind_address,
+                   int af_hint)
 {
        int type = SOCK_STREAM;
-       struct sockaddr_in sock_out;
-       struct sockaddr_in sock;
-       int res;
-       struct hostent *hp;
+       int error;
+       int s;
+       struct addrinfo hints, *res0, *res;
+       char portbuf[10];
        char *h;
-       unsigned p;
        int proxied = 0;
        char buffer[1024];
        char *cp;
@@ -113,7 +170,7 @@ static int open_socket_out (char *host,
         * connetcion via a web proxy at the given address. The format
         * is hostname:port */
        h = getenv("RSYNC_PROXY");
-       proxied = (h != NULL) && (*h != '\0');
+       proxied = h != NULL && *h != '\0';
 
        if (proxied) {
                strlcpy(buffer, h, sizeof(buffer));
@@ -124,49 +181,65 @@ static int open_socket_out (char *host,
                        return -1;
                }
                *cp++ = '\0';
-               p = atoi(cp);
+               strcpy(portbuf, cp);
                h = buffer;
+               if (verbose >= 2) {
+                       rprintf(FINFO, "connection via http proxy %s port %s\n",
+                               h, portbuf);
+               }
        } else {
+               snprintf(portbuf, sizeof(portbuf), "%d", port);
                h = host;
-               p = port;
-       }
-
-       res = socket(PF_INET, type, 0);
-       if (res == -1) {
-               return -1;
        }
 
-       hp = gethostbyname(h);
-       if (!hp) {
-               rprintf(FERROR,"unknown host: \"%s\"\n", h);
-               close(res);
+       memset(&hints, 0, sizeof(hints));
+       hints.ai_family = af_hint;
+       hints.ai_socktype = type;
+       error = getaddrinfo(h, portbuf, &hints, &res0);
+       if (error) {
+               rprintf(FERROR, RSYNC_NAME ": getaddrinfo: %s %s: %s\n",
+                       h, portbuf, gai_strerror(error));
                return -1;
        }
 
-       memcpy(&sock_out.sin_addr, hp->h_addr, hp->h_length);
-       sock_out.sin_port = htons(p);
-       sock_out.sin_family = PF_INET;
+       s = -1;
+       /* Try to connect to all addresses for this machine until we get
+        * through.  It might e.g. be multi-homed, or have both IPv4 and IPv6
+        * addresses.  We need to create a socket for each record, since the
+        * address record tells us what protocol to use to try to connect. */
+       for (res = res0; res; res = res->ai_next) {
+               s = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
+               if (s < 0)
+                       continue;
 
-       if (address) {
-               sock.sin_addr = *address;
-               sock.sin_port = 0;
-               sock.sin_family = hp->h_addrtype;
-               bind(res, (struct sockaddr * ) &sock,sizeof(sock));
-       }
+               if (bind_address)
+                       if (try_bind_local(s, res->ai_family, type,
+                                          bind_address) == -1) {
+                               close(s);
+                               s = -1;
+                               continue;
+                       }
 
-       if (connect(res,(struct sockaddr *)&sock_out,sizeof(sock_out))) {
-               rprintf (FERROR, RSYNC_NAME ": failed to connect to host %s: %s\n",
-                        h, strerror(errno));
-               close(res);
-               return -1;
+               if (connect(s, res->ai_addr, res->ai_addrlen) < 0) {
+                       close(s);
+                       s = -1;
+                       continue;
+               }
+               if (proxied &&
+                   establish_proxy_connection(s, host, port) != 0) {
+                       close(s);
+                       s = -1;
+                       continue;
+               } else
+                       break;
        }
-
-       if (proxied && establish_proxy_connection(res, host, port) != 0) {
-               close(res);
+       freeaddrinfo(res0);
+       if (s < 0) {
+               rprintf(FERROR, RSYNC_NAME ": failed to connect to %s: %s\n",
+                       h, strerror(errno));
                return -1;
        }
-
-       return res;
+       return s;
 }
 
 
@@ -179,60 +252,92 @@ static int open_socket_out (char *host,
  * cause security problems by really opening remote connections.
  *
  * This is based on the Samba LIBSMB_PROG feature.
+ *
+ * @param bind_address Local address to use.  Normally NULL to get the stack default.
  **/
-int open_socket_out_wrapped (char *host,
-                            int port,
-                            struct in_addr *address)
+int open_socket_out_wrapped(char *host, int port, const char *bind_address,
+                           int af_hint)
 {
        char *prog;
 
-       if ((prog = getenv ("RSYNC_CONNECT_PROG")) != NULL) 
-               return sock_exec (prog);
-       else 
-               return open_socket_out (host, port, address);
+       if ((prog = getenv("RSYNC_CONNECT_PROG")) != NULL)
+               return sock_exec(prog);
+       return open_socket_out(host, port, bind_address, af_hint);
 }
 
 
 
-/****************************************************************************
-open a socket of the specified type, port and address for incoming data
-****************************************************************************/
-static int open_socket_in(int type, int port, struct in_addr *address)
+/**
+ * Open a socket of the specified type, port and address for incoming data
+ *
+ * Try to be better about handling the results of getaddrinfo(): when
+ * opening an inbound socket, we might get several address results,
+ * e.g. for the machine's ipv4 and ipv6 name.
+ *
+ * If binding a wildcard, then any one of them should do.  If an address
+ * was specified but it's insufficiently specific then that's not our
+ * fault.
+ *
+ * However, some of the advertized addresses may not work because e.g. we
+ * don't have IPv6 support in the kernel.  In that case go on and try all
+ * addresses until one succeeds.
+ *
+ * @param bind_address Local address to bind, or NULL to allow it to
+ * default.
+ **/
+static int open_socket_in(int type, int port, const char *bind_address,
+                         int af_hint)
 {
-       struct sockaddr_in sock;
-       int res;
        int one=1;
-
-       memset((char *)&sock,0,sizeof(sock));
-       sock.sin_port = htons(port);
-       sock.sin_family = AF_INET;
-       if (address) {
-               sock.sin_addr = *address;
-       } else {
-               sock.sin_addr.s_addr = INADDR_ANY;
-       }
-       res = socket(AF_INET, type, 0);
-       if (res == -1) { 
-               rprintf(FERROR, RSYNC_NAME ": socket failed: %s\n",
-                       strerror(errno)); 
-               return -1; 
+       int s;
+       struct addrinfo hints, *all_ai, *resp;
+       char portbuf[10];
+       int error;
+
+       memset(&hints, 0, sizeof(hints));
+       hints.ai_family = af_hint;
+       hints.ai_socktype = type;
+       hints.ai_flags = AI_PASSIVE;
+       snprintf(portbuf, sizeof(portbuf), "%d", port);
+       error = getaddrinfo(bind_address, portbuf, &hints, &all_ai);
+       if (error) {
+               rprintf(FERROR, RSYNC_NAME ": getaddrinfo: bind address %s: %s\n",
+                       bind_address, gai_strerror(error));
+               return -1;
        }
 
-       setsockopt(res,SOL_SOCKET,SO_REUSEADDR,(char *)&one,sizeof(one));
+       /* We may not be able to create the socket, if for example the
+        * machine knows about IPv6 in the C library, but not in the
+        * kernel. */
+       for (resp = all_ai; resp; resp = resp->ai_next) {
+               s = socket(resp->ai_family, resp->ai_socktype,
+                          resp->ai_protocol);
 
-       /* now we've got a socket - we need to bind it */
-       if (bind(res, (struct sockaddr * ) &sock,sizeof(sock)) == -1) { 
-               rprintf(FERROR,"bind failed on port %d: %s\n", port,
-                       strerror(errno));
-               if (errno == EACCES && port < 1024) {
-                       rprintf(FERROR, "Note: you must be root to bind "
-                               "to low-numbered ports");
+               if (s == -1)
+                       /* See if there's another address that will work... */
+                       continue;
+
+               setsockopt(s, SOL_SOCKET, SO_REUSEADDR,
+                          (char *)&one, sizeof one);
+
+               /* Now we've got a socket - we need to bind it. */
+               if (bind(s, resp->ai_addr, resp->ai_addrlen) < 0) {
+                       /* Nope, try another */
+                       close(s);
+                       continue;
                }
-               close(res); 
-               return -1;
+
+               freeaddrinfo(all_ai);
+               return s;
        }
 
-       return res;
+       rprintf(FERROR, RSYNC_NAME ": open inbound socket on port %d failed: "
+               "%s\n",
+               port,
+               strerror(errno));
+
+       freeaddrinfo(all_ai);
+       return -1;
 }
 
 
@@ -258,17 +363,27 @@ int is_a_socket(int fd)
          * also has socklen_t [*]. See also accept(2).''
          *
          * We now return to your regularly scheduled programming.  */
-       return(getsockopt(fd, SOL_SOCKET, SO_TYPE, (char *)&v, &l) == 0);
+       return getsockopt(fd, SOL_SOCKET, SO_TYPE, (char *)&v, &l) == 0;
 }
 
 
-void start_accept_loop(int port, int (*fn)(int ))
+static RETSIGTYPE sigchld_handler(UNUSED(int val))
+{
+       signal(SIGCHLD, sigchld_handler);
+#ifdef WNOHANG
+       while (waitpid(-1, NULL, WNOHANG) > 0) {}
+#endif
+}
+
+
+void start_accept_loop(int port, int (*fn)(int, int))
 {
        int s;
-       extern struct in_addr socket_address;
+       extern char *bind_address;
+       extern int default_af_hint;
 
        /* open an incoming socket */
-       s = open_socket_in(SOCK_STREAM, port, &socket_address);
+       s = open_socket_in(SOCK_STREAM, port, bind_address, default_af_hint);
        if (s == -1)
                exit_cleanup(RERR_SOCKETIO);
 
@@ -283,9 +398,10 @@ void start_accept_loop(int port, int (*fn)(int ))
           for each incoming connection */
        while (1) {
                fd_set fds;
+               pid_t pid;
                int fd;
-               struct sockaddr addr;
-               socklen_t in_addrlen = sizeof(addr);
+               struct sockaddr_storage addr;
+               socklen_t addrlen = sizeof addr;
 
                /* close log file before the potentially very long select so
                   file can be trimmed by another process instead of growing
@@ -295,37 +411,42 @@ void start_accept_loop(int port, int (*fn)(int ))
                FD_ZERO(&fds);
                FD_SET(s, &fds);
 
-               if (select(s+1, &fds, NULL, NULL, NULL) != 1) {
+               if (select(s+1, &fds, NULL, NULL, NULL) != 1)
                        continue;
-               }
-
-               if(!FD_ISSET(s, &fds)) continue;
 
-                /* See note above prototypes. */
-               fd = accept(s,&addr, &in_addrlen);
+               if (!FD_ISSET(s, &fds))
+                       continue;
 
-               if (fd == -1) continue;
+               fd = accept(s,(struct sockaddr *)&addr,&addrlen);
 
-               signal(SIGCHLD, SIG_IGN);
+               if (fd == -1)
+                       continue;
 
-               /* we shouldn't have any children left hanging around
-                  but I have had reports that on Digital Unix zombies
-                  are produced, so this ensures that they are reaped */
-#ifdef WNOHANG
-                while (waitpid(-1, NULL, WNOHANG) > 0);
-#endif
+               signal(SIGCHLD, sigchld_handler);
 
-               if (fork()==0) {
+               if ((pid = fork()) == 0) {
+                       int ret;
                        close(s);
-
                        /* open log file in child before possibly giving
                           up privileges  */
                        log_open();
-
-                       _exit(fn(fd));
+                       ret = fn(fd, fd);
+                       close_all();
+                       _exit(ret);
+               } else if (pid < 0) {
+                       rprintf(FERROR,
+                               RSYNC_NAME
+                               ": could not create child server process: %s\n",
+                               strerror(errno));
+                       close(fd);
+                       /* This might have happened because we're
+                        * overloaded.  Sleep briefly before trying to
+                        * accept again. */
+                       sleep(2);
+               } else {
+                       /* Parent doesn't need this fd anymore. */
+                       close(fd);
                }
-
-               close(fd);
        }
 }
 
@@ -372,21 +493,24 @@ struct
 #endif
   {NULL,0,0,0,0}};
 
-       
 
-/****************************************************************************
-set user socket options
-****************************************************************************/
+
+/**
+ * Set user socket options
+ **/
 void set_socket_options(int fd, char *options)
 {
        char *tok;
-       if (!options || !*options) return;
+
+       if (!options || !*options)
+               return;
 
        options = strdup(options);
-       
-       if (!options) out_of_memory("set_socket_options");
 
-       for (tok=strtok(options, " \t,"); tok; tok=strtok(NULL," \t,")) {
+       if (!options)
+               out_of_memory("set_socket_options");
+
+       for (tok = strtok(options, " \t,"); tok; tok = strtok(NULL," \t,")) {
                int ret=0,i;
                int value = 1;
                char *p;
@@ -398,9 +522,10 @@ void set_socket_options(int fd, char *options)
                        got_value = 1;
                }
 
-               for (i=0;socket_options[i].name;i++)
+               for (i = 0; socket_options[i].name; i++) {
                        if (strcmp(socket_options[i].name,tok)==0)
                                break;
+               }
 
                if (!socket_options[i].name) {
                        rprintf(FERROR,"Unknown socket option %s\n",tok);
@@ -413,7 +538,7 @@ void set_socket_options(int fd, char *options)
                        ret = setsockopt(fd,socket_options[i].level,
                                         socket_options[i].option,(char *)&value,sizeof(int));
                        break;
-                       
+
                case OPT_ON:
                        if (got_value)
                                rprintf(FERROR,"syntax error - %s does not take a value\n",tok);
@@ -423,9 +548,9 @@ void set_socket_options(int fd, char *options)
                                ret = setsockopt(fd,socket_options[i].level,
                                                 socket_options[i].option,(char *)&on,sizeof(int));
                        }
-                       break;    
+                       break;
                }
-               
+
                if (ret != 0)
                        rprintf(FERROR, "failed to set socket option %s: %s\n", tok,
                                strerror(errno));
@@ -434,9 +559,9 @@ void set_socket_options(int fd, char *options)
        free(options);
 }
 
-/****************************************************************************
-become a daemon, discarding the controlling terminal
-****************************************************************************/
+/**
+ * Become a daemon, discarding the controlling terminal
+ **/
 void become_daemon(void)
 {
        int i;
@@ -452,166 +577,29 @@ void become_daemon(void)
 #ifdef TIOCNOTTY
        i = open("/dev/tty", O_RDWR);
        if (i >= 0) {
-               ioctl(i, (int) TIOCNOTTY, (char *)0);      
+               ioctl(i, (int)TIOCNOTTY, (char *)0);
                close(i);
        }
 #endif /* TIOCNOTTY */
 #endif
        /* make sure that stdin, stdout an stderr don't stuff things
            up (library functions, for example) */
-       for (i=0;i<3;i++) {
-               close(i); 
+       for (i = 0; i < 3; i++) {
+               close(i);
                open("/dev/null", O_RDWR);
        }
 }
 
-/*******************************************************************
- return the IP addr of the client as a string 
- ******************************************************************/
-char *client_addr(int fd)
-{
-       struct sockaddr sa;
-       struct sockaddr_in *sockin = (struct sockaddr_in *) (&sa);
-       socklen_t length = sizeof(sa);
-       static char addr_buf[100];
-       static int initialised;
-
-       if (initialised) return addr_buf;
-
-       initialised = 1;
-
-       if (getpeername(fd, &sa, &length)) {
-               exit_cleanup(RERR_SOCKETIO);
-       }
-       
-       strlcpy(addr_buf,(char *)inet_ntoa(sockin->sin_addr), sizeof(addr_buf));
-       return addr_buf;
-}
-
-
-/*******************************************************************
- return the DNS name of the client 
- ******************************************************************/
-char *client_name(int fd)
-{
-       struct sockaddr sa;
-       struct sockaddr_in *sockin = (struct sockaddr_in *) (&sa);
-       socklen_t length = sizeof(sa);
-       static char name_buf[100];
-       struct hostent *hp;
-       char **p;
-       char *def = "UNKNOWN";
-       static int initialised;
-
-       if (initialised) return name_buf;
-
-       initialised = 1;
-
-       strcpy(name_buf,def);
-
-       if (getpeername(fd, &sa, &length)) {
-               exit_cleanup(RERR_SOCKETIO);
-       }
-
-       /* Look up the remote host name. */
-       if ((hp = gethostbyaddr((char *) &sockin->sin_addr,
-                               sizeof(sockin->sin_addr),
-                               AF_INET))) {
-               strlcpy(name_buf,(char *)hp->h_name,sizeof(name_buf));
-       }
-
-
-       /* do a forward lookup as well to prevent spoofing */
-       hp = gethostbyname(name_buf);
-       if (!hp) {
-               strcpy (name_buf,def);
-               rprintf (FERROR, "reverse name lookup for \"%s\" failed\n",
-                       name_buf);
-       } else {
-               for (p=hp->h_addr_list;*p;p++) {
-                       if (memcmp(*p, &sockin->sin_addr, hp->h_length) == 0) {
-                               break;
-                       }
-               }
-               if (!*p) {
-                       strcpy(name_buf,def);
-                       rprintf(FERROR,"reverse name lookup mismatch - spoofed address?\n");
-               } 
-       }
-
-       return name_buf;
-}
 
 /**
-   Convert a string to an IP address. The string can be a name or
-   dotted decimal number.
-
-   Returns a pointer to a static in_addr struct -- if you call this
-   more than once then you should copy it.
-*/
-struct in_addr *ip_address(const char *str)
-{
-       static struct in_addr ret;
-       struct hostent *hp;
-
-       if (!str) {
-               rprintf (FERROR, "ip_address received NULL name\n");
-               return NULL;
-       }
-
-       /* try as an IP address */
-       if (inet_aton(str, &ret) != 0) {
-               return &ret;
-       }
-
-       /* otherwise assume it's a network name of some sort and use 
-          gethostbyname */
-       if ((hp = gethostbyname (str)) == 0) {
-               rprintf(FERROR, "gethostbyname failed for \"%s\": unknown host?\n",str);
-               return NULL;
-       }
-
-       if (hp->h_addr == NULL) {
-               rprintf(FERROR, "gethostbyname: host address is invalid for host \"%s\"\n",str);
-               return NULL;
-       }
-
-       if (hp->h_length > sizeof ret) {
-               rprintf(FERROR, "gethostbyname: host address for \"%s\" is too large\n",
-                       str);
-               return NULL;
-       }
-
-       if (hp->h_addrtype != AF_INET) {
-               rprintf (FERROR, "gethostname: host address for \"%s\" is not IPv4\n",
-                        str);
-               return NULL;
-       }
-
-       /* This is kind of difficult.  The only field in ret is
-          s_addr, which is the IP address as a 32-bit int.  On
-          UNICOS, s_addr is in fact a *bitfield* for reasons best
-          know to Cray.  This means we can't memcpy in to it.  On the
-          other hand, h_addr is a char*, so we can't just assign.
-
-          Since there's meant to be only one field inside the in_addr
-          structure we will try just copying over the top and see how
-          that goes. */
-       memcpy (&ret, hp->h_addr, hp->h_length);
-
-       return &ret;
-}
-
-
-
-/*******************************************************************
-this is like socketpair but uses tcp. It is used by the Samba
-regression test code
-The function guarantees that nobody else can attach to the socket,
-or if they do that this function fails and the socket gets closed
-returns 0 on success, -1 on failure
-the resulting file descriptors are symmetrical
- ******************************************************************/
+ * This is like socketpair but uses tcp. It is used by the Samba
+ * regression test code.
+ *
+ * The function guarantees that nobody else can attach to the socket,
+ * or if they do that this function fails and the socket gets closed
+ * returns 0 on success, -1 on failure the resulting file descriptors
+ * are symmetrical.
+ **/
 static int socketpair_tcp(int fd[2])
 {
        int listener;
@@ -619,72 +607,84 @@ static int socketpair_tcp(int fd[2])
        struct sockaddr_in sock2;
        socklen_t socklen = sizeof(sock);
        int connect_done = 0;
-       
+
        fd[0] = fd[1] = listener = -1;
 
        memset(&sock, 0, sizeof(sock));
-       
-       if ((listener = socket(PF_INET, SOCK_STREAM, 0)) == -1) goto failed;
+
+       if ((listener = socket(PF_INET, SOCK_STREAM, 0)) == -1)
+               goto failed;
 
         memset(&sock2, 0, sizeof(sock2));
-#ifdef HAVE_SOCK_SIN_LEN
+#ifdef HAVE_SOCKADDR_LEN
         sock2.sin_len = sizeof(sock2);
 #endif
         sock2.sin_family = PF_INET;
 
         bind(listener, (struct sockaddr *)&sock2, sizeof(sock2));
 
-       if (listen(listener, 1) != 0) goto failed;
+       if (listen(listener, 1) != 0)
+               goto failed;
 
-       if (getsockname(listener, (struct sockaddr *)&sock, &socklen) != 0) goto failed;
+       if (getsockname(listener, (struct sockaddr *)&sock, &socklen) != 0)
+               goto failed;
 
-       if ((fd[1] = socket(PF_INET, SOCK_STREAM, 0)) == -1) goto failed;
+       if ((fd[1] = socket(PF_INET, SOCK_STREAM, 0)) == -1)
+               goto failed;
 
        set_nonblocking(fd[1]);
 
        sock.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
 
        if (connect(fd[1],(struct sockaddr *)&sock,sizeof(sock)) == -1) {
-               if (errno != EINPROGRESS) goto failed;
-       } else {
+               if (errno != EINPROGRESS)
+                       goto failed;
+       } else
                connect_done = 1;
-       }
 
-       if ((fd[0] = accept(listener, (struct sockaddr *)&sock, &socklen)) == -1) goto failed;
+       if ((fd[0] = accept(listener, (struct sockaddr *)&sock, &socklen)) == -1)
+               goto failed;
 
        close(listener);
        if (connect_done == 0) {
                if (connect(fd[1],(struct sockaddr *)&sock,sizeof(sock)) != 0
-                   && errno != EISCONN) goto failed;
+                   && errno != EISCONN)
+                       goto failed;
        }
 
-       set_blocking (fd[1]);
+       set_blocking(fd[1]);
 
        /* all OK! */
        return 0;
 
  failed:
-       if (fd[0] != -1) close(fd[0]);
-       if (fd[1] != -1) close(fd[1]);
-       if (listener != -1) close(listener);
+       if (fd[0] != -1)
+               close(fd[0]);
+       if (fd[1] != -1)
+               close(fd[1]);
+       if (listener != -1)
+               close(listener);
        return -1;
 }
 
 
-/*******************************************************************
-run a program on a local tcp socket, this is used to launch smbd
-when regression testing
-the return value is a socket which is attached to a subprocess
-running "prog". stdin and stdout are attached. stderr is left
-attached to the original stderr
- ******************************************************************/
+
+/**
+ * Run a program on a local tcp socket, so that we can talk to it's
+ * stdin and stdout.  This is used to fake a connection to a daemon
+ * for testing -- not for the normal case of running SSH.
+ *
+ * @return a socket which is attached to a subprocess running
+ * "prog". stdin and stdout are attached. stderr is left attached to
+ * the original stderr
+ **/
 int sock_exec(const char *prog)
 {
        int fd[2];
+
        if (socketpair_tcp(fd) != 0) {
-               rprintf (FERROR, RSYNC_NAME
-                        ": socketpair_tcp failed (%s)\n",
-                        strerror(errno));
+               rprintf(FERROR, RSYNC_NAME ": socketpair_tcp failed (%s)\n",
+                       strerror(errno));
                return -1;
        }
        if (fork() == 0) {
@@ -693,15 +693,14 @@ int sock_exec(const char *prog)
                close(1);
                dup(fd[1]);
                dup(fd[1]);
-               if (verbose > 3)
-                       fprintf (stderr,
-                                RSYNC_NAME ": execute socket program \"%s\"\n",
-                                prog);
-               exit (system (prog));
+               if (verbose > 3) {
+                       /* Can't use rprintf because we've forked. */
+                       fprintf(stderr,
+                               RSYNC_NAME ": execute socket program \"%s\"\n",
+                               prog);
+               }
+               exit(system(prog));
        }
-       close (fd[1]);
+       close(fd[1]);
        return fd[0];
 }
-
-
-