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