Qshell Interpreter (qsh) - FTP Directory Listing - IBM

* Release the client's profile handle. */
QSYRLSPH(client_ph, NULL);
if (error.Bytes_Available != 0) {
LogError(“Could not release client's profile handle, ”
“QSYRLSPH() failed with exception %7.7s\n”,
error.Exception_Id);
break;
}
close(cfd);
continue;
}
/* Build the file descriptor map for the child. */
fd_count = 3;
fd_map[0] = cfd;
fd_map[1] = cfd;
fd_map[2] = cfd;
/* Build the argv array for the child. */
args[0] = qsh_pgm;
args[1] = “-login”; /* Do login processing */
args[2] = “-s”; /* Take input from stdin */
args[3] = “-i”; /* Run as an interactive shell */
args[4] = NULL;
/* Build the environ array for the child. */
sprintf(home_var, “HOME=%s”, cpw->pw_dir);
sprintf(logname_var, “LOGNAME=%s”, cpw->pw_name);
envs[0] = home_var;
envs[1] = logname_var;
envs[2] = path_var;
envs[3] = stdio_var;
envs[4] = terminal_type_var;
envs[5] = nlspath_var;
envs[6] = NULL;
/* Set up the inheritance structure. */
memset(&inherit, '\0', sizeof(struct inheritance));
inherit.flags = SPAWN_SETTHREAD_NP;
inherit.pgroup = SPAWN_NEWPGROUP;
/* Change to the home directory for the client. The child process
inherits this as its current working directory. */
chdir(cpw->pw_dir);
/* Start a child process running the shell interpreter. */
if (spawn(args[0], fd_count, fd_map, &inherit, args, envs) < 0) {
LogError(“Could not start qsh process, spawn() failed with ”
“errno=%d\n”, errno);
SendError(cfd, “Could not start qsh process\n”);
}
/* Clean up for the next connection. */
chdir(server_dir);
close(cfd);
/* Switch back to 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;
}
/* Release the client's profile handle. */
QSYRLSPH(client_ph, &error);
if (error.Bytes_Available != 0) {
LogError(“Could not release client's profile handle, ”
“QSYRLSPH() failed with exception %7.7s\n”,
error.Exception_Id);
break;
}
} /* End of while */
/* Clean up. */
close(sfd);
Chapter 6. Remote client examples 123