613 lines
13 KiB
C
613 lines
13 KiB
C
/* 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 */
|