xref: /netbsd-src/usr.bin/ftp/main.c (revision a517ed94aa0567780fd3685e2b42fcfebfbe0a45)
1 /*	$NetBSD: main.c,v 1.135 2024/11/29 07:24:04 lukem Exp $	*/
2 
3 /*-
4  * Copyright (c) 1996-2024 The NetBSD Foundation, Inc.
5  * All rights reserved.
6  *
7  * This code is derived from software contributed to The NetBSD Foundation
8  * by Luke Mewburn.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29  * POSSIBILITY OF SUCH DAMAGE.
30  */
31 
32 /*
33  * Copyright (c) 1985, 1989, 1993, 1994
34  *	The Regents of the University of California.  All rights reserved.
35  *
36  * Redistribution and use in source and binary forms, with or without
37  * modification, are permitted provided that the following conditions
38  * are met:
39  * 1. Redistributions of source code must retain the above copyright
40  *    notice, this list of conditions and the following disclaimer.
41  * 2. Redistributions in binary form must reproduce the above copyright
42  *    notice, this list of conditions and the following disclaimer in the
43  *    documentation and/or other materials provided with the distribution.
44  * 3. Neither the name of the University nor the names of its contributors
45  *    may be used to endorse or promote products derived from this software
46  *    without specific prior written permission.
47  *
48  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
49  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
50  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
51  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
52  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
53  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
54  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
55  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
56  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
57  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
58  * SUCH DAMAGE.
59  */
60 
61 /*
62  * Copyright (C) 1997 and 1998 WIDE Project.
63  * All rights reserved.
64  *
65  * Redistribution and use in source and binary forms, with or without
66  * modification, are permitted provided that the following conditions
67  * are met:
68  * 1. Redistributions of source code must retain the above copyright
69  *    notice, this list of conditions and the following disclaimer.
70  * 2. Redistributions in binary form must reproduce the above copyright
71  *    notice, this list of conditions and the following disclaimer in the
72  *    documentation and/or other materials provided with the distribution.
73  * 3. Neither the name of the project nor the names of its contributors
74  *    may be used to endorse or promote products derived from this software
75  *    without specific prior written permission.
76  *
77  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
78  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
79  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
80  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
81  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
82  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
83  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
84  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
85  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
86  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
87  * SUCH DAMAGE.
88  */
89 
90 #include <sys/cdefs.h>
91 #ifndef lint
92 __COPYRIGHT("@(#) Copyright (c) 1985, 1989, 1993, 1994\
93  The Regents of the University of California.  All rights reserved.\
94   Copyright 1996-2015 The NetBSD Foundation, Inc.  All rights reserved");
95 #endif /* not lint */
96 
97 #ifndef lint
98 #if 0
99 static char sccsid[] = "@(#)main.c	8.6 (Berkeley) 10/9/94";
100 #else
101 __RCSID("$NetBSD: main.c,v 1.135 2024/11/29 07:24:04 lukem Exp $");
102 #endif
103 #endif /* not lint */
104 
105 /*
106  * FTP User Program -- Command Interface.
107  */
108 #include <sys/types.h>
109 #include <sys/socket.h>
110 
111 #include <err.h>
112 #include <errno.h>
113 #include <netdb.h>
114 #include <paths.h>
115 #include <pwd.h>
116 #include <signal.h>
117 #include <stdio.h>
118 #include <stdlib.h>
119 #include <string.h>
120 #include <time.h>
121 #include <unistd.h>
122 #include <locale.h>
123 
124 #define	GLOBAL		/* force GLOBAL decls in ftp_var.h to be declared */
125 #include "ftp_var.h"
126 
127 #define	FTP_PROXY	"ftp_proxy"	/* env var with FTP proxy location */
128 #define	HTTP_PROXY	"http_proxy"	/* env var with HTTP proxy location */
129 #define	HTTPS_PROXY	"https_proxy"	/* env var with HTTPS proxy location */
130 #define	NO_PROXY	"no_proxy"	/* env var with list of non-proxied
131 					 * hosts, comma or space separated */
132 
133 static int	usage(void);
134 static int	usage_help(void);
135 static void	setupoption(const char *, const char *, const char *);
136 
137 struct http_headers custom_headers;
138 
139 int
140 main(int volatile argc, char **volatile argv)
141 {
142 	int ch, rval;
143 	struct passwd *pw;
144 	struct entry *p;
145 	char *cp, *ep, *anonpass, *upload_path, *src_addr;
146 	const char *anonuser;
147 	int dumbterm, isupload;
148 	size_t len;
149 
150 	tzset();
151 	setlocale(LC_ALL, "");
152 	setprogname(argv[0]);
153 
154 	sigint_raised = 0;
155 
156 	ftpport = "ftp";
157 	httpport = "http";
158 #ifdef WITH_SSL
159 	httpsport = "https";
160 #endif
161 	gateport = NULL;
162 	cp = getenv("FTPSERVERPORT");
163 	if (cp != NULL)
164 		gateport = cp;
165 	else
166 		gateport = "ftpgate";
167 	doglob = 1;
168 	interactive = 1;
169 	autologin = 1;
170 	passivemode = 1;
171 	activefallback = 1;
172 	preserve = 1;
173 	verbose = 0;
174 	progress = 0;
175 	gatemode = 0;
176 	data = -1;
177 	outfile = NULL;
178 	restartautofetch = 0;
179 #ifndef NO_EDITCOMPLETE
180 	editing = 0;
181 	el = NULL;
182 	hist = NULL;
183 #endif
184 	bytes = 0;
185 	mark = HASHBYTES;
186 	rate_get = 0;
187 	rate_get_incr = DEFAULTINCR;
188 	rate_put = 0;
189 	rate_put_incr = DEFAULTINCR;
190 #ifdef INET6
191 	epsv4 = 1;
192 	epsv6 = 1;
193 #else
194 	epsv4 = 0;
195 	epsv6 = 0;
196 #endif
197 	epsv4bad = 0;
198 	epsv6bad = 0;
199 	src_addr = NULL;
200 	upload_path = NULL;
201 	isupload = 0;
202 	reply_callback = NULL;
203 #ifdef INET6
204 	family = AF_UNSPEC;
205 #else
206 	family = AF_INET;	/* force AF_INET if no INET6 support */
207 #endif
208 
209 	netrc[0] = '\0';
210 	cp = getenv("NETRC");
211 	if (cp != NULL && strlcpy(netrc, cp, sizeof(netrc)) >= sizeof(netrc))
212 		errx(1, "$NETRC `%s': %s", cp, strerror(ENAMETOOLONG));
213 
214 	marg_sl = ftp_sl_init();
215 	if ((tmpdir = getenv("TMPDIR")) == NULL)
216 		tmpdir = _PATH_TMP;
217 
218 	/* Set default operation mode based on FTPMODE environment variable */
219 	if ((cp = getenv("FTPMODE")) != NULL) {
220 		if (strcasecmp(cp, "passive") == 0) {
221 			passivemode = 1;
222 			activefallback = 0;
223 		} else if (strcasecmp(cp, "active") == 0) {
224 			passivemode = 0;
225 			activefallback = 0;
226 		} else if (strcasecmp(cp, "gate") == 0) {
227 			gatemode = 1;
228 		} else if (strcasecmp(cp, "auto") == 0) {
229 			passivemode = 1;
230 			activefallback = 1;
231 		} else
232 			warnx("Unknown $FTPMODE `%s'; using defaults", cp);
233 	}
234 
235 	if (strcmp(getprogname(), "pftp") == 0) {
236 		passivemode = 1;
237 		activefallback = 0;
238 	} else if (strcmp(getprogname(), "gate-ftp") == 0)
239 		gatemode = 1;
240 
241 	gateserver = getenv("FTPSERVER");
242 	if (gateserver == NULL || *gateserver == '\0')
243 		gateserver = GATE_SERVER;
244 	if (gatemode) {
245 		if (*gateserver == '\0') {
246 			warnx(
247 "Neither $FTPSERVER nor GATE_SERVER is defined; disabling gate-ftp");
248 			gatemode = 0;
249 		}
250 	}
251 
252 	cp = getenv("TERM");
253 	if (cp == NULL || strcmp(cp, "dumb") == 0)
254 		dumbterm = 1;
255 	else
256 		dumbterm = 0;
257 	fromatty = isatty(fileno(stdin));
258 	ttyout = stdout;
259 	if (isatty(fileno(ttyout))) {
260 		verbose = 1;		/* verbose if to a tty */
261 		if (! dumbterm) {
262 #ifndef NO_EDITCOMPLETE
263 			if (fromatty)	/* editing mode on if tty is usable */
264 				editing = 1;
265 #endif
266 #ifndef NO_PROGRESS
267 			if (foregroundproc())
268 				progress = 1;	/* progress bar on if fg */
269 #endif
270 		}
271 	}
272 
273 	SLIST_INIT(&custom_headers);
274 	while ((ch = getopt(argc, argv, ":46Aab:defgH:iN:no:P:pq:Rr:s:T:tu:Vvx:")) != -1) {
275 		switch (ch) {
276 		case '4':
277 			family = AF_INET;
278 			break;
279 
280 		case '6':
281 #ifdef INET6
282 			family = AF_INET6;
283 #else
284 			warnx("INET6 support is not available; ignoring -6");
285 #endif
286 			break;
287 
288 		case 'A':
289 			activefallback = 0;
290 			passivemode = 0;
291 			break;
292 
293 		case 'a':
294 			anonftp = 1;
295 			break;
296 
297 		case 'b':
298 			ftp_buflen = strtol(optarg, &ep, 0);
299 			if (ftp_buflen < 1 || *ep != '\0')
300 				errx(1, "Bad buflen value: %s", optarg);
301 			break;
302 
303 		case 'd':
304 			options |= SO_DEBUG;
305 			ftp_debug++;
306 			break;
307 
308 		case 'e':
309 #ifndef NO_EDITCOMPLETE
310 			editing = 0;
311 #endif
312 			break;
313 
314 		case 'f':
315 			flushcache = 1;
316 			break;
317 
318 		case 'g':
319 			doglob = 0;
320 			break;
321 
322 		case 'H':
323 			p = ftp_malloc(sizeof(*p));
324 			p->header = ftp_strdup(optarg);
325 			SLIST_INSERT_HEAD(&custom_headers, p, entries);
326 			break;
327 
328 		case 'i':
329 			interactive = 0;
330 			break;
331 
332 		case 'N':
333 			if (strlcpy(netrc, optarg, sizeof(netrc))
334 			    >= sizeof(netrc))
335 				errx(1, "%s: %s", optarg,
336 				    strerror(ENAMETOOLONG));
337 			break;
338 
339 		case 'n':
340 			autologin = 0;
341 			break;
342 
343 		case 'o':
344 			outfile = ftp_strdup(optarg);
345 			if (strcmp(outfile, "-") == 0)
346 				ttyout = stderr;
347 			break;
348 
349 		case 'P':
350 			ftpport = optarg;
351 			break;
352 
353 		case 'p':
354 			passivemode = 1;
355 			activefallback = 0;
356 			break;
357 
358 		case 'q':
359 			quit_time = (int)strtol(optarg, &ep, 10);
360 			if (quit_time < 1 || *ep != '\0')
361 				errx(1, "Bad quit value: %s", optarg);
362 			break;
363 
364 		case 'R':
365 			restartautofetch = 1;
366 			break;
367 
368 		case 'r':
369 			retry_connect = (int)strtol(optarg, &ep, 10);
370 			if (retry_connect < 1 || *ep != '\0')
371 				errx(1, "Bad retry value: %s", optarg);
372 			break;
373 
374 		case 's':
375 			src_addr = optarg;
376 			break;
377 
378 		case 'T':
379 		{
380 			int targc;
381 			char *targv[6], *oac;
382 			char cmdbuf[MAX_C_NAME];
383 
384 				/* look for `dir,max[,incr]' */
385 			targc = 0;
386 			(void)strlcpy(cmdbuf, "-T", sizeof(cmdbuf));
387 			targv[targc++] = cmdbuf;
388 			oac = ftp_strdup(optarg);
389 
390 			while ((cp = strsep(&oac, ",")) != NULL) {
391 				if (*cp == '\0') {
392 					warnx("Bad throttle value `%s'",
393 					    optarg);
394 					return usage();
395 				}
396 				targv[targc++] = cp;
397 				if (targc >= 5)
398 					break;
399 			}
400 			if (parserate(targc, targv, 1) == -1) {
401 				return usage();
402 			}
403 			free(oac);
404 			break;
405 		}
406 
407 		case 't':
408 			trace = 1;
409 			break;
410 
411 		case 'u':
412 		{
413 			isupload = 1;
414 			interactive = 0;
415 			upload_path = ftp_strdup(optarg);
416 
417 			break;
418 		}
419 
420 		case 'V':
421 			progress = verbose = 0;
422 			break;
423 
424 		case 'v':
425 			progress = verbose = 1;
426 			break;
427 
428 		case 'x':
429 			sndbuf_size = strsuftoi(optarg);
430 			if (sndbuf_size < 1)
431 				errx(1, "Bad xferbuf value: %s", optarg);
432 			rcvbuf_size = sndbuf_size;
433 			break;
434 
435 		case '?':
436 			if (optopt == '?') {
437 				return usage_help();
438 			}
439 			warnx("-%c: unknown option", optopt);
440 			return usage();
441 
442 		case ':':
443 			warnx("-%c: missing argument", optopt);
444 			return usage();
445 
446 		default:
447 			errx(1, "unimplemented option -%c", ch);
448 		}
449 	}
450 			/* set line buffering on ttyout */
451 	setvbuf(ttyout, NULL, _IOLBF, 0);
452 	argc -= optind;
453 	argv += optind;
454 
455 	cpend = 0;	/* no pending replies */
456 	proxy = 0;	/* proxy not active */
457 	crflag = 1;	/* strip c.r. on ascii gets */
458 	sendport = -1;	/* not using ports */
459 
460 	if (src_addr != NULL) {
461 		struct addrinfo hints;
462 		int error;
463 
464 		memset(&hints, 0, sizeof(hints));
465 		hints.ai_family = family;
466 		hints.ai_socktype = SOCK_STREAM;
467 		hints.ai_flags = AI_PASSIVE;
468 		error = getaddrinfo(src_addr, NULL, &hints, &bindai);
469 		if (error) {
470 		    	errx(1, "Can't lookup `%s': %s", src_addr,
471 			    (error == EAI_SYSTEM) ? strerror(errno)
472 						  : gai_strerror(error));
473 		}
474 	}
475 
476 	/*
477 	 * Cache the user name and home directory.
478 	 */
479 	localhome = NULL;
480 	localname = NULL;
481 	anonuser = "anonymous";
482 	cp = getenv("HOME");
483 	if (! EMPTYSTRING(cp))
484 		localhome = ftp_strdup(cp);
485 	pw = NULL;
486 	cp = getlogin();
487 	if (cp != NULL)
488 		pw = getpwnam(cp);
489 	if (pw == NULL)
490 		pw = getpwuid(getuid());
491 	if (pw != NULL) {
492 		if (localhome == NULL && !EMPTYSTRING(pw->pw_dir))
493 			localhome = ftp_strdup(pw->pw_dir);
494 		localname = ftp_strdup(pw->pw_name);
495 	}
496 	if (netrc[0] == '\0' && localhome != NULL) {
497 		if (strlcpy(netrc, localhome, sizeof(netrc)) >= sizeof(netrc) ||
498 		    strlcat(netrc, "/.netrc", sizeof(netrc)) >= sizeof(netrc)) {
499 			warnx("%s/.netrc: %s", localhome,
500 			    strerror(ENAMETOOLONG));
501 			netrc[0] = '\0';
502 		}
503 	}
504 	if (localhome == NULL)
505 		localhome = ftp_strdup("/");
506 
507 	/*
508 	 * Every anonymous FTP server I've encountered will accept the
509 	 * string "username@", and will append the hostname itself. We
510 	 * do this by default since many servers are picky about not
511 	 * having a FQDN in the anonymous password.
512 	 * - thorpej@NetBSD.org
513 	 */
514 	len = strlen(anonuser) + 2;
515 	anonpass = ftp_malloc(len);
516 	(void)strlcpy(anonpass, anonuser, len);
517 	(void)strlcat(anonpass, "@",	  len);
518 
519 			/*
520 			 * set all the defaults for options defined in
521 			 * struct option optiontab[]  declared in cmdtab.c
522 			 */
523 	setupoption("anonpass",		getenv("FTPANONPASS"),	anonpass);
524 	setupoption("ftp_proxy",	getenv(FTP_PROXY),	"");
525 	setupoption("http_proxy",	getenv(HTTP_PROXY),	"");
526 	setupoption("https_proxy",	getenv(HTTPS_PROXY),	"");
527 	setupoption("no_proxy",		getenv(NO_PROXY),	"");
528 	setupoption("pager",		getenv("PAGER"),	DEFAULTPAGER);
529 	setupoption("prompt",		getenv("FTPPROMPT"),	DEFAULTPROMPT);
530 	setupoption("rprompt",		getenv("FTPRPROMPT"),	DEFAULTRPROMPT);
531 	setupoption("sslnoverify",   	getenv("FTPSSLNOVERIFY"),	"");
532 
533 	free(anonpass);
534 
535 	setttywidth(0);
536 #ifdef SIGINFO
537 	(void)xsignal(SIGINFO, psummary);
538 #endif
539 	(void)xsignal(SIGQUIT, psummary);
540 	(void)xsignal(SIGUSR1, crankrate);
541 	(void)xsignal(SIGUSR2, crankrate);
542 	(void)xsignal(SIGWINCH, setttywidth);
543 
544 	if (argc > 0) {
545 		if (isupload) {
546 			rval = auto_put(argc, argv, upload_path);
547  sigint_or_rval_exit:
548 			if (sigint_raised) {
549 				(void)xsignal(SIGINT, SIG_DFL);
550 				raise(SIGINT);
551 			}
552 			exit(rval);
553 		} else if (strchr(argv[0], ':') != NULL
554 			    && ! isipv6addr(argv[0])) {
555 			rval = auto_fetch(argc, argv);
556 			if (rval >= 0)		/* -1 == connected and cd-ed */
557 				goto sigint_or_rval_exit;
558 		} else {
559 			char *xargv[4], *uuser, *host;
560 			char cmdbuf[MAXPATHLEN];
561 
562 			if ((rval = sigsetjmp(toplevel, 1)))
563 				goto sigint_or_rval_exit;
564 			(void)xsignal(SIGINT, intr);
565 			(void)xsignal(SIGPIPE, lostpeer);
566 			uuser = NULL;
567 			host = argv[0];
568 			cp = strchr(host, '@');
569 			if (cp) {
570 				*cp = '\0';
571 				uuser = host;
572 				host = cp + 1;
573 			}
574 			(void)strlcpy(cmdbuf, getprogname(), sizeof(cmdbuf));
575 			xargv[0] = cmdbuf;
576 			xargv[1] = host;
577 			xargv[2] = argv[1];
578 			xargv[3] = NULL;
579 			do {
580 				int oautologin;
581 
582 				oautologin = autologin;
583 				if (uuser != NULL) {
584 					anonftp = 0;
585 					autologin = 0;
586 				}
587 				setpeer(argc+1, xargv);
588 				autologin = oautologin;
589 				if (connected == 1 && uuser != NULL)
590 					(void)ftp_login(host, uuser, NULL);
591 				if (!retry_connect)
592 					break;
593 				if (!connected) {
594 					macnum = 0;
595 					fprintf(ttyout,
596 					    "Retrying in %d seconds...\n",
597 					    retry_connect);
598 					sleep(retry_connect);
599 				}
600 			} while (!connected);
601 			retry_connect = 0; /* connected, stop hiding msgs */
602 		}
603 	}
604 	if (isupload) {
605 		return usage();
606 	}
607 
608 #ifndef NO_EDITCOMPLETE
609 	controlediting();
610 #endif /* !NO_EDITCOMPLETE */
611 
612 	(void)sigsetjmp(toplevel, 1);
613 	(void)xsignal(SIGINT, intr);
614 	(void)xsignal(SIGPIPE, lostpeer);
615 	for (;;)
616 		cmdscanner();
617 }
618 
619 /*
620  * Generate a prompt
621  */
622 char *
623 prompt(void)
624 {
625 	static char	**promptopt;
626 	static char	  buf[MAXPATHLEN];
627 
628 	if (promptopt == NULL) {
629 		struct option *o;
630 
631 		o = getoption("prompt");
632 		if (o == NULL)
633 			errx(1, "prompt: no such option `prompt'");
634 		promptopt = &(o->value);
635 	}
636 	formatbuf(buf, sizeof(buf), *promptopt ? *promptopt : DEFAULTPROMPT);
637 	return (buf);
638 }
639 
640 /*
641  * Generate an rprompt
642  */
643 char *
644 rprompt(void)
645 {
646 	static char	**rpromptopt;
647 	static char	  buf[MAXPATHLEN];
648 
649 	if (rpromptopt == NULL) {
650 		struct option *o;
651 
652 		o = getoption("rprompt");
653 		if (o == NULL)
654 			errx(1, "rprompt: no such option `rprompt'");
655 		rpromptopt = &(o->value);
656 	}
657 	formatbuf(buf, sizeof(buf), *rpromptopt ? *rpromptopt : DEFAULTRPROMPT);
658 	return (buf);
659 }
660 
661 /*
662  * Command parser.
663  */
664 void
665 cmdscanner(void)
666 {
667 	struct cmd	*c;
668 	char		*p;
669 #ifndef NO_EDITCOMPLETE
670 	int		 ch;
671 	size_t		 num;
672 #endif
673 	int		 len;
674 	char		 cmdbuf[MAX_C_NAME];
675 
676 	for (;;) {
677 #ifndef NO_EDITCOMPLETE
678 		if (!editing) {
679 #endif /* !NO_EDITCOMPLETE */
680 			if (fromatty) {
681 				fputs(prompt(), ttyout);
682 				p = rprompt();
683 				if (*p)
684 					fprintf(ttyout, "%s ", p);
685 			}
686 			(void)fflush(ttyout);
687 			len = get_line(stdin, line, sizeof(line), NULL);
688 			switch (len) {
689 			case -1:	/* EOF */
690 			case -2:	/* error */
691 				if (fromatty)
692 					putc('\n', ttyout);
693 				justquit();
694 				/* NOTREACHED */
695 			case -3:	/* too long; try again */
696 				fputs("Sorry, input line is too long.\n",
697 				    ttyout);
698 				continue;
699 			case 0:		/* empty; try again */
700 				continue;
701 			default:	/* all ok */
702 				break;
703 			}
704 #ifndef NO_EDITCOMPLETE
705 		} else {
706 			const char *buf;
707 			HistEvent ev;
708 			cursor_pos = NULL;
709 
710 			buf = el_gets(el, &ch);
711 			num = ch;
712 			if (buf == NULL || num == 0) {
713 				if (fromatty)
714 					putc('\n', ttyout);
715 				justquit();
716 			}
717 			if (num >= sizeof(line)) {
718 				fputs("Sorry, input line is too long.\n",
719 				    ttyout);
720 				break;
721 			}
722 			memcpy(line, buf, num);
723 			if (line[--num] == '\n') {
724 				line[num] = '\0';
725 				if (num == 0)
726 					break;
727 			}
728 			history(hist, &ev, H_ENTER, buf);
729 		}
730 #endif /* !NO_EDITCOMPLETE */
731 
732 		makeargv();
733 		if (margc == 0)
734 			continue;
735 		c = getcmd(margv[0]);
736 		if (c == (struct cmd *)-1) {
737 			fputs("?Ambiguous command.\n", ttyout);
738 			continue;
739 		}
740 		if (c == NULL) {
741 #if !defined(NO_EDITCOMPLETE)
742 			/*
743 			 * attempt to el_parse() unknown commands.
744 			 * any command containing a ':' would be parsed
745 			 * as "[prog:]cmd ...", and will result in a
746 			 * false positive if prog != "ftp", so treat
747 			 * such commands as invalid.
748 			 */
749 			if (strchr(margv[0], ':') != NULL ||
750 			    !editing ||
751 			    el_parse(el, margc, (void *)margv) != 0)
752 #endif /* !NO_EDITCOMPLETE */
753 				fputs("?Invalid command.\n", ttyout);
754 			continue;
755 		}
756 		if (c->c_conn && !connected) {
757 			fputs("Not connected.\n", ttyout);
758 			continue;
759 		}
760 		confirmrest = 0;
761 		(void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
762 		margv[0] = cmdbuf;
763 		(*c->c_handler)(margc, margv);
764 		if (bell && c->c_bell)
765 			(void)putc('\007', ttyout);
766 		if (c->c_handler != help)
767 			break;
768 	}
769 	(void)xsignal(SIGINT, intr);
770 	(void)xsignal(SIGPIPE, lostpeer);
771 }
772 
773 struct cmd *
774 getcmd(const char *name)
775 {
776 	const char *p, *q;
777 	struct cmd *c, *found;
778 	int nmatches;
779 	ptrdiff_t longest;
780 
781 	if (name == NULL)
782 		return (0);
783 
784 	longest = 0;
785 	nmatches = 0;
786 	found = 0;
787 	for (c = cmdtab; (p = c->c_name) != NULL; c++) {
788 		for (q = name; *q == *p++; q++)
789 			if (*q == 0)		/* exact match? */
790 				return (c);
791 		if (!*q) {			/* the name was a prefix */
792 			if (q - name > longest) {
793 				longest = q - name;
794 				nmatches = 1;
795 				found = c;
796 			} else if (q - name == longest)
797 				nmatches++;
798 		}
799 	}
800 	if (nmatches > 1)
801 		return ((struct cmd *)-1);
802 	return (found);
803 }
804 
805 /*
806  * Slice a string up into argc/argv.
807  */
808 
809 static int slrflag;
810 
811 void
812 makeargv(void)
813 {
814 	char *argp;
815 
816 	stringbase = line;		/* scan from first of buffer */
817 	argbase = argbuf;		/* store from first of buffer */
818 	slrflag = 0;
819 	marg_sl->sl_cur = 0;		/* reset to start of marg_sl */
820 	for (margc = 0; ; margc++) {
821 		argp = slurpstring();
822 		ftp_sl_add(marg_sl, argp);
823 		if (argp == NULL)
824 			break;
825 	}
826 #ifndef NO_EDITCOMPLETE
827 	if (cursor_pos == line) {
828 		cursor_argc = 0;
829 		cursor_argo = 0;
830 	} else if (cursor_pos != NULL) {
831 		cursor_argc = margc;
832 		cursor_argo = strlen(margv[margc-1]);
833 	}
834 #endif /* !NO_EDITCOMPLETE */
835 }
836 
837 #ifdef NO_EDITCOMPLETE
838 #define	INC_CHKCURSOR(x)	(x)++
839 #else  /* !NO_EDITCOMPLETE */
840 #define	INC_CHKCURSOR(x)	{ (x)++ ; \
841 				if (x == cursor_pos) { \
842 					cursor_argc = margc; \
843 					cursor_argo = ap-argbase; \
844 					cursor_pos = NULL; \
845 				} }
846 
847 #endif /* !NO_EDITCOMPLETE */
848 
849 /*
850  * Parse string into argbuf;
851  * implemented with FSM to
852  * handle quoting and strings
853  */
854 char *
855 slurpstring(void)
856 {
857 	static char bangstr[2] = { '!', '\0' };
858 	static char dollarstr[2] = { '$', '\0' };
859 	int got_one = 0;
860 	char *sb = stringbase;
861 	char *ap = argbase;
862 	char *tmp = argbase;		/* will return this if token found */
863 
864 	if (*sb == '!' || *sb == '$') {	/* recognize ! as a token for shell */
865 		switch (slrflag) {	/* and $ as token for macro invoke */
866 			case 0:
867 				slrflag++;
868 				INC_CHKCURSOR(stringbase);
869 				return ((*sb == '!') ? bangstr : dollarstr);
870 			case 1:
871 				slrflag++;
872 				altarg = stringbase;
873 				break;
874 			default:
875 				break;
876 		}
877 	}
878 
879 S0:
880 	switch (*sb) {
881 
882 	case '\0':
883 		goto OUT;
884 
885 	case ' ':
886 	case '\t':
887 		INC_CHKCURSOR(sb);
888 		goto S0;
889 
890 	default:
891 		switch (slrflag) {
892 			case 0:
893 				slrflag++;
894 				break;
895 			case 1:
896 				slrflag++;
897 				altarg = sb;
898 				break;
899 			default:
900 				break;
901 		}
902 		goto S1;
903 	}
904 
905 S1:
906 	switch (*sb) {
907 
908 	case ' ':
909 	case '\t':
910 	case '\0':
911 		goto OUT;	/* end of token */
912 
913 	case '\\':
914 		INC_CHKCURSOR(sb);
915 		goto S2;	/* slurp next character */
916 
917 	case '"':
918 		INC_CHKCURSOR(sb);
919 		goto S3;	/* slurp quoted string */
920 
921 	default:
922 		*ap = *sb;	/* add character to token */
923 		ap++;
924 		INC_CHKCURSOR(sb);
925 		got_one = 1;
926 		goto S1;
927 	}
928 
929 S2:
930 	switch (*sb) {
931 
932 	case '\0':
933 		goto OUT;
934 
935 	default:
936 		*ap = *sb;
937 		ap++;
938 		INC_CHKCURSOR(sb);
939 		got_one = 1;
940 		goto S1;
941 	}
942 
943 S3:
944 	switch (*sb) {
945 
946 	case '\0':
947 		goto OUT;
948 
949 	case '"':
950 		INC_CHKCURSOR(sb);
951 		goto S1;
952 
953 	default:
954 		*ap = *sb;
955 		ap++;
956 		INC_CHKCURSOR(sb);
957 		got_one = 1;
958 		goto S3;
959 	}
960 
961 OUT:
962 	if (got_one)
963 		*ap++ = '\0';
964 	argbase = ap;			/* update storage pointer */
965 	stringbase = sb;		/* update scan pointer */
966 	if (got_one) {
967 		return (tmp);
968 	}
969 	switch (slrflag) {
970 		case 0:
971 			slrflag++;
972 			break;
973 		case 1:
974 			slrflag++;
975 			altarg = NULL;
976 			break;
977 		default:
978 			break;
979 	}
980 	return (NULL);
981 }
982 
983 /*
984  * Help/usage command.
985  * Call each command handler with argc == 0 and argv[0] == name.
986  */
987 void
988 help(int argc, char *argv[])
989 {
990 	struct cmd *c;
991 	char *nargv[1], *cmd;
992 	const char *p;
993 	int isusage;
994 
995 	cmd = argv[0];
996 	isusage = (strcmp(cmd, "usage") == 0);
997 	if (argc == 0 || (isusage && argc == 1)) {
998 		UPRINTF("usage: %s [command ...]\n", cmd);
999 		return;
1000 	}
1001 	if (argc == 1) {
1002 		StringList *buf;
1003 
1004 		buf = ftp_sl_init();
1005 		fprintf(ttyout,
1006 		    "%sommands may be abbreviated.  Commands are:\n\n",
1007 		    proxy ? "Proxy c" : "C");
1008 		for (c = cmdtab; (p = c->c_name) != NULL; c++)
1009 			if (!proxy || c->c_proxy)
1010 				ftp_sl_add(buf, ftp_strdup(p));
1011 		list_vertical(buf);
1012 		sl_free(buf, 1);
1013 		return;
1014 	}
1015 
1016 #define	HELPINDENT ((int) sizeof("disconnect"))
1017 
1018 	while (--argc > 0) {
1019 		char *arg;
1020 		char cmdbuf[MAX_C_NAME];
1021 
1022 		arg = *++argv;
1023 		c = getcmd(arg);
1024 		if (c == (struct cmd *)-1)
1025 			fprintf(ttyout, "?Ambiguous %s command `%s'\n",
1026 			    cmd, arg);
1027 		else if (c == NULL)
1028 			fprintf(ttyout, "?Invalid %s command `%s'\n",
1029 			    cmd, arg);
1030 		else {
1031 			if (isusage) {
1032 				(void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
1033 				nargv[0] = cmdbuf;
1034 				(*c->c_handler)(0, nargv);
1035 			} else
1036 				fprintf(ttyout, "%-*s\t%s\n", HELPINDENT,
1037 				    c->c_name, c->c_help);
1038 		}
1039 	}
1040 }
1041 
1042 struct option *
1043 getoption(const char *name)
1044 {
1045 	const char *p;
1046 	struct option *c;
1047 
1048 	if (name == NULL)
1049 		return (NULL);
1050 	for (c = optiontab; (p = c->name) != NULL; c++) {
1051 		if (strcasecmp(p, name) == 0)
1052 			return (c);
1053 	}
1054 	return (NULL);
1055 }
1056 
1057 char *
1058 getoptionvalue(const char *name)
1059 {
1060 	struct option *c;
1061 
1062 	if (name == NULL)
1063 		errx(1, "getoptionvalue: invoked with NULL name");
1064 	c = getoption(name);
1065 	if (c != NULL)
1066 		return (c->value);
1067 	errx(1, "getoptionvalue: invoked with unknown option `%s'", name);
1068 	/* NOTREACHED */
1069 }
1070 
1071 static void
1072 setupoption(const char *name, const char *value, const char *defaultvalue)
1073 {
1074 	set_option(name, value ? value : defaultvalue, 0);
1075 }
1076 
1077 static void
1078 synopsis(FILE * stream)
1079 {
1080 	const char * progname = getprogname();
1081 
1082 	fprintf(stream,
1083 "usage: %s [-46AadefginpRtVv] [-b BUFSIZE] [-H HEADER] [-N NETRC] [-o OUTPUT]\n"
1084 "           [-P PORT] [-q QUITTIME] [-r RETRY] [-s SRCADDR] [-T DIR,MAX[,INC]]\n"
1085 "	    [-x XFERSIZE]\n"
1086 "           [[USER@]HOST [PORT]]\n"
1087 "           [[USER@]HOST:[PATH][/]]\n"
1088 "           [file:///PATH]\n"
1089 "           [ftp://[USER[:PASSWORD]@]HOST[:PORT]/PATH[/][;type=TYPE]]\n"
1090 "           [http://[USER[:PASSWORD]@]HOST[:PORT]/PATH]\n"
1091 #ifdef WITH_SSL
1092 "           [https://[USER[:PASSWORD]@]HOST[:PORT]/PATH]\n"
1093 #endif
1094 "           ...\n"
1095 "       %s -u URL FILE ...\n"
1096 "       %s -?\n",
1097 		progname, progname, progname);
1098 }
1099 
1100 static int
1101 usage_help(void)
1102 {
1103 	synopsis(stdout);
1104 #ifndef NO_USAGE
1105 	printf(
1106 "  -4            Only use IPv4 addresses\n"
1107 "  -6            Only use IPv6 addresses\n"
1108 "  -A            Force active mode\n"
1109 "  -a            Use anonymous login\n"
1110 "  -b BUFSIZE    Use BUFSIZE bytes for fetch buffer\n"
1111 "  -d            Enable debugging\n"
1112 "  -e            Disable command-line editing\n"
1113 "  -f            Force cache reload for FTP or HTTP proxy transfers\n"
1114 "  -g            Disable file name globbing\n"
1115 "  -H HEADER     Add custom HTTP header HEADER for HTTP transfers;\n"
1116 "                may be repeated for additional headers\n"
1117 "  -i            Disable interactive prompt during multiple file transfers\n"
1118 "  -N NETRC      Use NETRC instead of ~/.netrc\n"
1119 "  -n            Disable auto-login\n"
1120 "  -o OUTPUT     Save auto-fetched files to OUTPUT\n"
1121 "  -P PORT       Use port PORT\n"
1122 "  -p            Force passive mode\n"
1123 "  -q QUITTIME   Quit if connection stalls for QUITTIME seconds\n"
1124 "  -R            Restart non-proxy auto-fetch\n"
1125 "  -r RETRY      Retry failed connection attempts after RETRY seconds\n"
1126 "  -s SRCADDR    Use IP source address SRCADDR\n"
1127 "  -T DIR,MAX[,INC]\n"
1128 "                Set maximum transfer rate for direction DIR (all, get, or put)\n"
1129 "                to MAX bytes/s, with optional increment INC bytes/s\n"
1130 "  -t            Enable packet tracing\n"
1131 "  -u URL        URL to upload file arguments to\n"
1132 "  -V            Disable verbose and progress\n"
1133 "  -v            Enable verbose and progress\n"
1134 "  -x XFERSIZE   Set socket send and receive size to XFERSIZE bytes\n"
1135 "  -?            Display this help and exit\n"
1136 		);
1137 #endif
1138 	return EXIT_SUCCESS;
1139 }
1140 
1141 static int
1142 usage(void)
1143 {
1144 	synopsis(stderr);
1145 	return EXIT_FAILURE;
1146 }
1147