lib-src/b2m.c

   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>
  20 #include <strings.h>
  21
  22 /* BSD's strings.h does not declare the type of strtok.  */
  23 extern char *strtok ();
  24
  25 #define TRUE  (1)
  26 #define FALSE (0)
  27
  28 int header = FALSE, printing;
  29 long ltoday;
  30 char from[256], labels[256], data[256], *p, *today;
  31
  32 main(argc, argv)
  33 char **argv;
  34 {
  35   ltoday = time(0);
  36   today = ctime(&ltoday);
  37
  38   if (gets(data))
  39     if (strcmp(data, "BABYL OPTIONS:")) {
  40       fprintf(stderr, "b2m: not a Babyl mailfile!\n");
  41       exit(-1);
  42     } else
  43       printing = FALSE;
  44   else
  45     exit(-1);
  46   if (printing)
  47     puts(data);
  48
  49   while (gets(data)) {
  50     if (!strcmp(data, ""))
  51       exit(0);
  52
  53     if (!strcmp(data, "*** EOOH ***") && !printing) {
  54       printing = header = TRUE;
  55       printf("From b2m %s", today);
  56       continue;
  57     }
  58
  59     if (!strcmp(data, "\f")) {
  60       /* save labels */
  61       gets(data);
  62       p = strtok(data, " ,\r\n\t");
  63       strcpy(labels, "X-Babyl-Labels: ");
  64
  65       while (p = strtok(NULL, " ,\r\n\t")) {
  66         strcat(labels, p);
  67         strcat(labels, ", ");
  68       }
  69
  70       labels[strlen(labels) - 2] = '\0';
  71       printing = header = FALSE;
  72       continue;
  73     }
  74
  75     if (!strlen(data) && header) {
  76       header = FALSE;
  77       if (strcmp(labels, "X-Babyl-Labels"))
  78         puts(labels);
  79     }
  80
  81     if (printing)
  82       puts(data);
  83   }
  84 }