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

   1 /*
   2  * distsbr.c -- routines to do additional "dist-style" processing
   3  *
   4  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   5  * COPYRIGHT file in the root directory of the nmh distribution for
   6  * complete copyright information.
   7  */
   8
   9 #include <h/mh.h>
  10 #include <fcntl.h>
  11 #include <h/utils.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[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, (off_t) 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, (off_t) 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[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), hdrfd = NOTOK;
 135     if (txtfd != NOTOK)
 136         close (txtfd), txtfd = NOTOK;
 137
 138     if ((ifp = fopen (msgnam, "r")) == NULL)
 139         adios (msgnam, "unable to open message");
 140
 141     cp = m_mktemp2(NULL, "dist", &hdrfd, NULL);
 142     if (cp == NULL) {
 143         adios(NULL, "unable to create temporary file in %s", get_temp_dir());
 144     }
 145     strncpy(tmpfil, cp, sizeof(tmpfil));
 146     if ((out = dup (hdrfd)) == NOTOK
 147             || (ofp = fdopen (out, "w")) == NULL)
 148         adios (NULL, "no file descriptors -- you lose big");
 149     (void) m_unlink (tmpfil);
 150
 151     for (;;) {
 152         int buffersz = sizeof buffer;
 153         switch (state = m_getfld (&gstate, name, buffer, &buffersz, ifp)) {
 154             case FLD:
 155             case FLDPLUS:
 156                 if (uprf (name, "resent"))
 157                     fprintf (ofp, "Prev-");
 158                 fprintf (ofp, "%s: %s", name, buffer);
 159                 while (state == FLDPLUS) {
 160                     buffersz = sizeof buffer;
 161                     state = m_getfld (&gstate, name, buffer, &buffersz, ifp);
 162                     fputs (buffer, ofp);
 163                 }
 164                 break;
 165
 166             case BODY:
 167                 fclose (ofp);
 168
 169                 cp = m_mktemp2(NULL, "dist", &txtfd, NULL);
 170                 if (cp == NULL) {
 171                     adios(NULL, "unable to create temporary file in %s",
 172                           get_temp_dir());
 173                 }
 174                 fchmod(txtfd, 0600);
 175                 strncpy (tmpfil, cp, sizeof(tmpfil));
 176                 if ((out = dup (txtfd)) == NOTOK
 177                         || (ofp = fdopen (out, "w")) == NULL)
 178                     adios (NULL, "no file descriptors -- you lose big");
 179                 (void) m_unlink (tmpfil);
 180                 fprintf (ofp, "\n%s", buffer);
 181                 while (state == BODY) {
 182                     buffersz = sizeof buffer;
 183                     state = m_getfld (&gstate, name, buffer, &buffersz, ifp);
 184                     fputs (buffer, ofp);
 185                 }
 186             case FILEEOF:
 187                 goto process;
 188
 189             case LENERR:
 190             case FMTERR:
 191                 adios (NULL, "format error in message %s", msgnam);
 192
 193             default:
 194                 adios (NULL, "getfld() returned %d", state);
 195         }
 196     }
 197 process: ;
 198     m_getfld_state_destroy (&gstate);
 199     fclose (ifp);
 200     fclose (ofp);
 201 }