xref: /minix3/usr.bin/ftp/cmds.c (revision 04203a83a6848544e5157be39991291ba0c82525)
1 /*	$NetBSD: cmds.c,v 1.135 2012/12/22 16:57:09 christos Exp $	*/
2 
3 /*-
4  * Copyright (c) 1996-2009 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  * This code is derived from software contributed to The NetBSD Foundation
11  * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility,
12  * NASA Ames Research Center.
13  *
14  * Redistribution and use in source and binary forms, with or without
15  * modification, are permitted provided that the following conditions
16  * are met:
17  * 1. Redistributions of source code must retain the above copyright
18  *    notice, this list of conditions and the following disclaimer.
19  * 2. Redistributions in binary form must reproduce the above copyright
20  *    notice, this list of conditions and the following disclaimer in the
21  *    documentation and/or other materials provided with the distribution.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
24  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
25  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
26  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
27  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
28  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
29  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
30  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
31  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
32  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
33  * POSSIBILITY OF SUCH DAMAGE.
34  */
35 
36 /*
37  * Copyright (c) 1985, 1989, 1993, 1994
38  *	The Regents of the University of California.  All rights reserved.
39  *
40  * Redistribution and use in source and binary forms, with or without
41  * modification, are permitted provided that the following conditions
42  * are met:
43  * 1. Redistributions of source code must retain the above copyright
44  *    notice, this list of conditions and the following disclaimer.
45  * 2. Redistributions in binary form must reproduce the above copyright
46  *    notice, this list of conditions and the following disclaimer in the
47  *    documentation and/or other materials provided with the distribution.
48  * 3. Neither the name of the University nor the names of its contributors
49  *    may be used to endorse or promote products derived from this software
50  *    without specific prior written permission.
51  *
52  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
53  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
54  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
55  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
56  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
57  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
58  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
59  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
60  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
61  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
62  * SUCH DAMAGE.
63  */
64 
65 /*
66  * Copyright (C) 1997 and 1998 WIDE Project.
67  * All rights reserved.
68  *
69  * Redistribution and use in source and binary forms, with or without
70  * modification, are permitted provided that the following conditions
71  * are met:
72  * 1. Redistributions of source code must retain the above copyright
73  *    notice, this list of conditions and the following disclaimer.
74  * 2. Redistributions in binary form must reproduce the above copyright
75  *    notice, this list of conditions and the following disclaimer in the
76  *    documentation and/or other materials provided with the distribution.
77  * 3. Neither the name of the project nor the names of its contributors
78  *    may be used to endorse or promote products derived from this software
79  *    without specific prior written permission.
80  *
81  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
82  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
83  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
84  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
85  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
86  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
87  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
88  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
89  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
90  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
91  * SUCH DAMAGE.
92  */
93 
94 #include <sys/cdefs.h>
95 #ifndef lint
96 #if 0
97 static char sccsid[] = "@(#)cmds.c	8.6 (Berkeley) 10/9/94";
98 #else
99 __RCSID("$NetBSD: cmds.c,v 1.135 2012/12/22 16:57:09 christos Exp $");
100 #endif
101 #endif /* not lint */
102 
103 /*
104  * FTP User Program -- Command Routines.
105  */
106 #include <sys/types.h>
107 #include <sys/socket.h>
108 #include <sys/stat.h>
109 #include <sys/wait.h>
110 #include <arpa/ftp.h>
111 
112 #include <ctype.h>
113 #include <err.h>
114 #include <errno.h>
115 #include <glob.h>
116 #include <limits.h>
117 #include <netdb.h>
118 #include <paths.h>
119 #include <stddef.h>
120 #include <stdio.h>
121 #include <stdlib.h>
122 #include <string.h>
123 #include <time.h>
124 #include <unistd.h>
125 
126 #include "ftp_var.h"
127 #include "version.h"
128 
129 static struct types {
130 	const char	*t_name;
131 	const char	*t_mode;
132 	int		t_type;
133 	const char	*t_arg;
134 } types[] = {
135 	{ "ascii",	"A",	TYPE_A,	0 },
136 	{ "binary",	"I",	TYPE_I,	0 },
137 	{ "image",	"I",	TYPE_I,	0 },
138 	{ "ebcdic",	"E",	TYPE_E,	0 },
139 	{ "tenex",	"L",	TYPE_L,	bytename },
140 	{ NULL,		NULL,	0, NULL }
141 };
142 
143 static sigjmp_buf	 jabort;
144 
145 static int	confirm(const char *, const char *);
146 __dead static void	mintr(int);
147 static void	mabort(const char *);
148 static void	set_type(const char *);
149 
150 static const char *doprocess(char *, size_t, const char *, int, int, int);
151 static const char *domap(char *, size_t, const char *);
152 static const char *docase(char *, size_t, const char *);
153 static const char *dotrans(char *, size_t, const char *);
154 
155 /*
156  * Confirm if "cmd" is to be performed upon "file".
157  * If "file" is NULL, generate a "Continue with" prompt instead.
158  */
159 static int
confirm(const char * cmd,const char * file)160 confirm(const char *cmd, const char *file)
161 {
162 	const char *errormsg;
163 	char cline[BUFSIZ];
164 	const char *promptleft, *promptright;
165 
166 	if (!interactive || confirmrest)
167 		return (1);
168 	if (file == NULL) {
169 		promptleft = "Continue with";
170 		promptright = cmd;
171 	} else {
172 		promptleft = cmd;
173 		promptright = file;
174 	}
175 	while (1) {
176 		fprintf(ttyout, "%s %s [anpqy?]? ", promptleft, promptright);
177 		(void)fflush(ttyout);
178 		if (get_line(stdin, cline, sizeof(cline), &errormsg) < 0) {
179 			mflag = 0;
180 			fprintf(ttyout, "%s; %s aborted\n", errormsg, cmd);
181 			return (0);
182 		}
183 		switch (tolower((unsigned char)*cline)) {
184 			case 'a':
185 				confirmrest = 1;
186 				fprintf(ttyout,
187 				    "Prompting off for duration of %s.\n", cmd);
188 				break;
189 			case 'p':
190 				interactive = 0;
191 				fputs("Interactive mode: off.\n", ttyout);
192 				break;
193 			case 'q':
194 				mflag = 0;
195 				fprintf(ttyout, "%s aborted.\n", cmd);
196 				/* FALLTHROUGH */
197 			case 'n':
198 				return (0);
199 			case '?':
200 				fprintf(ttyout,
201 				    "  confirmation options:\n"
202 				    "\ta  answer `yes' for the duration of %s\n"
203 				    "\tn  answer `no' for this file\n"
204 				    "\tp  turn off `prompt' mode\n"
205 				    "\tq  stop the current %s\n"
206 				    "\ty  answer `yes' for this file\n"
207 				    "\t?  this help list\n",
208 				    cmd, cmd);
209 				continue;	/* back to while(1) */
210 		}
211 		return (1);
212 	}
213 	/* NOTREACHED */
214 }
215 
216 /*
217  * Set transfer type.
218  */
219 void
settype(int argc,char * argv[])220 settype(int argc, char *argv[])
221 {
222 	struct types *p;
223 
224 	if (argc == 0 || argc > 2) {
225 		const char *sep;
226 
227 		UPRINTF("usage: %s [", argv[0]);
228 		sep = " ";
229 		for (p = types; p->t_name; p++) {
230 			fprintf(ttyout, "%s%s", sep, p->t_name);
231 			sep = " | ";
232 		}
233 		fputs(" ]\n", ttyout);
234 		code = -1;
235 		return;
236 	}
237 	if (argc < 2) {
238 		fprintf(ttyout, "Using %s mode to transfer files.\n", typename);
239 		code = 0;
240 		return;
241 	}
242 	set_type(argv[1]);
243 }
244 
245 void
set_type(const char * ttype)246 set_type(const char *ttype)
247 {
248 	struct types *p;
249 	int comret;
250 
251 	for (p = types; p->t_name; p++)
252 		if (strcmp(ttype, p->t_name) == 0)
253 			break;
254 	if (p->t_name == 0) {
255 		fprintf(ttyout, "%s: unknown mode.\n", ttype);
256 		code = -1;
257 		return;
258 	}
259 	if ((p->t_arg != NULL) && (*(p->t_arg) != '\0'))
260 		comret = command("TYPE %s %s", p->t_mode, p->t_arg);
261 	else
262 		comret = command("TYPE %s", p->t_mode);
263 	if (comret == COMPLETE) {
264 		(void)strlcpy(typename, p->t_name, sizeof(typename));
265 		curtype = type = p->t_type;
266 	}
267 }
268 
269 /*
270  * Internal form of settype; changes current type in use with server
271  * without changing our notion of the type for data transfers.
272  * Used to change to and from ascii for listings.
273  */
274 void
changetype(int newtype,int show)275 changetype(int newtype, int show)
276 {
277 	struct types *p;
278 	int comret, oldverbose = verbose;
279 
280 	if (newtype == 0)
281 		newtype = TYPE_I;
282 	if (newtype == curtype)
283 		return;
284 	if (ftp_debug == 0 && show == 0)
285 		verbose = 0;
286 	for (p = types; p->t_name; p++)
287 		if (newtype == p->t_type)
288 			break;
289 	if (p->t_name == 0) {
290 		errx(1, "changetype: unknown type %d", newtype);
291 	}
292 	if (newtype == TYPE_L && bytename[0] != '\0')
293 		comret = command("TYPE %s %s", p->t_mode, bytename);
294 	else
295 		comret = command("TYPE %s", p->t_mode);
296 	if (comret == COMPLETE)
297 		curtype = newtype;
298 	verbose = oldverbose;
299 }
300 
301 /*
302  * Set binary transfer type.
303  */
304 /*VARARGS*/
305 void
setbinary(int argc,char * argv[])306 setbinary(int argc, char *argv[])
307 {
308 
309 	if (argc == 0) {
310 		UPRINTF("usage: %s\n", argv[0]);
311 		code = -1;
312 		return;
313 	}
314 	set_type("binary");
315 }
316 
317 /*
318  * Set ascii transfer type.
319  */
320 /*VARARGS*/
321 void
setascii(int argc,char * argv[])322 setascii(int argc, char *argv[])
323 {
324 
325 	if (argc == 0) {
326 		UPRINTF("usage: %s\n", argv[0]);
327 		code = -1;
328 		return;
329 	}
330 	set_type("ascii");
331 }
332 
333 /*
334  * Set tenex transfer type.
335  */
336 /*VARARGS*/
337 void
settenex(int argc,char * argv[])338 settenex(int argc, char *argv[])
339 {
340 
341 	if (argc == 0) {
342 		UPRINTF("usage: %s\n", argv[0]);
343 		code = -1;
344 		return;
345 	}
346 	set_type("tenex");
347 }
348 
349 /*
350  * Set file transfer mode.
351  */
352 /*ARGSUSED*/
353 void
setftmode(int argc,char * argv[])354 setftmode(int argc, char *argv[])
355 {
356 
357 	if (argc != 2) {
358 		UPRINTF("usage: %s mode-name\n", argv[0]);
359 		code = -1;
360 		return;
361 	}
362 	fprintf(ttyout, "We only support %s mode, sorry.\n", modename);
363 	code = -1;
364 }
365 
366 /*
367  * Set file transfer format.
368  */
369 /*ARGSUSED*/
370 void
setform(int argc,char * argv[])371 setform(int argc, char *argv[])
372 {
373 
374 	if (argc != 2) {
375 		UPRINTF("usage: %s format\n", argv[0]);
376 		code = -1;
377 		return;
378 	}
379 	fprintf(ttyout, "We only support %s format, sorry.\n", formname);
380 	code = -1;
381 }
382 
383 /*
384  * Set file transfer structure.
385  */
386 /*ARGSUSED*/
387 void
setstruct(int argc,char * argv[])388 setstruct(int argc, char *argv[])
389 {
390 
391 	if (argc != 2) {
392 		UPRINTF("usage: %s struct-mode\n", argv[0]);
393 		code = -1;
394 		return;
395 	}
396 	fprintf(ttyout, "We only support %s structure, sorry.\n", structname);
397 	code = -1;
398 }
399 
400 /*
401  * Send a single file.
402  */
403 void
put(int argc,char * argv[])404 put(int argc, char *argv[])
405 {
406 	char buf[MAXPATHLEN];
407 	const char *cmd;
408 	int loc = 0;
409 	char *locfile;
410 	const char *remfile;
411 
412 	if (argc == 2) {
413 		argc++;
414 		argv[2] = argv[1];
415 		loc++;
416 	}
417 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "local-file")))
418 		goto usage;
419 	if ((argc < 3 && !another(&argc, &argv, "remote-file")) || argc > 3) {
420  usage:
421 		UPRINTF("usage: %s local-file [remote-file]\n", argv[0]);
422 		code = -1;
423 		return;
424 	}
425 	if ((locfile = globulize(argv[1])) == NULL) {
426 		code = -1;
427 		return;
428 	}
429 	remfile = argv[2];
430 	if (loc)	/* If argv[2] is a copy of the old argv[1], update it */
431 		remfile = locfile;
432 	cmd = (argv[0][0] == 'a') ? "APPE" : ((sunique) ? "STOU" : "STOR");
433 	remfile = doprocess(buf, sizeof(buf), remfile,
434 		0, loc && ntflag, loc && mapflag);
435 	sendrequest(cmd, locfile, remfile,
436 	    locfile != argv[1] || remfile != argv[2]);
437 	free(locfile);
438 }
439 
440 static const char *
doprocess(char * dst,size_t dlen,const char * src,int casef,int transf,int mapf)441 doprocess(char *dst, size_t dlen, const char *src,
442     int casef, int transf, int mapf)
443 {
444 	if (casef)
445 		src = docase(dst, dlen, src);
446 	if (transf)
447 		src = dotrans(dst, dlen, src);
448 	if (mapf)
449 		src = domap(dst, dlen, src);
450 	return src;
451 }
452 
453 /*
454  * Send multiple files.
455  */
456 void
mput(int argc,char * argv[])457 mput(int argc, char *argv[])
458 {
459 	int i;
460 	sigfunc oldintr;
461 	int ointer;
462 	const char *tp;
463 
464 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "local-files"))) {
465 		UPRINTF("usage: %s local-files\n", argv[0]);
466 		code = -1;
467 		return;
468 	}
469 	mflag = 1;
470 	oldintr = xsignal(SIGINT, mintr);
471 	if (sigsetjmp(jabort, 1))
472 		mabort(argv[0]);
473 	if (proxy) {
474 		char *cp;
475 
476 		while ((cp = remglob(argv, 0, NULL)) != NULL) {
477 			if (*cp == '\0' || !connected) {
478 				mflag = 0;
479 				continue;
480 			}
481 			if (mflag && confirm(argv[0], cp)) {
482 				char buf[MAXPATHLEN];
483 				tp = doprocess(buf, sizeof(buf), cp,
484 				    mcase, ntflag, mapflag);
485 				sendrequest((sunique) ? "STOU" : "STOR",
486 				    cp, tp, cp != tp || !interactive);
487 				if (!mflag && fromatty) {
488 					ointer = interactive;
489 					interactive = 1;
490 					if (confirm(argv[0], NULL)) {
491 						mflag++;
492 					}
493 					interactive = ointer;
494 				}
495 			}
496 		}
497 		goto cleanupmput;
498 	}
499 	for (i = 1; i < argc && connected; i++) {
500 		char **cpp;
501 		glob_t gl;
502 		int flags;
503 
504 		if (!doglob) {
505 			if (mflag && confirm(argv[0], argv[i])) {
506 				char buf[MAXPATHLEN];
507 				tp = doprocess(buf, sizeof(buf), argv[i],
508 					0, ntflag, mapflag);
509 				sendrequest((sunique) ? "STOU" : "STOR",
510 				    argv[i], tp, tp != argv[i] || !interactive);
511 				if (!mflag && fromatty) {
512 					ointer = interactive;
513 					interactive = 1;
514 					if (confirm(argv[0], NULL)) {
515 						mflag++;
516 					}
517 					interactive = ointer;
518 				}
519 			}
520 			continue;
521 		}
522 
523 		memset(&gl, 0, sizeof(gl));
524 		flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_TILDE;
525 		if (glob(argv[i], flags, NULL, &gl) || gl.gl_pathc == 0) {
526 			warnx("Glob pattern `%s' not found", argv[i]);
527 			globfree(&gl);
528 			continue;
529 		}
530 		for (cpp = gl.gl_pathv; cpp && *cpp != NULL && connected;
531 		    cpp++) {
532 			if (mflag && confirm(argv[0], *cpp)) {
533 				char buf[MAXPATHLEN];
534 				tp = *cpp;
535 				tp = doprocess(buf, sizeof(buf), *cpp,
536 				    0, ntflag, mapflag);
537 				sendrequest((sunique) ? "STOU" : "STOR",
538 				    *cpp, tp, *cpp != tp || !interactive);
539 				if (!mflag && fromatty) {
540 					ointer = interactive;
541 					interactive = 1;
542 					if (confirm(argv[0], NULL)) {
543 						mflag++;
544 					}
545 					interactive = ointer;
546 				}
547 			}
548 		}
549 		globfree(&gl);
550 	}
551  cleanupmput:
552 	(void)xsignal(SIGINT, oldintr);
553 	mflag = 0;
554 }
555 
556 void
reget(int argc,char * argv[])557 reget(int argc, char *argv[])
558 {
559 
560 	(void)getit(argc, argv, 1, restart_point ? "r+" : "a");
561 }
562 
563 void
get(int argc,char * argv[])564 get(int argc, char *argv[])
565 {
566 
567 	(void)getit(argc, argv, 0, restart_point ? "r+" : "w");
568 }
569 
570 /*
571  * Receive one file.
572  * If restartit is  1, restart the xfer always.
573  * If restartit is -1, restart the xfer only if the remote file is newer.
574  */
575 int
getit(int argc,char * argv[],int restartit,const char * gmode)576 getit(int argc, char *argv[], int restartit, const char *gmode)
577 {
578 	int	loc, rval;
579 	char	*remfile, *olocfile;
580 	const char *locfile;
581 	char	buf[MAXPATHLEN];
582 
583 	loc = rval = 0;
584 	if (argc == 2) {
585 		argc++;
586 		argv[2] = argv[1];
587 		loc++;
588 	}
589 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "remote-file")))
590 		goto usage;
591 	if ((argc < 3 && !another(&argc, &argv, "local-file")) || argc > 3) {
592  usage:
593 		UPRINTF("usage: %s remote-file [local-file]\n", argv[0]);
594 		code = -1;
595 		return (0);
596 	}
597 	remfile = argv[1];
598 	if ((olocfile = globulize(argv[2])) == NULL) {
599 		code = -1;
600 		return (0);
601 	}
602 	locfile = doprocess(buf, sizeof(buf), olocfile,
603 		loc && mcase, loc && ntflag, loc && mapflag);
604 	if (restartit) {
605 		struct stat stbuf;
606 		int ret;
607 
608 		if (! features[FEAT_REST_STREAM]) {
609 			fprintf(ttyout,
610 			    "Restart is not supported by the remote server.\n");
611 			return (0);
612 		}
613 		ret = stat(locfile, &stbuf);
614 		if (restartit == 1) {
615 			if (ret < 0) {
616 				if (errno != ENOENT) {
617 					warn("Can't stat `%s'", locfile);
618 					goto freegetit;
619 				}
620 				restart_point = 0;
621 			}
622 			else
623 				restart_point = stbuf.st_size;
624 		} else {
625 			if (ret == 0) {
626 				time_t mtime;
627 
628 				mtime = remotemodtime(argv[1], 0);
629 				if (mtime == -1)
630 					goto freegetit;
631 				if (stbuf.st_mtime >= mtime) {
632 					rval = 1;
633 					goto freegetit;
634 				}
635 			}
636 		}
637 	}
638 
639 	recvrequest("RETR", locfile, remfile, gmode,
640 	    remfile != argv[1] || locfile != argv[2], loc);
641 	restart_point = 0;
642  freegetit:
643 	(void)free(olocfile);
644 	return (rval);
645 }
646 
647 /* ARGSUSED */
648 static void
mintr(int signo)649 mintr(int signo)
650 {
651 
652 	alarmtimer(0);
653 	if (fromatty)
654 		write(fileno(ttyout), "\n", 1);
655 	siglongjmp(jabort, 1);
656 }
657 
658 static void
mabort(const char * cmd)659 mabort(const char *cmd)
660 {
661 	int ointer, oconf;
662 
663 	if (mflag && fromatty) {
664 		ointer = interactive;
665 		oconf = confirmrest;
666 		interactive = 1;
667 		confirmrest = 0;
668 		if (confirm(cmd, NULL)) {
669 			interactive = ointer;
670 			confirmrest = oconf;
671 			return;
672 		}
673 		interactive = ointer;
674 		confirmrest = oconf;
675 	}
676 	mflag = 0;
677 }
678 
679 /*
680  * Get multiple files.
681  */
682 void
mget(int argc,char * argv[])683 mget(int argc, char *argv[])
684 {
685 	sigfunc oldintr;
686 	int ointer;
687 	char *cp;
688 	const char *tp;
689 	int volatile restartit;
690 
691 	if (argc == 0 ||
692 	    (argc == 1 && !another(&argc, &argv, "remote-files"))) {
693 		UPRINTF("usage: %s remote-files\n", argv[0]);
694 		code = -1;
695 		return;
696 	}
697 	mflag = 1;
698 	restart_point = 0;
699 	restartit = 0;
700 	if (strcmp(argv[0], "mreget") == 0) {
701 		if (! features[FEAT_REST_STREAM]) {
702 			fprintf(ttyout,
703 		    "Restart is not supported by the remote server.\n");
704 			return;
705 		}
706 		restartit = 1;
707 	}
708 	oldintr = xsignal(SIGINT, mintr);
709 	if (sigsetjmp(jabort, 1))
710 		mabort(argv[0]);
711 	while ((cp = remglob(argv, proxy, NULL)) != NULL) {
712 		char buf[MAXPATHLEN];
713 		if (*cp == '\0' || !connected) {
714 			mflag = 0;
715 			continue;
716 		}
717 		if (! mflag)
718 			continue;
719 		if (! fileindir(cp, localcwd)) {
720 			fprintf(ttyout, "Skipping non-relative filename `%s'\n",
721 			    cp);
722 			continue;
723 		}
724 		if (!confirm(argv[0], cp))
725 			continue;
726 		tp = doprocess(buf, sizeof(buf), cp, mcase, ntflag, mapflag);
727 		if (restartit) {
728 			struct stat stbuf;
729 
730 			if (stat(tp, &stbuf) == 0)
731 				restart_point = stbuf.st_size;
732 			else
733 				warn("Can't stat `%s'", tp);
734 		}
735 		recvrequest("RETR", tp, cp, restart_point ? "r+" : "w",
736 		    tp != cp || !interactive, 1);
737 		restart_point = 0;
738 		if (!mflag && fromatty) {
739 			ointer = interactive;
740 			interactive = 1;
741 			if (confirm(argv[0], NULL))
742 				mflag++;
743 			interactive = ointer;
744 		}
745 	}
746 	(void)xsignal(SIGINT, oldintr);
747 	mflag = 0;
748 }
749 
750 /*
751  * Read list of filenames from a local file and get those
752  */
753 void
fget(int argc,char * argv[])754 fget(int argc, char *argv[])
755 {
756 	const char *gmode;
757 	FILE	*fp;
758 	char	buf[MAXPATHLEN], cmdbuf[MAX_C_NAME];
759 
760 	if (argc != 2) {
761 		UPRINTF("usage: %s localfile\n", argv[0]);
762 		code = -1;
763 		return;
764 	}
765 
766 	fp = fopen(argv[1], "r");
767 	if (fp == NULL) {
768 		fprintf(ttyout, "Can't open source file %s\n", argv[1]);
769 		code = -1;
770 		return;
771 	}
772 
773 	(void)strlcpy(cmdbuf, "get", sizeof(cmdbuf));
774 	argv[0] = cmdbuf;
775 	gmode = restart_point ? "r+" : "w";
776 
777 	while (get_line(fp, buf, sizeof(buf), NULL) >= 0) {
778 		if (buf[0] == '\0')
779 			continue;
780 		argv[1] = buf;
781 		(void)getit(argc, argv, 0, gmode);
782 	}
783 	fclose(fp);
784 }
785 
786 const char *
onoff(int val)787 onoff(int val)
788 {
789 
790 	return (val ? "on" : "off");
791 }
792 
793 /*
794  * Show status.
795  */
796 /*ARGSUSED*/
797 void
status(int argc,char * argv[])798 status(int argc, char *argv[])
799 {
800 
801 	if (argc == 0) {
802 		UPRINTF("usage: %s\n", argv[0]);
803 		code = -1;
804 		return;
805 	}
806 #ifndef NO_STATUS
807 	if (connected)
808 		fprintf(ttyout, "Connected %sto %s.\n",
809 		    connected == -1 ? "and logged in" : "", hostname);
810 	else
811 		fputs("Not connected.\n", ttyout);
812 	if (!proxy) {
813 		pswitch(1);
814 		if (connected) {
815 			fprintf(ttyout, "Connected for proxy commands to %s.\n",
816 			    hostname);
817 		}
818 		else {
819 			fputs("No proxy connection.\n", ttyout);
820 		}
821 		pswitch(0);
822 	}
823 	fprintf(ttyout, "Gate ftp: %s, server %s, port %s.\n", onoff(gatemode),
824 	    *gateserver ? gateserver : "(none)", gateport);
825 	fprintf(ttyout, "Passive mode: %s; fallback to active mode: %s.\n",
826 	    onoff(passivemode), onoff(activefallback));
827 	fprintf(ttyout, "Mode: %s; Type: %s; Form: %s; Structure: %s.\n",
828 	    modename, typename, formname, structname);
829 	fprintf(ttyout, "Verbose: %s; Bell: %s; Prompting: %s; Globbing: %s.\n",
830 	    onoff(verbose), onoff(bell), onoff(interactive), onoff(doglob));
831 	fprintf(ttyout, "Store unique: %s; Receive unique: %s.\n",
832 	    onoff(sunique), onoff(runique));
833 	fprintf(ttyout, "Preserve modification times: %s.\n", onoff(preserve));
834 	fprintf(ttyout, "Case: %s; CR stripping: %s.\n", onoff(mcase),
835 	    onoff(crflag));
836 	if (ntflag) {
837 		fprintf(ttyout, "Ntrans: (in) %s (out) %s\n", ntin, ntout);
838 	}
839 	else {
840 		fputs("Ntrans: off.\n", ttyout);
841 	}
842 	if (mapflag) {
843 		fprintf(ttyout, "Nmap: (in) %s (out) %s\n", mapin, mapout);
844 	}
845 	else {
846 		fputs("Nmap: off.\n", ttyout);
847 	}
848 	fprintf(ttyout,
849 	    "Hash mark printing: %s; Mark count: %d; Progress bar: %s.\n",
850 	    onoff(hash), mark, onoff(progress));
851 	fprintf(ttyout,
852 	    "Get transfer rate throttle: %s; maximum: %d; increment %d.\n",
853 	    onoff(rate_get), rate_get, rate_get_incr);
854 	fprintf(ttyout,
855 	    "Put transfer rate throttle: %s; maximum: %d; increment %d.\n",
856 	    onoff(rate_put), rate_put, rate_put_incr);
857 	fprintf(ttyout,
858 	    "Socket buffer sizes: send %d, receive %d.\n",
859 	    sndbuf_size, rcvbuf_size);
860 	fprintf(ttyout, "Use of PORT cmds: %s.\n", onoff(sendport));
861 	fprintf(ttyout, "Use of EPSV/EPRT cmds for IPv4: %s%s.\n", onoff(epsv4),
862 	    epsv4bad ? " (disabled for this connection)" : "");
863 	fprintf(ttyout, "Use of EPSV/EPRT cmds for IPv6: %s%s.\n", onoff(epsv6),
864 	    epsv6bad ? " (disabled for this connection)" : "");
865 	fprintf(ttyout, "Command line editing: %s.\n",
866 #ifdef NO_EDITCOMPLETE
867 	    "support not compiled in"
868 #else	/* !def NO_EDITCOMPLETE */
869 	    onoff(editing)
870 #endif	/* !def NO_EDITCOMPLETE */
871 	    );
872 	if (macnum > 0) {
873 		int i;
874 
875 		fputs("Macros:\n", ttyout);
876 		for (i=0; i<macnum; i++) {
877 			fprintf(ttyout, "\t%s\n", macros[i].mac_name);
878 		}
879 	}
880 #endif /* !def NO_STATUS */
881 	fprintf(ttyout, "Version: %s %s\n", FTP_PRODUCT, FTP_VERSION);
882 	code = 0;
883 }
884 
885 /*
886  * Toggle a variable
887  */
888 int
togglevar(int argc,char * argv[],int * var,const char * mesg)889 togglevar(int argc, char *argv[], int *var, const char *mesg)
890 {
891 	if (argc == 1) {
892 		*var = !*var;
893 	} else if (argc == 2 && strcasecmp(argv[1], "on") == 0) {
894 		*var = 1;
895 	} else if (argc == 2 && strcasecmp(argv[1], "off") == 0) {
896 		*var = 0;
897 	} else {
898 		UPRINTF("usage: %s [ on | off ]\n", argv[0]);
899 		return (-1);
900 	}
901 	if (mesg)
902 		fprintf(ttyout, "%s %s.\n", mesg, onoff(*var));
903 	return (*var);
904 }
905 
906 /*
907  * Set beep on cmd completed mode.
908  */
909 /*VARARGS*/
910 void
setbell(int argc,char * argv[])911 setbell(int argc, char *argv[])
912 {
913 
914 	code = togglevar(argc, argv, &bell, "Bell mode");
915 }
916 
917 /*
918  * Set command line editing
919  */
920 /*VARARGS*/
921 void
setedit(int argc,char * argv[])922 setedit(int argc, char *argv[])
923 {
924 
925 #ifdef NO_EDITCOMPLETE
926 	if (argc == 0) {
927 		UPRINTF("usage: %s\n", argv[0]);
928 		code = -1;
929 		return;
930 	}
931 	if (verbose)
932 		fputs("Editing support not compiled in; ignoring command.\n",
933 		    ttyout);
934 #else	/* !def NO_EDITCOMPLETE */
935 	code = togglevar(argc, argv, &editing, "Editing mode");
936 	controlediting();
937 #endif	/* !def NO_EDITCOMPLETE */
938 }
939 
940 /*
941  * Turn on packet tracing.
942  */
943 /*VARARGS*/
944 void
settrace(int argc,char * argv[])945 settrace(int argc, char *argv[])
946 {
947 
948 	code = togglevar(argc, argv, &trace, "Packet tracing");
949 }
950 
951 /*
952  * Toggle hash mark printing during transfers, or set hash mark bytecount.
953  */
954 /*VARARGS*/
955 void
sethash(int argc,char * argv[])956 sethash(int argc, char *argv[])
957 {
958 	if (argc == 1)
959 		hash = !hash;
960 	else if (argc != 2) {
961 		UPRINTF("usage: %s [ on | off | bytecount ]\n",
962 		    argv[0]);
963 		code = -1;
964 		return;
965 	} else if (strcasecmp(argv[1], "on") == 0)
966 		hash = 1;
967 	else if (strcasecmp(argv[1], "off") == 0)
968 		hash = 0;
969 	else {
970 		int nmark;
971 
972 		nmark = strsuftoi(argv[1]);
973 		if (nmark < 1) {
974 			fprintf(ttyout, "mark: bad bytecount value `%s'.\n",
975 			    argv[1]);
976 			code = -1;
977 			return;
978 		}
979 		mark = nmark;
980 		hash = 1;
981 	}
982 	fprintf(ttyout, "Hash mark printing %s", onoff(hash));
983 	if (hash)
984 		fprintf(ttyout, " (%d bytes/hash mark)", mark);
985 	fputs(".\n", ttyout);
986 	if (hash)
987 		progress = 0;
988 	code = hash;
989 }
990 
991 /*
992  * Turn on printing of server echo's.
993  */
994 /*VARARGS*/
995 void
setverbose(int argc,char * argv[])996 setverbose(int argc, char *argv[])
997 {
998 
999 	code = togglevar(argc, argv, &verbose, "Verbose mode");
1000 }
1001 
1002 /*
1003  * Toggle PORT/LPRT cmd use before each data connection.
1004  */
1005 /*VARARGS*/
1006 void
setport(int argc,char * argv[])1007 setport(int argc, char *argv[])
1008 {
1009 
1010 	code = togglevar(argc, argv, &sendport, "Use of PORT/LPRT cmds");
1011 }
1012 
1013 /*
1014  * Toggle transfer progress bar.
1015  */
1016 /*VARARGS*/
1017 void
setprogress(int argc,char * argv[])1018 setprogress(int argc, char *argv[])
1019 {
1020 
1021 	code = togglevar(argc, argv, &progress, "Progress bar");
1022 	if (progress)
1023 		hash = 0;
1024 }
1025 
1026 /*
1027  * Turn on interactive prompting during mget, mput, and mdelete.
1028  */
1029 /*VARARGS*/
1030 void
setprompt(int argc,char * argv[])1031 setprompt(int argc, char *argv[])
1032 {
1033 
1034 	code = togglevar(argc, argv, &interactive, "Interactive mode");
1035 }
1036 
1037 /*
1038  * Toggle gate-ftp mode, or set gate-ftp server
1039  */
1040 /*VARARGS*/
1041 void
setgate(int argc,char * argv[])1042 setgate(int argc, char *argv[])
1043 {
1044 	static char gsbuf[MAXHOSTNAMELEN];
1045 
1046 	if (argc == 0 || argc > 3) {
1047 		UPRINTF(
1048 		    "usage: %s [ on | off | gateserver [port] ]\n", argv[0]);
1049 		code = -1;
1050 		return;
1051 	} else if (argc < 2) {
1052 		gatemode = !gatemode;
1053 	} else {
1054 		if (argc == 2 && strcasecmp(argv[1], "on") == 0)
1055 			gatemode = 1;
1056 		else if (argc == 2 && strcasecmp(argv[1], "off") == 0)
1057 			gatemode = 0;
1058 		else {
1059 			if (argc == 3)
1060 				gateport = ftp_strdup(argv[2]);
1061 			(void)strlcpy(gsbuf, argv[1], sizeof(gsbuf));
1062 			gateserver = gsbuf;
1063 			gatemode = 1;
1064 		}
1065 	}
1066 	if (gatemode && (gateserver == NULL || *gateserver == '\0')) {
1067 		fprintf(ttyout,
1068 		    "Disabling gate-ftp mode - no gate-ftp server defined.\n");
1069 		gatemode = 0;
1070 	} else {
1071 		fprintf(ttyout, "Gate ftp: %s, server %s, port %s.\n",
1072 		    onoff(gatemode), *gateserver ? gateserver : "(none)",
1073 		    gateport);
1074 	}
1075 	code = gatemode;
1076 }
1077 
1078 /*
1079  * Toggle metacharacter interpretation on local file names.
1080  */
1081 /*VARARGS*/
1082 void
setglob(int argc,char * argv[])1083 setglob(int argc, char *argv[])
1084 {
1085 
1086 	code = togglevar(argc, argv, &doglob, "Globbing");
1087 }
1088 
1089 /*
1090  * Toggle preserving modification times on retrieved files.
1091  */
1092 /*VARARGS*/
1093 void
setpreserve(int argc,char * argv[])1094 setpreserve(int argc, char *argv[])
1095 {
1096 
1097 	code = togglevar(argc, argv, &preserve, "Preserve modification times");
1098 }
1099 
1100 /*
1101  * Set debugging mode on/off and/or set level of debugging.
1102  */
1103 /*VARARGS*/
1104 void
setdebug(int argc,char * argv[])1105 setdebug(int argc, char *argv[])
1106 {
1107 	if (argc == 0 || argc > 2) {
1108 		UPRINTF("usage: %s [ on | off | debuglevel ]\n", argv[0]);
1109 		code = -1;
1110 		return;
1111 	} else if (argc == 2) {
1112 		if (strcasecmp(argv[1], "on") == 0)
1113 			ftp_debug = 1;
1114 		else if (strcasecmp(argv[1], "off") == 0)
1115 			ftp_debug = 0;
1116 		else {
1117 			int val;
1118 
1119 			val = strsuftoi(argv[1]);
1120 			if (val < 0) {
1121 				fprintf(ttyout, "%s: bad debugging value.\n",
1122 				    argv[1]);
1123 				code = -1;
1124 				return;
1125 			}
1126 			ftp_debug = val;
1127 		}
1128 	} else
1129 		ftp_debug = !ftp_debug;
1130 	if (ftp_debug)
1131 		options |= SO_DEBUG;
1132 	else
1133 		options &= ~SO_DEBUG;
1134 	fprintf(ttyout, "Debugging %s (ftp_debug=%d).\n", onoff(ftp_debug), ftp_debug);
1135 	code = ftp_debug > 0;
1136 }
1137 
1138 /*
1139  * Set current working directory on remote machine.
1140  */
1141 void
cd(int argc,char * argv[])1142 cd(int argc, char *argv[])
1143 {
1144 	int r;
1145 
1146 	if (argc == 0 || argc > 2 ||
1147 	    (argc == 1 && !another(&argc, &argv, "remote-directory"))) {
1148 		UPRINTF("usage: %s remote-directory\n", argv[0]);
1149 		code = -1;
1150 		return;
1151 	}
1152 	r = command("CWD %s", argv[1]);
1153 	if (r == ERROR && code == 500) {
1154 		if (verbose)
1155 			fputs("CWD command not recognized, trying XCWD.\n",
1156 			    ttyout);
1157 		r = command("XCWD %s", argv[1]);
1158 	}
1159 	if (r == COMPLETE) {
1160 		dirchange = 1;
1161 		updateremotecwd();
1162 	}
1163 }
1164 
1165 /*
1166  * Set current working directory on local machine.
1167  */
1168 void
lcd(int argc,char * argv[])1169 lcd(int argc, char *argv[])
1170 {
1171 	char *locdir;
1172 
1173 	code = -1;
1174 	if (argc == 1) {
1175 		argc++;
1176 		argv[1] = localhome;
1177 	}
1178 	if (argc != 2) {
1179 		UPRINTF("usage: %s [local-directory]\n", argv[0]);
1180 		return;
1181 	}
1182 	if ((locdir = globulize(argv[1])) == NULL)
1183 		return;
1184 	if (chdir(locdir) == -1)
1185 		warn("Can't chdir `%s'", locdir);
1186 	else {
1187 		updatelocalcwd();
1188 		if (localcwd[0]) {
1189 			fprintf(ttyout, "Local directory now: %s\n", localcwd);
1190 			code = 0;
1191 		} else {
1192 			fprintf(ttyout, "Unable to determine local directory\n");
1193 		}
1194 	}
1195 	(void)free(locdir);
1196 }
1197 
1198 /*
1199  * Delete a single file.
1200  */
1201 void
delete(int argc,char * argv[])1202 delete(int argc, char *argv[])
1203 {
1204 
1205 	if (argc == 0 || argc > 2 ||
1206 	    (argc == 1 && !another(&argc, &argv, "remote-file"))) {
1207 		UPRINTF("usage: %s remote-file\n", argv[0]);
1208 		code = -1;
1209 		return;
1210 	}
1211 	if (command("DELE %s", argv[1]) == COMPLETE)
1212 		dirchange = 1;
1213 }
1214 
1215 /*
1216  * Delete multiple files.
1217  */
1218 void
mdelete(int argc,char * argv[])1219 mdelete(int argc, char *argv[])
1220 {
1221 	sigfunc oldintr;
1222 	int ointer;
1223 	char *cp;
1224 
1225 	if (argc == 0 ||
1226 	    (argc == 1 && !another(&argc, &argv, "remote-files"))) {
1227 		UPRINTF("usage: %s [remote-files]\n", argv[0]);
1228 		code = -1;
1229 		return;
1230 	}
1231 	mflag = 1;
1232 	oldintr = xsignal(SIGINT, mintr);
1233 	if (sigsetjmp(jabort, 1))
1234 		mabort(argv[0]);
1235 	while ((cp = remglob(argv, 0, NULL)) != NULL) {
1236 		if (*cp == '\0') {
1237 			mflag = 0;
1238 			continue;
1239 		}
1240 		if (mflag && confirm(argv[0], cp)) {
1241 			if (command("DELE %s", cp) == COMPLETE)
1242 				dirchange = 1;
1243 			if (!mflag && fromatty) {
1244 				ointer = interactive;
1245 				interactive = 1;
1246 				if (confirm(argv[0], NULL)) {
1247 					mflag++;
1248 				}
1249 				interactive = ointer;
1250 			}
1251 		}
1252 	}
1253 	(void)xsignal(SIGINT, oldintr);
1254 	mflag = 0;
1255 }
1256 
1257 /*
1258  * Rename a remote file.
1259  */
1260 void
renamefile(int argc,char * argv[])1261 renamefile(int argc, char *argv[])
1262 {
1263 
1264 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "from-name")))
1265 		goto usage;
1266 	if ((argc < 3 && !another(&argc, &argv, "to-name")) || argc > 3) {
1267  usage:
1268 		UPRINTF("usage: %s from-name to-name\n", argv[0]);
1269 		code = -1;
1270 		return;
1271 	}
1272 	if (command("RNFR %s", argv[1]) == CONTINUE &&
1273 	    command("RNTO %s", argv[2]) == COMPLETE)
1274 		dirchange = 1;
1275 }
1276 
1277 /*
1278  * Get a directory listing of remote files.
1279  * Supports being invoked as:
1280  *	cmd		runs
1281  *	---		----
1282  *	dir, ls		LIST
1283  *	mlsd		MLSD
1284  *	nlist		NLST
1285  *	pdir, pls	LIST |$PAGER
1286  *	pmlsd		MLSD |$PAGER
1287  */
1288 void
ls(int argc,char * argv[])1289 ls(int argc, char *argv[])
1290 {
1291 	const char *cmd;
1292 	char *remdir, *locbuf;
1293 	const char *locfile;
1294 	int pagecmd, mlsdcmd;
1295 
1296 	remdir = NULL;
1297 	locbuf = NULL;
1298 	locfile = "-";
1299 	pagecmd = mlsdcmd = 0;
1300 			/*
1301 			 * the only commands that start with `p' are
1302 			 * the `pager' versions.
1303 			 */
1304 	if (argv[0][0] == 'p')
1305 		pagecmd = 1;
1306 	if (strcmp(argv[0] + pagecmd , "mlsd") == 0) {
1307 		if (! features[FEAT_MLST]) {
1308 			fprintf(ttyout,
1309 			   "MLSD is not supported by the remote server.\n");
1310 			return;
1311 		}
1312 		mlsdcmd = 1;
1313 	}
1314 	if (argc == 0)
1315 		goto usage;
1316 
1317 	if (mlsdcmd)
1318 		cmd = "MLSD";
1319 	else if (strcmp(argv[0] + pagecmd, "nlist") == 0)
1320 		cmd = "NLST";
1321 	else
1322 		cmd = "LIST";
1323 
1324 	if (argc > 1)
1325 		remdir = argv[1];
1326 	if (argc > 2)
1327 		locfile = argv[2];
1328 	if (argc > 3 || ((pagecmd | mlsdcmd) && argc > 2)) {
1329  usage:
1330 		if (pagecmd || mlsdcmd)
1331 			UPRINTF("usage: %s [remote-path]\n", argv[0]);
1332 		else
1333 			UPRINTF("usage: %s [remote-path [local-file]]\n",
1334 			    argv[0]);
1335 		code = -1;
1336 		goto freels;
1337 	}
1338 
1339 	if (pagecmd) {
1340 		const char *p;
1341 		size_t len;
1342 
1343 		p = getoptionvalue("pager");
1344 		if (EMPTYSTRING(p))
1345 			p = DEFAULTPAGER;
1346 		len = strlen(p) + 2;
1347 		locbuf = ftp_malloc(len);
1348 		locbuf[0] = '|';
1349 		(void)strlcpy(locbuf + 1, p, len - 1);
1350 		locfile = locbuf;
1351 	} else if ((strcmp(locfile, "-") != 0) && *locfile != '|') {
1352 		if ((locbuf = globulize(locfile)) == NULL ||
1353 		    !confirm("output to local-file:", locbuf)) {
1354 			code = -1;
1355 			goto freels;
1356 		}
1357 		locfile = locbuf;
1358 	}
1359 	recvrequest(cmd, locfile, remdir, "w", 0, 0);
1360  freels:
1361 	if (locbuf)
1362 		(void)free(locbuf);
1363 }
1364 
1365 /*
1366  * Get a directory listing of multiple remote files.
1367  */
1368 void
mls(int argc,char * argv[])1369 mls(int argc, char *argv[])
1370 {
1371 	sigfunc oldintr;
1372 	int ointer, i;
1373 	int volatile dolist;
1374 	char * volatile dest, *odest;
1375 	const char *lmode;
1376 
1377 	if (argc == 0)
1378 		goto usage;
1379 	if (argc < 2 && !another(&argc, &argv, "remote-files"))
1380 		goto usage;
1381 	if (argc < 3 && !another(&argc, &argv, "local-file")) {
1382  usage:
1383 		UPRINTF("usage: %s remote-files local-file\n", argv[0]);
1384 		code = -1;
1385 		return;
1386 	}
1387 	odest = dest = argv[argc - 1];
1388 	argv[argc - 1] = NULL;
1389 	if (strcmp(dest, "-") && *dest != '|')
1390 		if (((dest = globulize(dest)) == NULL) ||
1391 		    !confirm("output to local-file:", dest)) {
1392 			code = -1;
1393 			return;
1394 	}
1395 	dolist = strcmp(argv[0], "mls");
1396 	mflag = 1;
1397 	oldintr = xsignal(SIGINT, mintr);
1398 	if (sigsetjmp(jabort, 1))
1399 		mabort(argv[0]);
1400 	for (i = 1; mflag && i < argc-1 && connected; i++) {
1401 		lmode = (i == 1) ? "w" : "a";
1402 		recvrequest(dolist ? "LIST" : "NLST", dest, argv[i], lmode,
1403 		    0, 0);
1404 		if (!mflag && fromatty) {
1405 			ointer = interactive;
1406 			interactive = 1;
1407 			if (confirm(argv[0], NULL)) {
1408 				mflag++;
1409 			}
1410 			interactive = ointer;
1411 		}
1412 	}
1413 	(void)xsignal(SIGINT, oldintr);
1414 	mflag = 0;
1415 	if (dest != odest)			/* free up after globulize() */
1416 		free(dest);
1417 }
1418 
1419 /*
1420  * Do a shell escape
1421  */
1422 /*ARGSUSED*/
1423 void
shell(int argc,char * argv[])1424 shell(int argc, char *argv[])
1425 {
1426 	pid_t pid;
1427 	sigfunc oldintr;
1428 	char shellnam[MAXPATHLEN];
1429 	const char *shellp, *namep;
1430 	int wait_status;
1431 
1432 	if (argc == 0) {
1433 		UPRINTF("usage: %s [command [args]]\n", argv[0]);
1434 		code = -1;
1435 		return;
1436 	}
1437 	oldintr = xsignal(SIGINT, SIG_IGN);
1438 	if ((pid = fork()) == 0) {
1439 		for (pid = 3; pid < 20; pid++)
1440 			(void)close(pid);
1441 		(void)xsignal(SIGINT, SIG_DFL);
1442 		shellp = getenv("SHELL");
1443 		if (shellp == NULL)
1444 			shellp = _PATH_BSHELL;
1445 		namep = strrchr(shellp, '/');
1446 		if (namep == NULL)
1447 			namep = shellp;
1448 		else
1449 			namep++;
1450 		(void)strlcpy(shellnam, namep, sizeof(shellnam));
1451 		if (ftp_debug) {
1452 			fputs(shellp, ttyout);
1453 			putc('\n', ttyout);
1454 		}
1455 		if (argc > 1) {
1456 			execl(shellp, shellnam, "-c", altarg, (char *)0);
1457 		}
1458 		else {
1459 			execl(shellp, shellnam, (char *)0);
1460 		}
1461 		warn("Can't execute `%s'", shellp);
1462 		code = -1;
1463 		exit(1);
1464 	}
1465 	if (pid > 0)
1466 		while (wait(&wait_status) != pid)
1467 			;
1468 	(void)xsignal(SIGINT, oldintr);
1469 	if (pid == -1) {
1470 		warn("Can't fork a subshell; try again later");
1471 		code = -1;
1472 	} else
1473 		code = 0;
1474 }
1475 
1476 /*
1477  * Send new user information (re-login)
1478  */
1479 void
user(int argc,char * argv[])1480 user(int argc, char *argv[])
1481 {
1482 	char *password;
1483 	char emptypass[] = "";
1484 	int n, aflag = 0;
1485 
1486 	if (argc == 0)
1487 		goto usage;
1488 	if (argc < 2)
1489 		(void)another(&argc, &argv, "username");
1490 	if (argc < 2 || argc > 4) {
1491  usage:
1492 		UPRINTF("usage: %s username [password [account]]\n",
1493 		    argv[0]);
1494 		code = -1;
1495 		return;
1496 	}
1497 	n = command("USER %s", argv[1]);
1498 	if (n == CONTINUE) {
1499 		if (argc < 3) {
1500 			password = getpass("Password: ");
1501 			if (password == NULL)
1502 				password = emptypass;
1503 		} else {
1504 			password = argv[2];
1505 		}
1506 		n = command("PASS %s", password);
1507 		memset(password, 0, strlen(password));
1508 	}
1509 	if (n == CONTINUE) {
1510 		aflag++;
1511 		if (argc < 4) {
1512 			password = getpass("Account: ");
1513 			if (password == NULL)
1514 				password = emptypass;
1515 		} else {
1516 			password = argv[3];
1517 		}
1518 		n = command("ACCT %s", password);
1519 		memset(password, 0, strlen(password));
1520 	}
1521 	if (n != COMPLETE) {
1522 		fputs("Login failed.\n", ttyout);
1523 		return;
1524 	}
1525 	if (!aflag && argc == 4) {
1526 		password = argv[3];
1527 		(void)command("ACCT %s", password);
1528 		memset(password, 0, strlen(password));
1529 	}
1530 	connected = -1;
1531 	getremoteinfo();
1532 }
1533 
1534 /*
1535  * Print working directory on remote machine.
1536  */
1537 /*VARARGS*/
1538 void
pwd(int argc,char * argv[])1539 pwd(int argc, char *argv[])
1540 {
1541 
1542 	code = -1;
1543 	if (argc != 1) {
1544 		UPRINTF("usage: %s\n", argv[0]);
1545 		return;
1546 	}
1547 	if (! remotecwd[0])
1548 		updateremotecwd();
1549 	if (! remotecwd[0])
1550 		fprintf(ttyout, "Unable to determine remote directory\n");
1551 	else {
1552 		fprintf(ttyout, "Remote directory: %s\n", remotecwd);
1553 		code = 0;
1554 	}
1555 }
1556 
1557 /*
1558  * Print working directory on local machine.
1559  */
1560 void
lpwd(int argc,char * argv[])1561 lpwd(int argc, char *argv[])
1562 {
1563 
1564 	code = -1;
1565 	if (argc != 1) {
1566 		UPRINTF("usage: %s\n", argv[0]);
1567 		return;
1568 	}
1569 	if (! localcwd[0])
1570 		updatelocalcwd();
1571 	if (! localcwd[0])
1572 		fprintf(ttyout, "Unable to determine local directory\n");
1573 	else {
1574 		fprintf(ttyout, "Local directory: %s\n", localcwd);
1575 		code = 0;
1576 	}
1577 }
1578 
1579 /*
1580  * Make a directory.
1581  */
1582 void
makedir(int argc,char * argv[])1583 makedir(int argc, char *argv[])
1584 {
1585 	int r;
1586 
1587 	if (argc == 0 || argc > 2 ||
1588 	    (argc == 1 && !another(&argc, &argv, "directory-name"))) {
1589 		UPRINTF("usage: %s directory-name\n", argv[0]);
1590 		code = -1;
1591 		return;
1592 	}
1593 	r = command("MKD %s", argv[1]);
1594 	if (r == ERROR && code == 500) {
1595 		if (verbose)
1596 			fputs("MKD command not recognized, trying XMKD.\n",
1597 			    ttyout);
1598 		r = command("XMKD %s", argv[1]);
1599 	}
1600 	if (r == COMPLETE)
1601 		dirchange = 1;
1602 }
1603 
1604 /*
1605  * Remove a directory.
1606  */
1607 void
removedir(int argc,char * argv[])1608 removedir(int argc, char *argv[])
1609 {
1610 	int r;
1611 
1612 	if (argc == 0 || argc > 2 ||
1613 	    (argc == 1 && !another(&argc, &argv, "directory-name"))) {
1614 		UPRINTF("usage: %s directory-name\n", argv[0]);
1615 		code = -1;
1616 		return;
1617 	}
1618 	r = command("RMD %s", argv[1]);
1619 	if (r == ERROR && code == 500) {
1620 		if (verbose)
1621 			fputs("RMD command not recognized, trying XRMD.\n",
1622 			    ttyout);
1623 		r = command("XRMD %s", argv[1]);
1624 	}
1625 	if (r == COMPLETE)
1626 		dirchange = 1;
1627 }
1628 
1629 /*
1630  * Send a line, verbatim, to the remote machine.
1631  */
1632 void
quote(int argc,char * argv[])1633 quote(int argc, char *argv[])
1634 {
1635 
1636 	if (argc == 0 ||
1637 	    (argc == 1 && !another(&argc, &argv, "command line to send"))) {
1638 		UPRINTF("usage: %s line-to-send\n", argv[0]);
1639 		code = -1;
1640 		return;
1641 	}
1642 	quote1("", argc, argv);
1643 }
1644 
1645 /*
1646  * Send a SITE command to the remote machine.  The line
1647  * is sent verbatim to the remote machine, except that the
1648  * word "SITE" is added at the front.
1649  */
1650 void
site(int argc,char * argv[])1651 site(int argc, char *argv[])
1652 {
1653 
1654 	if (argc == 0 ||
1655 	    (argc == 1 && !another(&argc, &argv, "arguments to SITE command"))){
1656 		UPRINTF("usage: %s line-to-send\n", argv[0]);
1657 		code = -1;
1658 		return;
1659 	}
1660 	quote1("SITE ", argc, argv);
1661 }
1662 
1663 /*
1664  * Turn argv[1..argc) into a space-separated string, then prepend initial text.
1665  * Send the result as a one-line command and get response.
1666  */
1667 void
quote1(const char * initial,int argc,char * argv[])1668 quote1(const char *initial, int argc, char *argv[])
1669 {
1670 	int i;
1671 	char buf[BUFSIZ];		/* must be >= sizeof(line) */
1672 
1673 	(void)strlcpy(buf, initial, sizeof(buf));
1674 	for (i = 1; i < argc; i++) {
1675 		(void)strlcat(buf, argv[i], sizeof(buf));
1676 		if (i < (argc - 1))
1677 			(void)strlcat(buf, " ", sizeof(buf));
1678 	}
1679 	if (command("%s", buf) == PRELIM) {
1680 		while (getreply(0) == PRELIM)
1681 			continue;
1682 	}
1683 	dirchange = 1;
1684 }
1685 
1686 void
do_chmod(int argc,char * argv[])1687 do_chmod(int argc, char *argv[])
1688 {
1689 
1690 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "mode")))
1691 		goto usage;
1692 	if ((argc < 3 && !another(&argc, &argv, "remote-file")) || argc > 3) {
1693  usage:
1694 		UPRINTF("usage: %s mode remote-file\n", argv[0]);
1695 		code = -1;
1696 		return;
1697 	}
1698 	(void)command("SITE CHMOD %s %s", argv[1], argv[2]);
1699 }
1700 
1701 #define COMMAND_1ARG(argc, argv, cmd)			\
1702 	if (argc == 1)					\
1703 		command(cmd);				\
1704 	else						\
1705 		command(cmd " %s", argv[1])
1706 
1707 void
do_umask(int argc,char * argv[])1708 do_umask(int argc, char *argv[])
1709 {
1710 	int oldverbose = verbose;
1711 
1712 	if (argc == 0) {
1713 		UPRINTF("usage: %s [umask]\n", argv[0]);
1714 		code = -1;
1715 		return;
1716 	}
1717 	verbose = 1;
1718 	COMMAND_1ARG(argc, argv, "SITE UMASK");
1719 	verbose = oldverbose;
1720 }
1721 
1722 void
idlecmd(int argc,char * argv[])1723 idlecmd(int argc, char *argv[])
1724 {
1725 	int oldverbose = verbose;
1726 
1727 	if (argc < 1 || argc > 2) {
1728 		UPRINTF("usage: %s [seconds]\n", argv[0]);
1729 		code = -1;
1730 		return;
1731 	}
1732 	verbose = 1;
1733 	COMMAND_1ARG(argc, argv, "SITE IDLE");
1734 	verbose = oldverbose;
1735 }
1736 
1737 /*
1738  * Ask the other side for help.
1739  */
1740 void
rmthelp(int argc,char * argv[])1741 rmthelp(int argc, char *argv[])
1742 {
1743 	int oldverbose = verbose;
1744 
1745 	if (argc == 0) {
1746 		UPRINTF("usage: %s\n", argv[0]);
1747 		code = -1;
1748 		return;
1749 	}
1750 	verbose = 1;
1751 	COMMAND_1ARG(argc, argv, "HELP");
1752 	verbose = oldverbose;
1753 }
1754 
1755 /*
1756  * Terminate session and exit.
1757  * May be called with 0, NULL.
1758  */
1759 /*VARARGS*/
1760 void
quit(int argc,char * argv[])1761 quit(int argc, char *argv[])
1762 {
1763 
1764 			/* this may be called with argc == 0, argv == NULL */
1765 	if (argc == 0 && argv != NULL) {
1766 		UPRINTF("usage: %s\n", argv[0]);
1767 		code = -1;
1768 		return;
1769 	}
1770 	if (connected)
1771 		disconnect(0, NULL);
1772 	pswitch(1);
1773 	if (connected)
1774 		disconnect(0, NULL);
1775 	exit(0);
1776 }
1777 
1778 /*
1779  * Terminate session, but don't exit.
1780  * May be called with 0, NULL.
1781  */
1782 void
disconnect(int argc,char * argv[])1783 disconnect(int argc, char *argv[])
1784 {
1785 
1786 			/* this may be called with argc == 0, argv == NULL */
1787 	if (argc == 0 && argv != NULL) {
1788 		UPRINTF("usage: %s\n", argv[0]);
1789 		code = -1;
1790 		return;
1791 	}
1792 	if (!connected)
1793 		return;
1794 	(void)command("QUIT");
1795 	cleanuppeer();
1796 }
1797 
1798 void
account(int argc,char * argv[])1799 account(int argc, char *argv[])
1800 {
1801 	char *ap;
1802 	char emptypass[] = "";
1803 
1804 	if (argc == 0 || argc > 2) {
1805 		UPRINTF("usage: %s [password]\n", argv[0]);
1806 		code = -1;
1807 		return;
1808 	}
1809 	else if (argc == 2)
1810 		ap = argv[1];
1811 	else {
1812 		ap = getpass("Account:");
1813 		if (ap == NULL)
1814 			ap = emptypass;
1815 	}
1816 	(void)command("ACCT %s", ap);
1817 	memset(ap, 0, strlen(ap));
1818 }
1819 
1820 sigjmp_buf abortprox;
1821 
1822 void
proxabort(int notused)1823 proxabort(int notused)
1824 {
1825 
1826 	sigint_raised = 1;
1827 	alarmtimer(0);
1828 	if (!proxy) {
1829 		pswitch(1);
1830 	}
1831 	if (connected) {
1832 		proxflag = 1;
1833 	}
1834 	else {
1835 		proxflag = 0;
1836 	}
1837 	pswitch(0);
1838 	siglongjmp(abortprox, 1);
1839 }
1840 
1841 void
doproxy(int argc,char * argv[])1842 doproxy(int argc, char *argv[])
1843 {
1844 	struct cmd *c;
1845 	int cmdpos;
1846 	sigfunc oldintr;
1847 	char cmdbuf[MAX_C_NAME];
1848 
1849 	if (argc == 0 || (argc == 1 && !another(&argc, &argv, "command"))) {
1850 		UPRINTF("usage: %s command\n", argv[0]);
1851 		code = -1;
1852 		return;
1853 	}
1854 	c = getcmd(argv[1]);
1855 	if (c == (struct cmd *) -1) {
1856 		fputs("?Ambiguous command.\n", ttyout);
1857 		code = -1;
1858 		return;
1859 	}
1860 	if (c == 0) {
1861 		fputs("?Invalid command.\n", ttyout);
1862 		code = -1;
1863 		return;
1864 	}
1865 	if (!c->c_proxy) {
1866 		fputs("?Invalid proxy command.\n", ttyout);
1867 		code = -1;
1868 		return;
1869 	}
1870 	if (sigsetjmp(abortprox, 1)) {
1871 		code = -1;
1872 		return;
1873 	}
1874 	oldintr = xsignal(SIGINT, proxabort);
1875 	pswitch(1);
1876 	if (c->c_conn && !connected) {
1877 		fputs("Not connected.\n", ttyout);
1878 		pswitch(0);
1879 		(void)xsignal(SIGINT, oldintr);
1880 		code = -1;
1881 		return;
1882 	}
1883 	cmdpos = strcspn(line, " \t");
1884 	if (cmdpos > 0)		/* remove leading "proxy " from input buffer */
1885 		memmove(line, line + cmdpos + 1, strlen(line) - cmdpos + 1);
1886 	(void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
1887 	argv[1] = cmdbuf;
1888 	(*c->c_handler)(argc-1, argv+1);
1889 	if (connected) {
1890 		proxflag = 1;
1891 	}
1892 	else {
1893 		proxflag = 0;
1894 	}
1895 	pswitch(0);
1896 	(void)xsignal(SIGINT, oldintr);
1897 }
1898 
1899 void
setcase(int argc,char * argv[])1900 setcase(int argc, char *argv[])
1901 {
1902 
1903 	code = togglevar(argc, argv, &mcase, "Case mapping");
1904 }
1905 
1906 /*
1907  * convert the given name to lower case if it's all upper case, into
1908  * a static buffer which is returned to the caller
1909  */
1910 static const char *
docase(char * dst,size_t dlen,const char * src)1911 docase(char *dst, size_t dlen, const char *src)
1912 {
1913 	size_t i;
1914 	int dochange = 1;
1915 
1916 	for (i = 0; src[i] != '\0' && i < dlen - 1; i++) {
1917 		dst[i] = src[i];
1918 		if (islower((unsigned char)dst[i]))
1919 			dochange = 0;
1920 	}
1921 	dst[i] = '\0';
1922 
1923 	if (dochange) {
1924 		for (i = 0; dst[i] != '\0'; i++)
1925 			if (isupper((unsigned char)dst[i]))
1926 				dst[i] = tolower((unsigned char)dst[i]);
1927 	}
1928 	return dst;
1929 }
1930 
1931 void
setcr(int argc,char * argv[])1932 setcr(int argc, char *argv[])
1933 {
1934 
1935 	code = togglevar(argc, argv, &crflag, "Carriage Return stripping");
1936 }
1937 
1938 void
setntrans(int argc,char * argv[])1939 setntrans(int argc, char *argv[])
1940 {
1941 
1942 	if (argc == 0 || argc > 3) {
1943 		UPRINTF("usage: %s [inchars [outchars]]\n", argv[0]);
1944 		code = -1;
1945 		return;
1946 	}
1947 	if (argc == 1) {
1948 		ntflag = 0;
1949 		fputs("Ntrans off.\n", ttyout);
1950 		code = ntflag;
1951 		return;
1952 	}
1953 	ntflag++;
1954 	code = ntflag;
1955 	(void)strlcpy(ntin, argv[1], sizeof(ntin));
1956 	if (argc == 2) {
1957 		ntout[0] = '\0';
1958 		return;
1959 	}
1960 	(void)strlcpy(ntout, argv[2], sizeof(ntout));
1961 }
1962 
1963 static const char *
dotrans(char * dst,size_t dlen,const char * src)1964 dotrans(char *dst, size_t dlen, const char *src)
1965 {
1966 	const char *cp1;
1967 	char *cp2 = dst;
1968 	size_t i, ostop;
1969 
1970 	for (ostop = 0; *(ntout + ostop) && ostop < 16; ostop++)
1971 		continue;
1972 	for (cp1 = src; *cp1; cp1++) {
1973 		int found = 0;
1974 		for (i = 0; *(ntin + i) && i < 16; i++) {
1975 			if (*cp1 == *(ntin + i)) {
1976 				found++;
1977 				if (i < ostop) {
1978 					*cp2++ = *(ntout + i);
1979 					if (cp2 - dst >= (ptrdiff_t)(dlen - 1))
1980 						goto out;
1981 				}
1982 				break;
1983 			}
1984 		}
1985 		if (!found) {
1986 			*cp2++ = *cp1;
1987 		}
1988 	}
1989 out:
1990 	*cp2 = '\0';
1991 	return dst;
1992 }
1993 
1994 void
setnmap(int argc,char * argv[])1995 setnmap(int argc, char *argv[])
1996 {
1997 	char *cp;
1998 
1999 	if (argc == 1) {
2000 		mapflag = 0;
2001 		fputs("Nmap off.\n", ttyout);
2002 		code = mapflag;
2003 		return;
2004 	}
2005 	if (argc == 0 ||
2006 	    (argc < 3 && !another(&argc, &argv, "mapout")) || argc > 3) {
2007 		UPRINTF("usage: %s [mapin mapout]\n", argv[0]);
2008 		code = -1;
2009 		return;
2010 	}
2011 	mapflag = 1;
2012 	code = 1;
2013 	cp = strchr(altarg, ' ');
2014 	if (proxy) {
2015 		while(*++cp == ' ')
2016 			continue;
2017 		altarg = cp;
2018 		cp = strchr(altarg, ' ');
2019 	}
2020 	*cp = '\0';
2021 	(void)strlcpy(mapin, altarg, MAXPATHLEN);
2022 	while (*++cp == ' ')
2023 		continue;
2024 	(void)strlcpy(mapout, cp, MAXPATHLEN);
2025 }
2026 
2027 static const char *
domap(char * dst,size_t dlen,const char * src)2028 domap(char *dst, size_t dlen, const char *src)
2029 {
2030 	const char *cp1 = src;
2031 	char *cp2 = mapin;
2032 	const char *tp[9], *te[9];
2033 	int i, toks[9], toknum = 0, match = 1;
2034 
2035 	for (i=0; i < 9; ++i) {
2036 		toks[i] = 0;
2037 	}
2038 	while (match && *cp1 && *cp2) {
2039 		switch (*cp2) {
2040 			case '\\':
2041 				if (*++cp2 != *cp1) {
2042 					match = 0;
2043 				}
2044 				break;
2045 			case '$':
2046 				if (*(cp2+1) >= '1' && (*cp2+1) <= '9') {
2047 					if (*cp1 != *(++cp2+1)) {
2048 						toks[toknum = *cp2 - '1']++;
2049 						tp[toknum] = cp1;
2050 						while (*++cp1 && *(cp2+1)
2051 							!= *cp1);
2052 						te[toknum] = cp1;
2053 					}
2054 					cp2++;
2055 					break;
2056 				}
2057 				/* FALLTHROUGH */
2058 			default:
2059 				if (*cp2 != *cp1) {
2060 					match = 0;
2061 				}
2062 				break;
2063 		}
2064 		if (match && *cp1) {
2065 			cp1++;
2066 		}
2067 		if (match && *cp2) {
2068 			cp2++;
2069 		}
2070 	}
2071 	if (!match && *cp1) /* last token mismatch */
2072 	{
2073 		toks[toknum] = 0;
2074 	}
2075 	cp2 = dst;
2076 	*cp2 = '\0';
2077 	cp1 = mapout;
2078 	while (*cp1) {
2079 		match = 0;
2080 		switch (*cp1) {
2081 			case '\\':
2082 				if (*(cp1 + 1)) {
2083 					*cp2++ = *++cp1;
2084 				}
2085 				break;
2086 			case '[':
2087 LOOP:
2088 				if (*++cp1 == '$' &&
2089 				    isdigit((unsigned char)*(cp1+1))) {
2090 					if (*++cp1 == '0') {
2091 						const char *cp3 = src;
2092 
2093 						while (*cp3) {
2094 							*cp2++ = *cp3++;
2095 						}
2096 						match = 1;
2097 					}
2098 					else if (toks[toknum = *cp1 - '1']) {
2099 						const char *cp3 = tp[toknum];
2100 
2101 						while (cp3 != te[toknum]) {
2102 							*cp2++ = *cp3++;
2103 						}
2104 						match = 1;
2105 					}
2106 				}
2107 				else {
2108 					while (*cp1 && *cp1 != ',' &&
2109 					    *cp1 != ']') {
2110 						if (*cp1 == '\\') {
2111 							cp1++;
2112 						}
2113 						else if (*cp1 == '$' &&
2114 						    isdigit((unsigned char)*(cp1+1))) {
2115 							if (*++cp1 == '0') {
2116 							   const char *cp3 = src;
2117 
2118 							   while (*cp3) {
2119 								*cp2++ = *cp3++;
2120 							   }
2121 							}
2122 							else if (toks[toknum =
2123 							    *cp1 - '1']) {
2124 							   const char *cp3=tp[toknum];
2125 
2126 							   while (cp3 !=
2127 								  te[toknum]) {
2128 								*cp2++ = *cp3++;
2129 							   }
2130 							}
2131 						}
2132 						else if (*cp1) {
2133 							*cp2++ = *cp1++;
2134 						}
2135 					}
2136 					if (!*cp1) {
2137 						fputs(
2138 						"nmap: unbalanced brackets.\n",
2139 						    ttyout);
2140 						return (src);
2141 					}
2142 					match = 1;
2143 					cp1--;
2144 				}
2145 				if (match) {
2146 					while (*++cp1 && *cp1 != ']') {
2147 					      if (*cp1 == '\\' && *(cp1 + 1)) {
2148 							cp1++;
2149 					      }
2150 					}
2151 					if (!*cp1) {
2152 						fputs(
2153 						"nmap: unbalanced brackets.\n",
2154 						    ttyout);
2155 						return (src);
2156 					}
2157 					break;
2158 				}
2159 				switch (*++cp1) {
2160 					case ',':
2161 						goto LOOP;
2162 					case ']':
2163 						break;
2164 					default:
2165 						cp1--;
2166 						goto LOOP;
2167 				}
2168 				break;
2169 			case '$':
2170 				if (isdigit((unsigned char)*(cp1 + 1))) {
2171 					if (*++cp1 == '0') {
2172 						const char *cp3 = src;
2173 
2174 						while (*cp3) {
2175 							*cp2++ = *cp3++;
2176 						}
2177 					}
2178 					else if (toks[toknum = *cp1 - '1']) {
2179 						const char *cp3 = tp[toknum];
2180 
2181 						while (cp3 != te[toknum]) {
2182 							*cp2++ = *cp3++;
2183 						}
2184 					}
2185 					break;
2186 				}
2187 				/* intentional drop through */
2188 			default:
2189 				*cp2++ = *cp1;
2190 				break;
2191 		}
2192 		cp1++;
2193 	}
2194 	*cp2 = '\0';
2195 	return *dst ? dst : src;
2196 }
2197 
2198 void
setpassive(int argc,char * argv[])2199 setpassive(int argc, char *argv[])
2200 {
2201 
2202 	if (argc == 1) {
2203 		passivemode = !passivemode;
2204 		activefallback = passivemode;
2205 	} else if (argc != 2) {
2206  passiveusage:
2207 		UPRINTF("usage: %s [ on | off | auto ]\n", argv[0]);
2208 		code = -1;
2209 		return;
2210 	} else if (strcasecmp(argv[1], "on") == 0) {
2211 		passivemode = 1;
2212 		activefallback = 0;
2213 	} else if (strcasecmp(argv[1], "off") == 0) {
2214 		passivemode = 0;
2215 		activefallback = 0;
2216 	} else if (strcasecmp(argv[1], "auto") == 0) {
2217 		passivemode = 1;
2218 		activefallback = 1;
2219 	} else
2220 		goto passiveusage;
2221 	fprintf(ttyout, "Passive mode: %s; fallback to active mode: %s.\n",
2222 	    onoff(passivemode), onoff(activefallback));
2223 	code = passivemode;
2224 }
2225 
2226 
2227 void
setepsv4(int argc,char * argv[])2228 setepsv4(int argc, char *argv[])
2229 {
2230 	code = togglevar(argc, argv, &epsv4,
2231 	    verbose ? "EPSV/EPRT on IPv4" : NULL);
2232 	epsv4bad = 0;
2233 }
2234 
2235 void
setepsv6(int argc,char * argv[])2236 setepsv6(int argc, char *argv[])
2237 {
2238 	code = togglevar(argc, argv, &epsv6,
2239 	    verbose ? "EPSV/EPRT on IPv6" : NULL);
2240 	epsv6bad = 0;
2241 }
2242 
2243 void
setepsv(int argc,char * argv[])2244 setepsv(int argc, char*argv[])
2245 {
2246 	setepsv4(argc,argv);
2247 	setepsv6(argc,argv);
2248 }
2249 
2250 void
setsunique(int argc,char * argv[])2251 setsunique(int argc, char *argv[])
2252 {
2253 
2254 	code = togglevar(argc, argv, &sunique, "Store unique");
2255 }
2256 
2257 void
setrunique(int argc,char * argv[])2258 setrunique(int argc, char *argv[])
2259 {
2260 
2261 	code = togglevar(argc, argv, &runique, "Receive unique");
2262 }
2263 
2264 int
parserate(int argc,char * argv[],int cmdlineopt)2265 parserate(int argc, char *argv[], int cmdlineopt)
2266 {
2267 	int dir, max, incr, showonly;
2268 	sigfunc oldusr1, oldusr2;
2269 
2270 	if (argc > 4 || (argc < (cmdlineopt ? 3 : 2))) {
2271  usage:
2272 		if (cmdlineopt)
2273 			UPRINTF(
2274 	"usage: %s (all|get|put),maximum-bytes[,increment-bytes]]\n",
2275 			    argv[0]);
2276 		else
2277 			UPRINTF(
2278 	"usage: %s (all|get|put) [maximum-bytes [increment-bytes]]\n",
2279 			    argv[0]);
2280 		return -1;
2281 	}
2282 	dir = max = incr = showonly = 0;
2283 #define	RATE_GET	1
2284 #define	RATE_PUT	2
2285 #define	RATE_ALL	(RATE_GET | RATE_PUT)
2286 
2287 	if (strcasecmp(argv[1], "all") == 0)
2288 		dir = RATE_ALL;
2289 	else if (strcasecmp(argv[1], "get") == 0)
2290 		dir = RATE_GET;
2291 	else if (strcasecmp(argv[1], "put") == 0)
2292 		dir = RATE_PUT;
2293 	else
2294 		goto usage;
2295 
2296 	if (argc >= 3) {
2297 		if ((max = strsuftoi(argv[2])) < 0)
2298 			goto usage;
2299 	} else
2300 		showonly = 1;
2301 
2302 	if (argc == 4) {
2303 		if ((incr = strsuftoi(argv[3])) <= 0)
2304 			goto usage;
2305 	} else
2306 		incr = DEFAULTINCR;
2307 
2308 	oldusr1 = xsignal(SIGUSR1, SIG_IGN);
2309 	oldusr2 = xsignal(SIGUSR2, SIG_IGN);
2310 	if (dir & RATE_GET) {
2311 		if (!showonly) {
2312 			rate_get = max;
2313 			rate_get_incr = incr;
2314 		}
2315 		if (!cmdlineopt || verbose)
2316 			fprintf(ttyout,
2317 		"Get transfer rate throttle: %s; maximum: %d; increment %d.\n",
2318 			    onoff(rate_get), rate_get, rate_get_incr);
2319 	}
2320 	if (dir & RATE_PUT) {
2321 		if (!showonly) {
2322 			rate_put = max;
2323 			rate_put_incr = incr;
2324 		}
2325 		if (!cmdlineopt || verbose)
2326 			fprintf(ttyout,
2327 		"Put transfer rate throttle: %s; maximum: %d; increment %d.\n",
2328 			    onoff(rate_put), rate_put, rate_put_incr);
2329 	}
2330 	(void)xsignal(SIGUSR1, oldusr1);
2331 	(void)xsignal(SIGUSR2, oldusr2);
2332 	return 0;
2333 }
2334 
2335 void
setrate(int argc,char * argv[])2336 setrate(int argc, char *argv[])
2337 {
2338 
2339 	code = parserate(argc, argv, 0);
2340 }
2341 
2342 /* change directory to parent directory */
2343 void
cdup(int argc,char * argv[])2344 cdup(int argc, char *argv[])
2345 {
2346 	int r;
2347 
2348 	if (argc == 0) {
2349 		UPRINTF("usage: %s\n", argv[0]);
2350 		code = -1;
2351 		return;
2352 	}
2353 	r = command("CDUP");
2354 	if (r == ERROR && code == 500) {
2355 		if (verbose)
2356 			fputs("CDUP command not recognized, trying XCUP.\n",
2357 			    ttyout);
2358 		r = command("XCUP");
2359 	}
2360 	if (r == COMPLETE) {
2361 		dirchange = 1;
2362 		updateremotecwd();
2363 	}
2364 }
2365 
2366 /*
2367  * Restart transfer at specific point
2368  */
2369 void
restart(int argc,char * argv[])2370 restart(int argc, char *argv[])
2371 {
2372 
2373 	if (argc == 0 || argc > 2) {
2374 		UPRINTF("usage: %s [restart-point]\n", argv[0]);
2375 		code = -1;
2376 		return;
2377 	}
2378 	if (! features[FEAT_REST_STREAM]) {
2379 		fprintf(ttyout,
2380 		    "Restart is not supported by the remote server.\n");
2381 		return;
2382 	}
2383 	if (argc == 2) {
2384 		off_t rp;
2385 		char *ep;
2386 
2387 		rp = STRTOLL(argv[1], &ep, 10);
2388 		if (rp < 0 || *ep != '\0')
2389 			fprintf(ttyout, "restart: Invalid offset `%s'\n",
2390 			    argv[1]);
2391 		else
2392 			restart_point = rp;
2393 	}
2394 	if (restart_point == 0)
2395 		fputs("No restart point defined.\n", ttyout);
2396 	else
2397 		fprintf(ttyout,
2398 		    "Restarting at " LLF " for next get, put or append\n",
2399 		    (LLT)restart_point);
2400 }
2401 
2402 /*
2403  * Show remote system type
2404  */
2405 void
syst(int argc,char * argv[])2406 syst(int argc, char *argv[])
2407 {
2408 	int oldverbose = verbose;
2409 
2410 	if (argc == 0) {
2411 		UPRINTF("usage: %s\n", argv[0]);
2412 		code = -1;
2413 		return;
2414 	}
2415 	verbose = 1;	/* If we aren't verbose, this doesn't do anything! */
2416 	(void)command("SYST");
2417 	verbose = oldverbose;
2418 }
2419 
2420 void
macdef(int argc,char * argv[])2421 macdef(int argc, char *argv[])
2422 {
2423 	char *tmp;
2424 	int c;
2425 
2426 	if (argc == 0)
2427 		goto usage;
2428 	if (macnum == 16) {
2429 		fputs("Limit of 16 macros have already been defined.\n",
2430 		    ttyout);
2431 		code = -1;
2432 		return;
2433 	}
2434 	if ((argc < 2 && !another(&argc, &argv, "macro name")) || argc > 2) {
2435  usage:
2436 		UPRINTF("usage: %s macro_name\n", argv[0]);
2437 		code = -1;
2438 		return;
2439 	}
2440 	if (interactive)
2441 		fputs(
2442 		"Enter macro line by line, terminating it with a null line.\n",
2443 		    ttyout);
2444 	(void)strlcpy(macros[macnum].mac_name, argv[1],
2445 	    sizeof(macros[macnum].mac_name));
2446 	if (macnum == 0)
2447 		macros[macnum].mac_start = macbuf;
2448 	else
2449 		macros[macnum].mac_start = macros[macnum - 1].mac_end + 1;
2450 	tmp = macros[macnum].mac_start;
2451 	while (tmp != macbuf+4096) {
2452 		if ((c = getchar()) == EOF) {
2453 			fputs("macdef: end of file encountered.\n", ttyout);
2454 			code = -1;
2455 			return;
2456 		}
2457 		if ((*tmp = c) == '\n') {
2458 			if (tmp == macros[macnum].mac_start) {
2459 				macros[macnum++].mac_end = tmp;
2460 				code = 0;
2461 				return;
2462 			}
2463 			if (*(tmp-1) == '\0') {
2464 				macros[macnum++].mac_end = tmp - 1;
2465 				code = 0;
2466 				return;
2467 			}
2468 			*tmp = '\0';
2469 		}
2470 		tmp++;
2471 	}
2472 	while (1) {
2473 		while ((c = getchar()) != '\n' && c != EOF)
2474 			/* LOOP */;
2475 		if (c == EOF || getchar() == '\n') {
2476 			fputs("Macro not defined - 4K buffer exceeded.\n",
2477 			    ttyout);
2478 			code = -1;
2479 			return;
2480 		}
2481 	}
2482 }
2483 
2484 /*
2485  * Get size of file on remote machine
2486  */
2487 void
sizecmd(int argc,char * argv[])2488 sizecmd(int argc, char *argv[])
2489 {
2490 	off_t size;
2491 
2492 	if (argc == 0 || argc > 2 ||
2493 	    (argc == 1 && !another(&argc, &argv, "remote-file"))) {
2494 		UPRINTF("usage: %s remote-file\n", argv[0]);
2495 		code = -1;
2496 		return;
2497 	}
2498 	size = remotesize(argv[1], 1);
2499 	if (size != -1)
2500 		fprintf(ttyout,
2501 		    "%s\t" LLF "\n", argv[1], (LLT)size);
2502 	code = (size > 0);
2503 }
2504 
2505 /*
2506  * Get last modification time of file on remote machine
2507  */
2508 void
modtime(int argc,char * argv[])2509 modtime(int argc, char *argv[])
2510 {
2511 	time_t mtime;
2512 
2513 	if (argc == 0 || argc > 2 ||
2514 	    (argc == 1 && !another(&argc, &argv, "remote-file"))) {
2515 		UPRINTF("usage: %s remote-file\n", argv[0]);
2516 		code = -1;
2517 		return;
2518 	}
2519 	mtime = remotemodtime(argv[1], 1);
2520 	if (mtime != -1)
2521 		fprintf(ttyout, "%s\t%s", argv[1],
2522 		    rfc2822time(localtime(&mtime)));
2523 	code = (mtime > 0);
2524 }
2525 
2526 /*
2527  * Show status on remote machine
2528  */
2529 void
rmtstatus(int argc,char * argv[])2530 rmtstatus(int argc, char *argv[])
2531 {
2532 
2533 	if (argc == 0) {
2534 		UPRINTF("usage: %s [remote-file]\n", argv[0]);
2535 		code = -1;
2536 		return;
2537 	}
2538 	COMMAND_1ARG(argc, argv, "STAT");
2539 }
2540 
2541 /*
2542  * Get file if modtime is more recent than current file
2543  */
2544 void
newer(int argc,char * argv[])2545 newer(int argc, char *argv[])
2546 {
2547 
2548 	if (getit(argc, argv, -1, "w"))
2549 		fprintf(ttyout,
2550 		    "Local file \"%s\" is newer than remote file \"%s\".\n",
2551 		    argv[2], argv[1]);
2552 }
2553 
2554 /*
2555  * Display one local file through $PAGER.
2556  */
2557 void
lpage(int argc,char * argv[])2558 lpage(int argc, char *argv[])
2559 {
2560 	size_t len;
2561 	const char *p;
2562 	char *pager, *locfile;
2563 
2564 	if (argc == 0 || argc > 2 ||
2565 	    (argc == 1 && !another(&argc, &argv, "local-file"))) {
2566 		UPRINTF("usage: %s local-file\n", argv[0]);
2567 		code = -1;
2568 		return;
2569 	}
2570 	if ((locfile = globulize(argv[1])) == NULL) {
2571 		code = -1;
2572 		return;
2573 	}
2574 	p = getoptionvalue("pager");
2575 	if (EMPTYSTRING(p))
2576 		p = DEFAULTPAGER;
2577 	len = strlen(p) + strlen(locfile) + 2;
2578 	pager = ftp_malloc(len);
2579 	(void)strlcpy(pager, p,		len);
2580 	(void)strlcat(pager, " ",	len);
2581 	(void)strlcat(pager, locfile,	len);
2582 	system(pager);
2583 	code = 0;
2584 	(void)free(pager);
2585 	(void)free(locfile);
2586 }
2587 
2588 /*
2589  * Display one remote file through $PAGER.
2590  */
2591 void
page(int argc,char * argv[])2592 page(int argc, char *argv[])
2593 {
2594 	int ohash, orestart_point, overbose;
2595 	size_t len;
2596 	const char *p;
2597 	char *pager;
2598 
2599 	if (argc == 0 || argc > 2 ||
2600 	    (argc == 1 && !another(&argc, &argv, "remote-file"))) {
2601 		UPRINTF("usage: %s remote-file\n", argv[0]);
2602 		code = -1;
2603 		return;
2604 	}
2605 	p = getoptionvalue("pager");
2606 	if (EMPTYSTRING(p))
2607 		p = DEFAULTPAGER;
2608 	len = strlen(p) + 2;
2609 	pager = ftp_malloc(len);
2610 	pager[0] = '|';
2611 	(void)strlcpy(pager + 1, p, len - 1);
2612 
2613 	ohash = hash;
2614 	orestart_point = restart_point;
2615 	overbose = verbose;
2616 	hash = restart_point = verbose = 0;
2617 	recvrequest("RETR", pager, argv[1], "r+", 1, 0);
2618 	hash = ohash;
2619 	restart_point = orestart_point;
2620 	verbose = overbose;
2621 	(void)free(pager);
2622 }
2623 
2624 /*
2625  * Set the socket send or receive buffer size.
2626  */
2627 void
setxferbuf(int argc,char * argv[])2628 setxferbuf(int argc, char *argv[])
2629 {
2630 	int size, dir;
2631 
2632 	if (argc != 2) {
2633  usage:
2634 		UPRINTF("usage: %s size\n", argv[0]);
2635 		code = -1;
2636 		return;
2637 	}
2638 	if (strcasecmp(argv[0], "sndbuf") == 0)
2639 		dir = RATE_PUT;
2640 	else if (strcasecmp(argv[0], "rcvbuf") == 0)
2641 		dir = RATE_GET;
2642 	else if (strcasecmp(argv[0], "xferbuf") == 0)
2643 		dir = RATE_ALL;
2644 	else
2645 		goto usage;
2646 
2647 	if ((size = strsuftoi(argv[1])) == -1)
2648 		goto usage;
2649 
2650 	if (size == 0) {
2651 		fprintf(ttyout, "%s: size must be positive.\n", argv[0]);
2652 		goto usage;
2653 	}
2654 
2655 	if (dir & RATE_PUT)
2656 		sndbuf_size = size;
2657 	if (dir & RATE_GET)
2658 		rcvbuf_size = size;
2659 	fprintf(ttyout, "Socket buffer sizes: send %d, receive %d.\n",
2660 	    sndbuf_size, rcvbuf_size);
2661 	code = 0;
2662 }
2663 
2664 /*
2665  * Set or display options (defaults are provided by various env vars)
2666  */
2667 void
setoption(int argc,char * argv[])2668 setoption(int argc, char *argv[])
2669 {
2670 	struct option *o;
2671 
2672 	code = -1;
2673 	if (argc == 0 || (argc != 1 && argc != 3)) {
2674 		UPRINTF("usage: %s [option value]\n", argv[0]);
2675 		return;
2676 	}
2677 
2678 #define	OPTIONINDENT ((int) sizeof("https_proxy"))
2679 	if (argc == 1) {
2680 		for (o = optiontab; o->name != NULL; o++) {
2681 			fprintf(ttyout, "%-*s\t%s\n", OPTIONINDENT,
2682 			    o->name, o->value ? o->value : "");
2683 		}
2684 	} else {
2685 		set_option(argv[1], argv[2], 1);
2686 	}
2687 	code = 0;
2688 }
2689 
2690 void
set_option(const char * option,const char * value,int doverbose)2691 set_option(const char * option, const char * value, int doverbose)
2692 {
2693 	struct option *o;
2694 
2695 	o = getoption(option);
2696 	if (o == NULL) {
2697 		fprintf(ttyout, "No such option `%s'.\n", option);
2698 		return;
2699 	}
2700 	FREEPTR(o->value);
2701 	o->value = ftp_strdup(value);
2702 	if (verbose && doverbose)
2703 		fprintf(ttyout, "Setting `%s' to `%s'.\n",
2704 		    o->name, o->value);
2705 }
2706 
2707 /*
2708  * Unset an option
2709  */
2710 void
unsetoption(int argc,char * argv[])2711 unsetoption(int argc, char *argv[])
2712 {
2713 	struct option *o;
2714 
2715 	code = -1;
2716 	if (argc == 0 || argc != 2) {
2717 		UPRINTF("usage: %s option\n", argv[0]);
2718 		return;
2719 	}
2720 
2721 	o = getoption(argv[1]);
2722 	if (o == NULL) {
2723 		fprintf(ttyout, "No such option `%s'.\n", argv[1]);
2724 		return;
2725 	}
2726 	FREEPTR(o->value);
2727 	fprintf(ttyout, "Unsetting `%s'.\n", o->name);
2728 	code = 0;
2729 }
2730 
2731 /*
2732  * Display features supported by the remote host.
2733  */
2734 void
feat(int argc,char * argv[])2735 feat(int argc, char *argv[])
2736 {
2737 	int oldverbose = verbose;
2738 
2739 	if (argc == 0) {
2740 		UPRINTF("usage: %s\n", argv[0]);
2741 		code = -1;
2742 		return;
2743 	}
2744 	if (! features[FEAT_FEAT]) {
2745 		fprintf(ttyout,
2746 		    "FEAT is not supported by the remote server.\n");
2747 		return;
2748 	}
2749 	verbose = 1;	/* If we aren't verbose, this doesn't do anything! */
2750 	(void)command("FEAT");
2751 	verbose = oldverbose;
2752 }
2753 
2754 void
mlst(int argc,char * argv[])2755 mlst(int argc, char *argv[])
2756 {
2757 	int oldverbose = verbose;
2758 
2759 	if (argc < 1 || argc > 2) {
2760 		UPRINTF("usage: %s [remote-path]\n", argv[0]);
2761 		code = -1;
2762 		return;
2763 	}
2764 	if (! features[FEAT_MLST]) {
2765 		fprintf(ttyout,
2766 		    "MLST is not supported by the remote server.\n");
2767 		return;
2768 	}
2769 	verbose = 1;	/* If we aren't verbose, this doesn't do anything! */
2770 	COMMAND_1ARG(argc, argv, "MLST");
2771 	verbose = oldverbose;
2772 }
2773 
2774 void
opts(int argc,char * argv[])2775 opts(int argc, char *argv[])
2776 {
2777 	int oldverbose = verbose;
2778 
2779 	if (argc < 2 || argc > 3) {
2780 		UPRINTF("usage: %s command [options]\n", argv[0]);
2781 		code = -1;
2782 		return;
2783 	}
2784 	if (! features[FEAT_FEAT]) {
2785 		fprintf(ttyout,
2786 		    "OPTS is not supported by the remote server.\n");
2787 		return;
2788 	}
2789 	verbose = 1;	/* If we aren't verbose, this doesn't do anything! */
2790 	if (argc == 2)
2791 		command("OPTS %s", argv[1]);
2792 	else
2793 		command("OPTS %s %s", argv[1], argv[2]);
2794 	verbose = oldverbose;
2795 }
2796