Return to unbatch.c CVS log

Up to [Research Unix] / researchv10dc / cmd / netnews / src

Annotation of researchv10dc/cmd/netnews/src/unbatch.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * unbatchnews: extract news in batched format and process it one article
                      3:  * at a time.  The format looks like
                      4:  *     #! rnews 1234
                      5:  *     article containing 1234 characters
                      6:  *     #! rnews 4321
                      7:  *     article containing 4321 characters
                      8:  */
                      9: 
                     10: # include <stdio.h>
                     11: static char *sccsid = "@(#)unbatch.c   1.3     4/23/83";
                     12: 
                     13: char buf[512];
                     14: 
                     15: main(ac, av)
                     16: char **av;
                     17: {
                     18:        register int c;
                     19:        register FILE *pfn;
                     20:        register long size;
                     21:        char *filename;
                     22:        int pid, wpid, exstat;
                     23:        char *mktemp();
                     24:        long atol();
                     25: 
                     26:        filename = mktemp("/tmp/unbnewsXXXXXX");
                     27:        while(gets(buf) != NULL) {
                     28:                while (strncmp(buf, "#! rnews ", 9)) {
                     29:                        fprintf(stderr, "out of sync, skipping %s\n", buf);
                     30:                        if (gets(buf) == NULL)
                     31:                                exit(0);
                     32:                }
                     33:                size = atol(buf+9);
                     34:                if(size <= 0)
                     35:                        break;
                     36:                pfn = fopen(filename, "w");
                     37:                while(--size >= 0 && (c = getc(stdin)) != EOF)
                     38:                        putc(c, pfn);
                     39:                fclose(pfn);
                     40: 
                     41:                /*
                     42:                 * If we got a truncated batch, don't process the
                     43:                 * last article; it will probably be received again.
                     44:                 */
                     45:                if (size > 0)
                     46:                        break;
                     47: 
                     48:                /*
                     49:                 * rnews < filename
                     50:                 */
                     51:                while ((pid = fork()) == -1) {
                     52:                        fprintf(stderr, "fork failed, waiting...\r\n");
                     53:                        sleep(60);
                     54:                }
                     55:                if (pid == 0) {
                     56:                        close(0);
                     57:                        open(filename, 0);
                     58:                        execlp("rnews", "rnews", 0);
                     59:                        perror("rnews");
                     60:                        exit(1);
                     61:                }
                     62:                while ((wpid = wait(&exstat)) >= 0 && wpid != pid)
                     63:                        ;
                     64:        }
                     65:        unlink(filename);
                     66: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.