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