Qshell Interpreter (qsh) - FTP Directory Listing - IBM

130 Qshell Interpreter (qsh)
}
/* Get the user name and password from the x/.netrc file. */
else {
if (GetPassword(hostname, ascii_user, ascii_pwd) != 0) {
fprintf(stderr, “qshc: Could not find user or password in x/.netrc\n”);
exit(1);
}
}
/* Convert the user name and password to EBCDIC. */
if (ConvertToEBCDIC(ascii_user, strlen(ascii_user)+1, ebcdic_user, 11) < 0) {
fprintf(stderr, “qshc: Could not convert user %s to EBCDIC\n”, ascii_user);
exit(1);
}
if (ConvertToEBCDIC(ascii_pwd, strlen(ascii_pwd)+1, ebcdic_pwd, 11) < 0) {
fprintf(stderr, “qshc: Could not convert password %s to EBCDIC\n”,
ascii_pwd);
exit(1);
}
/* Send the user name and password to the qsh server. Note that the
user name and password are sent as plain text. */
if ((rc = write(sd, (void *)ebcdic_user, strlen(ebcdic_user)+1)) < 0) {
perror(“qshc: write() failed sending username\n”);
close(sd);
exit(1);
}
if ((rc = write(sd, (void *)ebcdic_pwd, strlen(ebcdic_pwd)+1)) < 0) {
perror(“qshc: write() failed sending password\n”);
close(sd);
exit(1);
}
printf(“Started qsh session on %s\n\n”, sysname);
/********************************************************************/
/* Process input and output between the user and the remote shell. */
/********************************************************************/
/* Loop forever. */
while (1) {
/* Select on stdin and the socket connected to the remote shell. */
FD_ZERO(&read_set);
FD_SET(0, &read_set);
FD_SET(sd, &read_set);
rc = select(sd+1, &read_set, NULL, NULL, NULL);
if ((rc < 0) && (errno != EINTR)) {
perror(“qshc: select() failed”);
exit(1);
}
if (rc == 0) {
continue;
}
/* Process data entered by the terminal user. */
if (FD_ISSET(0, &read_set)) {
/* Read the data from the terminal. */
gets(ascii_buf);
/* Convert the string to EBCDIC. */
len = strlen(ascii_buf);
if (ConvertToEBCDIC(ascii_buf, len, ebcdic_buf, DEFAULT_BUF) < 0) {
fprintf(stderr, “qshc: Could not convert input string to EBCDIC\n”);
continue;
}
/* Put a newline on the end of the string. */
*(ebcdic_buf+len) = 0x25;
/* Send the data to the remote shell. */
if (write(sd, ebcdic_buf, len+1) < 0) {
perror(“qshc: write() failed sending input”);
}
}
/* Process data from the remote shell. */
if (FD_ISSET(sd, &read_set)) {