Qshell Interpreter (qsh) - FTP Directory Listing - IBM

120 Qshell Interpreter (qsh)
#include /* spawn() */
#include /* close(), read(), etc. */
#include /* exit()*/
#include /* va_start(), va_end() */
#include /* Qp0zInitEnv() */
#include /* QSYGETPH() */
#include /* QWTSETP() */
#include /* QSYRLSPH() */
#include /* Qus_EC_t */
#include /* getpwnam() */
#include /* toupper() */
#include /* ctime(), time() */
#include /* Exception and cancel handling */
#include /* errno and constants */
/**********************************************************************/
/* Constants */
/**********************************************************************/
#define DEFAULT_BUF 4096
#define DEFAULT_PORT 6042
#define NULL_PH “\0\0\0\0\0\0\0\0\0\0\0\0”
#define PH_SIZE 12
#define NAME_SIZE 11
#undef PATH_MAX
#define PATH_MAX 4096
/**********************************************************************/
/* Global Variables */
/**********************************************************************/
/* For logging errors */
FILE *log_fp;
char log_file[] = “/tmp/qsh_server.log”;
char log_buffer[DEFAULT_BUF];
/**********************************************************************/
/* Function Prototypes */
/**********************************************************************/
int strtoupper(char *);
int GetString(int, char *, size_t);
void LogError(char *, ...);
void SendError(int, char *, ...);
void CleanupHandler(_CNL_Hndlr_Parms_T *);
int main(int argc, char *argv[])
{
int sfd; /* Server's listening socket */
int cfd; /* Socket connected to client */
int on=1; /* Flag for setsockopt() */
struct sockaddr_in my_addr; /* Address server binds to */
struct sockaddr_in client_addr; /* Addrress of connected client */
int client_addr_len; /* Length of client's socket address */
unsigned short port; /* Server's TCP port */
char server_ph[PH_SIZE+1] = NULL_PH; /* Server's profile handle */
char client_ph[PH_SIZE+1] = NULL_PH; /* Client's profile handle */
char profile[NAME_SIZE]; /* User profile read from client */
char password[NAME_SIZE]; /* Password read from client */
char sy_profile[NAME_SIZE]; /* User profile for AS/400 APIs */
char sy_password[NAME_SIZE]; /* Password for AS/400 APIs */
char server_profile[NAME_SIZE] = “*CURRENT ”;
char no_pwd[NAME_SIZE] = “*NOPWD ”;
struct passwd *cpw; /* User information for client */
Qus_EC_t error = { sizeof(Qus_EC_t), 0 }; /* Error code for SPIs */
/* Parameters for spawn() to shell process */
char qsh_pgm[] = “/QSYS.LIB/QSHELL.LIB/QZSHSH.PGM”;
char *args[5]; /* Argument array */
char *envs[10]; /* Environment variable array */
int fd_count; /* Number of descriptors */
int fd_map[3]; /* Map of descriptors */
struct inheritance inherit; /* Inheritance options */
char server_dir[] = “/”; /* Default current working directory */
/* Environment variables */