Home | History | Annotate | Line # | Download | only in ftp
ftp.c revision 1.167
      1  1.167     joerg /*	$NetBSD: ftp.c,v 1.167 2016/10/04 15:06:31 joerg Exp $	*/
      2   1.77     lukem 
      3   1.77     lukem /*-
      4  1.158     lukem  * Copyright (c) 1996-2009 The NetBSD Foundation, Inc.
      5   1.77     lukem  * All rights reserved.
      6   1.77     lukem  *
      7   1.77     lukem  * This code is derived from software contributed to The NetBSD Foundation
      8   1.77     lukem  * by Luke Mewburn.
      9   1.77     lukem  *
     10   1.77     lukem  * Redistribution and use in source and binary forms, with or without
     11   1.77     lukem  * modification, are permitted provided that the following conditions
     12   1.77     lukem  * are met:
     13   1.77     lukem  * 1. Redistributions of source code must retain the above copyright
     14   1.77     lukem  *    notice, this list of conditions and the following disclaimer.
     15   1.77     lukem  * 2. Redistributions in binary form must reproduce the above copyright
     16   1.77     lukem  *    notice, this list of conditions and the following disclaimer in the
     17   1.77     lukem  *    documentation and/or other materials provided with the distribution.
     18   1.77     lukem  *
     19   1.77     lukem  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20   1.77     lukem  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21   1.77     lukem  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22   1.77     lukem  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23   1.77     lukem  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24   1.77     lukem  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25   1.77     lukem  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26   1.77     lukem  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27   1.77     lukem  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28   1.77     lukem  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29   1.77     lukem  * POSSIBILITY OF SUCH DAMAGE.
     30   1.77     lukem  */
     31   1.48    itojun 
     32   1.48    itojun /*
     33   1.72     lukem  * Copyright (c) 1985, 1989, 1993, 1994
     34   1.72     lukem  *	The Regents of the University of California.  All rights reserved.
     35   1.72     lukem  *
     36   1.48    itojun  * Redistribution and use in source and binary forms, with or without
     37   1.48    itojun  * modification, are permitted provided that the following conditions
     38   1.48    itojun  * are met:
     39   1.48    itojun  * 1. Redistributions of source code must retain the above copyright
     40   1.48    itojun  *    notice, this list of conditions and the following disclaimer.
     41   1.48    itojun  * 2. Redistributions in binary form must reproduce the above copyright
     42   1.48    itojun  *    notice, this list of conditions and the following disclaimer in the
     43   1.48    itojun  *    documentation and/or other materials provided with the distribution.
     44  1.122       agc  * 3. Neither the name of the University nor the names of its contributors
     45   1.48    itojun  *    may be used to endorse or promote products derived from this software
     46   1.48    itojun  *    without specific prior written permission.
     47   1.72     lukem  *
     48   1.72     lukem  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     49   1.48    itojun  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     50   1.48    itojun  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     51   1.72     lukem  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     52   1.48    itojun  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     53   1.48    itojun  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     54   1.48    itojun  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     55   1.48    itojun  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     56   1.48    itojun  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     57   1.48    itojun  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     58   1.48    itojun  * SUCH DAMAGE.
     59   1.48    itojun  */
     60   1.12       tls 
     61    1.1       cgd /*
     62   1.72     lukem  * Copyright (C) 1997 and 1998 WIDE Project.
     63   1.72     lukem  * All rights reserved.
     64  1.128     lukem  *
     65    1.1       cgd  * Redistribution and use in source and binary forms, with or without
     66    1.1       cgd  * modification, are permitted provided that the following conditions
     67    1.1       cgd  * are met:
     68    1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     69    1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     70    1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     71    1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     72    1.1       cgd  *    documentation and/or other materials provided with the distribution.
     73   1.72     lukem  * 3. Neither the name of the project nor the names of its contributors
     74    1.1       cgd  *    may be used to endorse or promote products derived from this software
     75    1.1       cgd  *    without specific prior written permission.
     76  1.128     lukem  *
     77   1.72     lukem  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
     78    1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     79    1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     80   1.72     lukem  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
     81    1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     82    1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     83    1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     84    1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     85    1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     86    1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     87    1.1       cgd  * SUCH DAMAGE.
     88    1.1       cgd  */
     89    1.1       cgd 
     90   1.26     lukem #include <sys/cdefs.h>
     91    1.1       cgd #ifndef lint
     92   1.12       tls #if 0
     93   1.12       tls static char sccsid[] = "@(#)ftp.c	8.6 (Berkeley) 10/27/94";
     94   1.12       tls #else
     95  1.167     joerg __RCSID("$NetBSD: ftp.c,v 1.167 2016/10/04 15:06:31 joerg Exp $");
     96   1.12       tls #endif
     97    1.1       cgd #endif /* not lint */
     98    1.1       cgd 
     99   1.21     lukem #include <sys/types.h>
    100    1.1       cgd #include <sys/stat.h>
    101    1.1       cgd #include <sys/socket.h>
    102   1.33  christos #include <sys/time.h>
    103    1.1       cgd 
    104    1.1       cgd #include <netinet/in.h>
    105    1.1       cgd #include <netinet/in_systm.h>
    106    1.1       cgd #include <netinet/ip.h>
    107    1.6       cgd #include <arpa/inet.h>
    108    1.1       cgd #include <arpa/ftp.h>
    109    1.1       cgd #include <arpa/telnet.h>
    110    1.1       cgd 
    111  1.163     lukem #include <assert.h>
    112    1.6       cgd #include <ctype.h>
    113    1.6       cgd #include <err.h>
    114    1.1       cgd #include <errno.h>
    115  1.127     lukem #include <fcntl.h>
    116    1.1       cgd #include <netdb.h>
    117    1.6       cgd #include <stdio.h>
    118    1.6       cgd #include <stdlib.h>
    119    1.6       cgd #include <string.h>
    120   1.32    kleink #include <time.h>
    121    1.6       cgd #include <unistd.h>
    122   1.23     lukem #include <stdarg.h>
    123    1.1       cgd 
    124    1.1       cgd #include "ftp_var.h"
    125   1.48    itojun 
    126  1.126     lukem volatile sig_atomic_t	abrtflag;
    127  1.126     lukem volatile sig_atomic_t	timeoutflag;
    128  1.126     lukem 
    129   1.83     lukem sigjmp_buf	ptabort;
    130    1.6       cgd int	ptabflg;
    131    1.1       cgd int	ptflag = 0;
    132   1.73     lukem char	pasv[BUFSIZ];	/* passive port for proxy data connection */
    133    1.1       cgd 
    134   1.95     lukem static int empty(FILE *, FILE *, int);
    135  1.162     joerg __dead static void abort_squared(int);
    136   1.45  christos 
    137  1.104     lukem struct sockinet {
    138  1.104     lukem 	union sockunion {
    139  1.104     lukem 		struct sockaddr_in  su_sin;
    140   1.62     lukem #ifdef INET6
    141  1.104     lukem 		struct sockaddr_in6 su_sin6;
    142   1.62     lukem #endif
    143  1.104     lukem 	} si_su;
    144  1.153     lukem #if !defined(HAVE_STRUCT_SOCKADDR_IN_SIN_LEN)
    145  1.104     lukem 	int	si_len;
    146   1.62     lukem #endif
    147   1.48    itojun };
    148   1.52  christos 
    149  1.153     lukem #if !defined(HAVE_STRUCT_SOCKADDR_IN_SIN_LEN)
    150  1.104     lukem # define su_len		si_len
    151  1.104     lukem #else
    152  1.104     lukem # define su_len		si_su.su_sin.sin_len
    153  1.104     lukem #endif
    154  1.104     lukem #define su_family	si_su.su_sin.sin_family
    155  1.104     lukem #define su_port		si_su.su_sin.sin_port
    156   1.48    itojun 
    157  1.104     lukem struct sockinet myctladdr, hisctladdr, data_addr;
    158    1.1       cgd 
    159    1.1       cgd char *
    160  1.158     lukem hookup(const char *host, const char *port)
    161    1.1       cgd {
    162  1.154     lukem 	int s = -1, error;
    163   1.49    itojun 	struct addrinfo hints, *res, *res0;
    164   1.14     lukem 	static char hostnamebuf[MAXHOSTNAMELEN];
    165  1.132     lukem 	socklen_t len;
    166  1.130     lukem 	int on = 1;
    167  1.108     lukem 
    168   1.48    itojun 	memset((char *)&hisctladdr, 0, sizeof (hisctladdr));
    169  1.106     lukem 	memset((char *)&myctladdr, 0, sizeof (myctladdr));
    170   1.48    itojun 	memset(&hints, 0, sizeof(hints));
    171   1.48    itojun 	hints.ai_flags = AI_CANONNAME;
    172  1.116     lukem 	hints.ai_family = family;
    173   1.48    itojun 	hints.ai_socktype = SOCK_STREAM;
    174   1.48    itojun 	hints.ai_protocol = 0;
    175  1.154     lukem 	error = getaddrinfo(host, port, &hints, &res0);
    176   1.48    itojun 	if (error) {
    177  1.154     lukem 		warnx("Can't lookup `%s:%s': %s", host, port,
    178  1.147     lukem 		    (error == EAI_SYSTEM) ? strerror(errno)
    179  1.147     lukem 					  : gai_strerror(error));
    180   1.48    itojun 		code = -1;
    181   1.48    itojun 		return (0);
    182   1.48    itojun 	}
    183    1.1       cgd 
    184   1.49    itojun 	if (res0->ai_canonname)
    185   1.68     lukem 		(void)strlcpy(hostnamebuf, res0->ai_canonname,
    186   1.68     lukem 		    sizeof(hostnamebuf));
    187   1.48    itojun 	else
    188   1.68     lukem 		(void)strlcpy(hostnamebuf, host, sizeof(hostnamebuf));
    189    1.1       cgd 	hostname = hostnamebuf;
    190  1.128     lukem 
    191   1.49    itojun 	for (res = res0; res; res = res->ai_next) {
    192  1.154     lukem 		char hname[NI_MAXHOST], sname[NI_MAXSERV];
    193  1.154     lukem 
    194   1.96    itojun 		ai_unmapped(res);
    195  1.147     lukem 		if (getnameinfo(res->ai_addr, res->ai_addrlen,
    196  1.154     lukem 		    hname, sizeof(hname), sname, sizeof(sname),
    197  1.154     lukem 		    NI_NUMERICHOST | NI_NUMERICSERV) != 0) {
    198  1.154     lukem 			strlcpy(hname, "?", sizeof(hname));
    199  1.154     lukem 			strlcpy(sname, "?", sizeof(sname));
    200  1.154     lukem 		}
    201  1.133     lukem 		if (verbose && res0->ai_next) {
    202  1.133     lukem 				/* if we have multiple possibilities */
    203  1.166      tron #ifdef INET6
    204  1.165      tron 			if(res->ai_family == AF_INET6) {
    205  1.165      tron 				fprintf(ttyout, "Trying [%s]:%s ...\n", hname,
    206  1.165      tron 				    sname);
    207  1.165      tron 			} else {
    208  1.166      tron #endif
    209  1.165      tron 				fprintf(ttyout, "Trying %s:%s ...\n", hname,
    210  1.165      tron 				    sname);
    211  1.166      tron #ifdef INET6
    212  1.165      tron 			}
    213  1.166      tron #endif
    214   1.49    itojun 		}
    215  1.109     lukem 		s = socket(res->ai_family, SOCK_STREAM, res->ai_protocol);
    216   1.49    itojun 		if (s < 0) {
    217  1.154     lukem 			warn("Can't create socket for connection to `%s:%s'",
    218  1.154     lukem 			    hname, sname);
    219   1.49    itojun 			continue;
    220   1.49    itojun 		}
    221  1.164        is 		if (ftp_connect(s, res->ai_addr, res->ai_addrlen,
    222  1.164        is 		    verbose || !res->ai_next) < 0) {
    223   1.49    itojun 			close(s);
    224   1.49    itojun 			s = -1;
    225    1.1       cgd 			continue;
    226    1.1       cgd 		}
    227   1.49    itojun 
    228   1.49    itojun 		/* finally we got one */
    229   1.49    itojun 		break;
    230   1.49    itojun 	}
    231   1.49    itojun 	if (s < 0) {
    232  1.154     lukem 		warnx("Can't connect to `%s:%s'", host, port);
    233    1.1       cgd 		code = -1;
    234   1.50    itojun 		freeaddrinfo(res0);
    235   1.49    itojun 		return 0;
    236    1.1       cgd 	}
    237  1.104     lukem 	memcpy(&hisctladdr.si_su, res->ai_addr, res->ai_addrlen);
    238  1.104     lukem 	hisctladdr.su_len = res->ai_addrlen;
    239   1.49    itojun 	freeaddrinfo(res0);
    240   1.49    itojun 	res0 = res = NULL;
    241   1.58  christos 
    242  1.105     lukem 	len = hisctladdr.su_len;
    243  1.132     lukem 	if (getsockname(s, (struct sockaddr *)&myctladdr.si_su, &len) == -1) {
    244  1.154     lukem 		warn("Can't determine my address of connection to `%s:%s'",
    245  1.154     lukem 		    host, port);
    246    1.1       cgd 		code = -1;
    247    1.1       cgd 		goto bad;
    248    1.1       cgd 	}
    249  1.105     lukem 	myctladdr.su_len = len;
    250   1.58  christos 
    251   1.92     lukem #ifdef IPTOS_LOWDELAY
    252  1.104     lukem 	if (hisctladdr.su_family == AF_INET) {
    253   1.53  christos 		int tos = IPTOS_LOWDELAY;
    254  1.130     lukem 		if (setsockopt(s, IPPROTO_IP, IP_TOS,
    255  1.131     lukem 				(void *)&tos, sizeof(tos)) == -1) {
    256  1.135  christos 				DWARN("setsockopt %s (ignored)",
    257  1.130     lukem 				    "IPTOS_LOWDELAY");
    258  1.130     lukem 		}
    259   1.48    itojun 	}
    260   1.92     lukem #endif
    261    1.1       cgd 	cin = fdopen(s, "r");
    262    1.1       cgd 	cout = fdopen(s, "w");
    263    1.1       cgd 	if (cin == NULL || cout == NULL) {
    264  1.147     lukem 		warnx("Can't fdopen socket");
    265    1.1       cgd 		if (cin)
    266   1.23     lukem 			(void)fclose(cin);
    267    1.1       cgd 		if (cout)
    268   1.23     lukem 			(void)fclose(cout);
    269    1.1       cgd 		code = -1;
    270    1.1       cgd 		goto bad;
    271    1.1       cgd 	}
    272    1.1       cgd 	if (verbose)
    273   1.35     lukem 		fprintf(ttyout, "Connected to %s.\n", hostname);
    274   1.87     lukem 	if (getreply(0) > 2) {	/* read startup message from server */
    275    1.1       cgd 		if (cin)
    276   1.23     lukem 			(void)fclose(cin);
    277    1.1       cgd 		if (cout)
    278   1.23     lukem 			(void)fclose(cout);
    279    1.1       cgd 		code = -1;
    280    1.1       cgd 		goto bad;
    281    1.1       cgd 	}
    282    1.1       cgd 
    283  1.130     lukem 	if (setsockopt(s, SOL_SOCKET, SO_OOBINLINE,
    284  1.130     lukem 			(void *)&on, sizeof(on)) == -1) {
    285  1.135  christos 		DWARN("setsockopt %s (ignored)", "SO_OOBINLINE");
    286    1.1       cgd 	}
    287    1.1       cgd 
    288    1.1       cgd 	return (hostname);
    289  1.102     lukem  bad:
    290   1.23     lukem 	(void)close(s);
    291   1.31     lukem 	return (NULL);
    292    1.1       cgd }
    293    1.1       cgd 
    294    1.1       cgd void
    295   1.95     lukem cmdabort(int notused)
    296    1.1       cgd {
    297   1.81     lukem 	int oerrno = errno;
    298    1.1       cgd 
    299  1.126     lukem 	sigint_raised = 1;
    300   1.22     lukem 	alarmtimer(0);
    301   1.84     lukem 	if (fromatty)
    302   1.84     lukem 		write(fileno(ttyout), "\n", 1);
    303    1.1       cgd 	abrtflag++;
    304    1.1       cgd 	if (ptflag)
    305   1.81     lukem 		siglongjmp(ptabort, 1);
    306   1.81     lukem 	errno = oerrno;
    307    1.1       cgd }
    308    1.1       cgd 
    309   1.76     lukem void
    310   1.95     lukem cmdtimeout(int notused)
    311   1.76     lukem {
    312   1.81     lukem 	int oerrno = errno;
    313   1.76     lukem 
    314   1.76     lukem 	alarmtimer(0);
    315   1.84     lukem 	if (fromatty)
    316   1.84     lukem 		write(fileno(ttyout), "\n", 1);
    317   1.76     lukem 	timeoutflag++;
    318   1.76     lukem 	if (ptflag)
    319   1.81     lukem 		siglongjmp(ptabort, 1);
    320   1.81     lukem 	errno = oerrno;
    321   1.76     lukem }
    322   1.76     lukem 
    323    1.1       cgd /*VARARGS*/
    324    1.6       cgd int
    325   1.23     lukem command(const char *fmt, ...)
    326    1.1       cgd {
    327    1.1       cgd 	va_list ap;
    328    1.1       cgd 	int r;
    329   1.90     lukem 	sigfunc oldsigint;
    330    1.1       cgd 
    331  1.135  christos #ifndef NO_DEBUG
    332  1.137  christos 	if (ftp_debug) {
    333   1.35     lukem 		fputs("---> ", ttyout);
    334   1.23     lukem 		va_start(ap, fmt);
    335    1.1       cgd 		if (strncmp("PASS ", fmt, 5) == 0)
    336   1.35     lukem 			fputs("PASS XXXX", ttyout);
    337   1.14     lukem 		else if (strncmp("ACCT ", fmt, 5) == 0)
    338   1.35     lukem 			fputs("ACCT XXXX", ttyout);
    339   1.14     lukem 		else
    340   1.35     lukem 			vfprintf(ttyout, fmt, ap);
    341    1.1       cgd 		va_end(ap);
    342   1.35     lukem 		putc('\n', ttyout);
    343    1.1       cgd 	}
    344  1.135  christos #endif
    345    1.1       cgd 	if (cout == NULL) {
    346  1.147     lukem 		warnx("No control connection for command");
    347    1.1       cgd 		code = -1;
    348    1.1       cgd 		return (0);
    349    1.1       cgd 	}
    350   1.76     lukem 
    351   1.76     lukem 	abrtflag = 0;
    352   1.76     lukem 
    353   1.76     lukem 	oldsigint = xsignal(SIGINT, cmdabort);
    354   1.76     lukem 
    355   1.23     lukem 	va_start(ap, fmt);
    356    1.1       cgd 	vfprintf(cout, fmt, ap);
    357    1.1       cgd 	va_end(ap);
    358   1.23     lukem 	fputs("\r\n", cout);
    359   1.23     lukem 	(void)fflush(cout);
    360    1.1       cgd 	cpend = 1;
    361    1.1       cgd 	r = getreply(!strcmp(fmt, "QUIT"));
    362   1.76     lukem 	if (abrtflag && oldsigint != SIG_IGN)
    363   1.76     lukem 		(*oldsigint)(SIGINT);
    364   1.76     lukem 	(void)xsignal(SIGINT, oldsigint);
    365    1.6       cgd 	return (r);
    366    1.1       cgd }
    367    1.1       cgd 
    368  1.142  christos static const char *m421[] = {
    369  1.142  christos 	"remote server timed out. Connection closed",
    370  1.142  christos 	"user interrupt. Connection closed",
    371  1.142  christos 	"remote server has closed connection",
    372  1.142  christos };
    373  1.142  christos 
    374    1.6       cgd int
    375   1.95     lukem getreply(int expecteof)
    376    1.1       cgd {
    377   1.16     lukem 	char current_line[BUFSIZ];	/* last line of previous reply */
    378  1.157     lukem 	int c, n, lineno;
    379    1.6       cgd 	int dig;
    380    1.1       cgd 	int originalcode = 0, continuation = 0;
    381   1.90     lukem 	sigfunc oldsigint, oldsigalrm;
    382    1.1       cgd 	int pflag = 0;
    383    1.6       cgd 	char *cp, *pt = pasv;
    384    1.1       cgd 
    385   1.76     lukem 	abrtflag = 0;
    386   1.76     lukem 	timeoutflag = 0;
    387   1.76     lukem 
    388   1.76     lukem 	oldsigint = xsignal(SIGINT, cmdabort);
    389   1.76     lukem 	oldsigalrm = xsignal(SIGALRM, cmdtimeout);
    390   1.76     lukem 
    391  1.157     lukem 	for (lineno = 0 ;; lineno++) {
    392    1.1       cgd 		dig = n = code = 0;
    393   1.16     lukem 		cp = current_line;
    394  1.141      elad 		while (alarmtimer(quit_time ? quit_time : 60),
    395  1.141      elad 		       ((c = getc(cin)) != '\n')) {
    396    1.1       cgd 			if (c == IAC) {     /* handle telnet commands */
    397    1.1       cgd 				switch (c = getc(cin)) {
    398    1.1       cgd 				case WILL:
    399    1.1       cgd 				case WONT:
    400    1.1       cgd 					c = getc(cin);
    401    1.1       cgd 					fprintf(cout, "%c%c%c", IAC, DONT, c);
    402   1.23     lukem 					(void)fflush(cout);
    403    1.1       cgd 					break;
    404    1.1       cgd 				case DO:
    405    1.1       cgd 				case DONT:
    406    1.1       cgd 					c = getc(cin);
    407    1.1       cgd 					fprintf(cout, "%c%c%c", IAC, WONT, c);
    408   1.23     lukem 					(void)fflush(cout);
    409    1.1       cgd 					break;
    410    1.1       cgd 				default:
    411    1.1       cgd 					break;
    412    1.1       cgd 				}
    413    1.1       cgd 				continue;
    414    1.1       cgd 			}
    415    1.1       cgd 			dig++;
    416    1.1       cgd 			if (c == EOF) {
    417   1.76     lukem 				/*
    418   1.76     lukem 				 * these will get trashed by pswitch()
    419   1.76     lukem 				 * in lostpeer()
    420   1.76     lukem 				 */
    421   1.76     lukem 				int reply_timeoutflag = timeoutflag;
    422   1.76     lukem 				int reply_abrtflag = abrtflag;
    423   1.76     lukem 
    424   1.85     lukem 				alarmtimer(0);
    425   1.85     lukem 				if (expecteof && feof(cin)) {
    426   1.76     lukem 					(void)xsignal(SIGINT, oldsigint);
    427   1.76     lukem 					(void)xsignal(SIGALRM, oldsigalrm);
    428    1.1       cgd 					code = 221;
    429    1.1       cgd 					return (0);
    430    1.1       cgd 				}
    431   1.85     lukem 				cpend = 0;
    432   1.85     lukem 				lostpeer(0);
    433    1.1       cgd 				if (verbose) {
    434  1.142  christos 					size_t midx;
    435   1.76     lukem 					if (reply_timeoutflag)
    436  1.142  christos 						midx = 0;
    437   1.76     lukem 					else if (reply_abrtflag)
    438  1.142  christos 						midx = 1;
    439   1.76     lukem 					else
    440  1.142  christos 						midx = 2;
    441  1.144     lukem 					(void)fprintf(ttyout,
    442  1.142  christos 			    "421 Service not available, %s.\n", m421[midx]);
    443   1.76     lukem 					(void)fflush(ttyout);
    444    1.1       cgd 				}
    445    1.1       cgd 				code = 421;
    446   1.76     lukem 				(void)xsignal(SIGINT, oldsigint);
    447   1.76     lukem 				(void)xsignal(SIGALRM, oldsigalrm);
    448    1.6       cgd 				return (4);
    449    1.1       cgd 			}
    450    1.1       cgd 			if (c != '\r' && (verbose > 0 ||
    451   1.35     lukem 			    ((verbose > -1 && n == '5' && dig > 4) &&
    452   1.35     lukem 			    (((!n && c < '5') || (n && n < '5'))
    453   1.35     lukem 			     || !retry_connect)))) {
    454    1.1       cgd 				if (proxflag &&
    455   1.16     lukem 				   (dig == 1 || (dig == 5 && verbose == 0)))
    456   1.35     lukem 					fprintf(ttyout, "%s:", hostname);
    457   1.35     lukem 				(void)putc(c, ttyout);
    458    1.1       cgd 			}
    459    1.1       cgd 			if (dig < 4 && isdigit(c))
    460    1.1       cgd 				code = code * 10 + (c - '0');
    461   1.48    itojun 			if (!pflag && (code == 227 || code == 228))
    462    1.1       cgd 				pflag = 1;
    463   1.48    itojun 			else if (!pflag && code == 229)
    464   1.48    itojun 				pflag = 100;
    465    1.1       cgd 			if (dig > 4 && pflag == 1 && isdigit(c))
    466    1.1       cgd 				pflag = 2;
    467    1.1       cgd 			if (pflag == 2) {
    468  1.118    itojun 				if (c != '\r' && c != ')') {
    469  1.118    itojun 					if (pt < &pasv[sizeof(pasv) - 1])
    470  1.118    itojun 						*pt++ = c;
    471  1.118    itojun 				} else {
    472    1.1       cgd 					*pt = '\0';
    473    1.1       cgd 					pflag = 3;
    474    1.1       cgd 				}
    475    1.1       cgd 			}
    476   1.48    itojun 			if (pflag == 100 && c == '(')
    477   1.48    itojun 				pflag = 2;
    478    1.1       cgd 			if (dig == 4 && c == '-') {
    479    1.1       cgd 				if (continuation)
    480    1.1       cgd 					code = 0;
    481    1.1       cgd 				continuation++;
    482    1.1       cgd 			}
    483    1.1       cgd 			if (n == 0)
    484    1.1       cgd 				n = c;
    485   1.16     lukem 			if (cp < &current_line[sizeof(current_line) - 1])
    486    1.1       cgd 				*cp++ = c;
    487    1.1       cgd 		}
    488   1.35     lukem 		if (verbose > 0 || ((verbose > -1 && n == '5') &&
    489   1.35     lukem 		    (n < '5' || !retry_connect))) {
    490   1.35     lukem 			(void)putc(c, ttyout);
    491  1.145     lukem 			(void)fflush(ttyout);
    492    1.1       cgd 		}
    493  1.102     lukem 		if (cp[-1] == '\r')
    494  1.102     lukem 			cp[-1] = '\0';
    495  1.102     lukem 		*cp = '\0';
    496  1.157     lukem 		if (lineno == 0)
    497  1.102     lukem 			(void)strlcpy(reply_string, current_line,
    498  1.102     lukem 			    sizeof(reply_string));
    499  1.157     lukem 		if (lineno > 0 && code == 0 && reply_callback != NULL)
    500  1.102     lukem 			(*reply_callback)(current_line);
    501    1.1       cgd 		if (continuation && code != originalcode) {
    502    1.1       cgd 			if (originalcode == 0)
    503    1.1       cgd 				originalcode = code;
    504    1.1       cgd 			continue;
    505    1.1       cgd 		}
    506    1.1       cgd 		if (n != '1')
    507    1.1       cgd 			cpend = 0;
    508   1.85     lukem 		alarmtimer(0);
    509   1.76     lukem 		(void)xsignal(SIGINT, oldsigint);
    510   1.76     lukem 		(void)xsignal(SIGALRM, oldsigalrm);
    511    1.1       cgd 		if (code == 421 || originalcode == 421)
    512   1.85     lukem 			lostpeer(0);
    513   1.76     lukem 		if (abrtflag && oldsigint != cmdabort && oldsigint != SIG_IGN)
    514   1.76     lukem 			(*oldsigint)(SIGINT);
    515   1.76     lukem 		if (timeoutflag && oldsigalrm != cmdtimeout &&
    516   1.76     lukem 		    oldsigalrm != SIG_IGN)
    517   1.76     lukem 			(*oldsigalrm)(SIGINT);
    518    1.1       cgd 		return (n - '0');
    519    1.1       cgd 	}
    520    1.1       cgd }
    521    1.1       cgd 
    522   1.45  christos static int
    523  1.157     lukem empty(FILE *ecin, FILE *din, int sec)
    524    1.1       cgd {
    525  1.127     lukem 	int		nr, nfd;
    526  1.127     lukem 	struct pollfd	pfd[2];
    527   1.45  christos 
    528  1.127     lukem 	nfd = 0;
    529  1.157     lukem 	if (ecin) {
    530  1.157     lukem 		pfd[nfd].fd = fileno(ecin);
    531  1.124     lukem 		pfd[nfd++].events = POLLIN;
    532   1.45  christos 	}
    533   1.45  christos 
    534   1.45  christos 	if (din) {
    535  1.124     lukem 		pfd[nfd].fd = fileno(din);
    536  1.124     lukem 		pfd[nfd++].events = POLLIN;
    537   1.45  christos 	}
    538   1.45  christos 
    539  1.136  christos 	if ((nr = ftp_poll(pfd, nfd, sec * 1000)) <= 0)
    540   1.45  christos 		return nr;
    541   1.45  christos 
    542   1.45  christos 	nr = 0;
    543   1.45  christos 	nfd = 0;
    544  1.157     lukem 	if (ecin)
    545   1.45  christos 		nr |= (pfd[nfd++].revents & POLLIN) ? 1 : 0;
    546   1.45  christos 	if (din)
    547   1.45  christos 		nr |= (pfd[nfd++].revents & POLLIN) ? 2 : 0;
    548   1.45  christos 	return nr;
    549    1.1       cgd }
    550    1.1       cgd 
    551   1.83     lukem sigjmp_buf	xferabort;
    552    1.1       cgd 
    553  1.162     joerg __dead static void
    554   1.95     lukem abortxfer(int notused)
    555    1.1       cgd {
    556   1.81     lukem 	char msgbuf[100];
    557  1.132     lukem 	size_t len;
    558    1.1       cgd 
    559  1.126     lukem 	sigint_raised = 1;
    560   1.22     lukem 	alarmtimer(0);
    561    1.1       cgd 	mflag = 0;
    562    1.1       cgd 	abrtflag = 0;
    563   1.81     lukem 	switch (direction[0]) {
    564   1.81     lukem 	case 'r':
    565   1.81     lukem 		strlcpy(msgbuf, "\nreceive", sizeof(msgbuf));
    566   1.81     lukem 		break;
    567   1.81     lukem 	case 's':
    568   1.81     lukem 		strlcpy(msgbuf, "\nsend", sizeof(msgbuf));
    569   1.81     lukem 		break;
    570   1.81     lukem 	default:
    571  1.147     lukem 		errx(1, "abortxfer: unknown direction `%s'", direction);
    572   1.81     lukem 	}
    573   1.85     lukem 	len = strlcat(msgbuf, " aborted. Waiting for remote to finish abort.\n",
    574   1.81     lukem 	    sizeof(msgbuf));
    575   1.81     lukem 	write(fileno(ttyout), msgbuf, len);
    576   1.81     lukem 	siglongjmp(xferabort, 1);
    577    1.1       cgd }
    578    1.1       cgd 
    579  1.149     lukem /*
    580  1.149     lukem  * Read data from infd & write to outfd, using buf/bufsize as the temporary
    581  1.149     lukem  * buffer, dealing with short writes.
    582  1.149     lukem  * If rate_limit != 0, rate-limit the transfer.
    583  1.149     lukem  * If hash_interval != 0, fputc('c', ttyout) every hash_interval bytes.
    584  1.149     lukem  * Updates global variables: bytes.
    585  1.149     lukem  * Returns 0 if ok, 1 if there was a read error, 2 if there was a write error.
    586  1.149     lukem  * In the case of error, errno contains the appropriate error code.
    587  1.149     lukem  */
    588  1.149     lukem static int
    589  1.149     lukem copy_bytes(int infd, int outfd, char *buf, size_t bufsize,
    590  1.149     lukem 	int rate_limit, int hash_interval)
    591  1.149     lukem {
    592  1.149     lukem 	volatile off_t	hashc;
    593  1.149     lukem 	ssize_t		inc, outc;
    594  1.149     lukem 	char		*bufp;
    595  1.149     lukem 	struct timeval	tvthen, tvnow, tvdiff;
    596  1.149     lukem 	off_t		bufrem, bufchunk;
    597  1.149     lukem 	int		serr;
    598  1.149     lukem 
    599  1.149     lukem 	hashc = hash_interval;
    600  1.149     lukem 	if (rate_limit)
    601  1.149     lukem 		bufchunk = rate_limit;
    602  1.149     lukem 	else
    603  1.149     lukem 		bufchunk = bufsize;
    604  1.149     lukem 
    605  1.149     lukem 	while (1) {
    606  1.149     lukem 		if (rate_limit) {
    607  1.149     lukem 			(void)gettimeofday(&tvthen, NULL);
    608  1.149     lukem 		}
    609  1.149     lukem 		errno = 0;
    610  1.149     lukem 		inc = outc = 0;
    611  1.149     lukem 					/* copy bufchunk at a time */
    612  1.149     lukem 		bufrem = bufchunk;
    613  1.149     lukem 		while (bufrem > 0) {
    614  1.158     lukem 			inc = read(infd, buf, MIN((off_t)bufsize, bufrem));
    615  1.149     lukem 			if (inc <= 0)
    616  1.149     lukem 				goto copy_done;
    617  1.149     lukem 			bytes += inc;
    618  1.149     lukem 			bufrem -= inc;
    619  1.149     lukem 			bufp = buf;
    620  1.149     lukem 			while (inc > 0) {
    621  1.149     lukem 				outc = write(outfd, bufp, inc);
    622  1.149     lukem 				if (outc < 0)
    623  1.149     lukem 					goto copy_done;
    624  1.149     lukem 				inc -= outc;
    625  1.149     lukem 				bufp += outc;
    626  1.149     lukem 			}
    627  1.149     lukem 			if (hash_interval) {
    628  1.149     lukem 				while (bytes >= hashc) {
    629  1.149     lukem 					(void)putc('#', ttyout);
    630  1.149     lukem 					hashc += hash_interval;
    631  1.149     lukem 				}
    632  1.149     lukem 				(void)fflush(ttyout);
    633  1.149     lukem 			}
    634  1.149     lukem 		}
    635  1.149     lukem 		if (rate_limit) {	/* rate limited; wait if necessary */
    636  1.149     lukem 			while (1) {
    637  1.149     lukem 				(void)gettimeofday(&tvnow, NULL);
    638  1.149     lukem 				timersub(&tvnow, &tvthen, &tvdiff);
    639  1.149     lukem 				if (tvdiff.tv_sec > 0)
    640  1.149     lukem 					break;
    641  1.149     lukem 				usleep(1000000 - tvdiff.tv_usec);
    642  1.149     lukem 			}
    643  1.149     lukem 		}
    644  1.149     lukem 	}
    645  1.149     lukem 
    646  1.149     lukem  copy_done:
    647  1.149     lukem 	serr = errno;
    648  1.149     lukem 	if (hash_interval && bytes > 0) {
    649  1.149     lukem 		if (bytes < hash_interval)
    650  1.149     lukem 			(void)putc('#', ttyout);
    651  1.149     lukem 		(void)putc('\n', ttyout);
    652  1.149     lukem 		(void)fflush(ttyout);
    653  1.149     lukem 	}
    654  1.149     lukem 	errno = serr;
    655  1.149     lukem 	if (inc == -1)
    656  1.149     lukem 		return 1;
    657  1.149     lukem 	if (outc == -1)
    658  1.149     lukem 		return 2;
    659  1.149     lukem 
    660  1.149     lukem 	return 0;
    661  1.149     lukem }
    662  1.149     lukem 
    663    1.6       cgd void
    664   1.95     lukem sendrequest(const char *cmd, const char *local, const char *remote,
    665   1.95     lukem 	    int printnames)
    666    1.1       cgd {
    667    1.1       cgd 	struct stat st;
    668  1.149     lukem 	int c;
    669  1.143  christos 	FILE *volatile fin;
    670  1.143  christos 	FILE *volatile dout;
    671  1.143  christos 	int (*volatile closefunc)(FILE *);
    672  1.143  christos 	sigfunc volatile oldintr;
    673  1.143  christos 	sigfunc volatile oldintp;
    674  1.143  christos 	off_t volatile hashbytes;
    675  1.149     lukem 	int hash_interval;
    676  1.158     lukem 	const char *lmode;
    677   1.64     lukem 	static size_t bufsize;
    678   1.64     lukem 	static char *buf;
    679   1.23     lukem 	int oprogress;
    680    1.1       cgd 
    681   1.16     lukem 	hashbytes = mark;
    682   1.14     lukem 	direction = "sent";
    683   1.26     lukem 	dout = NULL;
    684   1.14     lukem 	bytes = 0;
    685   1.16     lukem 	filesize = -1;
    686   1.23     lukem 	oprogress = progress;
    687    1.1       cgd 	if (verbose && printnames) {
    688  1.138  christos 		if (*local != '-')
    689   1.35     lukem 			fprintf(ttyout, "local: %s ", local);
    690    1.1       cgd 		if (remote)
    691   1.35     lukem 			fprintf(ttyout, "remote: %s\n", remote);
    692    1.1       cgd 	}
    693    1.1       cgd 	if (proxy) {
    694    1.1       cgd 		proxtrans(cmd, local, remote);
    695    1.1       cgd 		return;
    696    1.1       cgd 	}
    697    1.1       cgd 	if (curtype != type)
    698    1.1       cgd 		changetype(type, 0);
    699    1.1       cgd 	closefunc = NULL;
    700    1.1       cgd 	oldintr = NULL;
    701    1.1       cgd 	oldintp = NULL;
    702    1.1       cgd 	lmode = "w";
    703   1.81     lukem 	if (sigsetjmp(xferabort, 1)) {
    704   1.85     lukem 		while (cpend)
    705   1.23     lukem 			(void)getreply(0);
    706   1.79     lukem 		code = -1;
    707   1.30     lukem 		goto cleanupsend;
    708    1.1       cgd 	}
    709   1.80     lukem 	(void)xsignal(SIGQUIT, psummary);
    710   1.81     lukem 	oldintr = xsignal(SIGINT, abortxfer);
    711   1.23     lukem 	if (strcmp(local, "-") == 0) {
    712    1.1       cgd 		fin = stdin;
    713   1.23     lukem 		progress = 0;
    714   1.23     lukem 	} else if (*local == '|') {
    715   1.67     lukem 		oldintp = xsignal(SIGPIPE, SIG_IGN);
    716    1.1       cgd 		fin = popen(local + 1, "r");
    717    1.1       cgd 		if (fin == NULL) {
    718  1.147     lukem 			warn("Can't execute `%s'", local + 1);
    719   1.79     lukem 			code = -1;
    720   1.30     lukem 			goto cleanupsend;
    721    1.1       cgd 		}
    722   1.23     lukem 		progress = 0;
    723    1.1       cgd 		closefunc = pclose;
    724    1.1       cgd 	} else {
    725    1.1       cgd 		fin = fopen(local, "r");
    726    1.1       cgd 		if (fin == NULL) {
    727  1.147     lukem 			warn("Can't open `%s'", local);
    728   1.79     lukem 			code = -1;
    729   1.30     lukem 			goto cleanupsend;
    730    1.1       cgd 		}
    731    1.1       cgd 		closefunc = fclose;
    732   1.29   mycroft 		if (fstat(fileno(fin), &st) < 0 || !S_ISREG(st.st_mode)) {
    733   1.35     lukem 			fprintf(ttyout, "%s: not a plain file.\n", local);
    734   1.79     lukem 			code = -1;
    735   1.30     lukem 			goto cleanupsend;
    736    1.1       cgd 		}
    737   1.16     lukem 		filesize = st.st_size;
    738    1.1       cgd 	}
    739    1.1       cgd 	if (initconn()) {
    740   1.79     lukem 		code = -1;
    741   1.30     lukem 		goto cleanupsend;
    742    1.1       cgd 	}
    743   1.81     lukem 	if (sigsetjmp(xferabort, 1))
    744    1.1       cgd 		goto abort;
    745    1.1       cgd 
    746    1.1       cgd 	if (restart_point &&
    747    1.1       cgd 	    (strcmp(cmd, "STOR") == 0 || strcmp(cmd, "APPE") == 0)) {
    748    1.6       cgd 		int rc;
    749    1.6       cgd 
    750   1.21     lukem 		rc = -1;
    751    1.6       cgd 		switch (curtype) {
    752    1.6       cgd 		case TYPE_A:
    753  1.115     lukem 			rc = fseeko(fin, restart_point, SEEK_SET);
    754    1.6       cgd 			break;
    755    1.6       cgd 		case TYPE_I:
    756    1.6       cgd 		case TYPE_L:
    757    1.6       cgd 			rc = lseek(fileno(fin), restart_point, SEEK_SET);
    758    1.6       cgd 			break;
    759    1.6       cgd 		}
    760    1.6       cgd 		if (rc < 0) {
    761  1.147     lukem 			warn("Can't seek to restart `%s'", local);
    762   1.30     lukem 			goto cleanupsend;
    763    1.1       cgd 		}
    764  1.107     lukem 		if (command("REST " LLF, (LLT)restart_point) != CONTINUE)
    765   1.30     lukem 			goto cleanupsend;
    766  1.119     lukem 		lmode = "r+";
    767    1.1       cgd 	}
    768    1.1       cgd 	if (remote) {
    769   1.85     lukem 		if (command("%s %s", cmd, remote) != PRELIM)
    770   1.30     lukem 			goto cleanupsend;
    771   1.85     lukem 	} else {
    772   1.85     lukem 		if (command("%s", cmd) != PRELIM)
    773   1.30     lukem 			goto cleanupsend;
    774   1.85     lukem 	}
    775  1.121     lukem 	dirchange = 1;
    776    1.1       cgd 	dout = dataconn(lmode);
    777    1.1       cgd 	if (dout == NULL)
    778    1.1       cgd 		goto abort;
    779   1.64     lukem 
    780  1.163     lukem 	assert(sndbuf_size > 0);
    781  1.158     lukem 	if ((size_t)sndbuf_size > bufsize) {
    782   1.64     lukem 		if (buf)
    783   1.64     lukem 			(void)free(buf);
    784   1.64     lukem 		bufsize = sndbuf_size;
    785  1.136  christos 		buf = ftp_malloc(bufsize);
    786   1.64     lukem 	}
    787   1.64     lukem 
    788   1.16     lukem 	progressmeter(-1);
    789   1.67     lukem 	oldintp = xsignal(SIGPIPE, SIG_IGN);
    790  1.149     lukem 	hash_interval = (hash && (!progress || filesize < 0)) ? mark : 0;
    791   1.64     lukem 
    792    1.1       cgd 	switch (curtype) {
    793    1.1       cgd 
    794    1.1       cgd 	case TYPE_I:
    795    1.1       cgd 	case TYPE_L:
    796  1.149     lukem 		c = copy_bytes(fileno(fin), fileno(dout), buf, bufsize,
    797  1.149     lukem 			       rate_put, hash_interval);
    798  1.149     lukem 		if (c == 1) {
    799  1.147     lukem 			warn("Reading `%s'", local);
    800  1.149     lukem 		} else if (c == 2) {
    801   1.14     lukem 			if (errno != EPIPE)
    802  1.147     lukem 				warn("Writing to network");
    803    1.1       cgd 			bytes = -1;
    804    1.1       cgd 		}
    805    1.1       cgd 		break;
    806    1.1       cgd 
    807    1.1       cgd 	case TYPE_A:
    808    1.1       cgd 		while ((c = getc(fin)) != EOF) {
    809    1.1       cgd 			if (c == '\n') {
    810  1.149     lukem 				while (hash_interval && bytes >= hashbytes) {
    811   1.35     lukem 					(void)putc('#', ttyout);
    812   1.35     lukem 					(void)fflush(ttyout);
    813   1.14     lukem 					hashbytes += mark;
    814    1.1       cgd 				}
    815    1.1       cgd 				if (ferror(dout))
    816    1.1       cgd 					break;
    817   1.23     lukem 				(void)putc('\r', dout);
    818    1.1       cgd 				bytes++;
    819    1.1       cgd 			}
    820   1.23     lukem 			(void)putc(c, dout);
    821    1.1       cgd 			bytes++;
    822  1.160     lukem #if 0	/* this violates RFC 959 */
    823   1.16     lukem 			if (c == '\r') {
    824   1.16     lukem 				(void)putc('\0', dout);
    825   1.16     lukem 				bytes++;
    826   1.16     lukem 			}
    827   1.16     lukem #endif
    828    1.1       cgd 		}
    829  1.149     lukem 		if (hash_interval) {
    830    1.1       cgd 			if (bytes < hashbytes)
    831   1.35     lukem 				(void)putc('#', ttyout);
    832   1.35     lukem 			(void)putc('\n', ttyout);
    833    1.1       cgd 		}
    834    1.1       cgd 		if (ferror(fin))
    835  1.147     lukem 			warn("Reading `%s'", local);
    836    1.1       cgd 		if (ferror(dout)) {
    837    1.1       cgd 			if (errno != EPIPE)
    838  1.147     lukem 				warn("Writing to network");
    839    1.1       cgd 			bytes = -1;
    840    1.1       cgd 		}
    841    1.1       cgd 		break;
    842    1.1       cgd 	}
    843   1.78     lukem 
    844   1.22     lukem 	progressmeter(1);
    845   1.78     lukem 	if (closefunc != NULL) {
    846    1.1       cgd 		(*closefunc)(fin);
    847   1.78     lukem 		fin = NULL;
    848   1.78     lukem 	}
    849   1.79     lukem 	(void)fclose(dout);
    850   1.79     lukem 	dout = NULL;
    851   1.23     lukem 	(void)getreply(0);
    852    1.1       cgd 	if (bytes > 0)
    853   1.16     lukem 		ptransfer(0);
    854   1.30     lukem 	goto cleanupsend;
    855   1.78     lukem 
    856  1.102     lukem  abort:
    857   1.80     lukem 	(void)xsignal(SIGINT, oldintr);
    858   1.80     lukem 	oldintr = NULL;
    859   1.78     lukem 	if (!cpend) {
    860   1.79     lukem 		code = -1;
    861   1.78     lukem 		goto cleanupsend;
    862   1.78     lukem 	}
    863   1.80     lukem 	if (data >= 0) {
    864   1.80     lukem 		(void)close(data);
    865   1.80     lukem 		data = -1;
    866   1.80     lukem 	}
    867   1.80     lukem 	if (dout) {
    868   1.80     lukem 		(void)fclose(dout);
    869   1.80     lukem 		dout = NULL;
    870   1.80     lukem 	}
    871   1.78     lukem 	(void)getreply(0);
    872   1.79     lukem 	code = -1;
    873   1.78     lukem 	if (bytes > 0)
    874   1.78     lukem 		ptransfer(0);
    875   1.78     lukem 
    876  1.102     lukem  cleanupsend:
    877   1.81     lukem 	if (oldintr)
    878   1.81     lukem 		(void)xsignal(SIGINT, oldintr);
    879   1.81     lukem 	if (oldintp)
    880   1.81     lukem 		(void)xsignal(SIGPIPE, oldintp);
    881   1.80     lukem 	if (data >= 0) {
    882   1.80     lukem 		(void)close(data);
    883   1.80     lukem 		data = -1;
    884   1.80     lukem 	}
    885   1.78     lukem 	if (closefunc != NULL && fin != NULL)
    886   1.78     lukem 		(*closefunc)(fin);
    887   1.78     lukem 	if (dout)
    888   1.78     lukem 		(void)fclose(dout);
    889   1.30     lukem 	progress = oprogress;
    890   1.30     lukem 	restart_point = 0;
    891   1.78     lukem 	bytes = 0;
    892    1.1       cgd }
    893    1.1       cgd 
    894    1.6       cgd void
    895  1.143  christos recvrequest(const char *cmd, const char *volatile local, const char *remote,
    896   1.95     lukem 	    const char *lmode, int printnames, int ignorespecial)
    897    1.1       cgd {
    898  1.143  christos 	FILE *volatile fout;
    899  1.143  christos 	FILE *volatile din;
    900  1.143  christos 	int (*volatile closefunc)(FILE *);
    901  1.143  christos 	sigfunc volatile oldintr;
    902  1.143  christos 	sigfunc volatile oldintp;
    903   1.26     lukem 	int c, d;
    904  1.143  christos 	int volatile is_retr;
    905  1.143  christos 	int volatile tcrflag;
    906  1.143  christos 	int volatile bare_lfs;
    907   1.47     lukem 	static size_t bufsize;
    908   1.47     lukem 	static char *buf;
    909  1.143  christos 	off_t volatile hashbytes;
    910  1.149     lukem 	int hash_interval;
    911    1.1       cgd 	struct stat st;
    912   1.15     lukem 	time_t mtime;
    913   1.16     lukem 	struct timeval tval[2];
    914   1.23     lukem 	int oprogress;
    915   1.24     lukem 	int opreserve;
    916    1.1       cgd 
    917   1.26     lukem 	fout = NULL;
    918   1.26     lukem 	din = NULL;
    919   1.16     lukem 	hashbytes = mark;
    920   1.14     lukem 	direction = "received";
    921   1.14     lukem 	bytes = 0;
    922   1.26     lukem 	bare_lfs = 0;
    923   1.16     lukem 	filesize = -1;
    924   1.23     lukem 	oprogress = progress;
    925   1.24     lukem 	opreserve = preserve;
    926   1.30     lukem 	is_retr = (strcmp(cmd, "RETR") == 0);
    927    1.1       cgd 	if (is_retr && verbose && printnames) {
    928  1.139  christos 		if (ignorespecial || *local != '-')
    929   1.35     lukem 			fprintf(ttyout, "local: %s ", local);
    930    1.1       cgd 		if (remote)
    931   1.35     lukem 			fprintf(ttyout, "remote: %s\n", remote);
    932    1.1       cgd 	}
    933    1.1       cgd 	if (proxy && is_retr) {
    934    1.1       cgd 		proxtrans(cmd, local, remote);
    935    1.1       cgd 		return;
    936    1.1       cgd 	}
    937    1.1       cgd 	closefunc = NULL;
    938    1.1       cgd 	oldintr = NULL;
    939    1.1       cgd 	oldintp = NULL;
    940    1.1       cgd 	tcrflag = !crflag && is_retr;
    941   1.81     lukem 	if (sigsetjmp(xferabort, 1)) {
    942   1.85     lukem 		while (cpend)
    943   1.23     lukem 			(void)getreply(0);
    944   1.79     lukem 		code = -1;
    945   1.78     lukem 		goto cleanuprecv;
    946    1.1       cgd 	}
    947   1.80     lukem 	(void)xsignal(SIGQUIT, psummary);
    948   1.81     lukem 	oldintr = xsignal(SIGINT, abortxfer);
    949   1.27     lukem 	if (ignorespecial || (strcmp(local, "-") && *local != '|')) {
    950   1.28     lukem 		if (access(local, W_OK) < 0) {
    951    1.6       cgd 			char *dir = strrchr(local, '/');
    952    1.1       cgd 
    953    1.1       cgd 			if (errno != ENOENT && errno != EACCES) {
    954  1.147     lukem 				warn("Can't access `%s'", local);
    955   1.79     lukem 				code = -1;
    956   1.78     lukem 				goto cleanuprecv;
    957    1.1       cgd 			}
    958    1.1       cgd 			if (dir != NULL)
    959    1.1       cgd 				*dir = 0;
    960   1.46     lukem 			d = access(dir == local ? "/" :
    961   1.46     lukem 			    dir ? local : ".", W_OK);
    962    1.1       cgd 			if (dir != NULL)
    963    1.1       cgd 				*dir = '/';
    964    1.1       cgd 			if (d < 0) {
    965  1.147     lukem 				warn("Can't access `%s'", local);
    966   1.79     lukem 				code = -1;
    967   1.78     lukem 				goto cleanuprecv;
    968    1.1       cgd 			}
    969    1.1       cgd 			if (!runique && errno == EACCES &&
    970   1.35     lukem 			    chmod(local, (S_IRUSR|S_IWUSR)) < 0) {
    971  1.147     lukem 				warn("Can't chmod `%s'", local);
    972   1.79     lukem 				code = -1;
    973   1.78     lukem 				goto cleanuprecv;
    974    1.1       cgd 			}
    975    1.1       cgd 			if (runique && errno == EACCES &&
    976    1.1       cgd 			   (local = gunique(local)) == NULL) {
    977   1.79     lukem 				code = -1;
    978   1.78     lukem 				goto cleanuprecv;
    979    1.1       cgd 			}
    980    1.1       cgd 		}
    981    1.1       cgd 		else if (runique && (local = gunique(local)) == NULL) {
    982   1.79     lukem 			code = -1;
    983   1.78     lukem 			goto cleanuprecv;
    984    1.1       cgd 		}
    985    1.1       cgd 	}
    986    1.1       cgd 	if (!is_retr) {
    987    1.1       cgd 		if (curtype != TYPE_A)
    988    1.1       cgd 			changetype(TYPE_A, 0);
    989   1.16     lukem 	} else {
    990   1.16     lukem 		if (curtype != type)
    991   1.16     lukem 			changetype(type, 0);
    992   1.19     lukem 		filesize = remotesize(remote, 0);
    993   1.85     lukem 		if (code == 421 || code == -1)
    994   1.85     lukem 			goto cleanuprecv;
    995   1.16     lukem 	}
    996    1.1       cgd 	if (initconn()) {
    997   1.79     lukem 		code = -1;
    998   1.78     lukem 		goto cleanuprecv;
    999    1.1       cgd 	}
   1000   1.81     lukem 	if (sigsetjmp(xferabort, 1))
   1001    1.1       cgd 		goto abort;
   1002    1.1       cgd 	if (is_retr && restart_point &&
   1003  1.107     lukem 	    command("REST " LLF, (LLT) restart_point) != CONTINUE)
   1004   1.78     lukem 		goto cleanuprecv;
   1005   1.88     lukem 	if (! EMPTYSTRING(remote)) {
   1006   1.85     lukem 		if (command("%s %s", cmd, remote) != PRELIM)
   1007   1.78     lukem 			goto cleanuprecv;
   1008    1.1       cgd 	} else {
   1009   1.85     lukem 		if (command("%s", cmd) != PRELIM)
   1010   1.78     lukem 			goto cleanuprecv;
   1011    1.1       cgd 	}
   1012    1.1       cgd 	din = dataconn("r");
   1013    1.1       cgd 	if (din == NULL)
   1014    1.1       cgd 		goto abort;
   1015   1.27     lukem 	if (!ignorespecial && strcmp(local, "-") == 0) {
   1016    1.1       cgd 		fout = stdout;
   1017   1.23     lukem 		progress = 0;
   1018   1.24     lukem 		preserve = 0;
   1019   1.27     lukem 	} else if (!ignorespecial && *local == '|') {
   1020   1.67     lukem 		oldintp = xsignal(SIGPIPE, SIG_IGN);
   1021    1.1       cgd 		fout = popen(local + 1, "w");
   1022    1.1       cgd 		if (fout == NULL) {
   1023  1.147     lukem 			warn("Can't execute `%s'", local+1);
   1024    1.1       cgd 			goto abort;
   1025    1.1       cgd 		}
   1026   1.23     lukem 		progress = 0;
   1027   1.24     lukem 		preserve = 0;
   1028    1.1       cgd 		closefunc = pclose;
   1029    1.1       cgd 	} else {
   1030    1.1       cgd 		fout = fopen(local, lmode);
   1031    1.1       cgd 		if (fout == NULL) {
   1032  1.147     lukem 			warn("Can't open `%s'", local);
   1033    1.1       cgd 			goto abort;
   1034    1.1       cgd 		}
   1035    1.1       cgd 		closefunc = fclose;
   1036    1.1       cgd 	}
   1037   1.46     lukem 
   1038   1.64     lukem 	if (fstat(fileno(fout), &st) != -1 && !S_ISREG(st.st_mode)) {
   1039   1.64     lukem 		progress = 0;
   1040   1.64     lukem 		preserve = 0;
   1041   1.64     lukem 	}
   1042  1.163     lukem 	assert(rcvbuf_size > 0);
   1043  1.158     lukem 	if ((size_t)rcvbuf_size > bufsize) {
   1044    1.1       cgd 		if (buf)
   1045   1.23     lukem 			(void)free(buf);
   1046   1.64     lukem 		bufsize = rcvbuf_size;
   1047  1.136  christos 		buf = ftp_malloc(bufsize);
   1048    1.1       cgd 	}
   1049   1.64     lukem 
   1050   1.16     lukem 	progressmeter(-1);
   1051  1.149     lukem 	hash_interval = (hash && (!progress || filesize < 0)) ? mark : 0;
   1052   1.64     lukem 
   1053    1.1       cgd 	switch (curtype) {
   1054    1.1       cgd 
   1055    1.1       cgd 	case TYPE_I:
   1056    1.1       cgd 	case TYPE_L:
   1057   1.30     lukem 		if (is_retr && restart_point &&
   1058    1.6       cgd 		    lseek(fileno(fout), restart_point, SEEK_SET) < 0) {
   1059  1.147     lukem 			warn("Can't seek to restart `%s'", local);
   1060   1.78     lukem 			goto cleanuprecv;
   1061    1.1       cgd 		}
   1062  1.149     lukem 		c = copy_bytes(fileno(din), fileno(fout), buf, bufsize,
   1063  1.149     lukem 			       rate_get, hash_interval);
   1064  1.149     lukem 		if (c == 1) {
   1065    1.1       cgd 			if (errno != EPIPE)
   1066  1.147     lukem 				warn("Reading from network");
   1067    1.1       cgd 			bytes = -1;
   1068  1.149     lukem 		} else if (c == 2) {
   1069  1.149     lukem 			warn("Writing `%s'", local);
   1070    1.1       cgd 		}
   1071    1.1       cgd 		break;
   1072    1.1       cgd 
   1073    1.1       cgd 	case TYPE_A:
   1074   1.30     lukem 		if (is_retr && restart_point) {
   1075   1.30     lukem 			int ch;
   1076  1.115     lukem 			off_t i;
   1077    1.1       cgd 
   1078  1.115     lukem 			if (fseeko(fout, (off_t)0, SEEK_SET) < 0)
   1079    1.1       cgd 				goto done;
   1080  1.115     lukem 			for (i = 0; i++ < restart_point;) {
   1081    1.1       cgd 				if ((ch = getc(fout)) == EOF)
   1082    1.1       cgd 					goto done;
   1083    1.1       cgd 				if (ch == '\n')
   1084    1.1       cgd 					i++;
   1085    1.1       cgd 			}
   1086  1.115     lukem 			if (fseeko(fout, (off_t)0, SEEK_CUR) < 0) {
   1087  1.102     lukem  done:
   1088  1.147     lukem 				warn("Can't seek to restart `%s'", local);
   1089   1.78     lukem 				goto cleanuprecv;
   1090    1.1       cgd 			}
   1091    1.1       cgd 		}
   1092    1.1       cgd 		while ((c = getc(din)) != EOF) {
   1093    1.1       cgd 			if (c == '\n')
   1094    1.1       cgd 				bare_lfs++;
   1095    1.1       cgd 			while (c == '\r') {
   1096  1.149     lukem 				while (hash_interval && bytes >= hashbytes) {
   1097   1.35     lukem 					(void)putc('#', ttyout);
   1098   1.35     lukem 					(void)fflush(ttyout);
   1099   1.14     lukem 					hashbytes += mark;
   1100    1.1       cgd 				}
   1101    1.1       cgd 				bytes++;
   1102    1.1       cgd 				if ((c = getc(din)) != '\n' || tcrflag) {
   1103    1.1       cgd 					if (ferror(fout))
   1104    1.1       cgd 						goto break2;
   1105   1.23     lukem 					(void)putc('\r', fout);
   1106    1.1       cgd 					if (c == '\0') {
   1107    1.1       cgd 						bytes++;
   1108    1.1       cgd 						goto contin2;
   1109    1.1       cgd 					}
   1110    1.1       cgd 					if (c == EOF)
   1111    1.1       cgd 						goto contin2;
   1112    1.1       cgd 				}
   1113    1.1       cgd 			}
   1114   1.23     lukem 			(void)putc(c, fout);
   1115    1.1       cgd 			bytes++;
   1116    1.1       cgd 	contin2:	;
   1117    1.1       cgd 		}
   1118  1.114     lukem  break2:
   1119  1.149     lukem 		if (hash_interval) {
   1120    1.1       cgd 			if (bytes < hashbytes)
   1121   1.35     lukem 				(void)putc('#', ttyout);
   1122   1.35     lukem 			(void)putc('\n', ttyout);
   1123    1.1       cgd 		}
   1124    1.1       cgd 		if (ferror(din)) {
   1125    1.1       cgd 			if (errno != EPIPE)
   1126  1.147     lukem 				warn("Reading from network");
   1127    1.1       cgd 			bytes = -1;
   1128    1.1       cgd 		}
   1129    1.1       cgd 		if (ferror(fout))
   1130  1.147     lukem 			warn("Writing `%s'", local);
   1131    1.1       cgd 		break;
   1132    1.1       cgd 	}
   1133   1.78     lukem 
   1134   1.22     lukem 	progressmeter(1);
   1135   1.78     lukem 	if (closefunc != NULL) {
   1136    1.1       cgd 		(*closefunc)(fout);
   1137   1.78     lukem 		fout = NULL;
   1138   1.78     lukem 	}
   1139   1.79     lukem 	(void)fclose(din);
   1140   1.79     lukem 	din = NULL;
   1141   1.23     lukem 	(void)getreply(0);
   1142   1.43     lukem 	if (bare_lfs) {
   1143   1.43     lukem 		fprintf(ttyout,
   1144   1.43     lukem 		    "WARNING! %d bare linefeeds received in ASCII mode.\n",
   1145   1.43     lukem 		    bare_lfs);
   1146   1.43     lukem 		fputs("File may not have transferred correctly.\n", ttyout);
   1147   1.43     lukem 	}
   1148   1.19     lukem 	if (bytes >= 0 && is_retr) {
   1149   1.19     lukem 		if (bytes > 0)
   1150   1.19     lukem 			ptransfer(0);
   1151   1.15     lukem 		if (preserve && (closefunc == fclose)) {
   1152   1.19     lukem 			mtime = remotemodtime(remote, 0);
   1153   1.15     lukem 			if (mtime != -1) {
   1154   1.31     lukem 				(void)gettimeofday(&tval[0], NULL);
   1155   1.16     lukem 				tval[1].tv_sec = mtime;
   1156   1.16     lukem 				tval[1].tv_usec = 0;
   1157   1.16     lukem 				if (utimes(local, tval) == -1) {
   1158   1.35     lukem 					fprintf(ttyout,
   1159   1.23     lukem 				"Can't change modification time on %s to %s",
   1160  1.151     lukem 					    local,
   1161  1.151     lukem 					    rfc2822time(localtime(&mtime)));
   1162   1.15     lukem 				}
   1163   1.15     lukem 			}
   1164   1.15     lukem 		}
   1165   1.15     lukem 	}
   1166   1.78     lukem 	goto cleanuprecv;
   1167   1.23     lukem 
   1168  1.102     lukem  abort:
   1169   1.78     lukem 			/*
   1170  1.160     lukem 			 * abort using RFC 959 recommended IP,SYNC sequence
   1171   1.78     lukem 			 */
   1172   1.82     lukem 	if (! sigsetjmp(xferabort, 1)) {
   1173   1.82     lukem 			/* this is the first call */
   1174   1.82     lukem 		(void)xsignal(SIGINT, abort_squared);
   1175   1.82     lukem 		if (!cpend) {
   1176   1.82     lukem 			code = -1;
   1177   1.82     lukem 			goto cleanuprecv;
   1178   1.82     lukem 		}
   1179   1.82     lukem 		abort_remote(din);
   1180   1.78     lukem 	}
   1181   1.80     lukem 	code = -1;
   1182   1.78     lukem 	if (bytes > 0)
   1183   1.78     lukem 		ptransfer(0);
   1184    1.1       cgd 
   1185  1.102     lukem  cleanuprecv:
   1186   1.81     lukem 	if (oldintr)
   1187   1.81     lukem 		(void)xsignal(SIGINT, oldintr);
   1188   1.81     lukem 	if (oldintp)
   1189   1.81     lukem 		(void)xsignal(SIGPIPE, oldintp);
   1190   1.80     lukem 	if (data >= 0) {
   1191   1.80     lukem 		(void)close(data);
   1192   1.80     lukem 		data = -1;
   1193   1.80     lukem 	}
   1194   1.78     lukem 	if (closefunc != NULL && fout != NULL)
   1195   1.78     lukem 		(*closefunc)(fout);
   1196   1.78     lukem 	if (din)
   1197   1.78     lukem 		(void)fclose(din);
   1198   1.78     lukem 	progress = oprogress;
   1199   1.78     lukem 	preserve = opreserve;
   1200   1.78     lukem 	bytes = 0;
   1201    1.1       cgd }
   1202    1.1       cgd 
   1203    1.1       cgd /*
   1204    1.1       cgd  * Need to start a listen on the data channel before we send the command,
   1205    1.1       cgd  * otherwise the server's connect may fail.
   1206    1.1       cgd  */
   1207    1.6       cgd int
   1208   1.95     lukem initconn(void)
   1209    1.1       cgd {
   1210    1.6       cgd 	char *p, *a;
   1211  1.132     lukem 	int result, tmpno = 0;
   1212    1.1       cgd 	int on = 1;
   1213   1.48    itojun 	int error;
   1214  1.133     lukem 	unsigned int addr[16], port[2];
   1215  1.133     lukem 	unsigned int af, hal, pal;
   1216  1.132     lukem 	socklen_t len;
   1217  1.158     lukem 	const char *pasvcmd = NULL;
   1218  1.144     lukem 	int overbose;
   1219    1.8       cgd 
   1220   1.62     lukem #ifdef INET6
   1221  1.135  christos #ifndef NO_DEBUG
   1222  1.137  christos 	if (myctladdr.su_family == AF_INET6 && ftp_debug &&
   1223  1.104     lukem 	    (IN6_IS_ADDR_LINKLOCAL(&myctladdr.si_su.su_sin6.sin6_addr) ||
   1224  1.104     lukem 	     IN6_IS_ADDR_SITELOCAL(&myctladdr.si_su.su_sin6.sin6_addr))) {
   1225  1.147     lukem 		warnx("Use of scoped addresses can be troublesome");
   1226   1.59    itojun 	}
   1227   1.62     lukem #endif
   1228  1.135  christos #endif
   1229  1.147     lukem 
   1230  1.102     lukem  reinit:
   1231    1.8       cgd 	if (passivemode) {
   1232   1.48    itojun 		data_addr = myctladdr;
   1233   1.48    itojun 		data = socket(data_addr.su_family, SOCK_STREAM, 0);
   1234    1.8       cgd 		if (data < 0) {
   1235  1.147     lukem 			warn("Can't create socket for data connection");
   1236   1.21     lukem 			return (1);
   1237    1.8       cgd 		}
   1238    1.8       cgd 		if ((options & SO_DEBUG) &&
   1239  1.130     lukem 		    setsockopt(data, SOL_SOCKET, SO_DEBUG,
   1240  1.130     lukem 				(void *)&on, sizeof(on)) == -1) {
   1241  1.135  christos 			DWARN("setsockopt %s (ignored)", "SO_DEBUG");
   1242  1.130     lukem 		}
   1243   1.54    itojun 		result = COMPLETE + 1;
   1244   1.48    itojun 		switch (data_addr.su_family) {
   1245   1.48    itojun 		case AF_INET:
   1246   1.74     lukem 			if (epsv4 && !epsv4bad) {
   1247  1.128     lukem 				pasvcmd = "EPSV";
   1248  1.144     lukem 				overbose = verbose;
   1249  1.144     lukem 				if (ftp_debug == 0)
   1250  1.144     lukem 					verbose = -1;
   1251  1.110        is 				result = command("EPSV");
   1252  1.144     lukem 				verbose = overbose;
   1253  1.148     lukem 				if (verbose > 0 &&
   1254  1.144     lukem 				    (result == COMPLETE || !connected))
   1255  1.144     lukem 					fprintf(ttyout, "%s\n", reply_string);
   1256   1.85     lukem 				if (!connected)
   1257   1.85     lukem 					return (1);
   1258   1.55    itojun 				/*
   1259   1.55    itojun 				 * this code is to be friendly with broken
   1260   1.55    itojun 				 * BSDI ftpd
   1261   1.55    itojun 				 */
   1262   1.56    itojun 				if (code / 10 == 22 && code != 229) {
   1263   1.55    itojun 					fputs(
   1264   1.55    itojun "wrong server: return code must be 229\n",
   1265   1.55    itojun 						ttyout);
   1266   1.55    itojun 					result = COMPLETE + 1;
   1267   1.55    itojun 				}
   1268   1.74     lukem 				if (result != COMPLETE) {
   1269   1.74     lukem 					epsv4bad = 1;
   1270  1.135  christos 					DPRINTF("disabling epsv4 for this "
   1271  1.135  christos 					    "connection\n");
   1272   1.74     lukem 				}
   1273   1.55    itojun 			}
   1274   1.85     lukem 			if (result != COMPLETE) {
   1275  1.128     lukem 				pasvcmd = "PASV";
   1276  1.110        is 				result = command("PASV");
   1277   1.85     lukem 				if (!connected)
   1278   1.85     lukem 					return (1);
   1279   1.85     lukem 			}
   1280   1.48    itojun 			break;
   1281   1.62     lukem #ifdef INET6
   1282   1.48    itojun 		case AF_INET6:
   1283  1.156       skd 			if (epsv6 && !epsv6bad) {
   1284  1.156       skd 				pasvcmd = "EPSV";
   1285  1.156       skd 				overbose = verbose;
   1286  1.156       skd 				if (ftp_debug == 0)
   1287  1.156       skd 					verbose = -1;
   1288  1.156       skd 				result = command("EPSV");
   1289  1.156       skd 				verbose = overbose;
   1290  1.156       skd 				if (verbose > 0 &&
   1291  1.156       skd 				    (result == COMPLETE || !connected))
   1292  1.156       skd 					fprintf(ttyout, "%s\n", reply_string);
   1293  1.156       skd 				if (!connected)
   1294  1.156       skd 					return (1);
   1295  1.156       skd 				/*
   1296  1.156       skd 				 * this code is to be friendly with
   1297  1.156       skd 				 * broken BSDI ftpd
   1298  1.156       skd 				 */
   1299  1.156       skd 				if (code / 10 == 22 && code != 229) {
   1300  1.156       skd 					fputs(
   1301  1.156       skd 						"wrong server: return code must be 229\n",
   1302  1.156       skd 						ttyout);
   1303  1.156       skd 					result = COMPLETE + 1;
   1304  1.156       skd 				}
   1305  1.156       skd 				if (result != COMPLETE) {
   1306  1.156       skd 					epsv6bad = 1;
   1307  1.156       skd 					DPRINTF("disabling epsv6 for this "
   1308  1.156       skd 					    "connection\n");
   1309  1.156       skd 				}
   1310   1.55    itojun 			}
   1311  1.110        is 			if (result != COMPLETE) {
   1312  1.110        is 				pasvcmd = "LPSV";
   1313  1.110        is 				result = command("LPSV");
   1314  1.110        is 			}
   1315   1.85     lukem 			if (!connected)
   1316   1.85     lukem 				return (1);
   1317   1.48    itojun 			break;
   1318   1.62     lukem #endif
   1319   1.48    itojun 		default:
   1320   1.57    itojun 			result = COMPLETE + 1;
   1321   1.54    itojun 			break;
   1322   1.48    itojun 		}
   1323   1.48    itojun 		if (result != COMPLETE) {
   1324   1.35     lukem 			if (activefallback) {
   1325   1.35     lukem 				(void)close(data);
   1326   1.35     lukem 				data = -1;
   1327   1.35     lukem 				passivemode = 0;
   1328   1.85     lukem #if 0
   1329   1.35     lukem 				activefallback = 0;
   1330   1.85     lukem #endif
   1331   1.35     lukem 				goto reinit;
   1332   1.35     lukem 			}
   1333   1.35     lukem 			fputs("Passive mode refused.\n", ttyout);
   1334    1.8       cgd 			goto bad;
   1335    1.8       cgd 		}
   1336    1.8       cgd 
   1337   1.85     lukem #define	pack2(var, off) \
   1338   1.48    itojun 	(((var[(off) + 0] & 0xff) << 8) | ((var[(off) + 1] & 0xff) << 0))
   1339   1.85     lukem #define	pack4(var, off) \
   1340   1.48    itojun 	(((var[(off) + 0] & 0xff) << 24) | ((var[(off) + 1] & 0xff) << 16) | \
   1341   1.48    itojun 	 ((var[(off) + 2] & 0xff) << 8) | ((var[(off) + 3] & 0xff) << 0))
   1342  1.100     lukem #define	UC(b)	(((int)b)&0xff)
   1343   1.48    itojun 
   1344    1.8       cgd 		/*
   1345   1.48    itojun 		 * What we've got at this point is a string of comma separated
   1346   1.48    itojun 		 * one-byte unsigned integer values, separated by commas.
   1347    1.8       cgd 		 */
   1348   1.55    itojun 		if (strcmp(pasvcmd, "PASV") == 0) {
   1349   1.55    itojun 			if (data_addr.su_family != AF_INET) {
   1350   1.55    itojun 				fputs(
   1351  1.105     lukem     "Passive mode AF mismatch. Shouldn't happen!\n", ttyout);
   1352   1.55    itojun 				error = 1;
   1353   1.55    itojun 				goto bad;
   1354   1.55    itojun 			}
   1355   1.56    itojun 			if (code / 10 == 22 && code != 227) {
   1356   1.55    itojun 				fputs("wrong server: return code must be 227\n",
   1357   1.55    itojun 					ttyout);
   1358   1.55    itojun 				error = 1;
   1359   1.55    itojun 				goto bad;
   1360   1.55    itojun 			}
   1361   1.55    itojun 			error = sscanf(pasv, "%u,%u,%u,%u,%u,%u",
   1362   1.55    itojun 					&addr[0], &addr[1], &addr[2], &addr[3],
   1363   1.55    itojun 					&port[0], &port[1]);
   1364   1.55    itojun 			if (error != 6) {
   1365   1.55    itojun 				fputs(
   1366   1.55    itojun "Passive mode address scan failure. Shouldn't happen!\n", ttyout);
   1367   1.55    itojun 				error = 1;
   1368   1.55    itojun 				goto bad;
   1369   1.55    itojun 			}
   1370   1.55    itojun 			error = 0;
   1371   1.55    itojun 			memset(&data_addr, 0, sizeof(data_addr));
   1372   1.55    itojun 			data_addr.su_family = AF_INET;
   1373   1.55    itojun 			data_addr.su_len = sizeof(struct sockaddr_in);
   1374  1.104     lukem 			data_addr.si_su.su_sin.sin_addr.s_addr =
   1375  1.104     lukem 			    htonl(pack4(addr, 0));
   1376   1.55    itojun 			data_addr.su_port = htons(pack2(port, 0));
   1377   1.55    itojun 		} else if (strcmp(pasvcmd, "LPSV") == 0) {
   1378   1.56    itojun 			if (code / 10 == 22 && code != 228) {
   1379   1.55    itojun 				fputs("wrong server: return code must be 228\n",
   1380   1.55    itojun 					ttyout);
   1381   1.55    itojun 				error = 1;
   1382   1.55    itojun 				goto bad;
   1383   1.55    itojun 			}
   1384   1.48    itojun 			switch (data_addr.su_family) {
   1385   1.48    itojun 			case AF_INET:
   1386   1.55    itojun 				error = sscanf(pasv,
   1387   1.55    itojun "%u,%u,%u,%u,%u,%u,%u,%u,%u",
   1388   1.57    itojun 					&af, &hal,
   1389   1.55    itojun 					&addr[0], &addr[1], &addr[2], &addr[3],
   1390   1.55    itojun 					&pal, &port[0], &port[1]);
   1391   1.57    itojun 				if (error != 9) {
   1392   1.55    itojun 					fputs(
   1393   1.57    itojun "Passive mode address scan failure. Shouldn't happen!\n", ttyout);
   1394   1.55    itojun 					error = 1;
   1395   1.55    itojun 					goto bad;
   1396   1.55    itojun 				}
   1397   1.57    itojun 				if (af != 4 || hal != 4 || pal != 2) {
   1398   1.48    itojun 					fputs(
   1399   1.57    itojun "Passive mode AF mismatch. Shouldn't happen!\n", ttyout);
   1400   1.48    itojun 					error = 1;
   1401   1.48    itojun 					goto bad;
   1402   1.48    itojun 				}
   1403   1.57    itojun 
   1404   1.48    itojun 				error = 0;
   1405   1.48    itojun 				memset(&data_addr, 0, sizeof(data_addr));
   1406   1.48    itojun 				data_addr.su_family = AF_INET;
   1407   1.48    itojun 				data_addr.su_len = sizeof(struct sockaddr_in);
   1408  1.104     lukem 				data_addr.si_su.su_sin.sin_addr.s_addr =
   1409  1.104     lukem 				    htonl(pack4(addr, 0));
   1410   1.48    itojun 				data_addr.su_port = htons(pack2(port, 0));
   1411   1.48    itojun 				break;
   1412   1.62     lukem #ifdef INET6
   1413   1.48    itojun 			case AF_INET6:
   1414   1.48    itojun 				error = sscanf(pasv,
   1415   1.48    itojun "%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u,%u",
   1416   1.48    itojun 					&af, &hal,
   1417   1.48    itojun 					&addr[0], &addr[1], &addr[2], &addr[3],
   1418   1.48    itojun 					&addr[4], &addr[5], &addr[6], &addr[7],
   1419   1.48    itojun 					&addr[8], &addr[9], &addr[10],
   1420   1.48    itojun 					&addr[11], &addr[12], &addr[13],
   1421   1.48    itojun 					&addr[14], &addr[15],
   1422   1.48    itojun 					&pal, &port[0], &port[1]);
   1423   1.57    itojun 				if (error != 21) {
   1424   1.48    itojun 					fputs(
   1425   1.57    itojun "Passive mode address scan failure. Shouldn't happen!\n", ttyout);
   1426   1.48    itojun 					error = 1;
   1427   1.48    itojun 					goto bad;
   1428   1.48    itojun 				}
   1429   1.57    itojun 				if (af != 6 || hal != 16 || pal != 2) {
   1430   1.48    itojun 					fputs(
   1431   1.57    itojun "Passive mode AF mismatch. Shouldn't happen!\n", ttyout);
   1432   1.48    itojun 					error = 1;
   1433   1.48    itojun 					goto bad;
   1434   1.48    itojun 				}
   1435    1.8       cgd 
   1436   1.48    itojun 				error = 0;
   1437   1.48    itojun 				memset(&data_addr, 0, sizeof(data_addr));
   1438   1.48    itojun 				data_addr.su_family = AF_INET6;
   1439   1.48    itojun 				data_addr.su_len = sizeof(struct sockaddr_in6);
   1440   1.60    itojun 			    {
   1441  1.158     lukem 				size_t i;
   1442  1.100     lukem 				for (i = 0; i < sizeof(struct in6_addr); i++) {
   1443  1.104     lukem 					data_addr.si_su.su_sin6.sin6_addr.s6_addr[i] =
   1444  1.100     lukem 					    UC(addr[i]);
   1445  1.100     lukem 				}
   1446   1.60    itojun 			    }
   1447   1.48    itojun 				data_addr.su_port = htons(pack2(port, 0));
   1448   1.48    itojun 				break;
   1449   1.62     lukem #endif
   1450   1.48    itojun 			default:
   1451   1.48    itojun 				error = 1;
   1452   1.48    itojun 			}
   1453   1.48    itojun 		} else if (strcmp(pasvcmd, "EPSV") == 0) {
   1454   1.48    itojun 			char delim[4];
   1455   1.48    itojun 
   1456   1.48    itojun 			port[0] = 0;
   1457   1.56    itojun 			if (code / 10 == 22 && code != 229) {
   1458   1.55    itojun 				fputs("wrong server: return code must be 229\n",
   1459   1.55    itojun 					ttyout);
   1460   1.55    itojun 				error = 1;
   1461   1.55    itojun 				goto bad;
   1462   1.55    itojun 			}
   1463   1.48    itojun 			if (sscanf(pasv, "%c%c%c%d%c", &delim[0],
   1464   1.48    itojun 					&delim[1], &delim[2], &port[1],
   1465   1.48    itojun 					&delim[3]) != 5) {
   1466   1.57    itojun 				fputs("parse error!\n", ttyout);
   1467   1.57    itojun 				error = 1;
   1468   1.48    itojun 				goto bad;
   1469   1.48    itojun 			}
   1470   1.48    itojun 			if (delim[0] != delim[1] || delim[0] != delim[2]
   1471   1.48    itojun 			 || delim[0] != delim[3]) {
   1472   1.57    itojun 				fputs("parse error!\n", ttyout);
   1473   1.57    itojun 				error = 1;
   1474   1.48    itojun 				goto bad;
   1475   1.48    itojun 			}
   1476   1.48    itojun 			data_addr = hisctladdr;
   1477   1.48    itojun 			data_addr.su_port = htons(port[1]);
   1478   1.48    itojun 		} else
   1479    1.8       cgd 			goto bad;
   1480    1.8       cgd 
   1481  1.146     lukem 		if (ftp_connect(data, (struct sockaddr *)&data_addr.si_su,
   1482  1.164        is 		    data_addr.su_len, 1) < 0) {
   1483   1.39     lukem 			if (activefallback) {
   1484   1.39     lukem 				(void)close(data);
   1485   1.39     lukem 				data = -1;
   1486   1.39     lukem 				passivemode = 0;
   1487   1.85     lukem #if 0
   1488   1.39     lukem 				activefallback = 0;
   1489   1.85     lukem #endif
   1490   1.39     lukem 				goto reinit;
   1491   1.39     lukem 			}
   1492    1.8       cgd 			goto bad;
   1493    1.8       cgd 		}
   1494   1.92     lukem #ifdef IPTOS_THROUGHPUT
   1495   1.48    itojun 		if (data_addr.su_family == AF_INET) {
   1496   1.48    itojun 			on = IPTOS_THROUGHPUT;
   1497  1.130     lukem 			if (setsockopt(data, IPPROTO_IP, IP_TOS,
   1498  1.131     lukem 					(void *)&on, sizeof(on)) == -1) {
   1499  1.135  christos 				DWARN("setsockopt %s (ignored)",
   1500  1.135  christos 				    "IPTOS_THROUGHPUT");
   1501  1.130     lukem 			}
   1502   1.48    itojun 		}
   1503   1.92     lukem #endif
   1504   1.21     lukem 		return (0);
   1505    1.8       cgd 	}
   1506    1.1       cgd 
   1507  1.102     lukem  noport:
   1508    1.1       cgd 	data_addr = myctladdr;
   1509    1.1       cgd 	if (sendport)
   1510   1.48    itojun 		data_addr.su_port = 0;	/* let system pick one */
   1511    1.1       cgd 	if (data != -1)
   1512   1.23     lukem 		(void)close(data);
   1513   1.48    itojun 	data = socket(data_addr.su_family, SOCK_STREAM, 0);
   1514    1.1       cgd 	if (data < 0) {
   1515  1.147     lukem 		warn("Can't create socket for data connection");
   1516    1.1       cgd 		if (tmpno)
   1517    1.1       cgd 			sendport = 1;
   1518    1.1       cgd 		return (1);
   1519    1.1       cgd 	}
   1520    1.1       cgd 	if (!sendport)
   1521  1.130     lukem 		if (setsockopt(data, SOL_SOCKET, SO_REUSEADDR,
   1522  1.130     lukem 				(void *)&on, sizeof(on)) == -1) {
   1523  1.147     lukem 			warn("Can't set SO_REUSEADDR on data connection");
   1524    1.1       cgd 			goto bad;
   1525    1.1       cgd 		}
   1526  1.104     lukem 	if (bind(data, (struct sockaddr *)&data_addr.si_su,
   1527  1.104     lukem 	    data_addr.su_len) < 0) {
   1528  1.147     lukem 		warn("Can't bind for data connection");
   1529    1.1       cgd 		goto bad;
   1530    1.1       cgd 	}
   1531  1.130     lukem 	if ((options & SO_DEBUG) &&
   1532  1.130     lukem 	    setsockopt(data, SOL_SOCKET, SO_DEBUG,
   1533  1.130     lukem 			(void *)&on, sizeof(on)) == -1) {
   1534  1.135  christos 		DWARN("setsockopt %s (ignored)", "SO_DEBUG");
   1535  1.130     lukem 	}
   1536  1.105     lukem 	len = sizeof(data_addr.si_su);
   1537  1.105     lukem 	memset((char *)&data_addr, 0, sizeof (data_addr));
   1538  1.132     lukem 	if (getsockname(data, (struct sockaddr *)&data_addr.si_su, &len) == -1) {
   1539  1.147     lukem 		warn("Can't determine my address of data connection");
   1540    1.1       cgd 		goto bad;
   1541    1.1       cgd 	}
   1542  1.105     lukem 	data_addr.su_len = len;
   1543  1.136  christos 	if (ftp_listen(data, 1) < 0)
   1544  1.147     lukem 		warn("Can't listen to data connection");
   1545   1.48    itojun 
   1546    1.1       cgd 	if (sendport) {
   1547  1.112    itojun 		char hname[NI_MAXHOST], sname[NI_MAXSERV];
   1548  1.112    itojun 		struct sockinet tmp;
   1549   1.48    itojun 
   1550   1.48    itojun 		switch (data_addr.su_family) {
   1551   1.48    itojun 		case AF_INET:
   1552   1.74     lukem 			if (!epsv4 || epsv4bad) {
   1553   1.54    itojun 				result = COMPLETE + 1;
   1554   1.54    itojun 				break;
   1555   1.54    itojun 			}
   1556   1.54    itojun 			/* FALLTHROUGH */
   1557   1.58  christos #ifdef INET6
   1558   1.48    itojun 		case AF_INET6:
   1559  1.156       skd 			if (!epsv6 || epsv6bad) {
   1560  1.156       skd 				result = COMPLETE + 1;
   1561  1.156       skd 				break;
   1562  1.156       skd 			}
   1563  1.111    itojun #endif
   1564   1.48    itojun 			af = (data_addr.su_family == AF_INET) ? 1 : 2;
   1565  1.112    itojun 			tmp = data_addr;
   1566  1.113    itojun #ifdef INET6
   1567  1.112    itojun 			if (tmp.su_family == AF_INET6)
   1568  1.112    itojun 				tmp.si_su.su_sin6.sin6_scope_id = 0;
   1569  1.113    itojun #endif
   1570  1.112    itojun 			if (getnameinfo((struct sockaddr *)&tmp.si_su,
   1571  1.112    itojun 			    tmp.su_len, hname, sizeof(hname), sname,
   1572  1.112    itojun 			    sizeof(sname), NI_NUMERICHOST | NI_NUMERICSERV)) {
   1573   1.48    itojun 				result = ERROR;
   1574   1.48    itojun 			} else {
   1575  1.144     lukem 				overbose = verbose;
   1576  1.144     lukem 				if (ftp_debug == 0)
   1577  1.144     lukem 					verbose = -1;
   1578  1.157     lukem 				result = command("EPRT |%u|%s|%s|", af, hname,
   1579  1.112    itojun 				    sname);
   1580  1.144     lukem 				verbose = overbose;
   1581  1.148     lukem 				if (verbose > 0 &&
   1582  1.144     lukem 				    (result == COMPLETE || !connected))
   1583  1.144     lukem 					fprintf(ttyout, "%s\n", reply_string);
   1584   1.85     lukem 				if (!connected)
   1585   1.85     lukem 					return (1);
   1586   1.74     lukem 				if (result != COMPLETE) {
   1587   1.74     lukem 					epsv4bad = 1;
   1588  1.135  christos 					DPRINTF("disabling epsv4 for this "
   1589  1.135  christos 					    "connection\n");
   1590   1.74     lukem 				}
   1591   1.48    itojun 			}
   1592   1.48    itojun 			break;
   1593   1.48    itojun 		default:
   1594   1.48    itojun 			result = COMPLETE + 1;
   1595   1.48    itojun 			break;
   1596   1.48    itojun 		}
   1597   1.48    itojun 		if (result == COMPLETE)
   1598   1.48    itojun 			goto skip_port;
   1599   1.48    itojun 
   1600   1.48    itojun 		switch (data_addr.su_family) {
   1601   1.48    itojun 		case AF_INET:
   1602  1.104     lukem 			a = (char *)&data_addr.si_su.su_sin.sin_addr;
   1603   1.48    itojun 			p = (char *)&data_addr.su_port;
   1604   1.48    itojun 			result = command("PORT %d,%d,%d,%d,%d,%d",
   1605   1.48    itojun 				 UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]),
   1606   1.48    itojun 				 UC(p[0]), UC(p[1]));
   1607   1.48    itojun 			break;
   1608   1.58  christos #ifdef INET6
   1609  1.161  christos 		case AF_INET6: {
   1610  1.161  christos 			uint8_t ua[sizeof(data_addr.si_su.su_sin6.sin6_addr)];
   1611  1.161  christos 			uint8_t up[sizeof(data_addr.su_port)];
   1612  1.161  christos 
   1613  1.161  christos 			memcpy(ua, &data_addr.si_su.su_sin6.sin6_addr,
   1614  1.161  christos 			    sizeof(ua));
   1615  1.161  christos 			memcpy(up, &data_addr.su_port, sizeof(up));
   1616  1.161  christos 
   1617   1.48    itojun 			result = command(
   1618   1.85     lukem 	"LPRT %d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d",
   1619   1.48    itojun 				 6, 16,
   1620  1.161  christos 				  ua[0],  ua[1],  ua[2],  ua[3],
   1621  1.161  christos 				  ua[4],  ua[5],  ua[6],  ua[7],
   1622  1.161  christos 				  ua[8],  ua[9], ua[10], ua[11],
   1623  1.161  christos 				 ua[12], ua[13], ua[14], ua[15],
   1624  1.161  christos 				 2,
   1625  1.161  christos 				 up[0], up[1]);
   1626   1.48    itojun 			break;
   1627  1.161  christos 		}
   1628   1.58  christos #endif
   1629   1.48    itojun 		default:
   1630   1.48    itojun 			result = COMPLETE + 1; /* xxx */
   1631   1.48    itojun 		}
   1632   1.85     lukem 		if (!connected)
   1633   1.85     lukem 			return (1);
   1634   1.48    itojun 	skip_port:
   1635  1.128     lukem 
   1636    1.1       cgd 		if (result == ERROR && sendport == -1) {
   1637    1.1       cgd 			sendport = 0;
   1638    1.1       cgd 			tmpno = 1;
   1639    1.1       cgd 			goto noport;
   1640    1.1       cgd 		}
   1641    1.1       cgd 		return (result != COMPLETE);
   1642    1.1       cgd 	}
   1643    1.1       cgd 	if (tmpno)
   1644    1.1       cgd 		sendport = 1;
   1645   1.92     lukem #ifdef IPTOS_THROUGHPUT
   1646   1.48    itojun 	if (data_addr.su_family == AF_INET) {
   1647   1.48    itojun 		on = IPTOS_THROUGHPUT;
   1648  1.130     lukem 		if (setsockopt(data, IPPROTO_IP, IP_TOS,
   1649  1.159       jld 				(void *)&on, sizeof(on)) == -1) {
   1650  1.135  christos 			DWARN("setsockopt %s (ignored)", "IPTOS_THROUGHPUT");
   1651  1.159       jld 		}
   1652   1.48    itojun 	}
   1653   1.92     lukem #endif
   1654    1.1       cgd 	return (0);
   1655  1.102     lukem  bad:
   1656  1.127     lukem 	(void)close(data);
   1657  1.127     lukem 	data = -1;
   1658    1.1       cgd 	if (tmpno)
   1659    1.1       cgd 		sendport = 1;
   1660    1.1       cgd 	return (1);
   1661    1.1       cgd }
   1662    1.1       cgd 
   1663    1.1       cgd FILE *
   1664   1.95     lukem dataconn(const char *lmode)
   1665    1.1       cgd {
   1666  1.127     lukem 	struct sockinet	from;
   1667  1.132     lukem 	int		s, flags, rv, timeout;
   1668  1.127     lukem 	struct timeval	endtime, now, td;
   1669  1.127     lukem 	struct pollfd	pfd[1];
   1670  1.132     lukem 	socklen_t	fromlen;
   1671    1.8       cgd 
   1672  1.127     lukem 	if (passivemode)	/* passive data connection */
   1673    1.8       cgd 		return (fdopen(data, lmode));
   1674    1.1       cgd 
   1675  1.127     lukem 				/* active mode data connection */
   1676  1.127     lukem 
   1677  1.127     lukem 	if ((flags = fcntl(data, F_GETFL, 0)) == -1)
   1678  1.127     lukem 		goto dataconn_failed;		/* get current socket flags  */
   1679  1.127     lukem 	if (fcntl(data, F_SETFL, flags | O_NONBLOCK) == -1)
   1680  1.127     lukem 		goto dataconn_failed;		/* set non-blocking connect */
   1681  1.127     lukem 
   1682  1.127     lukem 		/* NOTE: we now must restore socket flags on successful exit */
   1683  1.127     lukem 
   1684  1.127     lukem 				/* limit time waiting on listening socket */
   1685  1.127     lukem 	pfd[0].fd = data;
   1686  1.127     lukem 	pfd[0].events = POLLIN;
   1687  1.127     lukem 	(void)gettimeofday(&endtime, NULL);	/* determine end time */
   1688  1.127     lukem 	endtime.tv_sec += (quit_time > 0) ? quit_time: 60;
   1689  1.127     lukem 						/* without -q, default to 60s */
   1690  1.127     lukem 	do {
   1691  1.127     lukem 		(void)gettimeofday(&now, NULL);
   1692  1.127     lukem 		timersub(&endtime, &now, &td);
   1693  1.127     lukem 		timeout = td.tv_sec * 1000 + td.tv_usec/1000;
   1694  1.127     lukem 		if (timeout < 0)
   1695  1.127     lukem 			timeout = 0;
   1696  1.136  christos 		rv = ftp_poll(pfd, 1, timeout);
   1697  1.127     lukem 	} while (rv == -1 && errno == EINTR);	/* loop until poll ! EINTR */
   1698  1.127     lukem 	if (rv == -1) {
   1699  1.147     lukem 		warn("Can't poll waiting before accept");
   1700  1.127     lukem 		goto dataconn_failed;
   1701  1.127     lukem 	}
   1702  1.127     lukem 	if (rv == 0) {
   1703  1.147     lukem 		warnx("Poll timeout waiting before accept");
   1704  1.127     lukem 		goto dataconn_failed;
   1705  1.127     lukem 	}
   1706  1.127     lukem 
   1707  1.127     lukem 				/* (non-blocking) accept the connection */
   1708  1.127     lukem 	fromlen = myctladdr.su_len;
   1709  1.127     lukem 	do {
   1710  1.127     lukem 		s = accept(data, (struct sockaddr *) &from.si_su, &fromlen);
   1711  1.127     lukem 	} while (s == -1 && errno == EINTR);	/* loop until accept ! EINTR */
   1712  1.127     lukem 	if (s == -1) {
   1713  1.147     lukem 		warn("Can't accept data connection");
   1714  1.127     lukem 		goto dataconn_failed;
   1715    1.1       cgd 	}
   1716  1.127     lukem 
   1717   1.23     lukem 	(void)close(data);
   1718    1.1       cgd 	data = s;
   1719  1.127     lukem 	if (fcntl(data, F_SETFL, flags) == -1)	/* restore socket flags */
   1720  1.127     lukem 		goto dataconn_failed;
   1721  1.127     lukem 
   1722   1.92     lukem #ifdef IPTOS_THROUGHPUT
   1723   1.48    itojun 	if (from.su_family == AF_INET) {
   1724   1.48    itojun 		int tos = IPTOS_THROUGHPUT;
   1725  1.130     lukem 		if (setsockopt(s, IPPROTO_IP, IP_TOS,
   1726  1.131     lukem 				(void *)&tos, sizeof(tos)) == -1) {
   1727  1.135  christos 			DWARN("setsockopt %s (ignored)", "IPTOS_THROUGHPUT");
   1728   1.48    itojun 		}
   1729   1.48    itojun 	}
   1730   1.92     lukem #endif
   1731    1.1       cgd 	return (fdopen(data, lmode));
   1732  1.128     lukem 
   1733  1.127     lukem  dataconn_failed:
   1734  1.127     lukem 	(void)close(data);
   1735  1.127     lukem 	data = -1;
   1736  1.127     lukem 	return (NULL);
   1737   1.14     lukem }
   1738   1.14     lukem 
   1739   1.14     lukem void
   1740   1.95     lukem psabort(int notused)
   1741    1.1       cgd {
   1742   1.81     lukem 	int oerrno = errno;
   1743    1.1       cgd 
   1744  1.126     lukem 	sigint_raised = 1;
   1745   1.22     lukem 	alarmtimer(0);
   1746    1.1       cgd 	abrtflag++;
   1747   1.81     lukem 	errno = oerrno;
   1748    1.1       cgd }
   1749    1.1       cgd 
   1750    1.6       cgd void
   1751   1.95     lukem pswitch(int flag)
   1752    1.1       cgd {
   1753   1.90     lukem 	sigfunc oldintr;
   1754    1.1       cgd 	static struct comvars {
   1755    1.1       cgd 		int connect;
   1756    1.1       cgd 		char name[MAXHOSTNAMELEN];
   1757  1.104     lukem 		struct sockinet mctl;
   1758  1.104     lukem 		struct sockinet hctl;
   1759    1.1       cgd 		FILE *in;
   1760    1.1       cgd 		FILE *out;
   1761    1.1       cgd 		int tpe;
   1762    1.1       cgd 		int curtpe;
   1763    1.1       cgd 		int cpnd;
   1764    1.1       cgd 		int sunqe;
   1765    1.1       cgd 		int runqe;
   1766    1.1       cgd 		int mcse;
   1767    1.1       cgd 		int ntflg;
   1768    1.1       cgd 		char nti[17];
   1769    1.1       cgd 		char nto[17];
   1770    1.1       cgd 		int mapflg;
   1771    1.1       cgd 		char mi[MAXPATHLEN];
   1772    1.1       cgd 		char mo[MAXPATHLEN];
   1773    1.1       cgd 	} proxstruct, tmpstruct;
   1774    1.1       cgd 	struct comvars *ip, *op;
   1775    1.1       cgd 
   1776    1.1       cgd 	abrtflag = 0;
   1777   1.67     lukem 	oldintr = xsignal(SIGINT, psabort);
   1778    1.1       cgd 	if (flag) {
   1779    1.1       cgd 		if (proxy)
   1780    1.1       cgd 			return;
   1781    1.1       cgd 		ip = &tmpstruct;
   1782    1.1       cgd 		op = &proxstruct;
   1783    1.1       cgd 		proxy++;
   1784    1.1       cgd 	} else {
   1785    1.1       cgd 		if (!proxy)
   1786    1.1       cgd 			return;
   1787    1.1       cgd 		ip = &proxstruct;
   1788    1.1       cgd 		op = &tmpstruct;
   1789    1.1       cgd 		proxy = 0;
   1790    1.1       cgd 	}
   1791    1.1       cgd 	ip->connect = connected;
   1792    1.1       cgd 	connected = op->connect;
   1793   1.68     lukem 	if (hostname)
   1794   1.68     lukem 		(void)strlcpy(ip->name, hostname, sizeof(ip->name));
   1795   1.68     lukem 	else
   1796   1.23     lukem 		ip->name[0] = '\0';
   1797    1.1       cgd 	hostname = op->name;
   1798    1.1       cgd 	ip->hctl = hisctladdr;
   1799    1.1       cgd 	hisctladdr = op->hctl;
   1800    1.1       cgd 	ip->mctl = myctladdr;
   1801    1.1       cgd 	myctladdr = op->mctl;
   1802    1.1       cgd 	ip->in = cin;
   1803    1.1       cgd 	cin = op->in;
   1804    1.1       cgd 	ip->out = cout;
   1805    1.1       cgd 	cout = op->out;
   1806    1.1       cgd 	ip->tpe = type;
   1807    1.1       cgd 	type = op->tpe;
   1808    1.1       cgd 	ip->curtpe = curtype;
   1809    1.1       cgd 	curtype = op->curtpe;
   1810    1.1       cgd 	ip->cpnd = cpend;
   1811    1.1       cgd 	cpend = op->cpnd;
   1812    1.1       cgd 	ip->sunqe = sunique;
   1813    1.1       cgd 	sunique = op->sunqe;
   1814    1.1       cgd 	ip->runqe = runique;
   1815    1.1       cgd 	runique = op->runqe;
   1816    1.1       cgd 	ip->mcse = mcase;
   1817    1.1       cgd 	mcase = op->mcse;
   1818    1.1       cgd 	ip->ntflg = ntflag;
   1819    1.1       cgd 	ntflag = op->ntflg;
   1820   1.68     lukem 	(void)strlcpy(ip->nti, ntin, sizeof(ip->nti));
   1821   1.68     lukem 	(void)strlcpy(ntin, op->nti, sizeof(ntin));
   1822   1.68     lukem 	(void)strlcpy(ip->nto, ntout, sizeof(ip->nto));
   1823   1.68     lukem 	(void)strlcpy(ntout, op->nto, sizeof(ntout));
   1824    1.1       cgd 	ip->mapflg = mapflag;
   1825    1.1       cgd 	mapflag = op->mapflg;
   1826   1.68     lukem 	(void)strlcpy(ip->mi, mapin, sizeof(ip->mi));
   1827   1.68     lukem 	(void)strlcpy(mapin, op->mi, sizeof(mapin));
   1828   1.68     lukem 	(void)strlcpy(ip->mo, mapout, sizeof(ip->mo));
   1829   1.68     lukem 	(void)strlcpy(mapout, op->mo, sizeof(mapout));
   1830   1.67     lukem 	(void)xsignal(SIGINT, oldintr);
   1831    1.1       cgd 	if (abrtflag) {
   1832    1.1       cgd 		abrtflag = 0;
   1833    1.1       cgd 		(*oldintr)(SIGINT);
   1834    1.1       cgd 	}
   1835    1.1       cgd }
   1836    1.1       cgd 
   1837  1.162     joerg __dead static void
   1838   1.95     lukem abortpt(int notused)
   1839    1.1       cgd {
   1840    1.6       cgd 
   1841  1.126     lukem 	sigint_raised = 1;
   1842   1.22     lukem 	alarmtimer(0);
   1843   1.84     lukem 	if (fromatty)
   1844   1.84     lukem 		write(fileno(ttyout), "\n", 1);
   1845    1.1       cgd 	ptabflg++;
   1846    1.1       cgd 	mflag = 0;
   1847    1.1       cgd 	abrtflag = 0;
   1848   1.81     lukem 	siglongjmp(ptabort, 1);
   1849    1.1       cgd }
   1850    1.1       cgd 
   1851    1.6       cgd void
   1852   1.95     lukem proxtrans(const char *cmd, const char *local, const char *remote)
   1853    1.1       cgd {
   1854  1.143  christos 	sigfunc volatile oldintr;
   1855   1.26     lukem 	int prox_type, nfnd;
   1856  1.143  christos 	int volatile secndflag;
   1857  1.158     lukem 	const char *volatile cmd2;
   1858   1.26     lukem 
   1859   1.26     lukem 	oldintr = NULL;
   1860   1.26     lukem 	secndflag = 0;
   1861    1.1       cgd 	if (strcmp(cmd, "RETR"))
   1862    1.1       cgd 		cmd2 = "RETR";
   1863    1.1       cgd 	else
   1864    1.1       cgd 		cmd2 = runique ? "STOU" : "STOR";
   1865    1.1       cgd 	if ((prox_type = type) == 0) {
   1866    1.1       cgd 		if (unix_server && unix_proxy)
   1867    1.1       cgd 			prox_type = TYPE_I;
   1868    1.1       cgd 		else
   1869    1.1       cgd 			prox_type = TYPE_A;
   1870    1.1       cgd 	}
   1871    1.1       cgd 	if (curtype != prox_type)
   1872    1.1       cgd 		changetype(prox_type, 1);
   1873    1.1       cgd 	if (command("PASV") != COMPLETE) {
   1874   1.35     lukem 		fputs("proxy server does not support third party transfers.\n",
   1875   1.35     lukem 		    ttyout);
   1876    1.1       cgd 		return;
   1877    1.1       cgd 	}
   1878    1.1       cgd 	pswitch(0);
   1879    1.1       cgd 	if (!connected) {
   1880   1.35     lukem 		fputs("No primary connection.\n", ttyout);
   1881    1.1       cgd 		pswitch(1);
   1882    1.1       cgd 		code = -1;
   1883    1.1       cgd 		return;
   1884    1.1       cgd 	}
   1885    1.1       cgd 	if (curtype != prox_type)
   1886    1.1       cgd 		changetype(prox_type, 1);
   1887    1.1       cgd 	if (command("PORT %s", pasv) != COMPLETE) {
   1888    1.1       cgd 		pswitch(1);
   1889    1.1       cgd 		return;
   1890    1.1       cgd 	}
   1891   1.81     lukem 	if (sigsetjmp(ptabort, 1))
   1892    1.1       cgd 		goto abort;
   1893   1.67     lukem 	oldintr = xsignal(SIGINT, abortpt);
   1894   1.41     lukem 	if ((restart_point &&
   1895  1.107     lukem 	    (command("REST " LLF, (LLT) restart_point) != CONTINUE))
   1896  1.103     lukem 	    || (command("%s %s", cmd, remote) != PRELIM)) {
   1897   1.67     lukem 		(void)xsignal(SIGINT, oldintr);
   1898    1.1       cgd 		pswitch(1);
   1899    1.1       cgd 		return;
   1900    1.1       cgd 	}
   1901    1.1       cgd 	sleep(2);
   1902    1.1       cgd 	pswitch(1);
   1903    1.1       cgd 	secndflag++;
   1904   1.41     lukem 	if ((restart_point &&
   1905  1.107     lukem 	    (command("REST " LLF, (LLT) restart_point) != CONTINUE))
   1906  1.103     lukem 	    || (command("%s %s", cmd2, local) != PRELIM))
   1907    1.1       cgd 		goto abort;
   1908    1.1       cgd 	ptflag++;
   1909   1.23     lukem 	(void)getreply(0);
   1910    1.1       cgd 	pswitch(0);
   1911   1.23     lukem 	(void)getreply(0);
   1912   1.67     lukem 	(void)xsignal(SIGINT, oldintr);
   1913    1.1       cgd 	pswitch(1);
   1914    1.1       cgd 	ptflag = 0;
   1915   1.35     lukem 	fprintf(ttyout, "local: %s remote: %s\n", local, remote);
   1916    1.1       cgd 	return;
   1917  1.102     lukem  abort:
   1918   1.82     lukem 	if (sigsetjmp(xferabort, 1)) {
   1919   1.82     lukem 		(void)xsignal(SIGINT, oldintr);
   1920   1.82     lukem 		return;
   1921   1.82     lukem 	}
   1922   1.82     lukem 	(void)xsignal(SIGINT, abort_squared);
   1923    1.1       cgd 	ptflag = 0;
   1924    1.1       cgd 	if (strcmp(cmd, "RETR") && !proxy)
   1925    1.1       cgd 		pswitch(1);
   1926    1.1       cgd 	else if (!strcmp(cmd, "RETR") && proxy)
   1927    1.1       cgd 		pswitch(0);
   1928    1.1       cgd 	if (!cpend && !secndflag) {  /* only here if cmd = "STOR" (proxy=1) */
   1929    1.1       cgd 		if (command("%s %s", cmd2, local) != PRELIM) {
   1930    1.1       cgd 			pswitch(0);
   1931    1.1       cgd 			if (cpend)
   1932   1.31     lukem 				abort_remote(NULL);
   1933    1.1       cgd 		}
   1934    1.1       cgd 		pswitch(1);
   1935    1.1       cgd 		if (ptabflg)
   1936    1.1       cgd 			code = -1;
   1937   1.67     lukem 		(void)xsignal(SIGINT, oldintr);
   1938    1.1       cgd 		return;
   1939    1.1       cgd 	}
   1940    1.1       cgd 	if (cpend)
   1941   1.31     lukem 		abort_remote(NULL);
   1942    1.1       cgd 	pswitch(!proxy);
   1943    1.1       cgd 	if (!cpend && !secndflag) {  /* only if cmd = "RETR" (proxy=1) */
   1944    1.1       cgd 		if (command("%s %s", cmd2, local) != PRELIM) {
   1945    1.1       cgd 			pswitch(0);
   1946    1.1       cgd 			if (cpend)
   1947   1.31     lukem 				abort_remote(NULL);
   1948    1.1       cgd 			pswitch(1);
   1949    1.1       cgd 			if (ptabflg)
   1950    1.1       cgd 				code = -1;
   1951   1.67     lukem 			(void)xsignal(SIGINT, oldintr);
   1952    1.1       cgd 			return;
   1953    1.1       cgd 		}
   1954    1.1       cgd 	}
   1955    1.1       cgd 	if (cpend)
   1956   1.31     lukem 		abort_remote(NULL);
   1957    1.1       cgd 	pswitch(!proxy);
   1958    1.1       cgd 	if (cpend) {
   1959   1.45  christos 		if ((nfnd = empty(cin, NULL, 10)) <= 0) {
   1960   1.85     lukem 			if (nfnd < 0)
   1961  1.147     lukem 				warn("Error aborting proxy command");
   1962    1.1       cgd 			if (ptabflg)
   1963    1.1       cgd 				code = -1;
   1964   1.85     lukem 			lostpeer(0);
   1965    1.1       cgd 		}
   1966   1.23     lukem 		(void)getreply(0);
   1967   1.23     lukem 		(void)getreply(0);
   1968    1.1       cgd 	}
   1969    1.1       cgd 	if (proxy)
   1970    1.1       cgd 		pswitch(0);
   1971    1.1       cgd 	pswitch(1);
   1972    1.1       cgd 	if (ptabflg)
   1973    1.1       cgd 		code = -1;
   1974   1.67     lukem 	(void)xsignal(SIGINT, oldintr);
   1975    1.1       cgd }
   1976    1.1       cgd 
   1977    1.6       cgd void
   1978   1.95     lukem reset(int argc, char *argv[])
   1979    1.1       cgd {
   1980    1.1       cgd 	int nfnd = 1;
   1981    1.1       cgd 
   1982   1.85     lukem 	if (argc == 0 && argv != NULL) {
   1983  1.135  christos 		UPRINTF("usage: %s\n", argv[0]);
   1984   1.85     lukem 		code = -1;
   1985   1.85     lukem 		return;
   1986   1.85     lukem 	}
   1987    1.1       cgd 	while (nfnd > 0) {
   1988   1.45  christos 		if ((nfnd = empty(cin, NULL, 0)) < 0) {
   1989  1.147     lukem 			warn("Error resetting connection");
   1990    1.1       cgd 			code = -1;
   1991   1.85     lukem 			lostpeer(0);
   1992   1.85     lukem 		} else if (nfnd)
   1993   1.23     lukem 			(void)getreply(0);
   1994    1.1       cgd 	}
   1995    1.1       cgd }
   1996    1.1       cgd 
   1997    1.1       cgd char *
   1998   1.95     lukem gunique(const char *local)
   1999    1.1       cgd {
   2000    1.1       cgd 	static char new[MAXPATHLEN];
   2001    1.6       cgd 	char *cp = strrchr(local, '/');
   2002   1.68     lukem 	int d, count=0, len;
   2003    1.1       cgd 	char ext = '1';
   2004    1.1       cgd 
   2005    1.1       cgd 	if (cp)
   2006    1.1       cgd 		*cp = '\0';
   2007   1.28     lukem 	d = access(cp == local ? "/" : cp ? local : ".", W_OK);
   2008    1.1       cgd 	if (cp)
   2009    1.1       cgd 		*cp = '/';
   2010    1.1       cgd 	if (d < 0) {
   2011  1.147     lukem 		warn("Can't access `%s'", local);
   2012   1.31     lukem 		return (NULL);
   2013    1.1       cgd 	}
   2014   1.68     lukem 	len = strlcpy(new, local, sizeof(new));
   2015   1.68     lukem 	cp = &new[len];
   2016  1.128     lukem 	*cp++ = '.';
   2017    1.1       cgd 	while (!d) {
   2018    1.1       cgd 		if (++count == 100) {
   2019   1.35     lukem 			fputs("runique: can't find unique file name.\n",
   2020   1.35     lukem 			    ttyout);
   2021   1.31     lukem 			return (NULL);
   2022    1.1       cgd 		}
   2023    1.1       cgd 		*cp++ = ext;
   2024    1.1       cgd 		*cp = '\0';
   2025    1.1       cgd 		if (ext == '9')
   2026    1.1       cgd 			ext = '0';
   2027    1.1       cgd 		else
   2028    1.1       cgd 			ext++;
   2029   1.28     lukem 		if ((d = access(new, F_OK)) < 0)
   2030    1.1       cgd 			break;
   2031    1.1       cgd 		if (ext != '0')
   2032    1.1       cgd 			cp--;
   2033    1.1       cgd 		else if (*(cp - 2) == '.')
   2034    1.1       cgd 			*(cp - 1) = '1';
   2035    1.1       cgd 		else {
   2036    1.1       cgd 			*(cp - 2) = *(cp - 2) + 1;
   2037    1.1       cgd 			cp--;
   2038    1.1       cgd 		}
   2039    1.1       cgd 	}
   2040    1.6       cgd 	return (new);
   2041   1.82     lukem }
   2042   1.82     lukem 
   2043   1.82     lukem /*
   2044   1.82     lukem  * abort_squared --
   2045   1.82     lukem  *	aborts abort_remote(). lostpeer() is called because if the user is
   2046   1.82     lukem  *	too impatient to wait or there's another problem then ftp really
   2047   1.82     lukem  *	needs to get back to a known state.
   2048   1.82     lukem  */
   2049  1.162     joerg static void
   2050   1.95     lukem abort_squared(int dummy)
   2051   1.82     lukem {
   2052   1.82     lukem 	char msgbuf[100];
   2053  1.132     lukem 	size_t len;
   2054   1.82     lukem 
   2055  1.126     lukem 	sigint_raised = 1;
   2056   1.82     lukem 	alarmtimer(0);
   2057   1.82     lukem 	len = strlcpy(msgbuf, "\nremote abort aborted; closing connection.\n",
   2058   1.82     lukem 	    sizeof(msgbuf));
   2059   1.82     lukem 	write(fileno(ttyout), msgbuf, len);
   2060   1.85     lukem 	lostpeer(0);
   2061   1.82     lukem 	siglongjmp(xferabort, 1);
   2062    1.1       cgd }
   2063    1.1       cgd 
   2064    1.6       cgd void
   2065   1.95     lukem abort_remote(FILE *din)
   2066    1.1       cgd {
   2067  1.167     joerg 	unsigned char buf[BUFSIZ];
   2068    1.1       cgd 	int nfnd;
   2069    1.1       cgd 
   2070   1.23     lukem 	if (cout == NULL) {
   2071  1.147     lukem 		warnx("Lost control connection for abort");
   2072   1.23     lukem 		if (ptabflg)
   2073   1.23     lukem 			code = -1;
   2074   1.85     lukem 		lostpeer(0);
   2075   1.23     lukem 		return;
   2076   1.23     lukem 	}
   2077    1.1       cgd 	/*
   2078    1.1       cgd 	 * send IAC in urgent mode instead of DM because 4.3BSD places oob mark
   2079    1.1       cgd 	 * after urgent byte rather than before as is protocol now
   2080    1.1       cgd 	 */
   2081   1.63     lukem 	buf[0] = IAC;
   2082   1.63     lukem 	buf[1] = IP;
   2083   1.63     lukem 	buf[2] = IAC;
   2084    1.1       cgd 	if (send(fileno(cout), buf, 3, MSG_OOB) != 3)
   2085  1.147     lukem 		warn("Can't send abort message");
   2086   1.15     lukem 	fprintf(cout, "%cABOR\r\n", DM);
   2087   1.23     lukem 	(void)fflush(cout);
   2088   1.45  christos 	if ((nfnd = empty(cin, din, 10)) <= 0) {
   2089   1.85     lukem 		if (nfnd < 0)
   2090  1.147     lukem 			warn("Can't send abort message");
   2091    1.1       cgd 		if (ptabflg)
   2092    1.1       cgd 			code = -1;
   2093   1.85     lukem 		lostpeer(0);
   2094    1.1       cgd 	}
   2095   1.45  christos 	if (din && (nfnd & 2)) {
   2096    1.1       cgd 		while (read(fileno(din), buf, BUFSIZ) > 0)
   2097   1.45  christos 			continue;
   2098    1.1       cgd 	}
   2099    1.1       cgd 	if (getreply(0) == ERROR && code == 552) {
   2100    1.1       cgd 		/* 552 needed for nic style abort */
   2101   1.23     lukem 		(void)getreply(0);
   2102    1.1       cgd 	}
   2103   1.23     lukem 	(void)getreply(0);
   2104   1.96    itojun }
   2105   1.96    itojun 
   2106  1.147     lukem /*
   2107  1.147     lukem  * Ensure that ai->ai_addr is NOT an IPv4 mapped address.
   2108  1.147     lukem  * IPv4 mapped address complicates too many things in FTP
   2109  1.147     lukem  * protocol handling, as FTP protocol is defined differently
   2110  1.147     lukem  * between IPv4 and IPv6.
   2111  1.147     lukem  *
   2112  1.147     lukem  * This may not be the best way to handle this situation,
   2113  1.147     lukem  * since the semantics of IPv4 mapped address is defined in
   2114  1.147     lukem  * the kernel.  There are configurations where we should use
   2115  1.147     lukem  * IPv4 mapped address as native IPv6 address, not as
   2116  1.147     lukem  * "an IPv6 address that embeds IPv4 address" (namely, SIIT).
   2117  1.147     lukem  *
   2118  1.147     lukem  * More complete solution would be to have an additional
   2119  1.147     lukem  * getsockopt to grab "real" peername/sockname.  "real"
   2120  1.147     lukem  * peername/sockname will be AF_INET if IPv4 mapped address
   2121  1.147     lukem  * is used to embed IPv4 address, and will be AF_INET6 if
   2122  1.147     lukem  * we use it as native.  What a mess!
   2123  1.147     lukem  */
   2124   1.96    itojun void
   2125   1.96    itojun ai_unmapped(struct addrinfo *ai)
   2126   1.96    itojun {
   2127   1.98     lukem #ifdef INET6
   2128   1.96    itojun 	struct sockaddr_in6 *sin6;
   2129   1.96    itojun 	struct sockaddr_in sin;
   2130  1.132     lukem 	socklen_t len;
   2131   1.96    itojun 
   2132   1.96    itojun 	if (ai->ai_family != AF_INET6)
   2133   1.96    itojun 		return;
   2134   1.96    itojun 	if (ai->ai_addrlen != sizeof(struct sockaddr_in6) ||
   2135   1.96    itojun 	    sizeof(sin) > ai->ai_addrlen)
   2136   1.96    itojun 		return;
   2137   1.96    itojun 	sin6 = (struct sockaddr_in6 *)ai->ai_addr;
   2138   1.96    itojun 	if (!IN6_IS_ADDR_V4MAPPED(&sin6->sin6_addr))
   2139   1.96    itojun 		return;
   2140   1.96    itojun 
   2141   1.96    itojun 	memset(&sin, 0, sizeof(sin));
   2142   1.96    itojun 	sin.sin_family = AF_INET;
   2143   1.99     lukem 	len = sizeof(struct sockaddr_in);
   2144   1.96    itojun 	memcpy(&sin.sin_addr, &sin6->sin6_addr.s6_addr[12],
   2145   1.96    itojun 	    sizeof(sin.sin_addr));
   2146   1.96    itojun 	sin.sin_port = sin6->sin6_port;
   2147   1.96    itojun 
   2148   1.96    itojun 	ai->ai_family = AF_INET;
   2149  1.153     lukem #if defined(HAVE_STRUCT_SOCKADDR_IN_SIN_LEN)
   2150   1.99     lukem 	sin.sin_len = len;
   2151   1.99     lukem #endif
   2152   1.99     lukem 	memcpy(ai->ai_addr, &sin, len);
   2153   1.99     lukem 	ai->ai_addrlen = len;
   2154   1.98     lukem #endif
   2155    1.1       cgd }
   2156  1.135  christos 
   2157  1.135  christos #ifdef NO_USAGE
   2158  1.135  christos void
   2159  1.135  christos xusage(void)
   2160  1.135  christos {
   2161  1.135  christos 	fputs("Usage error\n", ttyout);
   2162  1.135  christos }
   2163  1.135  christos #endif
   2164