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