Qshell Interpreter (qsh) - FTP Directory Listing - IBM

* Read the data from the remote shell. */
buf_size = read(sd, ebcdic_buf, DEFAULT_BUF-1);
/* There was a failure reading from the remote shell. */
if (buf_size < 0) {
perror(“\nqshc: error reading data from remote shell”);
printf(“Ended qsh session on %s\n”, sysname);
exit(0);
}
/* The remote shell process ended. */
else if (buf_size == 0) {
printf(“\nEnded qsh session on %s\n”, sysname);
exit(0);
}
/* Process the data from the remote shell. */
else {
/* Convert to ASCII. */
*(ebcdic_buf+buf_size) = '\0';
if (ConvertToASCII(ebcdic_buf, buf_size+1, ascii_buf,
DEFAULT_BUF) >= 0) {
write(1, ascii_buf, buf_size);
}
}
}
} /* End of while */
exit(0);
} /* End of main() */
/*
* Convert a string from ASCII to EBCDIC.
*/
int
ConvertToEBCDIC(char *ibuf, size_t ileft, char *obuf, size_t oleft)
{
int rc;
#ifdef USE_ICONV
rc = iconv(ecd, (const char**)&ibuf, &ileft, &obuf, &oleft);
#else
rc = Translate((uchar *)ibuf, ileft, (uchar *)obuf, EbcdicTable);
#endif
if (rc < 0)
perror(“qshc: error converting to EBCDIC”);
return rc;
} /* End of ConvertToEBCDIC() */
/*
* Convert a string from EBCDIC to ASCII.
*/
int
ConvertToASCII(char *ibuf, size_t ileft, char *obuf, size_t oleft)
{
int rc;
#ifdef USE_ICONV
rc = iconv(acd, (const char**)&ibuf, &ileft, &obuf, &oleft);
#else
rc = Translate((uchar *)ibuf, ileft, (uchar *)obuf, AsciiTable);
#endif
if (rc < 0)
perror(“qshc: error converting to ASCII”);
return rc;
} /* End of ConvertToASCII() */
/*
* Get the user name and password for the specified system from the
* x/.netrc file.
*/
int
GetPassword(char *sysname, char *logname, char *password)
{
#define BUFSIZE 256
char buffer[BUFSIZE];
Chapter 6. Remote client examples 131