/*  7PSERV interface utility for W0RLI BBS */

#include <stdio.h>
#include <stdlib.h>
#include <io.h>
#include <string.h>
#include <process.h>


main()
{
FILE* mail_out;
FILE* mail_tmp;
char mailstring[80];
int result;

    printf("7PRLI  7PServ interface for W0RLI BBS v1.0\n\n");

    if(!(mail_out = fopen("7prli.out","rt")))
    {
         printf("Error opening file 7PRLI.OUT\n");
         exit(1);
    }

    printf("Processing...\n");

    while(! feof(mail_out))
    {
         mail_tmp = fopen("7prli.tmp","wt");
         do
         {
              fgets(mailstring,80,mail_out);
              if (! feof(mail_out)) fputs(mailstring, mail_tmp);
         } while( (strncmp(mailstring,"/EX\n",4)) && (! feof(mail_out)) );

         fclose(mail_tmp);

         if(! feof(mail_out))
         {
              result = spawnl(P_WAIT, "7pserv\\7pserv.exe", "", "7prli.tmp", NULL);
              if (result == -1)
              {
                   printf("Error from spawn: file 7pserv.exe\n");
                   exit(1);
              }
         }
    }
    printf("Done.\n");
    fclose(mail_out);
    remove("7prli.out");
    remove("7prli.tmp");
}