4e1
/*  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");
}
.

0