Qshell Interpreter (qsh) - FTP Directory Listing - IBM

122 Qshell Interpreter (qsh)
while (1) {
if ((cfd = accept(sfd, NULL, 0)) < 0) {
LogError(“accept() failed, errno=%d\n”, errno);
close(sfd);
exit(1);
}
/* Read the user profile and password from the client. The client
sends two null-terminated strings - the first one is the user
profile and the second one is the password. */
if (GetString(cfd, profile, 11) != 0) {
getpeername(cfd, (struct sockaddr *)&client_addr, &client_addr_len);
LogError(“Could not read profile from client at %s, port %hu\n”,
inet_ntoa(client_addr.sin_addr), client_addr.sin_port);
close(cfd);
continue;
}
if (GetString(cfd, password, 11) != 0) {
getpeername(cfd, (struct sockaddr *)&client_addr, &client_addr_len);
LogError(“Could not read password from client at %s, port %hu\n”,
inet_ntoa(client_addr.sin_addr), client_addr.sin_port);
close(cfd);
continue;
}
/* QSYGETPH() requires that the profile and password be exactly ten
characters, left-justified in the field, and padded with blanks. */
strtoupper(profile);
strtoupper(password);
sprintf(sy_profile, “%-10.10s”, profile);
sprintf(sy_password, “%-10.10s”, password);
/* Get the profile handle for the client's user profile. */
QSYGETPH(sy_profile, sy_password, client_ph, &error);
if (error.Bytes_Available != 0) {
LogError(“Could not get profile handle for profile %s, ”
“QSYGETPH() failed with exception %7.7s\n”,
sy_profile, error.Exception_Id);
SendError(cfd, “Could not get profile handle for profile %s\n”,
sy_profile);
close(cfd);
continue;
}
/* Switch to client's user profile. */
QWTSETP(client_ph, &error);
if (error.Bytes_Available != 0) {
LogError(“Could not switch to profile %s, ”
“QWTSETP() failed with exception %7.7s\n”,
sy_profile, error.Exception_Id);
SendError(cfd, “Could not switch to profile %s\n”, sy_profile);
QSYRLSPH(client_ph, NULL);
close(cfd);
continue;
}
/* Get the info for this user profile. */
if ((cpw = getpwnam(profile)) == NULL) {
/* Log error. */
LogError(“Could not retrieve information for profile %s, ”
“getpwnam() failed with errno=%d\n”,
profile, errno);
SendError(cfd, “Could not retrieve information for profile %s\n”,
profile);
/* Switch back to the server's user profile. */
QWTSETP(server_ph, &error);
if (error.Bytes_Available != 0) {
LogError(“Could not switch back to server's profile, ”
“QWTSETP() failed with exception %7.7s\n”,
error.Exception_Id);
break;
}