Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	usr.bin/ftp/small.c	Lines:	0	311	0.0 %
Date:	2017-11-13	Branches:	0	292	0.0 %


/*	$OpenBSD: small.c,v 1.9 2017/01/21 08:33:07 krw Exp $	*/
/*	$NetBSD: cmds.c,v 1.27 1997/08/18 10:20:15 lukem Exp $	*/

/*
 * Copyright (C) 1997 and 1998 WIDE Project.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the project nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/*
 * Copyright (c) 1985, 1989, 1993, 1994
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/*
 * FTP User Program -- Command Routines.
 */
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <arpa/ftp.h>

#include <ctype.h>
#include <err.h>
#include <fnmatch.h>
#include <glob.h>
#include <netdb.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>

#include "ftp_var.h"
#include "pathnames.h"
#include "small.h"

jmp_buf	jabort;
char   *mname;
char   *home = "/";

struct	types {
	char	*t_name;
	char	*t_mode;
	int	t_type;
} types[] = {
	{ "ascii",	"A",	TYPE_A },
	{ "binary",	"I",	TYPE_I },
	{ "image",	"I",	TYPE_I },
	{ NULL }
};

/*
 * Set transfer type.
 */
void
settype(int argc, char *argv[])
{
	struct types *p;
	int comret;

	if (argc > 2) {
		char *sep;

		fprintf(ttyout, "usage: %s [", argv[0]);
		sep = "";
		for (p = types; p->t_name; p++) {
			fprintf(ttyout, "%s%s", sep, p->t_name);
			sep = " | ";
		}
		fputs("]\n", ttyout);
		code = -1;
		return;
	}
	if (argc < 2) {
		fprintf(ttyout, "Using %s mode to transfer files.\n", typename);
		code = 0;
		return;
	}
	for (p = types; p->t_name; p++)
		if (strcmp(argv[1], p->t_name) == 0)
			break;
	if (p->t_name == 0) {
		fprintf(ttyout, "%s: unknown mode.\n", argv[1]);
		code = -1;
		return;
	}
	comret = command("TYPE %s", p->t_mode);
	if (comret == COMPLETE) {
		(void)strlcpy(typename, p->t_name, sizeof typename);
		curtype = type = p->t_type;
	}
}

/*
 * Internal form of settype; changes current type in use with server
 * without changing our notion of the type for data transfers.
 * Used to change to and from ascii for listings.
 */
void
changetype(int newtype, int show)
{
	struct types *p;
	int comret, oldverbose = verbose;

	if (newtype == 0)
		newtype = TYPE_I;
	if (newtype == curtype)
		return;
	if (
#ifndef SMALL
	    !debug &&
#endif /* !SMALL */
	    show == 0)
		verbose = 0;
	for (p = types; p->t_name; p++)
		if (newtype == p->t_type)
			break;
	if (p->t_name == 0) {
		warnx("internal error: unknown type %d.", newtype);
		return;
	}
	if (newtype == TYPE_L && bytename[0] != '\0')
		comret = command("TYPE %s %s", p->t_mode, bytename);
	else
		comret = command("TYPE %s", p->t_mode);
	if (comret == COMPLETE)
		curtype = newtype;
	verbose = oldverbose;
}

char *stype[] = {
	"type",
	"",
	0
};

/*
 * Set binary transfer type.
 */
/*ARGSUSED*/
void
setbinary(int argc, char *argv[])
{

	stype[1] = "binary";
	settype(2, stype);
}

void
get(int argc, char *argv[])
{

	(void)getit(argc, argv, 0, restart_point ? "a+w" : "w" );
}

/*
 * Receive one file.
 */
int
getit(int argc, char *argv[], int restartit, const char *mode)
{
	int loc = 0;
	int rval = 0;
	char *oldargv1, *oldargv2, *globargv2;

	if (argc == 2) {
		argc++;
		argv[2] = argv[1];
		loc++;
	}
#ifndef SMALL
	if (argc < 2 && !another(&argc, &argv, "remote-file"))
		goto usage;
	if ((argc < 3 && !another(&argc, &argv, "local-file")) || argc > 3) {
usage:
		fprintf(ttyout, "usage: %s remote-file [local-file]\n",
		    argv[0]);
		code = -1;
		return (0);
	}
#endif /* !SMALL */
	oldargv1 = argv[1];
	oldargv2 = argv[2];
	if (!globulize(&argv[2])) {
		code = -1;
		return (0);
	}
	globargv2 = argv[2];
	if (loc && mcase) {
		char *tp = argv[1], *tp2, tmpbuf[PATH_MAX];

		while (*tp && !islower((unsigned char)*tp)) {
			tp++;
		}
		if (!*tp) {
			tp = argv[2];
			tp2 = tmpbuf;
			while ((*tp2 = *tp) != '\0') {
				if (isupper((unsigned char)*tp2)) {
					*tp2 = tolower((unsigned char)*tp2);
				}
				tp++;
				tp2++;
			}
			argv[2] = tmpbuf;
		}
	}
	if (loc && ntflag)
		argv[2] = dotrans(argv[2]);
	if (loc && mapflag)
		argv[2] = domap(argv[2]);
#ifndef SMALL
	if (restartit) {
		struct stat stbuf;
		int ret;

		ret = stat(argv[2], &stbuf);
		if (restartit == 1) {
			restart_point = (ret < 0) ? 0 : stbuf.st_size;
		} else {
			if (ret == 0) {
				time_t mtime;

				mtime = remotemodtime(argv[1], 0);
				if (mtime == -1)
					goto freegetit;
				if (stbuf.st_mtime >= mtime) {
					rval = 1;
					fprintf(ttyout,
						"Local file \"%s\" is newer "\
						"than remote file \"%s\".\n",
						argv[2], argv[1]);
					goto freegetit;
				}
			}
		}
	}
#endif /* !SMALL */

	recvrequest("RETR", argv[2], argv[1], mode,
	    argv[1] != oldargv1 || argv[2] != oldargv2 || !interactive, loc);
	restart_point = 0;
#ifndef SMALL
freegetit:
#endif
	if (oldargv2 != globargv2)	/* free up after globulize() */
		free(globargv2);
	return (rval);
}

/* XXX - Signal race. */
/* ARGSUSED */
void
mabort(int signo)
{
	int save_errno = errno;

	alarmtimer(0);
	(void) write(fileno(ttyout), "\n\r", 2);
#ifndef SMALL
	if (mflag && fromatty) {
		/* XXX signal race, crazy unbelievable stdio misuse */
		if (confirm(mname, NULL)) {
			errno = save_errno;
			longjmp(jabort, 1);
		}
	}
#endif /* !SMALL */
	mflag = 0;
	errno = save_errno;
	longjmp(jabort, 1);
}

/*
 * Get multiple files.
 */
void
mget(int argc, char *argv[])
{
	extern int optind, optreset;
	sig_t oldintr;
	int xargc = 2;
	char *cp, localcwd[PATH_MAX], *xargv[] = { argv[0], NULL, NULL };
	static int restartit = 0;
#ifndef SMALL
	extern char *optarg;
	const char *errstr;
	int ch, i = 1;
	char type = 0, *dummyargv[] = { argv[0], ".", NULL };
	FILE *ftemp = NULL;
	static int depth = 0, max_depth = 0;

	optind = optreset = 1;

	if (depth)
		depth++;

	while ((ch = getopt(argc, argv, "cd:nr")) != -1) {
		switch(ch) {
		case 'c':
			restartit = 1;
			break;
		case 'd':
			max_depth = strtonum(optarg, 0, INT_MAX, &errstr);
			if (errstr != NULL) {
				fprintf(ttyout, "bad depth value, %s: %s\n",
				    errstr, optarg);
				code = -1;
				return;
			}
			break;
		case 'n':
			restartit = -1;
			break;
		case 'r':
			depth = 1;
			break;
		default:
			goto usage;
		}
	}

	if (argc - optind < 1 && !another(&argc, &argv, "remote-files")) {
usage:
		fprintf(ttyout, "usage: %s [-cnr] [-d depth] remote-files\n",
		    argv[0]);
		code = -1;
		return;
	}

	argv[optind - 1] = argv[0];
	argc -= optind - 1;
	argv += optind - 1;
#endif /* !SMALL */

	mname = argv[0];
	mflag = 1;
	if (getcwd(localcwd, sizeof(localcwd)) == NULL)
		err(1, "can't get cwd");

	oldintr = signal(SIGINT, mabort);
	(void)setjmp(jabort);
	while ((cp =
#ifdef SMALL
	    remglob(argv, proxy, NULL)) != NULL
	    ) {
#else /* SMALL */
	    depth ? remglob2(dummyargv, proxy, NULL, &ftemp, &type) :
	    remglob(argv, proxy, NULL)) != NULL
	    || (mflag && depth && ++i < argc)
	    ) {
		if (cp == NULL)
			continue;
#endif /* SMALL */
		if (*cp == '\0') {
			mflag = 0;
			continue;
		}
		if (!mflag)
			continue;
#ifndef SMALL
		if (depth && fnmatch(argv[i], cp, FNM_PATHNAME) != 0)
			continue;
#endif /* !SMALL */
		if (!fileindir(cp, localcwd)) {
			fprintf(ttyout, "Skipping non-relative filename `%s'\n",
			    cp);
			continue;
		}
#ifndef SMALL
		if (type == 'd' && depth == max_depth)
			continue;
		if (!confirm(argv[0], cp))
			continue;
		if (type == 'd') {
			mkdir(cp, 0755);
			if (chdir(cp) != 0) {
				warn("local: %s", cp);
				continue;
			}

			xargv[1] = cp;
			cd(xargc, xargv);
			if (dirchange != 1)
				goto out;

			xargv[1] = "*";
			mget(xargc, xargv);

			xargv[1] = "..";
			cd(xargc, xargv);
			if (dirchange != 1) {
				mflag = 0;
				goto out;
			}

out:
			if (chdir("..") != 0) {
				warn("local: %s", cp);
				mflag = 0;
			}
			continue;
		}
		if (type == 's')
			/* Currently ignored. */
			continue;
#endif /* !SMALL */
		xargv[1] = cp;
		(void)getit(xargc, xargv, restartit,
		    (restartit == 1 || restart_point) ? "a+w" : "w");
#ifndef SMALL
		if (!mflag && fromatty) {
			if (confirm(argv[0], NULL))
				mflag = 1;
		}
#endif /* !SMALL */
	}
	(void)signal(SIGINT, oldintr);
#ifndef SMALL
	if (depth)
		depth--;
	if (depth == 0 || mflag == 0)
		depth = max_depth = mflag = restartit = 0;
#else /* !SMALL */
	mflag = 0;
#endif /* !SMALL */
}

/*
 * Set current working directory on remote machine.
 */
void
cd(int argc, char *argv[])
{
	int r;

#ifndef SMALL
	if ((argc < 2 && !another(&argc, &argv, "remote-directory")) ||
	    argc > 2) {
		fprintf(ttyout, "usage: %s remote-directory\n", argv[0]);
		code = -1;
		return;
	}
#endif /* !SMALL */
	r = command("CWD %s", argv[1]);
	if (r == ERROR && code == 500) {
		if (verbose)
			fputs("CWD command not recognized, trying XCWD.\n", ttyout);
		r = command("XCWD %s", argv[1]);
	}
	if (r == ERROR && code == 550) {
		dirchange = 0;
		return;
	}
	if (r == COMPLETE)
		dirchange = 1;
}

/*
 * Terminate session, but don't exit.
 */
/* ARGSUSED */
void
disconnect(int argc, char *argv[])
{

	if (!connected)
		return;
	(void)command("QUIT");
	if (cout) {
		(void)fclose(cout);
	}
	cout = NULL;
	connected = 0;
	data = -1;
#ifndef SMALL
	if (!proxy) {
		macnum = 0;
	}
#endif /* !SMALL */
}

char *
dotrans(char *name)
{
	static char new[PATH_MAX];
	char *cp1, *cp2 = new;
	int i, ostop, found;

	for (ostop = 0; *(ntout + ostop) && ostop < 16; ostop++)
		continue;
	for (cp1 = name; *cp1; cp1++) {
		found = 0;
		for (i = 0; *(ntin + i) && i < 16; i++) {
			if (*cp1 == *(ntin + i)) {
				found++;
				if (i < ostop) {
					*cp2++ = *(ntout + i);
				}
				break;
			}
		}
		if (!found) {
			*cp2++ = *cp1;
		}
	}
	*cp2 = '\0';
	return (new);
}

char *
domap(char *name)
{
	static char new[PATH_MAX];
	char *cp1 = name, *cp2 = mapin;
	char *tp[9], *te[9];
	int i, toks[9], toknum = 0, match = 1;

	for (i=0; i < 9; ++i) {
		toks[i] = 0;
	}
	while (match && *cp1 && *cp2) {
		switch (*cp2) {
			case '\\':
				if (*++cp2 != *cp1) {
					match = 0;
				}
				break;
			case '$':
				if (*(cp2+1) >= '1' && (*cp2+1) <= '9') {
					if (*cp1 != *(++cp2+1)) {
						toks[toknum = *cp2 - '1']++;
						tp[toknum] = cp1;
						while (*++cp1 && *(cp2+1)
							!= *cp1);
						te[toknum] = cp1;
					}
					cp2++;
					break;
				}
				/* FALLTHROUGH */
			default:
				if (*cp2 != *cp1) {
					match = 0;
				}
				break;
		}
		if (match && *cp1) {
			cp1++;
		}
		if (match && *cp2) {
			cp2++;
		}
	}
	if (!match && *cp1) /* last token mismatch */
	{
		toks[toknum] = 0;
	}
	cp1 = new;
	*cp1 = '\0';
	cp2 = mapout;
	while (*cp2) {
		match = 0;
		switch (*cp2) {
			case '\\':
				if (*(cp2 + 1)) {
					*cp1++ = *++cp2;
				}
				break;
			case '[':
LOOP:
				if (*++cp2 == '$' && isdigit((unsigned char)*(cp2 + 1))) {
					if (*++cp2 == '0') {
						char *cp3 = name;

						while (*cp3) {
							*cp1++ = *cp3++;
						}
						match = 1;
					}
					else if (toks[toknum = *cp2 - '1']) {
						char *cp3 = tp[toknum];

						while (cp3 != te[toknum]) {
							*cp1++ = *cp3++;
						}
						match = 1;
					}
				}
				else {
					while (*cp2 && *cp2 != ',' &&
					    *cp2 != ']') {
						if (*cp2 == '\\') {
							cp2++;
						}
						else if (*cp2 == '$' &&
						        isdigit((unsigned char)*(cp2 + 1))) {
							if (*++cp2 == '0') {
							   char *cp3 = name;

							   while (*cp3) {
								*cp1++ = *cp3++;
							   }
							}
							else if (toks[toknum =
							    *cp2 - '1']) {
							   char *cp3=tp[toknum];

							   while (cp3 !=
								  te[toknum]) {
								*cp1++ = *cp3++;
							   }
							}
						}
						else if (*cp2) {
							*cp1++ = *cp2++;
						}
					}
					if (!*cp2) {
						fputs(
"nmap: unbalanced brackets.\n", ttyout);
						return (name);
					}
					match = 1;
					cp2--;
				}
				if (match) {
					while (*++cp2 && *cp2 != ']') {
					      if (*cp2 == '\\' && *(cp2 + 1)) {
							cp2++;
					      }
					}
					if (!*cp2) {
						fputs(
"nmap: unbalanced brackets.\n", ttyout);
						return (name);
					}
					break;
				}
				switch (*++cp2) {
					case ',':
						goto LOOP;
					case ']':
						break;
					default:
						cp2--;
						goto LOOP;
				}
				break;
			case '$':
				if (isdigit((unsigned char)*(cp2 + 1))) {
					if (*++cp2 == '0') {
						char *cp3 = name;

						while (*cp3) {
							*cp1++ = *cp3++;
						}
					}
					else if (toks[toknum = *cp2 - '1']) {
						char *cp3 = tp[toknum];

						while (cp3 != te[toknum]) {
							*cp1++ = *cp3++;
						}
					}
					break;
				}
				/* FALLTHROUGH */
			default:
				*cp1++ = *cp2;
				break;
		}
		cp2++;
	}
	*cp1 = '\0';
	if (!*new) {
		return (name);
	}
	return (new);
}



Generated by: GCOVR (Version 3.3)

Line	Branch	Exec	Source
1			/* $OpenBSD: small.c,v 1.9 2017/01/21 08:33:07 krw Exp $ */
2			/* $NetBSD: cmds.c,v 1.27 1997/08/18 10:20:15 lukem Exp $ */
3
4			/*
5			* Copyright (C) 1997 and 1998 WIDE Project.
6			* All rights reserved.
7			*
8			* Redistribution and use in source and binary forms, with or without
9			* modification, are permitted provided that the following conditions
10			* are met:
11			* 1. Redistributions of source code must retain the above copyright
12			* notice, this list of conditions and the following disclaimer.
13			* 2. Redistributions in binary form must reproduce the above copyright
14			* notice, this list of conditions and the following disclaimer in the
15			* documentation and/or other materials provided with the distribution.
16			* 3. Neither the name of the project nor the names of its contributors
17			* may be used to endorse or promote products derived from this software
18			* without specific prior written permission.
19			*
20			* THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
21			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23			* ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
24			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30			* SUCH DAMAGE.
31			*/
32
33			/*
34			* Copyright (c) 1985, 1989, 1993, 1994
35			* The Regents of the University of California. All rights reserved.
36			*
37			* Redistribution and use in source and binary forms, with or without
38			* modification, are permitted provided that the following conditions
39			* are met:
40			* 1. Redistributions of source code must retain the above copyright
41			* notice, this list of conditions and the following disclaimer.
42			* 2. Redistributions in binary form must reproduce the above copyright
43			* notice, this list of conditions and the following disclaimer in the
44			* documentation and/or other materials provided with the distribution.
45			* 3. Neither the name of the University nor the names of its contributors
46			* may be used to endorse or promote products derived from this software
47			* without specific prior written permission.
48			*
49			* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
50			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
51			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
52			* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
53			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
54			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
55			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
56			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
57			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
58			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
59			* SUCH DAMAGE.
60			*/
61
62			/*
63			* FTP User Program -- Command Routines.
64			*/
65			#include <sys/types.h>
66			#include <sys/socket.h>
67			#include <sys/stat.h>
68			#include <sys/wait.h>
69			#include <arpa/ftp.h>
70
71			#include <ctype.h>
72			#include <err.h>
73			#include <fnmatch.h>
74			#include <glob.h>
75			#include <netdb.h>
76			#include <stdio.h>
77			#include <stdlib.h>
78			#include <string.h>
79			#include <unistd.h>
80			#include <errno.h>
81
82			#include "ftp_var.h"
83			#include "pathnames.h"
84			#include "small.h"
85
86			jmp_buf jabort;
87			char *mname;
88			char *home = "/";
89
90			struct types {
91			char *t_name;
92			char *t_mode;
93			int t_type;
94			} types[] = {
95			{ "ascii", "A", TYPE_A },
96			{ "binary", "I", TYPE_I },
97			{ "image", "I", TYPE_I },
98			{ NULL }
99			};
100
101			/*
102			* Set transfer type.
103			*/
104			void
105			settype(int argc, char *argv[])
106			{
107			struct types *p;
108			int comret;
109
110			if (argc > 2) {
111			char *sep;
112
113			fprintf(ttyout, "usage: %s [", argv[0]);
114			sep = "";
115			for (p = types; p->t_name; p++) {
116			fprintf(ttyout, "%s%s", sep, p->t_name);
117			sep = " \| ";
118			}
119			fputs("]\n", ttyout);
120			code = -1;
121			return;
122			}
123			if (argc < 2) {
124			fprintf(ttyout, "Using %s mode to transfer files.\n", typename);
125			code = 0;
126			return;
127			}
128			for (p = types; p->t_name; p++)
129			if (strcmp(argv[1], p->t_name) == 0)
130			break;
131			if (p->t_name == 0) {
132			fprintf(ttyout, "%s: unknown mode.\n", argv[1]);
133			code = -1;
134			return;
135			}
136			comret = command("TYPE %s", p->t_mode);
137			if (comret == COMPLETE) {
138			(void)strlcpy(typename, p->t_name, sizeof typename);
139			curtype = type = p->t_type;
140			}
141			}
142
143			/*
144			* Internal form of settype; changes current type in use with server
145			* without changing our notion of the type for data transfers.
146			* Used to change to and from ascii for listings.
147			*/
148			void
149			changetype(int newtype, int show)
150			{
151			struct types *p;
152			int comret, oldverbose = verbose;
153
154			if (newtype == 0)
155			newtype = TYPE_I;
156			if (newtype == curtype)
157			return;
158			if (
159			#ifndef SMALL
160			!debug &&
161			#endif /* !SMALL */
162			show == 0)
163			verbose = 0;
164			for (p = types; p->t_name; p++)
165			if (newtype == p->t_type)
166			break;
167			if (p->t_name == 0) {
168			warnx("internal error: unknown type %d.", newtype);
169			return;
170			}
171			if (newtype == TYPE_L && bytename[0] != '\0')
172			comret = command("TYPE %s %s", p->t_mode, bytename);
173			else
174			comret = command("TYPE %s", p->t_mode);
175			if (comret == COMPLETE)
176			curtype = newtype;
177			verbose = oldverbose;
178			}
179
180			char *stype[] = {
181			"type",
182			"",
183			0
184			};
185
186			/*
187			* Set binary transfer type.
188			*/
189			/ARGSUSED/
190			void
191			setbinary(int argc, char *argv[])
192			{
193
194			stype[1] = "binary";
195			settype(2, stype);
196			}
197
198			void
199			get(int argc, char *argv[])
200			{
201
202			(void)getit(argc, argv, 0, restart_point ? "a+w" : "w" );
203			}
204
205			/*
206			* Receive one file.
207			*/
208			int
209			getit(int argc, char argv[], int restartit, const char mode)
210			{
211			int loc = 0;
212			int rval = 0;
213			char oldargv1, oldargv2, *globargv2;
214
215			if (argc == 2) {
216			argc++;
217			argv[2] = argv[1];
218			loc++;
219			}
220			#ifndef SMALL
221			if (argc < 2 && !another(&argc, &argv, "remote-file"))
222			goto usage;
223			if ((argc < 3 && !another(&argc, &argv, "local-file")) \|\| argc > 3) {
224			usage:
225			fprintf(ttyout, "usage: %s remote-file [local-file]\n",
226			argv[0]);
227			code = -1;
228			return (0);
229			}
230			#endif /* !SMALL */
231			oldargv1 = argv[1];
232			oldargv2 = argv[2];
233			if (!globulize(&argv[2])) {
234			code = -1;
235			return (0);
236			}
237			globargv2 = argv[2];
238			if (loc && mcase) {
239			char tp = argv[1], tp2, tmpbuf[PATH_MAX];
240
241			while (tp && !islower((unsigned char)tp)) {
242			tp++;
243			}
244			if (!*tp) {
245			tp = argv[2];
246			tp2 = tmpbuf;
247			while ((tp2 = tp) != '\0') {
248			if (isupper((unsigned char)*tp2)) {
249			tp2 = tolower((unsigned char)tp2);
250			}
251			tp++;
252			tp2++;
253			}
254			argv[2] = tmpbuf;
255			}
256			}
257			if (loc && ntflag)
258			argv[2] = dotrans(argv[2]);
259			if (loc && mapflag)
260			argv[2] = domap(argv[2]);
261			#ifndef SMALL
262			if (restartit) {
263			struct stat stbuf;
264			int ret;
265
266			ret = stat(argv[2], &stbuf);
267			if (restartit == 1) {
268			restart_point = (ret < 0) ? 0 : stbuf.st_size;
269			} else {
270			if (ret == 0) {
271			time_t mtime;
272
273			mtime = remotemodtime(argv[1], 0);
274			if (mtime == -1)
275			goto freegetit;
276			if (stbuf.st_mtime >= mtime) {
277			rval = 1;
278			fprintf(ttyout,
279			"Local file \"%s\" is newer "\
280			"than remote file \"%s\".\n",
281			argv[2], argv[1]);
282			goto freegetit;
283			}
284			}
285			}
286			}
287			#endif /* !SMALL */
288
289			recvrequest("RETR", argv[2], argv[1], mode,
290			argv[1] != oldargv1 \|\| argv[2] != oldargv2 \|\| !interactive, loc);
291			restart_point = 0;
292			#ifndef SMALL
293			freegetit:
294			#endif
295			if (oldargv2 != globargv2) /* free up after globulize() */
296			free(globargv2);
297			return (rval);
298			}
299
300			/* XXX - Signal race. */
301			/* ARGSUSED */
302			void
303			mabort(int signo)
304			{
305			int save_errno = errno;
306
307			alarmtimer(0);
308			(void) write(fileno(ttyout), "\n\r", 2);
309			#ifndef SMALL
310			if (mflag && fromatty) {
311			/* XXX signal race, crazy unbelievable stdio misuse */
312			if (confirm(mname, NULL)) {
313			errno = save_errno;
314			longjmp(jabort, 1);
315			}
316			}
317			#endif /* !SMALL */
318			mflag = 0;
319			errno = save_errno;
320			longjmp(jabort, 1);
321			}
322
323			/*
324			* Get multiple files.
325			*/
326			void
327			mget(int argc, char *argv[])
328			{
329			extern int optind, optreset;
330			sig_t oldintr;
331			int xargc = 2;
332			char cp, localcwd[PATH_MAX], xargv[] = { argv[0], NULL, NULL };
333			static int restartit = 0;
334			#ifndef SMALL
335			extern char *optarg;
336			const char *errstr;
337			int ch, i = 1;
338			char type = 0, *dummyargv[] = { argv[0], ".", NULL };
339			FILE *ftemp = NULL;
340			static int depth = 0, max_depth = 0;
341
342			optind = optreset = 1;
343
344			if (depth)
345			depth++;
346
347			while ((ch = getopt(argc, argv, "cd:nr")) != -1) {
348			switch(ch) {
349			case 'c':
350			restartit = 1;
351			break;
352			case 'd':
353			max_depth = strtonum(optarg, 0, INT_MAX, &errstr);
354			if (errstr != NULL) {
355			fprintf(ttyout, "bad depth value, %s: %s\n",
356			errstr, optarg);
357			code = -1;
358			return;
359			}
360			break;
361			case 'n':
362			restartit = -1;
363			break;
364			case 'r':
365			depth = 1;
366			break;
367			default:
368			goto usage;
369			}
370			}
371
372			if (argc - optind < 1 && !another(&argc, &argv, "remote-files")) {
373			usage:
374			fprintf(ttyout, "usage: %s [-cnr] [-d depth] remote-files\n",
375			argv[0]);
376			code = -1;
377			return;
378			}
379
380			argv[optind - 1] = argv[0];
381			argc -= optind - 1;
382			argv += optind - 1;
383			#endif /* !SMALL */
384
385			mname = argv[0];
386			mflag = 1;
387			if (getcwd(localcwd, sizeof(localcwd)) == NULL)
388			err(1, "can't get cwd");
389
390			oldintr = signal(SIGINT, mabort);
391			(void)setjmp(jabort);
392			while ((cp =
393			#ifdef SMALL
394			remglob(argv, proxy, NULL)) != NULL
395			) {
396			#else /* SMALL */
397			depth ? remglob2(dummyargv, proxy, NULL, &ftemp, &type) :
398			remglob(argv, proxy, NULL)) != NULL
399			\|\| (mflag && depth && ++i < argc)
400			) {
401			if (cp == NULL)
402			continue;
403			#endif /* SMALL */
404			if (*cp == '\0') {
405			mflag = 0;
406			continue;
407			}
408			if (!mflag)
409			continue;
410			#ifndef SMALL
411			if (depth && fnmatch(argv[i], cp, FNM_PATHNAME) != 0)
412			continue;
413			#endif /* !SMALL */
414			if (!fileindir(cp, localcwd)) {
415			fprintf(ttyout, "Skipping non-relative filename `%s'\n",
416			cp);
417			continue;
418			}
419			#ifndef SMALL
420			if (type == 'd' && depth == max_depth)
421			continue;
422			if (!confirm(argv[0], cp))
423			continue;
424			if (type == 'd') {
425			mkdir(cp, 0755);
426			if (chdir(cp) != 0) {
427			warn("local: %s", cp);
428			continue;
429			}
430
431			xargv[1] = cp;
432			cd(xargc, xargv);
433			if (dirchange != 1)
434			goto out;
435
436			xargv[1] = "*";
437			mget(xargc, xargv);
438
439			xargv[1] = "..";
440			cd(xargc, xargv);
441			if (dirchange != 1) {
442			mflag = 0;
443			goto out;
444			}
445
446			out:
447			if (chdir("..") != 0) {
448			warn("local: %s", cp);
449			mflag = 0;
450			}
451			continue;
452			}
453			if (type == 's')
454			/* Currently ignored. */
455			continue;
456			#endif /* !SMALL */
457			xargv[1] = cp;
458			(void)getit(xargc, xargv, restartit,
459			(restartit == 1 \|\| restart_point) ? "a+w" : "w");
460			#ifndef SMALL
461			if (!mflag && fromatty) {
462			if (confirm(argv[0], NULL))
463			mflag = 1;
464			}
465			#endif /* !SMALL */
466			}
467			(void)signal(SIGINT, oldintr);
468			#ifndef SMALL
469			if (depth)
470			depth--;
471			if (depth == 0 \|\| mflag == 0)
472			depth = max_depth = mflag = restartit = 0;
473			#else /* !SMALL */
474			mflag = 0;
475			#endif /* !SMALL */
476			}
477
478			/*
479			* Set current working directory on remote machine.
480			*/
481			void
482			cd(int argc, char *argv[])
483			{
484			int r;
485
486			#ifndef SMALL
487			if ((argc < 2 && !another(&argc, &argv, "remote-directory")) \|\|
488			argc > 2) {
489			fprintf(ttyout, "usage: %s remote-directory\n", argv[0]);
490			code = -1;
491			return;
492			}
493			#endif /* !SMALL */
494			r = command("CWD %s", argv[1]);
495			if (r == ERROR && code == 500) {
496			if (verbose)
497			fputs("CWD command not recognized, trying XCWD.\n", ttyout);
498			r = command("XCWD %s", argv[1]);
499			}
500			if (r == ERROR && code == 550) {
501			dirchange = 0;
502			return;
503			}
504			if (r == COMPLETE)
505			dirchange = 1;
506			}
507
508			/*
509			* Terminate session, but don't exit.
510			*/
511			/* ARGSUSED */
512			void
513			disconnect(int argc, char *argv[])
514			{
515
516			if (!connected)
517			return;
518			(void)command("QUIT");
519			if (cout) {
520			(void)fclose(cout);
521			}
522			cout = NULL;
523			connected = 0;
524			data = -1;
525			#ifndef SMALL
526			if (!proxy) {
527			macnum = 0;
528			}
529			#endif /* !SMALL */
530			}
531
532			char *
533			dotrans(char *name)
534			{
535			static char new[PATH_MAX];
536			char cp1, cp2 = new;
537			int i, ostop, found;
538
539			for (ostop = 0; *(ntout + ostop) && ostop < 16; ostop++)
540			continue;
541			for (cp1 = name; *cp1; cp1++) {
542			found = 0;
543			for (i = 0; *(ntin + i) && i < 16; i++) {
544			if (cp1 == (ntin + i)) {
545			found++;
546			if (i < ostop) {
547			cp2++ = (ntout + i);
548			}
549			break;
550			}
551			}
552			if (!found) {
553			cp2++ = cp1;
554			}
555			}
556			*cp2 = '\0';
557			return (new);
558			}
559
560			char *
561			domap(char *name)
562			{
563			static char new[PATH_MAX];
564			char cp1 = name, cp2 = mapin;
565			char tp[9], te[9];
566			int i, toks[9], toknum = 0, match = 1;
567
568			for (i=0; i < 9; ++i) {
569			toks[i] = 0;
570			}
571			while (match && cp1 && cp2) {
572			switch (*cp2) {
573			case '\\':
574			if (++cp2 != cp1) {
575			match = 0;
576			}
577			break;
578			case '$':
579			if ((cp2+1) >= '1' && (cp2+1) <= '9') {
580			if (cp1 != (++cp2+1)) {
581			toks[toknum = *cp2 - '1']++;
582			tp[toknum] = cp1;
583			while (++cp1 && (cp2+1)
584			!= *cp1);
585			te[toknum] = cp1;
586			}
587			cp2++;
588			break;
589			}
590			/* FALLTHROUGH */
591			default:
592			if (cp2 != cp1) {
593			match = 0;
594			}
595			break;
596			}
597			if (match && *cp1) {
598			cp1++;
599			}
600			if (match && *cp2) {
601			cp2++;
602			}
603			}
604			if (!match && cp1) / last token mismatch */
605			{
606			toks[toknum] = 0;
607			}
608			cp1 = new;
609			*cp1 = '\0';
610			cp2 = mapout;
611			while (*cp2) {
612			match = 0;
613			switch (*cp2) {
614			case '\\':
615			if (*(cp2 + 1)) {
616			cp1++ = ++cp2;
617			}
618			break;
619			case '[':
620			LOOP:
621			if (++cp2 == '$' && isdigit((unsigned char)(cp2 + 1))) {
622			if (*++cp2 == '0') {
623			char *cp3 = name;
624
625			while (*cp3) {
626			cp1++ = cp3++;
627			}
628			match = 1;
629			}
630			else if (toks[toknum = *cp2 - '1']) {
631			char *cp3 = tp[toknum];
632
633			while (cp3 != te[toknum]) {
634			cp1++ = cp3++;
635			}
636			match = 1;
637			}
638			}
639			else {
640			while (cp2 && cp2 != ',' &&
641			*cp2 != ']') {
642			if (*cp2 == '\\') {
643			cp2++;
644			}
645			else if (*cp2 == '$' &&
646			isdigit((unsigned char)*(cp2 + 1))) {
647			if (*++cp2 == '0') {
648			char *cp3 = name;
649
650			while (*cp3) {
651			cp1++ = cp3++;
652			}
653			}
654			else if (toks[toknum =
655			*cp2 - '1']) {
656			char *cp3=tp[toknum];
657
658			while (cp3 !=
659			te[toknum]) {
660			cp1++ = cp3++;
661			}
662			}
663			}
664			else if (*cp2) {
665			cp1++ = cp2++;
666			}
667			}
668			if (!*cp2) {
669			fputs(
670			"nmap: unbalanced brackets.\n", ttyout);
671			return (name);
672			}
673			match = 1;
674			cp2--;
675			}
676			if (match) {
677			while (++cp2 && cp2 != ']') {
678			if (cp2 == '\\' && (cp2 + 1)) {
679			cp2++;
680			}
681			}
682			if (!*cp2) {
683			fputs(
684			"nmap: unbalanced brackets.\n", ttyout);
685			return (name);
686			}
687			break;
688			}
689			switch (*++cp2) {
690			case ',':
691			goto LOOP;
692			case ']':
693			break;
694			default:
695			cp2--;
696			goto LOOP;
697			}
698			break;
699			case '$':
700			if (isdigit((unsigned char)*(cp2 + 1))) {
701			if (*++cp2 == '0') {
702			char *cp3 = name;
703
704			while (*cp3) {
705			cp1++ = cp3++;
706			}
707			}
708			else if (toks[toknum = *cp2 - '1']) {
709			char *cp3 = tp[toknum];
710
711			while (cp3 != te[toknum]) {
712			cp1++ = cp3++;
713			}
714			}
715			break;
716			}
717			/* FALLTHROUGH */
718			default:
719			cp1++ = cp2;
720			break;
721			}
722			cp2++;
723			}
724			*cp1 = '\0';
725			if (!*new) {
726			return (name);
727			}
728			return (new);
729			}
730