Qshell Interpreter (qsh) - FTP Directory Listing - IBM

124 Qshell Interpreter (qsh)
#pragma disable_handler /* Exception handler */
#pragma disable_handler /* Cancel handler */
exit(0);
return 0;
/* Exception handler */
Cleanup:
LogError(“Unexpected exception %7.7s\n”, ca.Msg_Id);
close(sfd);
exit(1);
} /* End of main() */
/*
* Convert a string to upper case.
*/
int
strtoupper(char *string)
{
for ( ; *string != '\0'; ++string)
*string = toupper(*string);
return 0;
} /* End of strtoupper() */
/*
* Read a string from a socket.
*/
int
GetString(int fd, char *buffer, size_t nbytes)
{
char c;
do {
if (read(fd, &c, 1) != 1) {
return -1;
}
*buffer++ = c;
if (—nbytes == 0) {
return 0;
}
} while (c != '\0');
return 0;
} /* End of GetString() */
/*
* Write an error message to the log file.
*/
void LogError(char *format, ...)
{
va_list ap;
time_t now; /* Time stamp */
/* If needed, open the log file. */
if (log_fp == NULL) {
log_fp = fopen(log_file, “w”);
if (log_fp == NULL) {
return;
}
}
/* Write timestamp to the log file. */
now=time(NULL);
fprintf(log_fp, “\n%s”, ctime(&now));
/* Write the formatted string to the log file. */
va_start(ap, format);
vfprintf(log_fp, format, ap);
va_end(ap);
/* Flush output to log file. */
fflush(log_fp);
return;
} /* End of LogError() */
/*
* Send an error message to the client.
*/
void SendError(int fd, char *format, ...)