Qshell Interpreter (qsh) - FTP Directory Listing - IBM

char home_var[PATH_MAX+10];
char logname_var[NAME_SIZE+10];
char path_var[] = “PATH=/usr/bin:”;
char stdio_var[] = “QIBM_USE_DESCRIPTOR_STDIO=I”;
char terminal_type_var[] = “TERMINAL_TYPE=REMOTE”;
char nlspath_var[] = “NLSPATH=/QIBM/ProdData/OS400/Shell/MRI2924/%N”;
volatile _INTRPT_Hndlr_Parms_T ca; /* For exception handler */
/********************************************************************/
/* Process the input parameters. */
/********************************************************************/
/* Use the default port if one is not specified. */
if (argc < 2) {
port = DEFAULT_PORT;
}
else {
port = atoi(argv[1]);
}
/********************************************************************/
/* Initialize the server environment. */
/********************************************************************/
/* Initialize for environment variables. */
Qp0zInitEnv();
/* Change to default directory. */
chdir(server_dir);
/* Initialize the server's profile handle. */
QSYGETPH(server_profile, no_pwd, server_ph, &error);
if (error.Bytes_Available != 0) {
LogError(“Could not get profile handle for server, ”
“QSYGETPH() failed with exception %7.7s\n”,
error.Exception_Id);
exit(1);
}
/********************************************************************/
/* Set up the listening socket. */
/********************************************************************/
/* Create a socket. */
if ((sfd = socket(AF_INET, SOCK_STREAM, IPPROTO_IP)) < 0) {
LogError(“socket() failed, errno=%d\n”, errno);
exit(1);
}
#pragma cancel_handler(CleanupHandler, sfd)
#pragma exception_handler(Cleanup, ca, _C1_ALL, _C2_ALL)
/* Allow re-use of this socket address. */
if (setsockopt(sfd, SOL_SOCKET, SO_REUSEADDR, (char *)&on,
sizeof(int)) != 0) {
LogError(“setsockopt() failed, errno=%d\n”, errno);
exit(1);
}
/* Bind to a port. */
memset(&my_addr, '\0', sizeof(my_addr));
my_addr.sin_family = AF_INET;
my_addr.sin_port = port;
my_addr.sin_addr.s_addr = INADDR_ANY;
if (bind(sfd, (struct sockaddr *)&my_addr, sizeof(my_addr)) != 0) {
LogError(“bind() failed for port %d, errno=%d\n”, port, errno);
close(sfd);
exit(1);
}
/* Make this a listening socket. */
if (listen(sfd, 10) != 0) {
LogError(“listen() failed, errno=%d\n”, errno);
close(sfd);
exit(1);
}
/********************************************************************/
/* Accept connections from clients. */
/********************************************************************/
Chapter 6. Remote client examples 121