diplodocus.org Git - nmh/blob - uip/distsbr.c

   1 /* distsbr.c -- routines to do additional "dist-style" processing
   2  *
   3  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   4  * COPYRIGHT file in the root directory of the nmh distribution for
   5  * complete copyright information.
   6  */
   7
   8 #include "h/mh.h"
   9 #include "sbr/error.h"
  10 #include <fcntl.h>
  11 #include "h/utils.h"
  12 #include "sbr/m_mktemp.h"
  13
  14 static int  hdrfd = NOTOK;
  15 static int  txtfd = NOTOK;
  16
  17 #define BADHDR  "please re-edit %s to remove the ``%s'' header!"
  18 #define BADTXT  "please re-edit %s to consist of headers only!"
  19 #define BADMSG  "please re-edit %s to include a ``Resent-To:''!"
  20 #define BADRFT  "please re-edit %s and fix that header!"
  21
  22 /*
  23  * static prototypes
  24  */
  25 static void ready_msg(char *);
  26
  27 int
  28 distout (char *drft, char *msgnam, char *backup)
  29 {
  30     int state;
  31     char *dp, *resent;
  32     char name[NAMESZ], buffer[NMH_BUFSIZ];
  33     FILE *ifp, *ofp;
  34     m_getfld_state_t gstate;
  35
  36     if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
  37         adios (backup, "unable to rename %s to",drft);
  38     if ((ifp = fopen (backup, "r")) == NULL)
  39         adios (backup, "unable to read");
  40
  41     if ((ofp = fopen (drft, "w")) == NULL)
  42         adios (drft, "unable to create temporary file");
  43     chmod (drft, m_gmprot ());
  44
  45     ready_msg (msgnam);
  46     lseek(hdrfd, 0, SEEK_SET); /* msgnam not accurate */
  47     cpydata (hdrfd, fileno (ofp), msgnam, drft);
  48
  49     gstate = m_getfld_state_init(ifp);
  50     for (resent = NULL;;) {
  51         int buffersz = sizeof buffer;
  52         switch (state = m_getfld2(&gstate, name, buffer, &buffersz)) {
  53             case FLD:
  54             case FLDPLUS:
  55                 if (uprf (name, "distribute-"))
  56                     snprintf (name, sizeof(name), "%s%s", "Resent", &name[10]);
  57                 if (uprf (name, "distribution-"))
  58                     snprintf (name, sizeof(name), "%s%s", "Resent", &name[12]);
  59                 if (!uprf (name, "resent")) {
  60                     inform(BADHDR, "draft", name);
  61                     goto leave_bad;
  62                 }
  63                 if (state == FLD)
  64                     resent = add (":", add (name, resent));
  65                 resent = add (buffer, resent);
  66                 fprintf (ofp, "%s: %s", name, buffer);
  67                 while (state == FLDPLUS) {
  68                     buffersz = sizeof buffer;
  69                     state = m_getfld2(&gstate, name, buffer, &buffersz);
  70                     resent = add (buffer, resent);
  71                     fputs (buffer, ofp);
  72                 }
  73                 break;
  74
  75             case BODY:
  76                 for (dp = buffer; *dp; dp++)
  77                     if (!isspace ((unsigned char) *dp)) {
  78                         inform(BADTXT, "draft");
  79                         goto leave_bad;
  80                     }
  81
  82             case FILEEOF:
  83                 goto process;
  84
  85             case LENERR:
  86             case FMTERR:
  87                 inform(BADRFT, "draft");
  88         leave_bad: ;
  89                 fclose (ifp);
  90                 fclose (ofp);
  91                 (void) m_unlink (drft);
  92                 if (rename (backup, drft) == NOTOK)
  93                     adios (drft, "unable to rename %s to", backup);
  94                 return NOTOK;
  95
  96             default:
  97                 die("getfld() returned %d", state);
  98         }
  99     }
 100 process: ;
 101     m_getfld_state_destroy (&gstate);
 102     fclose (ifp);
 103     fflush (ofp);
 104
 105     if (!resent) {
 106         inform(BADMSG, "draft");
 107         fclose (ofp);
 108         (void) m_unlink (drft);
 109         if (rename (backup, drft) == NOTOK)
 110             adios (drft, "unable to rename %s to", backup);
 111         return NOTOK;
 112     }
 113     free (resent);
 114
 115     if (txtfd != NOTOK) {
 116         lseek(txtfd, 0, SEEK_SET); /* msgnam not accurate */
 117         cpydata (txtfd, fileno (ofp), msgnam, drft);
 118     }
 119
 120     fclose (ofp);
 121
 122     return OK;
 123 }
 124
 125
 126 static void
 127 ready_msg (char *msgnam)
 128 {
 129     int state, out;
 130     char name[NAMESZ], buffer[NMH_BUFSIZ], tmpfil[BUFSIZ];
 131     FILE *ifp, *ofp;
 132     char *cp = NULL;
 133     m_getfld_state_t gstate;
 134
 135     if (hdrfd != NOTOK) {
 136         close (hdrfd);
 137         hdrfd = NOTOK;
 138     }
 139     if (txtfd != NOTOK) {
 140         close (txtfd);
 141         txtfd = NOTOK;
 142     }
 143
 144     if ((ifp = fopen (msgnam, "r")) == NULL)
 145         adios (msgnam, "unable to open message");
 146
 147     cp = m_mktemp2(NULL, "dist", &hdrfd, NULL);
 148     if (cp == NULL) {
 149         die("unable to create temporary file in %s", get_temp_dir());
 150     }
 151     strncpy(tmpfil, cp, sizeof(tmpfil));
 152     if ((out = dup (hdrfd)) == NOTOK
 153             || (ofp = fdopen (out, "w")) == NULL)
 154         die("no file descriptors -- you lose big");
 155     (void) m_unlink (tmpfil);
 156
 157     gstate = m_getfld_state_init(ifp);
 158     for (;;) {
 159         int buffersz = sizeof buffer;
 160         switch (state = m_getfld2(&gstate, name, buffer, &buffersz)) {
 161             case FLD:
 162             case FLDPLUS:
 163                 if (uprf (name, "resent"))
 164                     fprintf (ofp, "Prev-");
 165                 fprintf (ofp, "%s: %s", name, buffer);
 166                 while (state == FLDPLUS) {
 167                     buffersz = sizeof buffer;
 168                     state = m_getfld2(&gstate, name, buffer, &buffersz);
 169                     fputs (buffer, ofp);
 170                 }
 171                 break;
 172
 173             case BODY:
 174                 fclose (ofp);
 175
 176                 cp = m_mktemp2(NULL, "dist", &txtfd, NULL);
 177                 if (cp == NULL) {
 178                     die("unable to create temporary file in %s",
 179                           get_temp_dir());
 180                 }
 181                 fchmod(txtfd, 0600);
 182                 strncpy (tmpfil, cp, sizeof(tmpfil));
 183                 if ((out = dup (txtfd)) == NOTOK
 184                         || (ofp = fdopen (out, "w")) == NULL)
 185                     die("no file descriptors -- you lose big");
 186                 (void) m_unlink (tmpfil);
 187                 fprintf (ofp, "\n%s", buffer);
 188                 while (state == BODY) {
 189                     buffersz = sizeof buffer;
 190                     state = m_getfld2(&gstate, name, buffer, &buffersz);
 191                     fputs (buffer, ofp);
 192                 }
 193             case FILEEOF:
 194                 goto process;
 195
 196             case LENERR:
 197             case FMTERR:
 198                 die("format error in message %s", msgnam);
 199
 200             default:
 201                 die("getfld() returned %d", state);
 202         }
 203     }
 204 process: ;
 205     m_getfld_state_destroy (&gstate);
 206     fclose (ifp);
 207     fclose (ofp);
 208 }