Qshell Interpreter (qsh) - FTP Directory Listing - IBM

132 Qshell Interpreter (qsh)
char *systag, *logtag;
int logflag = 0, pwdflag = 0;
FILE *netrc;
struct passwd *pwdbuf;
int rc=0;
/* Get user's home directory. */
pwdbuf = getpwuid(getuid());
/* Does user have a .netrc file in their home directory? */
strcat(strcpy(buffer, pwdbuf->pw_dir), “/.netrc”);
if ((netrc = fopen(buffer, “r”)) == NULL) {
perror(“qshc: open() failed for x/.netrc file”);
return -1;
}
while (!(logflag || pwdflag) && fgets(buffer, BUFSIZE, netrc) != NULL) {
/* Find system name in x/.netrc. */
if ((systag = (char*)strtok(buffer, “ \t\n”)) != NULL &&
!strncmp(systag, “machine”, 7)) {
systag = (char *)strtok(NULL, “ \t\n”);
if (!strcmp(systag, sysname)) {
/* Find login and password. */
while (!logflag || !pwdflag) {
if ((logtag = (char *)strtok(NULL, “ \t\n”)) == NULL) {
/* Nothing else on that line... get another. */
while (!logtag) {
fgets(buffer, BUFSIZE, netrc);
logtag = (char *)strtok(buffer, “ \t\n”);
}
}
if (!strncmp(logtag, “login”, 5)) {
strcpy(logname, strtok(NULL, “ \n\t”));
++logflag;
}
else if (!strncmp(logtag, “password”, 8)) {
strcpy(password, strtok(NULL, “ \n\t”));
++pwdflag;
}
else
;
} /* while flags not set */
} /* if found login and passwd in .netrc */
} /* if machine in .netrc */
} /* while fgets */
fclose(netrc);
/* Login and password not found for system. */
if (!(logflag && pwdflag)) {
rc = -1;
}
return rc;
} /* End of GetPassword() */
#ifndef USE_ICONV
/*
* Translate bytes using the specified translation table.
*/
int
Translate(uchar *ip, size_t ilen, uchar *op, uchar *table)
{
int index;
for (index = 0; index < ilen; ++index) {
*op = table[*ip];
ip++;
op++;
}
return 0;
} /* End of Translate() */
#endif
/*
* Signal handler.