Commit | Line | Data |
---|---|---|
cc9940c7 JB |
1 | /* |
2 | * b2m - a filter for Babyl -> Unix mail files | |
3 | * | |
4 | * usage: b2m < babyl > mailbox | |
5 | * | |
6 | * I find this useful whenever I have to use a | |
7 | * system which - shock horror! - doesn't run | |
8 | * Gnu emacs. At least now I can read all my | |
9 | * Gnumacs Babyl format mail files! | |
10 | * | |
11 | * it's not much but it's free! | |
12 | * | |
13 | * Ed Wilkinson | |
14 | * E.Wilkinson@massey.ac.nz | |
15 | * Mon Nov 7 15:54:06 PDT 1988 | |
16 | */ | |
17 | ||
18 | #include <stdio.h> | |
19 | #include <time.h> | |
fbfed6f0 JB |
20 | |
21 | #include "../src/config.h" | |
22 | ||
23 | #ifdef USG | |
24 | #include <string.h> | |
25 | #else | |
cc9940c7 | 26 | #include <strings.h> |
fbfed6f0 | 27 | #endif |
cc9940c7 JB |
28 | |
29 | /* BSD's strings.h does not declare the type of strtok. */ | |
30 | extern char *strtok (); | |
31 | ||
32 | #define TRUE (1) | |
33 | #define FALSE (0) | |
34 | ||
35 | int header = FALSE, printing; | |
36 | long ltoday; | |
37 | char from[256], labels[256], data[256], *p, *today; | |
38 | ||
5d13f393 JB |
39 | main (argc, argv) |
40 | int argc; | |
41 | char **argv; | |
cc9940c7 JB |
42 | { |
43 | ltoday = time(0); | |
44 | today = ctime(<oday); | |
45 | ||
46 | if (gets(data)) | |
47 | if (strcmp(data, "BABYL OPTIONS:")) { | |
48 | fprintf(stderr, "b2m: not a Babyl mailfile!\n"); | |
49 | exit(-1); | |
50 | } else | |
51 | printing = FALSE; | |
52 | else | |
53 | exit(-1); | |
54 | if (printing) | |
55 | puts(data); | |
56 | ||
57 | while (gets(data)) { | |
5d13f393 JB |
58 | |
59 | #if 0 | |
60 | /* What was this for? Does somebody have something against blank | |
61 | lines? */ | |
cc9940c7 JB |
62 | if (!strcmp(data, "")) |
63 | exit(0); | |
5d13f393 | 64 | #endif |
cc9940c7 JB |
65 | |
66 | if (!strcmp(data, "*** EOOH ***") && !printing) { | |
67 | printing = header = TRUE; | |
68 | printf("From b2m %s", today); | |
69 | continue; | |
70 | } | |
71 | ||
72 | if (!strcmp(data, "\f")) { | |
73 | /* save labels */ | |
74 | gets(data); | |
75 | p = strtok(data, " ,\r\n\t"); | |
76 | strcpy(labels, "X-Babyl-Labels: "); | |
77 | ||
78 | while (p = strtok(NULL, " ,\r\n\t")) { | |
79 | strcat(labels, p); | |
80 | strcat(labels, ", "); | |
81 | } | |
82 | ||
83 | labels[strlen(labels) - 2] = '\0'; | |
84 | printing = header = FALSE; | |
85 | continue; | |
86 | } | |
87 | ||
88 | if (!strlen(data) && header) { | |
89 | header = FALSE; | |
90 | if (strcmp(labels, "X-Babyl-Labels")) | |
91 | puts(labels); | |
92 | } | |
93 | ||
94 | if (printing) | |
95 | puts(data); | |
96 | } | |
97 | } |