/***************************************************************************

   UUXQT.c by William Loftus
   Copyright 1988 by William Loftus.   All rights reserved.

   Beta Version 0.31

   Changes:
           11-Jul-88 by Dan Schein

		   Added support for unknown command request(s)
		   Added support for a RMAIL command
		   Added "New Files Received." message
		   Added Beta Version number

***************************************************************************/

# include <stdio.h>

static char names[3000];
static char *pointers[300];
static int file_pointer;
static int error;
static char* xfile;
static char dfile[128];
static char cmd[1024];
static char ccmd[128];
static char ccmd_args[128];
static char buf[128];
static char path[128];

#define DELIM " \t\n\r"

char *
work_scan()
{
    char name[128];
    int count;

    file_pointer = 0;

    sprintf(name,"UUCP:SPOOL/X.#?");

    count = getfnl(name,names,sizeof(names),0);

    if (count > 0) {

      printf("New files have arrived.\n");

      if (strbpl(pointers,300,names) != count) {
         printf("Too many execute files\n");
         return (char *)NULL;
      }
    } else {
      return (char *)NULL;
    }
    return (char *)1;
}

char *
work_next()
{
  return pointers[file_pointer++];
}

void
parse(x)
  char *x;
{
  FILE *fp;
  char *tmp;

  fp = fopen(x,"r");
  if (fp == (char *)NULL) {
    printf("Can't open file %s\n",x);
    chdir(path);
    exit(1);
  }
  while (NULL != fgets(buf, sizeof buf, fp)) {
               if (strncmp(buf, "F", 1) == 0)
                   strcpy(dfile, strtok(&buf[1],DELIM));
               else if (strncmp(buf, "C", 1) == 0)
                      strcpy(ccmd, strtok(&buf[1],DELIM));
                      strcpy(ccmd_args, strtok((char *)NULL, DELIM));
                      while ((tmp = (char *)strtok((char *)NULL, DELIM))
                                                 != (char *)NULL) {
                         strcat(ccmd_args, " ");
                         strcat(ccmd_args, tmp);
                      }
  }

  if (strncmp(ccmd, "rmail", 5) == 0) {
    sprintf(cmd,"UUCP:c/rmail < %s %s", dfile, ccmd_args);
  } else if (strncmp(ccmd, "cunbatch", 5) == 0) {
    sprintf(cmd,"UUCP:c/cunbatch < %s %s", dfile, ccmd_args);
  } else if (strncmp(ccmd, "rnews", 5) == 0) {
    sprintf(cmd,"UUCP:c/rnews < %s %s", dfile, "UseNet");
  } else {
    printf("Unknown command request %s       - Operation Aborted -\n", ccmd);
	error = 1;
  }

  fclose(fp);

}


void
main()
{
  getcwd(path,128);
  chdir("UUCP:SPOOL");
  if (work_scan() != (char *)NULL) {
    while ((xfile = work_next()) != (char *)NULL) {
      parse(xfile);
      if ((!system(cmd)) && (error != 1)) {
        remove(xfile);
        remove(dfile);
      }
    }
  }
  chdir(path);
}