ncftp 1.8.5

1 files changed, 612 insertions, 0 deletions

diff --git a/usr.bin/ncftp/ftprc.c b/usr.bin/ncftp/ftprc.c
new file mode 100644
index 0000000..e8380ce
--- /dev/null
+++ b/usr.bin/ncftp/ftprc.c
@@ -0,0 +1,612 @@
+/* ftprc.c */
+
+/*  $RCSfile: ftprc.c,v $
+ *  $Revision: 14020.11 $
+ *  $Date: 93/07/09 10:58:37 $
+ */
+
+#include "sys.h"
+
+#include <sys/stat.h>
+
+#include <ctype.h>
+#include <signal.h>
+
+#include "util.h"
+#include "ftprc.h"
+#include "main.h"
+#include "cmds.h"
+#include "set.h"
+#include "defaults.h"
+#include "copyright.h"
+
+/* ftprc.c global variables */
+siteptr					firstsite = NULL, lastsite = NULL;
+recentsite				recents[dMAXRECENTS];
+int						nRecents = 0;
+int						nSites = 0;
+int						keep_recent = dRECENT_ON;
+longstring				rcname;
+longstring				recent_file;
+int						parsing_rc = 0;
+
+extern char				*line, *margv[];
+extern int				margc, fromatty;
+extern string			anon_password;		/* most likely your email address */
+extern string			pager;
+extern struct userinfo	uinfo;
+
+int thrash_rc(void)
+{
+	struct stat			st;
+	string				word, str;
+	longstring			cwd;
+	char				*cp, *dp, *rc;
+	FILE				*fp;
+	int					i;
+
+	(void) get_cwd(cwd, sizeof(cwd));
+	if (cwd[strlen(cwd) - 1] != '/')
+		(void) Strncat(cwd, "/");
+
+	/* Because some versions of regular ftp complain about ncftp's
+	 * #set commands, FTPRC takes precedence over NETRC.
+	 */
+	cp = getenv("DOTDIR");
+	for (i=0; i<2; i++) {
+		rc = (i == 0) ? FTPRC : NETRC;
+
+		(void) sprintf(rcname, "%s%s", cwd, rc);
+		if (stat(rcname, &st) == 0)
+			goto foundrc;
+		
+		(void) sprintf(rcname, "%s.%s", cwd, rc);
+		if (stat(rcname, &st) == 0)
+			goto foundrc;
+
+		if (cp != NULL) {
+			(void) sprintf(rcname, "%s/.%s", cp, rc);
+			if (stat(rcname, &st) == 0)
+				goto foundrc;
+		}
+
+		(void) sprintf(rcname, "%s/.%s", uinfo.homedir, rc);
+		if (stat(rcname, &st) == 0)
+			goto foundrc;
+	}
+
+	return (0);	/* it's OK not to have an rc. */
+	
+foundrc:	
+	if ((st.st_mode & 077) != 0)				/* rc must be unreadable by others. */
+		(void) chmod(rcname, 0600);
+
+	if ((fp = fopen(rcname, "r")) == NULL) {
+		PERROR("thrash_rc", rcname);
+		return -1;
+	}
+	
+	parsing_rc = 1;
+	while ((cp = FGets(str, fp)) != 0) {
+		while (isspace(*cp)) ++cp;		/* skip leading space. */
+		if (*cp == '#') {
+			if ((strncmp("set", ++cp, (size_t)3) == 0) || (strncmp("unset", cp, (size_t)5) == 0)) {
+				(void) strcpy(line, cp);
+				makeargv();
+				(void) set(margc, margv);			
+				/* setting or unsetting a variable. */
+			} /* else a comment. */
+		} else {
+			if (strncmp(cp, "machine", (size_t) 7) == 0) {
+				/* We have a new machine record. */
+				cp += 7;
+				while (isspace(*cp)) ++cp;	/* skip delimiting space. */
+				dp = word;
+				while (*cp && !isspace(*cp)) *dp++ = *cp++;	/* copy the name. */
+				*dp = 0;
+				AddNewSitePtr(word);
+			}
+		}
+	}
+	(void) fclose(fp);
+	parsing_rc = 0;
+	return 1;
+}	/* thrash_rc */
+
+
+
+
+void AddNewSitePtr(char *word)
+{
+	siteptr			s;
+
+	if ((s = (siteptr) malloc(sizeof(site))) != 0) {
+		s->next = NULL;
+		if ((s->name = malloc(strlen(word) + 1)) != 0) {
+			(void) strcpy(s->name, word);
+			if (firstsite == NULL)
+				firstsite = lastsite = s;
+			else {
+				lastsite->next = s;
+				lastsite = s;
+			}
+			++nSites;
+		} else {
+			Free(s);
+		}
+	}
+}	/* AddNewSitePtr */
+
+
+
+
+static int RecentCmp(recentsite *a, recentsite *b)
+{
+	int i = 1;
+	
+	if (a->lastcall > b->lastcall)
+		i = -1;
+	else if (a->lastcall == b->lastcall)
+		i = 0;
+	return i;
+}	/* RecentCmp */
+
+
+
+
+static siteptr FindNetrcSite(char *host, int exact)
+{
+	register siteptr s, s2;
+	string str, host2;
+
+	(void) Strncpy(host2, host);
+	StrLCase(host2);
+	
+	/* see if 'host' is in our list of favorite sites (in NETRC). */
+	for (s = firstsite; s != NULL; s2=s->next, s=s2) {
+		(void) Strncpy(str, s->name);
+		StrLCase(str);
+		if (exact) {
+			if (strcmp(str, host2) == 0)
+				return s;
+		} else {
+			if (strstr(str, host2) != NULL) 
+				return s;
+		}
+	}
+	return NULL;
+}	/* FindNetrcSite */
+
+
+
+
+static recentsite *FindRecentSite(char *host, int exact)
+{
+	register recentsite		*r;
+	register int			i;
+	string					str, host2;
+
+	(void) Strncpy(host2, host);
+	StrLCase(host2);
+
+	/* see if 'host' is in our list of favorite sites (in recent-log). */
+	for (i=0; i<nRecents; i++) {
+		r = &recents[i];
+		(void) Strncpy(str, r->name);
+		StrLCase(str);
+		if (exact) {
+			if (strcmp(str, host2) == 0)
+				return r;
+		} else {
+			if (strstr(str, host2) != NULL)
+				return r;
+		}
+	}
+	return NULL;
+}	/* FindRecentSite */
+
+
+
+
+void ReadRecentSitesFile(void)
+{
+	FILE *rfp;
+	recentsite *r;
+	char name[64];
+	int offset;
+	longstring str;
+
+	nRecents = 0;
+	if (recent_file[0] != 0 && keep_recent) {
+		rfp = fopen(recent_file, "r");
+		if (rfp != NULL) {
+			for (; nRecents < dMAXRECENTS; ) {
+				r = &recents[nRecents];
+				if (FGets(str, rfp) == NULL)
+					break;
+				(void) RemoveTrailingNewline(str, NULL);
+				name[0] = 0;
+				offset = 45;
+				if (sscanf(str, "%s %lu %n",
+					name,
+					(unsigned long *) &r->lastcall,
+					&offset) >= 2)
+				{
+					if ((r->name = NewString(name)) != NULL) {
+						r->dir = NewString(str + offset);
+						if (r->dir != NULL)
+							nRecents++;
+						else {
+							free(r->name);
+							r->name = r->dir = NULL;
+						}
+					}
+				}
+			}
+			(void) fclose(rfp);
+		}
+	}
+}	/* ReadRecentSitesFile */
+
+
+
+static void SortRecentList(void)
+{
+	QSort(recents, nRecents, sizeof(recentsite), RecentCmp);
+}	/* SortRecentList */
+
+
+
+
+void WriteRecentSitesFile(void)
+{
+	FILE			*rfp;
+	recentsite		*r;
+	int				i;
+
+	if ((recent_file[0] != 0) && (nRecents > 0) && (keep_recent)) {
+		dbprintf("Attempting to write %s...\n", recent_file);
+		rfp = fopen(recent_file, "w");
+		if (rfp != NULL) {
+			SortRecentList();
+			for (i=0; i<nRecents; i++) {
+				r = &recents[i];
+				(void) fprintf(rfp, "%-32s %11lu %s\n", r->name,
+					(unsigned long) r->lastcall, r->dir);
+			}
+			(void) fclose(rfp);
+			dbprintf("%s written successfully.\n", recent_file);
+			(void) chmod(recent_file, 0600);
+		} else {
+			perror(recent_file);
+		}
+	}
+}	/* WriteRecentSitesFile */
+
+
+
+
+void AddRecentSite(char *host, char *lastdir)
+{
+	char			*nhost, *ndir;
+	recentsite		*r;
+	
+	if (keep_recent) {
+		nhost = NewString(host);
+		/* Use '/' to denote that the current directory wasn't known,
+		 * because we won't try to cd to the root directory.
+		 */
+		ndir = NewString(*lastdir ? lastdir : "/");
+		
+		/* Don't bother if we don't have the memory, or if it is already
+		 * in our NETRC.
+		 */
+		if ((ndir != NULL) && (nhost != NULL) &&
+			(FindNetrcSite(host, 1) == NULL)) {
+			if (nRecents == dMAXRECENTS) {
+				SortRecentList();
+				r = &recents[dMAXRECENTS - 1];
+				if (r->name != NULL)
+					free(r->name);
+				if (r->dir != NULL)
+					free(r->dir);
+			} else {
+				r = &recents[nRecents];
+				nRecents++;
+			}
+			r->name = nhost;			
+			r->dir = ndir;
+			(void) time(&r->lastcall);
+			SortRecentList();
+		}
+	}
+}	/* AddRecentSite */
+
+
+
+
+/*
+ * After you are done with a site (by closing it or quitting), we
+ * need to update the list of recent sites called.
+ */
+void UpdateRecentSitesList(char *host, char *lastdir)
+{
+	recentsite *r;
+	char *ndir;
+
+	if (keep_recent) {	
+		r = FindRecentSite(host, 1);
+		if (r == NULL)
+			AddRecentSite(host, lastdir);
+		else {
+			/* Update the last time connected, and the directory we left in. */
+			if ((ndir = NewString(*lastdir ? lastdir : "/")) != NULL) {
+				free(r->dir);
+				r->dir = ndir;
+			}
+			(void) time(&r->lastcall);
+		}
+	}
+}	/* UpdateRecentSitesList */
+
+
+
+/*
+ * Prints out the number of sites we know about, so the user can figure out
+ * an abbreviation or type it's number to open (setpeer).
+ */
+void PrintSiteList(void)
+{
+	int						i, j;
+	siteptr					s, s2;
+	FILE					*pagerfp;
+	Sig_t					sigpipe;
+
+	if (fromatty) {
+		j = 0;
+		i = 1;
+		sigpipe = Signal(SIGPIPE, SIG_IGN);
+		if ((pagerfp = popen(pager + 1, "w")) == NULL)
+			pagerfp = stdout;
+		if (nRecents > 0) {
+			j++;
+			(void) fprintf(pagerfp, "\nRecently called sites:\n");
+			for (; i<=nRecents; i++) {
+				(void) fprintf(pagerfp, "%4d. %-32s", i, recents[i-1].name);
+				i++;
+				if (i <= nRecents) {
+					(void) fprintf(pagerfp, "%5d. %-32s", i, recents[i-1].name);
+				} else {
+					(void) fprintf(pagerfp, "\n");
+					break;
+				}
+				(void) fprintf(pagerfp, "\n");
+			}
+		}
+		if (nSites > 0) {
+			j++;
+			(void) fprintf(pagerfp, "Sites in your netrc (%s):\n", rcname);
+			for (s = firstsite; s != NULL; s2=s->next, s=s2, ++i) {
+				(void) fprintf(pagerfp, "%4d. %-32s", i, s->name);
+				s2=s->next;
+				s=s2;
+				i++;
+				if (s != NULL) {
+					(void) fprintf(pagerfp, "%5d. %-32s", i, s->name);
+				} else {
+					(void) fprintf(pagerfp, "\n");
+					break;
+				}
+				(void) fprintf(pagerfp, "\n");
+			}
+		}
+		if (j > 0) {
+			(void) fprintf(pagerfp, "\
+Note that you can specify an abbreviation of any name, or #x, where x is the\n\
+number of the site you want to connect to.\n\n");
+		}
+
+		if (pagerfp != stdout)
+			(void) pclose(pagerfp);
+		Signal(SIGPIPE, sigpipe);
+	}
+}	/* PrintRecentSiteList */
+
+
+
+
+/*
+ * Given a sitename, check to see if the name was really an abbreviation
+ * of a site in the NETRC, or a site in our list of recently connected
+ * sites.  Also check if the name was in the format #x, where x which
+ * would mean to use recents[x].name as the site; if x was greater than
+ * the number of sites in the recent list, then index into the netrc
+ * site list.
+ */
+#include <netdb.h>
+void GetFullSiteName(char *host, char *lastdir)
+{
+	register siteptr		s, s2;
+	register recentsite		*r;
+	char					*ndir, *nhost, *cp;
+	int						x, i, isAllDigits, exact;
+	struct hostent			*hostentp;
+
+	ndir = nhost = NULL;
+	x = exact = 0;
+
+	/* First, see if the "abbreviation" is really just the name of
+	 * a machine in the local domain, or if it was a full hostname
+	 * already.  That way we can avoid problems associated with
+	 * short names, such as having "ce" as a machine in the local
+	 * domain, but having "faces.unl.edu", where we would most likely
+	 * want to use ce instead of faces if the user said "open ce".
+	 * This will also prevent problems when you have a host named
+	 * xx.yy.unl.edu, and another host named yy.unl.edu.  If the user
+	 * said "open yy.unl.edu" we should use yy.unl.edu, and not look
+	 * for matches containing yy.unl.edu.
+	 */
+	if ((hostentp = gethostbyname(host)) != NULL) {
+		strcpy(host, hostentp->h_name);
+		exact = 1;
+	}
+
+	/* Don't allow just numbers as abbreviations;  "open 2" could be
+	 * confused between site numbers in the open 'menu,' like
+	 * "2. unlinfo.unl.edu" and IP numbers "128.93.2.1" or even numbers
+	 * in the site name like "simtel20.army.mil."
+	 */
+	
+	for (isAllDigits = 1, cp = host; *cp != 0; cp++) {
+		if (!isdigit(*cp)) {
+			isAllDigits = 0;
+			break;
+		}
+	}
+
+	if (!isAllDigits) {
+		if (host[0] == '#')
+			(void) sscanf(host + 1, "%d", &x);
+		/* Try matching the abbreviation, since it isn't just a number. */
+		/* see if 'host' is in our list of favorite sites (in NETRC). */
+
+		if (x == 0) {
+			if ((s = FindNetrcSite(host, exact)) != NULL) {
+				nhost = s->name;
+			} else if ((r = FindRecentSite(host, exact)) != NULL) {
+				nhost = r->name;
+				ndir = r->dir;
+			}
+		}
+	} else if (sscanf(host, "%d", &x) != 1) {
+		x = 0;
+	}
+
+	if (--x >= 0) {
+		if (x < nRecents) {
+			nhost = recents[x].name;
+			ndir = recents[x].dir;
+		} else {
+			x -= nRecents;
+			if (x < nSites) {
+				for (i = 0, s = firstsite; i < x; s2=s->next, s=s2)
+					++i;				
+				nhost = s->name;
+			}
+		}
+	}
+
+	if (nhost != NULL) {
+		(void) strcpy(host, nhost);
+		if (lastdir != NULL) {
+			*lastdir = 0;
+			/* Don't cd if the dir is the root directory. */
+			if (ndir != NULL && (strcmp("/", ndir) != 0))
+				(void) strcpy(lastdir, ndir);
+		}
+	}
+}	/* GetFullSiteName */
+
+
+
+
+int ruserpass2(char *host, char **username, char **pass, char **acct)
+{
+	FILE			*fp;
+	char			*cp, *dp, *dst, *ep;
+	str32			macname;
+	char			*varname;
+	int				site_found;
+	string			str;
+	static string	auser;
+	static str32	apass, aacct;
+
+	site_found = 0;
+
+	if ((fp = fopen(rcname, "r")) != NULL) {
+		parsing_rc = 1;
+		while (FGets(str, fp)) {
+			if ((cp = strstr(str, "machine")) != 0) {
+				/* Look for the machine token. */
+				cp += 7;
+				while (isspace(*cp))
+					cp++;
+			} else
+				continue;
+			if (strncmp(host, cp, strlen(host)) == 0) {
+				site_found = 1;
+				while (!isspace(*cp))
+					++cp;		/* skip the site name. */
+				do {
+					/* Skip any comments ahead of time. */
+					for (dp=cp; *dp; dp++) {
+						if (*dp == '#') {
+							*dp = 0;
+							break;
+						}
+					}
+
+					ep = cp;
+					while (1) {
+						varname = strtok(ep, RC_DELIM);
+						if (!varname) break;
+						dst = ep = NULL;
+						switch (*varname) {
+							case 'u':	/* user */
+								*username = dst = auser;
+								break;
+							case 'l':	/* login */
+								*username = dst = auser;
+								break;
+							case 'p':	/* password */
+								*pass = dst = apass;
+								break;
+							case 'a':	/* account */
+								*acct = dst = aacct;
+								break;
+						/*	case 'd':  /o default */
+						/* unused -- use 'set anon_password.' */
+							case 'm':	/* macdef or machine */
+								if (strcmp(varname, "macdef"))
+									goto done;	/* new machine record... */
+								dst = macname;
+								break;
+							default:
+								(void) fprintf(stderr, "Unknown .netrc keyword \"%s\"\n",
+									varname
+								);
+						}
+						if (dst) {
+							dp = strtok(ep, RC_DELIM);
+							if (dp)
+								(void) strcpy(dst, dp);
+							if (dst == macname) {
+								/*
+								 *	Read in the lines of the macro.
+								 *	The macro's end is denoted by
+								 *	a blank line.
+								 */
+								(void) make_macro(macname, fp);
+								goto nextline;
+							}
+						}
+					}
+nextline: ;
+				} while ((cp = FGets(str, fp)) != 0);
+				break;
+			}		/* end if we found the machine record. */
+		}
+done:
+		parsing_rc = 0;
+		(void) fclose(fp);
+	}
+
+	if (!site_found) {
+		/* didn't find it in the rc. */
+		return (0);
+	}
+
+	return (1);	/* found */
+}	/* ruserpass2 */
+
+/* eof ftprc.c */