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