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

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