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", NAMESZ-7,
  63                               &name[10]);
  64                 if (uprf (name, "distribution-"))
  65                     snprintf (name, sizeof(name), "%s%.*s", "Resent", NAMESZ-7,
  66                               &name[12]);
  67                 if (!uprf (name, "resent")) {
  68                     inform(BADHDR, "draft", name);
  69                     goto leave_bad;
  70                 }
  71                 if (state == FLD)
  72                     resent = add (":", add (name, resent));
  73                 resent = add (buffer, resent);
  74                 fprintf (ofp, "%s: %s", name, buffer);
  75                 while (state == FLDPLUS) {
  76                     buffersz = sizeof buffer;
  77                     state = m_getfld2(&gstate, name, buffer, &buffersz);
  78                     resent = add (buffer, resent);
  79                     fputs (buffer, ofp);
  80                 }
  81                 break;
  82
  83             case BODY:
  84                 for (dp = buffer; *dp; dp++)
  85                     if (!isspace ((unsigned char) *dp)) {
  86                         inform(BADTXT, "draft");
  87                         goto leave_bad;
  88                     }
  89
  90             case FILEEOF:
  91                 goto process;
  92
  93             case LENERR:
  94             case FMTERR:
  95                 inform(BADRFT, "draft");
  96         leave_bad: ;
  97                 fclose (ifp);
  98                 fclose (ofp);
  99                 (void) m_unlink (drft);
 100                 if (rename (backup, drft) == NOTOK)
 101                     adios (drft, "unable to rename %s to", backup);
 102                 return NOTOK;
 103
 104             default:
 105                 die("getfld() returned %d", state);
 106         }
 107     }
 108 process: ;
 109     m_getfld_state_destroy (&gstate);
 110     fclose (ifp);
 111     fflush (ofp);
 112
 113     if (!resent) {
 114         inform(BADMSG, "draft");
 115         fclose (ofp);
 116         (void) m_unlink (drft);
 117         if (rename (backup, drft) == NOTOK)
 118             adios (drft, "unable to rename %s to", backup);
 119         return NOTOK;
 120     }
 121     free (resent);
 122
 123     if (txtfd != NOTOK) {
 124         lseek(txtfd, 0, SEEK_SET); /* msgnam not accurate */
 125         cpydata (txtfd, fileno (ofp), msgnam, drft);
 126     }
 127
 128     fclose (ofp);
 129
 130     return OK;
 131 }
 132
 133
 134 static void
 135 ready_msg (char *msgnam)
 136 {
 137     int state, out;
 138     char name[NAMESZ], buffer[NMH_BUFSIZ], tmpfil[BUFSIZ];
 139     FILE *ifp, *ofp;
 140     char *cp = NULL;
 141     m_getfld_state_t gstate;
 142
 143     if (hdrfd != NOTOK) {
 144         close (hdrfd);
 145         hdrfd = NOTOK;
 146     }
 147     if (txtfd != NOTOK) {
 148         close (txtfd);
 149         txtfd = NOTOK;
 150     }
 151
 152     if ((ifp = fopen (msgnam, "r")) == NULL)
 153         adios (msgnam, "unable to open message");
 154
 155     cp = m_mktemp2(NULL, "dist", &hdrfd, NULL);
 156     if (cp == NULL) {
 157         die("unable to create temporary file in %s", get_temp_dir());
 158     }
 159     strncpy(tmpfil, cp, sizeof(tmpfil));
 160     if ((out = dup (hdrfd)) == NOTOK
 161             || (ofp = fdopen (out, "w")) == NULL)
 162         die("no file descriptors -- you lose big");
 163     (void) m_unlink (tmpfil);
 164
 165     gstate = m_getfld_state_init(ifp);
 166     for (;;) {
 167         int buffersz = sizeof buffer;
 168         switch (state = m_getfld2(&gstate, name, buffer, &buffersz)) {
 169             case FLD:
 170             case FLDPLUS:
 171                 if (uprf (name, "resent"))
 172                     fprintf (ofp, "Prev-");
 173                 fprintf (ofp, "%s: %s", name, buffer);
 174                 while (state == FLDPLUS) {
 175                     buffersz = sizeof buffer;
 176                     state = m_getfld2(&gstate, name, buffer, &buffersz);
 177                     fputs (buffer, ofp);
 178                 }
 179                 break;
 180
 181             case BODY:
 182                 fclose (ofp);
 183
 184                 cp = m_mktemp2(NULL, "dist", &txtfd, NULL);
 185                 if (cp == NULL) {
 186                     die("unable to create temporary file in %s",
 187                           get_temp_dir());
 188                 }
 189                 fchmod(txtfd, 0600);
 190                 strncpy (tmpfil, cp, sizeof(tmpfil));
 191                 if ((out = dup (txtfd)) == NOTOK
 192                         || (ofp = fdopen (out, "w")) == NULL)
 193                     die("no file descriptors -- you lose big");
 194                 (void) m_unlink (tmpfil);
 195                 fprintf (ofp, "\n%s", buffer);
 196                 while (state == BODY) {
 197                     buffersz = sizeof buffer;
 198                     state = m_getfld2(&gstate, name, buffer, &buffersz);
 199                     fputs (buffer, ofp);
 200                 }
 201             case FILEEOF:
 202                 goto process;
 203
 204             case LENERR:
 205             case FMTERR:
 206                 die("format error in message %s", msgnam);
 207
 208             default:
 209                 die("getfld() returned %d", state);
 210         }
 211     }
 212 process: ;
 213     m_getfld_state_destroy (&gstate);
 214     fclose (ifp);
 215     fclose (ofp);
 216 }